From 9d721a9e79c5dfd2807dca9a310dffcb6f5103ae Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Feb 1994 01:33:12 +0000 Subject: [PATCH] (outline-end-of-subtree): If loop leaves us at eob, don't move back from there. --- lisp/textmodes/ooutline.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index b9e9dd3524d..efd49c9f41a 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -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." -- 2.39.5