mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-26 10:49:33 +00:00
(hide-sublevels): Unfix the paren non-typo! (bug#5738).
This commit is contained in:
parent
2b1400b9d0
commit
801ba3ba40
@ -1,3 +1,7 @@
|
||||
2010-03-20 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* outline.el (hide-sublevels): Unfix the paren non-typo! (bug#5738).
|
||||
|
||||
2010-03-20 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* textmodes/rst.el: Use faces for font-lock customization, and make the
|
||||
|
@ -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 ()
|
||||
|
Loading…
Reference in New Issue
Block a user