mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(outline-end-of-subtree): Don't leave an empty

Browse source 
line hidden as we would a real next heading.
This commit is contained in:
Richard M. Stallman 2006-12-04 00:31:04 +00:00
parent b36e96c8f3
commit 49bb7f019f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/outline.el
View file

@ -894,7 +894,8 @@ Show the heading too, if it is currently invisible."
(or first (> (funcall outline-level) level)))
(setq first nil)
(outline-next-heading))
(if (bolp)
(if (and (bolp) (not (eolp)))
;; We stopped at a nonempty line (the next heading).
(progn
;; Go to end of line before heading
(forward-char -1)