* progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'. (Bug#4548)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 669c27f5fce83ae55c4019bc053059dd1e2eeb2a..0e1a547425b73806ef6bfd3a32728244b269c4e5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 80bd91d4dd5381de1ca3cc6d504481c8d8b95e70..5928d18e46f290a795bd27c62ab1e9ecbe623bd7 100644 (file)
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -371,7 +371,7 @@ Use the command `hs-minor-mode' to toggle or set this variable.")
     ["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 @@ See documentation for functions `hs-hide-block' and `run-hooks'."
                    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 @@ This can be useful if you have huge RCS logs in those comments."
 
 ;;;###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 @@ Lastly, the normal hook `hs-minor-mode-hook' is run using `run-hooks'.
 
 Key bindings:
 \\{hs-minor-mode-map}"
-  :group 'hideshow 
+  :group 'hideshow
   :lighter " hs"
   :keymap hs-minor-mode-map
   (setq hs-headline nil)