Mercurial > emacs
changeset 107429:024cba2776d2
(hide-sublevels): Don't hide trailing newline (and fix paren typo).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 18 Mar 2010 23:32:47 -0400 |
| parents | 0ee3b79fa114 |
| children | 1918e70c8b37 |
| files | lisp/ChangeLog lisp/outline.el |
| diffstat | 2 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 18 20:19:09 2010 -0700 +++ b/lisp/ChangeLog Thu Mar 18 23:32:47 2010 -0400 @@ -1,7 +1,11 @@ +2010-03-19 Stefan Monnier <monnier@iro.umontreal.ca> + + * outline.el (hide-sublevels): Don't hide trailing newline (and fix + parent typo). + 2010-03-19 Glenn Morris <rgm@gnu.org> - * password-cache.el (password-cache, password-cache-expiry): - Autoload. + * password-cache.el (password-cache, password-cache-expiry): Autoload. 2010-03-18 Glenn Morris <rgm@gnu.org> @@ -37,8 +41,8 @@ 2010-03-15 Michael Albinus <michael.albinus@gmx.de> * 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 <juri@jurta.org>
--- a/lisp/outline.el Thu Mar 18 20:19:09 2010 -0700 +++ b/lisp/outline.el Thu Mar 18 23:32:47 2010 -0400 @@ -914,8 +914,12 @@ (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 ()