Mercurial > emacs
comparison lisp/custom.el @ 59507:359397c57b70
(custom-declare-variable): Just put symbol instead of (defvar . symbol)
on `current-load-list'.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Wed, 12 Jan 2005 22:48:19 +0000 |
| parents | 24b54016dd51 |
| children | 9063407a6970 cb67264d6096 |
comparison
equal
deleted
inserted
replaced
| 59506:3da5314608ab | 59507:359397c57b70 |
|---|---|
| 166 'custom-variable)))))) | 166 'custom-variable)))))) |
| 167 (put symbol 'custom-requests requests) | 167 (put symbol 'custom-requests requests) |
| 168 ;; Do the actual initialization. | 168 ;; Do the actual initialization. |
| 169 (unless custom-dont-initialize | 169 (unless custom-dont-initialize |
| 170 (funcall initialize symbol default))) | 170 (funcall initialize symbol default))) |
| 171 (push (cons 'defvar symbol) current-load-list) | 171 (push symbol current-load-list) |
| 172 (run-hooks 'custom-define-hook) | 172 (run-hooks 'custom-define-hook) |
| 173 symbol) | 173 symbol) |
| 174 | 174 |
| 175 (defmacro defcustom (symbol value doc &rest args) | 175 (defmacro defcustom (symbol value doc &rest args) |
| 176 "Declare SYMBOL as a customizable variable that defaults to VALUE. | 176 "Declare SYMBOL as a customizable variable that defaults to VALUE. |