502 |
"Load all dependencies for SYMBOL." |
"Load all dependencies for SYMBOL." |
503 |
(unless custom-load-recursion |
(unless custom-load-recursion |
504 |
(let ((custom-load-recursion t)) |
(let ((custom-load-recursion t)) |
505 |
|
;; Load these files if not already done, |
506 |
|
;; to make sure we know all the dependencies of SYMBOL. |
507 |
|
(condition-case nil |
508 |
|
(require 'cus-load) |
509 |
|
(error nil)) |
510 |
|
(condition-case nil |
511 |
|
(require 'cus-start) |
512 |
|
(error nil)) |
513 |
(dolist (load (get symbol 'custom-loads)) |
(dolist (load (get symbol 'custom-loads)) |
514 |
(cond ((symbolp load) (condition-case nil (require load) (error nil))) |
(cond ((symbolp load) (condition-case nil (require load) (error nil))) |
515 |
;; This is subsumed by the test below, but it's much faster. |
;; This is subsumed by the test below, but it's much faster. |