diff options
| author | Richard M. Stallman | 1994-02-05 01:33:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-02-05 01:33:12 +0000 |
| commit | 9d721a9e79c5dfd2807dca9a310dffcb6f5103ae (patch) | |
| tree | 2e1e86db11a5eac551cca06f85a1406b437a5cdf /lisp | |
| parent | f0148b5e8a42cdaf6e66e9d035dd1adcb6a7b94e (diff) | |
| download | emacs-9d721a9e79c5dfd2807dca9a310dffcb6f5103ae.tar.gz emacs-9d721a9e79c5dfd2807dca9a310dffcb6f5103ae.zip | |
(outline-end-of-subtree): If loop leaves us at eob,
don't move back from there.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ooutline.el | 10 |
1 files 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." | |||
| 352 | (or first (> (funcall outline-level) level))) | 352 | (or first (> (funcall outline-level) level))) |
| 353 | (setq first nil) | 353 | (setq first nil) |
| 354 | (outline-next-heading)) | 354 | (outline-next-heading)) |
| 355 | (forward-char -1) | 355 | (if (eobp) |
| 356 | (if (memq (preceding-char) '(?\n ?\^M)) | 356 | nil |
| 357 | (forward-char -1)))) | 357 | ;; go to end of line before heading |
| 358 | (forward-char -1) | ||
| 359 | ;; skip preceding balnk line, if there is one | ||
| 360 | (if (memq (preceding-char) '(?\n ?\^M)) | ||
| 361 | (forward-char -1))))) | ||
| 358 | 362 | ||
| 359 | (defun show-branches () | 363 | (defun show-branches () |
| 360 | "Show all subheadings of this heading, but not their bodies." | 364 | "Show all subheadings of this heading, but not their bodies." |