mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(custom-dont-initialize): New variable.

Browse Source 
(custom-declare-variable): Don't init the variable
if custom-dont-initialize is non-nil.
This commit is contained in:
Richard M. Stallman 2002-09-21 19:59:42 +00:00
parent 3cc82ee498
commit 6da43544b7
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/custom.el
View File

@ -39,6 +39,11 @@
;; Customize information for this option is in `cus-edit.el'.
"Hook called after defining each customize option.")
(defvar custom-dont-initialize nil
"Non-nil means `defcustom' should not initialize the variable.
That is used for the sake of `custom-make-dependencies'.
Users should not set it.")
(defvar custom-current-group-alist nil
"Alist of (FILE . GROUP) indicating the current group to use for FILE.")
@ -152,7 +157,8 @@ not the default value itself."
'custom-variable))))))
(put symbol 'custom-requests requests)
;; Do the actual initialization.
(funcall initialize symbol default))
(unless custom-dont-initialize
(funcall initialize symbol default)))
(setq current-load-list (cons symbol current-load-list))
(run-hooks 'custom-define-hook)
symbol)