Mercurial > emacs

changeset 106129:6dab1818bdd4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(with-wrapper-hook): Fix thinko.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 19 Nov 2009 20:58:42 +0000
parents ed77a6edfaa1
children a035929f0418
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Nov 19 20:47:40 2009 +0000
+++ b/lisp/ChangeLog	Thu Nov 19 20:58:42 2009 +0000
@@ -1,5 +1,7 @@
 2009-11-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* simple.el (with-wrapper-hook): Fix thinko.
+
 	* hfy-cmap.el (hfy-rgb-file): Use locate-file.
 	(htmlfontify-load-rgb-file): Remove unnused var `ff'.
 	Use with-current-buffer and string-to-number.
--- a/lisp/simple.el	Thu Nov 19 20:47:40 2009 +0000
+++ b/lisp/simple.el	Thu Nov 19 20:58:42 2009 +0000
@@ -6520,11 +6520,11 @@
                                (global ,global))
                    (if (consp funs)
                        (if (eq t (car funs))
-                           (apply 'runrestofhook
-                                  (append global (cdr funs)) nil ,argssym)
+                           (runrestofhook
+                            (append global (cdr funs)) nil ,argssym)
                          (apply (car funs)
-                                (lambda (&rest args)
-                                    (runrestofhook (cdr funs) global args))
+                                (lambda (&rest ,argssym)
+				  (runrestofhook (cdr funs) global ,argssym))
                                 ,argssym))
                      ;; Once there are no more functions on the hook, run
                      ;; the original body.