From 8c22699f8bba9f6627b4663c64b899cd1525b0c0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 19 Nov 2009 20:58:42 +0000 Subject: [PATCH] (with-wrapper-hook): Fix thinko. --- lisp/ChangeLog | 2 ++ lisp/simple.el | 8 ++++---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 + * 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. -- 2.39.5