# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1258664322 0
# Node ID 6dab1818bdd4608ae63657ce6987a243363e0464
# Parent  ed77a6edfaa10d6a879df461977aac4c0258e2a8
(with-wrapper-hook): Fix thinko.

diff -r ed77a6edfaa1 -r 6dab1818bdd4 lisp/ChangeLog
--- 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.
diff -r ed77a6edfaa1 -r 6dab1818bdd4 lisp/simple.el
--- 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.