diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-20 15:04:44 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-03-20 15:04:44 -0400 |
| commit | 801ba3ba40721b5c42930c3df70b405509374ee3 (patch) | |
| tree | 803ea4a87b38244ef6953f44d4703cc820cf7994 /lisp/outline.el | |
| parent | 2b1400b9d03f20950120ca8817de123c9f30b008 (diff) | |
| download | emacs-801ba3ba40721b5c42930c3df70b405509374ee3.tar.gz | |
(hide-sublevels): Unfix the paren non-typo! (bug#5738).
Diffstat (limited to 'lisp/outline.el')
| -rw-r--r-- | lisp/outline.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 549a8844615..ed7d5f33a35 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -914,12 +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)) - ;; 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))))) + (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 () |