From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 26 Mar 2000 00:12:35 +0000 (+0000)
Subject: (hook): Use `dolist' instead of CL's `mapc'.
X-Git-Tag: emacs-pretest-21.0.90~4499
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d488166820e1e38ca2d0cb03ced717b81dc2901c;p=emacs.git

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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 90a7db3b9b9..50759537ecb 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -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")