Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
don't move back from there.
This commit is contained in:
Richard M. Stallman 1994-02-05 01:33:12 +00:00
parent f0148b5e8a
commit 9d721a9e79
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/textmodes/ooutline.el
View file

@ -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."