(hook): Use `dolist' instead of CL's `mapc'.
authorStefan Monnier <monnier@iro.umontreal.ca>
Sun, 26 Mar 2000 00:12:35 +0000 (00:12 +0000)
committerStefan Monnier <monnier@iro.umontreal.ca>
Sun, 26 Mar 2000 00:12:35 +0000 (00:12 +0000)
lisp/cus-edit.el

index 90a7db3..5075953 100644 (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
   ;; chaos.
   :set (lambda (symbol value)
-        (mapc (lambda (elt)
-                (if (fboundp elt)
-                    (add-hook symbol elt)))
-              value))
+        (dolist (elt value)
+          (if (fboundp elt)
+              (add-hook symbol elt))))
   :convert-widget 'custom-hook-convert-widget
   :tag "Hook")