mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-17 19:30:38 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2000-03-26 00:12:35 +00:00
parent e8c7d42455
commit d488166820
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/cus-edit.el
View file

@ -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")