changeset 52207:c26f56efcd5d

(custom-load-symbol): Load cus-load and cus-start first.
author Richard M. Stallman <rms@gnu.org>
date Sun, 17 Aug 2003 00:17:16 +0000
parents de409240d09e
children 4a7f0e1b3678
files lisp/custom.el
diffstat 1 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/custom.el	Sun Aug 17 00:16:25 2003 +0000
+++ b/lisp/custom.el	Sun Aug 17 00:17:16 2003 +0000
@@ -502,6 +502,14 @@
   "Load all dependencies for SYMBOL."
   (unless custom-load-recursion
     (let ((custom-load-recursion t))
+      ;; Load these files if not already done,
+      ;; to make sure we know all the dependencies of SYMBOL.
+      (condition-case nil
+	  (require 'cus-load)
+	(error nil))
+      (condition-case nil
+	  (require 'cus-start)
+	(error nil))
       (dolist (load (get symbol 'custom-loads))
 	(cond ((symbolp load) (condition-case nil (require load) (error nil)))
 	      ;; This is subsumed by the test below, but it's much faster.