mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(custom-declare-variable): Use push.

Browse Source 
Use the (defvar . <sym>) format in load-history like `defvar' does.
This commit is contained in:
Stefan Monnier 2002-11-20 14:35:54 +00:00
parent 1232083369
commit 6f0d61bf2c
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

@ -141,7 +141,7 @@ not the default value itself."
((eq keyword :get)
(put symbol 'custom-get value))
((eq keyword :require)
(setq requests (cons value requests)))
(push value requests))
((eq keyword :type)
(put symbol 'custom-type (purecopy value)))
((eq keyword :options)
@ -149,7 +149,7 @@ not the default value itself."
;; Slow safe code to avoid duplicates.
(mapc (lambda (option)
(custom-add-option symbol option))
value)
value)
;; Fast code for the common case.
(put symbol 'custom-options (copy-sequence value))))
(t
@ -159,7 +159,7 @@ not the default value itself."
;; Do the actual initialization.
(unless custom-dont-initialize
(funcall initialize symbol default)))
(setq current-load-list (cons symbol current-load-list))
(push (cons 'defvar symbol) current-load-list)
(run-hooks 'custom-define-hook)
symbol)