Commit f4136d9c authored by Richard M. Stallman's avatar Richard M. Stallman

(outline-next-preface): Undo previous change: do stop before final newline.

parent e36d00d4
......@@ -237,13 +237,14 @@ the number of characters that `outline-regexp' matches."
(- (match-end 0) (match-beginning 0))))
(defun outline-next-preface ()
"Skip forward to just before the next heading line."
"Skip forward to just before the next heading line.
If there's no following heading line, stop before the newline
at the end of the buffer."
(if (re-search-forward (concat "[\n\^M]\\(" outline-regexp "\\)")
nil 'move)
(progn
(goto-char (match-beginning 0))
(if (memq (preceding-char) '(?\n ?\^M))
(forward-char -1)))))
(goto-char (match-beginning 0)))
(if (memq (preceding-char) '(?\n ?\^M))
(forward-char -1)))
(defun outline-next-heading ()
"Move to the next (possibly invisible) heading line."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment