diff options
| author | Richard M. Stallman | 2006-12-04 00:31:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-12-04 00:31:04 +0000 |
| commit | 49bb7f019f6537ffcd6776fc02b7c77ea7cfca2f (patch) | |
| tree | 13a4e50bba88c8474906e069ac27a1addb1b5ef9 | |
| parent | b36e96c8f3454e0909ef63805bf2e8fa08319bbd (diff) | |
| download | emacs-49bb7f019f6537ffcd6776fc02b7c77ea7cfca2f.tar.gz emacs-49bb7f019f6537ffcd6776fc02b7c77ea7cfca2f.zip | |
(outline-end-of-subtree): Don't leave an empty
line hidden as we would a real next heading.
| -rw-r--r-- | lisp/outline.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 0cd6eaa7186..0ec527060a1 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -894,7 +894,8 @@ Show the heading too, if it is currently invisible." | |||
| 894 | (or first (> (funcall outline-level) level))) | 894 | (or first (> (funcall outline-level) level))) |
| 895 | (setq first nil) | 895 | (setq first nil) |
| 896 | (outline-next-heading)) | 896 | (outline-next-heading)) |
| 897 | (if (bolp) | 897 | (if (and (bolp) (not (eolp))) |
| 898 | ;; We stopped at a nonempty line (the next heading). | ||
| 898 | (progn | 899 | (progn |
| 899 | ;; Go to end of line before heading | 900 | ;; Go to end of line before heading |
| 900 | (forward-char -1) | 901 | (forward-char -1) |