From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 Sep 2002 19:59:42 +0000 (+0000)
Subject: (custom-dont-initialize): New variable.
X-Git-Tag: ttn-vms-21-2-B4~13095
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6da43544b7dec950f301216c66a6aa516a49b70b;p=emacs.git

(custom-dont-initialize): New variable.
(custom-declare-variable): Don't init the variable
if custom-dont-initialize is non-nil.
---

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)