aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1997-05-31 02:47:47 +0000
committerRichard M. Stallman <[email protected]>1997-05-31 02:47:47 +0000
commit85b78d5b5ae442643bf4ae1fe09e83498f4826e8 (patch)
treedf6fc2446aa862c18c158bdc80f557e5276c6c53 /lisp
parentf3c6bfa2106ec7c1d363e321aad4201b29d6afa5 (diff)
(custom-load-symbol): Simplify previous change.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/cus-edit.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 2584380549..e15a39a015 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)