diff options
| author | Karl Heuer | 1994-04-18 23:53:51 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-18 23:53:51 +0000 |
| commit | d8ec2bc893a1238880823760835a4d5ecc085897 (patch) | |
| tree | f8e40f41cfa458a8d1c19acda2b00850bb0d0270 /lisp/textmodes | |
| parent | ba275b2de9b4d44d07d8c5286c82031f261ca438 (diff) | |
| download | emacs-d8ec2bc893a1238880823760835a4d5ecc085897.tar.gz emacs-d8ec2bc893a1238880823760835a4d5ecc085897.zip | |
(outline-end-of-subtree): Stop before final newline.
Diffstat (limited to 'lisp/textmodes')
| -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." | |||
| 417 | (or first (> (funcall outline-level) level))) | 417 | (or first (> (funcall outline-level) level))) |
| 418 | (setq first nil) | 418 | (setq first nil) |
| 419 | (outline-next-heading)) | 419 | (outline-next-heading)) |
| 420 | (if (eobp) | 420 | (if (memq (preceding-char) '(?\n ?\^M)) |
| 421 | nil | 421 | (progn |
| 422 | ;; go to end of line before heading | 422 | ;; got to end of line before heading |
| 423 | (forward-char -1) | 423 | (forward-char -1) |
| 424 | ;; skip preceding blank line, if there is one | 424 | (if (memq (preceding-char) '(?\n ?\^M)) |
| 425 | (if (memq (preceding-char) '(?\n ?\^M)) | 425 | ;; leave blank line before heading |
| 426 | (forward-char -1))))) | 426 | (forward-char -1)))))) |
| 427 | 427 | ||
| 428 | (defun show-branches () | 428 | (defun show-branches () |
| 429 | "Show all subheadings of this heading, but not their bodies." | 429 | "Show all subheadings of this heading, but not their bodies." |