diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-18 23:53:51 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-18 23:53:51 +0000 |
| commit | d8ec2bc893a1238880823760835a4d5ecc085897 (patch) | |
| tree | f8e40f41cfa458a8d1c19acda2b00850bb0d0270 | |
| parent | ba275b2de9b4d44d07d8c5286c82031f261ca438 (diff) | |
| download | emacs-d8ec2bc893a1238880823760835a4d5ecc085897.tar.gz | |
(outline-end-of-subtree): Stop before final newline.
| -rw-r--r-- | lisp/textmodes/ooutline.el | 14 |
1 files 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." |