diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-18 23:32:47 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-18 23:32:47 -0400 |
| commit | f430423d720bb4c3a36e828999e5cdb675b29579 (patch) | |
| tree | 9fd4ee39f6f1e0f3782afcb89707f0878b61dfb0 /lisp/outline.el | |
| parent | 7ba100522f97b32d6c80a6987b584396dc16d9b9 (diff) | |
| download | emacs-f430423d720bb4c3a36e828999e5cdb675b29579.tar.gz | |
(hide-sublevels): Don't hide trailing newline (and fix paren typo).
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 5b10de231f2..549a8844615 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -914,8 +914,12 @@ Show the heading too, if it is currently invisible." (outline-map-region (lambda () (if (<= (funcall outline-level) levels) - (outline-show-heading))) - beg end))) + (outline-show-heading) + beg end)) + ;; Finally unhide any trailing newline. + (goto-char (point-max)) + (if (and (bolp) (not (bobp)) (outline-invisible-p (1- (point)))) + (outline-flag-region (1- (point)) (point) nil))))) (run-hooks 'outline-view-change-hook)) (defun hide-other () |