summaryrefslogtreecommitdiff
path: root/lisp/custom.el
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>2000-10-06 18:30:32 +0000
committerDave Love <fx@gnu.org>2000-10-06 18:30:32 +0000
commitb3489c06eccc1d8c080c2196d1b8951597b493fa (patch)
tree4ed90f22013572cc7cb929aa37ca89c1d670cb46 /lisp/custom.el
parentb28ce55a42163d248401220151c3460ffcb9d293 (diff)
downloademacs-b3489c06eccc1d8c080c2196d1b8951597b493fa.tar.gz
(custom-declare-variable, custom-set-variables): Use mapc.
Diffstat (limited to 'lisp/custom.el')
-rw-r--r--lisp/custom.el6
1 files changed, 3 insertions, 3 deletions
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)