Mercurial > emacs
changeset 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 | d59e748dff99 |
| children | a0ecdf08bbf5 |
| files | lisp/ChangeLog lisp/progmodes/hideshow.el |
| diffstat | 2 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 25 00:30:31 2009 +0000 +++ b/lisp/ChangeLog Fri Sep 25 00:32:21 2009 +0000 @@ -1,3 +1,7 @@ +2009-09-25 David Engster <deng@randomsample.de> + + * progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'. (Bug#4548) + 2009-09-24 Chong Yidong <cyd@stupidchicken.com> * nxml/nxml-mode.el: Alias xml-mode to nxml-mode.
--- 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)