mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

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