Fix `org-next-block'
* lisp/org.el (org-next-block): Preserve match data, as specified in the docstring. Reported-by: Andreas Leha <andreas.leha@med.uni-goettingen.de> <http://permalink.gmane.org/gmane.emacs.orgmode/97707>
This commit is contained in:
parent
ed74e5bb9b
commit
de8302c65a
|
@ -24391,7 +24391,7 @@ Throw an error if no block is found."
|
||||||
(decf count))))
|
(decf count))))
|
||||||
(if (= count 0)
|
(if (= count 0)
|
||||||
(prog1 (goto-char (org-element-property :post-affiliated last-element))
|
(prog1 (goto-char (org-element-property :post-affiliated last-element))
|
||||||
(org-show-context))
|
(save-match-data (org-show-context)))
|
||||||
(goto-char origin)
|
(goto-char origin)
|
||||||
(user-error "No %s code blocks" (if backward "previous" "further")))))
|
(user-error "No %s code blocks" (if backward "previous" "further")))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue