Mercurial > emacs
changeset 6953:cd88b5f54ae3
(outline-end-of-subtree): Stop before final newline.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 18 Apr 1994 23:53:51 +0000 |
| parents | 7a3b606e7d27 |
| children | 774fdc20d115 |
| files | lisp/textmodes/ooutline.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ooutline.el Mon Apr 18 23:34:22 1994 +0000 +++ b/lisp/textmodes/ooutline.el Mon Apr 18 23:53:51 1994 +0000 @@ -417,13 +417,13 @@ (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."