Commit 8c22699f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(with-wrapper-hook): Fix thinko.

parent e3353a78
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment