Commit 9d721a9e authored by Richard M. Stallman's avatar Richard M. Stallman

(outline-end-of-subtree): If loop leaves us at eob,

don't move back from there.
parent f0148b5e
......@@ -352,9 +352,13 @@ while if FLAG is `\\^M' (control-M) the text is hidden."
(or first (> (funcall outline-level) level)))
(setq first nil)
(outline-next-heading))
(forward-char -1)
(if (memq (preceding-char) '(?\n ?\^M))
(forward-char -1))))
(if (eobp)
nil
;; go to end of line before heading
(forward-char -1)
;; skip preceding balnk line, if there is one
(if (memq (preceding-char) '(?\n ?\^M))
(forward-char -1)))))
(defun show-branches ()
"Show all subheadings of this heading, but not their bodies."
......
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