mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

lisp/outline.el (outline-show-entry): Fix one invisible char

Browse source 
* lisp/outline.el (outline-show-entry): Previously, when called for
the last outline in a file, a single invisible char was left.
Add a check for this condition.
This commit is contained in:
Oleh Krehel 2015-02-07 18:54:07 +01:00
parent 60f8214e97
commit 1a489c1a42
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/outline.el
View file

@ -777,7 +777,12 @@ Show the heading too, if it is currently invisible."
(save-excursion
(outline-back-to-heading t)
(outline-flag-region (1- (point))
(progn (outline-next-preface) (point)) nil)))
(progn
(outline-next-preface)
(if (= 1 (- (point-max) (point)))
(point-max)
(point)))
nil)))
(define-obsolete-function-alias
'show-entry 'outline-show-entry "25.1")