Commit d4881668 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(hook): Use `dolist' instead of CL's `mapc'.

parent e8c7d424
...@@ -2940,10 +2940,9 @@ restoring it to the state of a face that has never been customized." ...@@ -2940,10 +2940,9 @@ restoring it to the state of a face that has never been customized."
;; things like `find-file-hook' or even more basic ones, to avoid ;; things like `find-file-hook' or even more basic ones, to avoid
;; chaos. ;; chaos.
:set (lambda (symbol value) :set (lambda (symbol value)
(mapc (lambda (elt) (dolist (elt value)
(if (fboundp elt) (if (fboundp elt)
(add-hook symbol elt))) (add-hook symbol elt))))
value))
:convert-widget 'custom-hook-convert-widget :convert-widget 'custom-hook-convert-widget
:tag "Hook") :tag "Hook")
......
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