Mercurial > emacs
comparison lisp/custom.el @ 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 | 7c924263658d |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 52206:de409240d09e | 52207:c26f56efcd5d |
|---|---|
| 500 | 500 |
| 501 (defun custom-load-symbol (symbol) | 501 (defun custom-load-symbol (symbol) |
| 502 "Load all dependencies for SYMBOL." | 502 "Load all dependencies for SYMBOL." |
| 503 (unless custom-load-recursion | 503 (unless custom-load-recursion |
| 504 (let ((custom-load-recursion t)) | 504 (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)) | |
| 505 (dolist (load (get symbol 'custom-loads)) | 513 (dolist (load (get symbol 'custom-loads)) |
| 506 (cond ((symbolp load) (condition-case nil (require load) (error nil))) | 514 (cond ((symbolp load) (condition-case nil (require load) (error nil))) |
| 507 ;; This is subsumed by the test below, but it's much faster. | 515 ;; This is subsumed by the test below, but it's much faster. |
| 508 ((assoc load load-history)) | 516 ((assoc load load-history)) |
| 509 ;; This was just (assoc (locate-library load) load-history) | 517 ;; This was just (assoc (locate-library load) load-history) |