From f430423d720bb4c3a36e828999e5cdb675b29579 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 18 Mar 2010 23:32:47 -0400 Subject: [PATCH] (hide-sublevels): Don't hide trailing newline (and fix paren typo). --- lisp/ChangeLog | 12 ++++++++---- lisp/outline.el | 8 ++++++-- 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4cdff3848be..3ff90f20d21 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,11 @@ +2010-03-19 Stefan Monnier + + * outline.el (hide-sublevels): Don't hide trailing newline (and fix + parent typo). + 2010-03-19 Glenn Morris - * password-cache.el (password-cache, password-cache-expiry): - Autoload. + * password-cache.el (password-cache, password-cache-expiry): Autoload. 2010-03-18 Glenn Morris @@ -37,8 +41,8 @@ 2010-03-15 Michael Albinus * net/secrets.el (top): Register the D-Bus signals only when the - service "org.freedesktop.secrets" can be pinged. Provide - subfeature 'enabled. + service "org.freedesktop.secrets" can be pinged. + Provide subfeature `enabled'. 2010-03-14 Juri Linkov 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 () -- 2.39.5