# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 954029555 0
# Node ID 9ba6478b7a27be60861505fa5772e2f48eb01968
# Parent  9c8f8c3fb131620ac93502d7cbddc5a4d39e4eb3
(hook): Use `dolist' instead of CL's `mapc'.

diff -r 9c8f8c3fb131 -r 9ba6478b7a27 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sat Mar 25 12:37:51 2000 +0000
+++ b/lisp/cus-edit.el	Sun Mar 26 00:12:35 2000 +0000
@@ -2940,10 +2940,9 @@
   ;; 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")