From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 Sep 2002 20:00:30 +0000 (+0000)
Subject: (custom-make-dependencies): Bind to t around evaluating the def-form.
X-Git-Tag: ttn-vms-21-2-B4~13094
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e189812e9890ff3aa7e413d1be896227d246ce1;p=emacs.git

(custom-make-dependencies): Bind to t around evaluating the def-form.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e139cf6113e..0aca5ec5728 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2002-09-21  Richard M. Stallman  <rms@gnu.org>
+
+	* cus-dep.el (custom-make-dependencies): Bind to t
+	around evaluating the def-form.
+
+	* custom.el (custom-dont-initialize): New variable.
+	(custom-declare-variable): Don't init the variable
+	if custom-dont-initialize is non-nil.
+
 2002-09-21  John Paul Wallington  <jpw@shootybangbang.com>
 
 	* net/eudc.el (eudc-install-menu): Use `define-key' and
diff --git a/lisp/cus-dep.el b/lisp/cus-dep.el
index 19ae727b2dd..d7fd848a9ab 100644
--- a/lisp/cus-dep.el
+++ b/lisp/cus-dep.el
@@ -66,7 +66,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
 			  (setq is-autoloaded t)))
 		    (let ((expr (read (current-buffer))))
 		      (condition-case nil
-			  (progn
+			  (let ((custom-dont-initialize t))
 			    (eval expr)
 			    (put (nth 1 expr) 'custom-autoloaded is-autoloaded)
 			    (put (nth 1 expr) 'custom-where name))