[Emacs-diffs] emacs/lisp ChangeLog progmodes/hideshow.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/09/25 00:32:26

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : hideshow.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16256&r2=1.16257
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/hideshow.el?cvsroot=emacs&r1=1.80&r2=1.81

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16256
retrieving revision 1.16257
diff -u -b -r1.16256 -r1.16257
--- ChangeLog   24 Sep 2009 23:22:17 -0000      1.16256
+++ ChangeLog   25 Sep 2009 00:32:21 -0000      1.16257
@@ -1,3 +1,7 @@
+2009-09-25  David Engster  <address@hidden>
+
+       * progmodes/hideshow.el (hs-show-block): Run `hs-show-hook'.  (Bug#4548)
+
 2009-09-24  Chong Yidong  <address@hidden>
 
        * nxml/nxml-mode.el: Alias xml-mode to nxml-mode.

Index: progmodes/hideshow.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/hideshow.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- progmodes/hideshow.el       14 Aug 2009 23:02:41 -0000      1.80
+++ progmodes/hideshow.el       25 Sep 2009 00:32:26 -0000      1.81
@@ -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.