Paul Bryan <[email protected]> writes: > Sorry, forgot to edit the subject to make it a patch. Patch attached here > again for convenance.
Thanks for the patch! > (while (and (re-search-backward org-link-bracket-re nil t) > @@ -733,12 +734,12 @@ of the current buffer." > (setq link (match-string 0)) > (setq block-name (match-string 2)) > (save-excursion > - (save-match-data > - (re-search-forward > - (concat " " (regexp-quote block-name) > - " ends here") > - nil t) > - (setq end (line-beginning-position)))))))) > + (if (save-match-data > + (re-search-forward > + (concat " " (regexp-quote block-name) > + " ends here") > + nil t)) > + (setq end (line-beginning-position)))))))) Note that this still won't work with the original reproducer. -- Ihor Radchenko // yantar92, Org mode maintainer, Learn more about Org mode at <https://orgmode.org/>. Support Org development at <https://liberapay.com/org-mode>, or support my work at <https://liberapay.com/yantar92>
