mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21: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

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2015-02-08 Oleh Krehel <ohwoeowho@gmail.com>
* outline.el (outline-show-entry): Fix one invisible char for the
file's last outline. Fixes Bug#19493.
2015-02-08 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (indirect-function): Change advertised calling convention.

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")