From 6da43544b7dec950f301216c66a6aa516a49b70b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 21 Sep 2002 19:59:42 +0000 Subject: [PATCH] (custom-dont-initialize): New variable. (custom-declare-variable): Don't init the variable if custom-dont-initialize is non-nil. --- lisp/custom.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/custom.el b/lisp/custom.el index 9f68eb59e39..608aac402c8 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -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) -- 2.39.2