From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 19 Nov 2009 20:58:42 +0000 (+0000)
Subject: (with-wrapper-hook): Fix thinko.
X-Git-Tag: emacs-pretest-23.1.90~336
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c22699f8bba9f6627b4663c64b899cd1525b0c0;p=emacs.git

(with-wrapper-hook): Fix thinko.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c77d5c1ff4e..95952ca0b97 100644
--- 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 23811ad80fc..ad9178e5838 100644
--- 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.