From: Dave Love <fx@gnu.org>
Date: Fri, 6 Oct 2000 18:30:32 +0000 (+0000)
Subject: (custom-declare-variable, custom-set-variables): Use mapc.
X-Git-Tag: emacs-pretest-21.0.90~1094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3489c06eccc1d8c080c2196d1b8951597b493fa;p=emacs.git

(custom-declare-variable, custom-set-variables): Use mapc.
---

diff --git a/lisp/custom.el b/lisp/custom.el
index ea7afc45fc5..ef0fce7ecb4 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -137,8 +137,8 @@ not the default value itself."
 		((eq keyword :options)
 		 (if (get symbol 'custom-options)
 		     ;; Slow safe code to avoid duplicates.
-		     (mapcar (lambda (option)
-			       (custom-add-option symbol option))
+		     (mapc (lambda (option)
+			     (custom-add-option symbol option))
 			     value)
 		   ;; Fast code for the common case.
 		   (put symbol 'custom-options (copy-sequence value))))
@@ -453,7 +453,7 @@ COMMENT is a comment string about SYMBOL."
 		 set)
 	    (when requests
 	      (put symbol 'custom-requests requests)
-	      (mapcar 'require requests))
+	      (mapc 'require requests))
 	    (setq set (or (get symbol 'custom-set) 'custom-set-default))
 	    (put symbol 'saved-value (list value))
 	    (put symbol 'saved-variable-comment comment)