summaryrefslogtreecommitdiff
path: root/lisp/cus-edit.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-05-31 02:47:47 +0000
committerRichard M. Stallman <rms@gnu.org>1997-05-31 02:47:47 +0000
commit85b78d5b5ae442643bf4ae1fe09e83498f4826e8 (patch)
treedf6fc2446aa862c18c158bdc80f557e5276c6c53 /lisp/cus-edit.el
parentf3c6bfa2106ec7c1d363e321aad4201b29d6afa5 (diff)
downloademacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.tar.gz
(custom-load-symbol): Simplify previous change.
Diffstat (limited to 'lisp/cus-edit.el')
-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 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)