diff options
| author | Oleh Krehel <ohwoeowho@gmail.com> | 2015-02-07 18:54:07 +0100 |
|---|---|---|
| committer | Oleh Krehel <ohwoeowho@gmail.com> | 2015-02-08 16:08:40 +0100 |
| commit | 1a489c1a421a56bfc0ebaa07a87db2394887405a (patch) | |
| tree | 9ec7ce8e096ef5f949f9c692142906ad452b0599 /lisp/outline.el | |
| parent | 60f8214e97042bb1c4e7beb9da8df76cd4c124f7 (diff) | |
| download | emacs-1a489c1a421a56bfc0ebaa07a87db2394887405a.tar.gz | |
lisp/outline.el (outline-show-entry): Fix one invisible char
* 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.
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index ae31b8088f0..059ca626586 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -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") |