From d8ec2bc893a1238880823760835a4d5ecc085897 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 18 Apr 1994 23:53:51 +0000 Subject: [PATCH] (outline-end-of-subtree): Stop before final newline. --- lisp/textmodes/ooutline.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 17845d8d4d1..7374d4c0bda 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -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." -- 2.39.5