diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-19 20:58:42 +0000 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2009-11-19 20:58:42 +0000 |
commit | 8c22699f8bba9f6627b4663c64b899cd1525b0c0 (patch) | |
tree | 457e42c623eba648f4d51e0b914fa0d1e4ff1807 /lisp/simple.el | |
parent | e3353a780dbf1db468b0b7dd801f0d40b8df78df (diff) | |
download | emacs-8c22699f8bba9f6627b4663c64b899cd1525b0c0.tar.gz |
(with-wrapper-hook): Fix thinko.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 8 |
1 files changed, 4 insertions, 4 deletions
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. |