andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Dave Love 2000-10-06 18:30:32 +00:00
parent b28ce55a42
commit b3489c06ec
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/custom.el
View file

@ -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)