Mercurial > emacs
changeset 48476:29e63846608d
(custom-declare-variable): Use push.
Use the (defvar . <sym>) format in load-history like `defvar' does.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 20 Nov 2002 14:35:54 +0000 |
| parents | 4bdcb09d9f25 |
| children | 2107f1adf452 |
| files | lisp/custom.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/custom.el Wed Nov 20 14:31:52 2002 +0000 +++ b/lisp/custom.el Wed Nov 20 14:35:54 2002 +0000 @@ -141,7 +141,7 @@ ((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 @@ ;; 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 @@ ;; 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)