diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-31 02:47:47 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-31 02:47:47 +0000 |
commit | 85b78d5b5ae442643bf4ae1fe09e83498f4826e8 (patch) | |
tree | df6fc2446aa862c18c158bdc80f557e5276c6c53 /lisp/cus-edit.el | |
parent | f3c6bfa2106ec7c1d363e321aad4201b29d6afa5 (diff) | |
download | emacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.tar.gz |
(custom-load-symbol): Simplify previous change.
Diffstat (limited to 'lisp/cus-edit.el')
-rw-r--r-- | lisp/cus-edit.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 25843805497..e15a39a015c 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1306,10 +1306,15 @@ Change the state of this item." (condition-case nil (require load) (error nil))) - ((assoc load load-history)) + ;; Don't reload a file already loaded. + ((assoc (locate-library load) load-history)) (t (condition-case nil - (load-library load) + ;; Without this, we would load cus-edit recursively. + ;; We are still loading it when we call this, + ;; and it is not in load-history yet. + (or (equal load "cus-edit") + (load-library load)) (error nil)))))))) (defun custom-load-widget (widget) |