diff options
author | Dave Love <fx@gnu.org> | 2000-10-06 18:30:32 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-10-06 18:30:32 +0000 |
commit | b3489c06eccc1d8c080c2196d1b8951597b493fa (patch) | |
tree | 4ed90f22013572cc7cb929aa37ca89c1d670cb46 /lisp/custom.el | |
parent | b28ce55a42163d248401220151c3460ffcb9d293 (diff) | |
download | emacs-b3489c06eccc1d8c080c2196d1b8951597b493fa.tar.gz |
(custom-declare-variable, custom-set-variables): Use mapc.
Diffstat (limited to 'lisp/custom.el')
-rw-r--r-- | lisp/custom.el | 6 |
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) |