procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(outline-end-of-subtree): Stop before final newline.

Browse source
This commit is contained in:
Karl Heuer 1994-04-18 23:53:51 +00:00
parent ba275b2de9
commit d8ec2bc893
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/textmodes/ooutline.el
View file

@ -417,13 +417,13 @@ while if FLAG is `\\^M' (control-M) the text is hidden."
(or first (> (funcall outline-level) level)))
(setq first nil)
(outline-next-heading))
(if (eobp)
nil
;; go to end of line before heading
(forward-char -1)
;; skip preceding blank line, if there is one
(if (memq (preceding-char) '(?\n ?\^M))
(forward-char -1)))))
(if (memq (preceding-char) '(?\n ?\^M))
(progn
;; got to end of line before heading
(forward-char -1)
(if (memq (preceding-char) '(?\n ?\^M))
;; leave blank line before heading
(forward-char -1))))))
(defun show-branches ()
"Show all subheadings of this heading, but not their bodies."