mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-29 11:02:01 +00:00
Code Issues Releases Activity

(outline-next-heading): Make sure the match-data is correct where returning.

Browse Source
This commit is contained in:
Stefan Monnier 2002-10-25 15:30:20 +00:00
parent 869331eef1
commit baaec43f3d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/textmodes/outline.el
View File

@ -326,9 +326,11 @@ at the end of the buffer."
(defun outline-next-heading ()
"Move to the next (possibly invisible) heading line."
(interactive)
(if (re-search-forward (concat "\n\\(?:" outline-regexp "\\)")
;; Make sure we don't match the heading we're at.
(if (and (bolp) (not (eobp))) (forward-char 1))
(if (re-search-forward (concat "^\\(?:" outline-regexp "\\)")
nil 'move)
(goto-char (1+ (match-beginning 0)))))
(goto-char (match-beginning 0))))
(defun outline-previous-heading ()
"Move to the previous (possibly invisible) heading line."