Mercurial > emacs
diff lisp/progmodes/hideshow.el @ 105189:7669aca277d5
* progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'. (Bug#4548)
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Fri, 25 Sep 2009 00:32:21 +0000 |
parents | ea67ac46d172 |
children | b78ceb253d15 |
line wrap: on
line diff
--- a/lisp/progmodes/hideshow.el Fri Sep 25 00:30:31 2009 +0000 +++ b/lisp/progmodes/hideshow.el Fri Sep 25 00:32:21 2009 +0000 @@ -371,7 +371,7 @@ ["Toggle Hiding" hs-toggle-hiding :help "Toggle the hiding state of the current block"] "----" - ["Hide comments when hiding all" + ["Hide comments when hiding all" (setq hs-hide-comments-when-hiding-all (not hs-hide-comments-when-hiding-all)) :help "If t also hide comment blocks when doing `hs-hide-all'" @@ -869,8 +869,8 @@ q (progn (hs-forward-sexp (match-data t) 1) (point))))) (when (and p q) (hs-discard-overlays p q) - (goto-char (if end q (1+ p))))) - (run-hooks 'hs-show-hook)))) + (goto-char (if end q (1+ p)))))) + (run-hooks 'hs-show-hook))) (defun hs-hide-level (arg) "Hide all blocks ARG levels below this block. @@ -919,7 +919,7 @@ ;;;###autoload (define-minor-mode hs-minor-mode - "Minor mode to selectively hide/show code and comment blocks. + "Minor mode to selectively hide/show code and comment blocks. When hideshow minor mode is on, the menu bar is augmented with hideshow commands and the hideshow commands are enabled. The value '(hs . t) is added to `buffer-invisibility-spec'. @@ -935,7 +935,7 @@ Key bindings: \\{hs-minor-mode-map}" - :group 'hideshow + :group 'hideshow :lighter " hs" :keymap hs-minor-mode-map (setq hs-headline nil)