(custom-load-symbol): Load cus-load and cus-start first.

This commit is contained in:
Richard M. Stallman 2003-08-17 00:17:16 +00:00
parent 6ee55cb130
commit a8c78057ff

View file

@ -502,6 +502,14 @@ LOAD should be either a library file name, or a feature name."
"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.