From 801ba3ba40721b5c42930c3df70b405509374ee3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 20 Mar 2010 15:04:44 -0400 Subject: [PATCH] (hide-sublevels): Unfix the paren non-typo! (bug#5738). --- lisp/ChangeLog | 4 ++++ lisp/outline.el | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dacfd61d975..0bc49473e13 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-03-20 Stefan Monnier + + * outline.el (hide-sublevels): Unfix the paren non-typo! (bug#5738). + 2010-03-20 Glenn Morris * textmodes/rst.el: Use faces for font-lock customization, and make the 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 () -- 2.39.5