(with-wrapper-hook): Fix thinko.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c77d5c1ff4e41140eb7fd6bd8671d61210eaff07..95952ca0b9782b2cdfe122c541e9043509f2465e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/simple.el b/lisp/simple.el
index 23811ad80fc813daf1942b54394d81c30250bfba..ad9178e5838ab7c1cd975c77b7a0283a926e1f32 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6520,11 +6520,11 @@ expects to receive when called."
                                (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.