From baaec43f3d30175df2183aca2a5965d0303cbbee Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 25 Oct 2002 15:30:20 +0000 Subject: [PATCH] (outline-next-heading): Make sure the match-data is correct where returning. --- lisp/textmodes/outline.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/outline.el b/lisp/textmodes/outline.el index e3bff3a174e..696e2eb9466 100644 --- a/lisp/textmodes/outline.el +++ b/lisp/textmodes/outline.el @@ -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." -- 2.39.2