aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-05-31 02:47:47 +0000
committerRichard M. Stallman1997-05-31 02:47:47 +0000
commit85b78d5b5ae442643bf4ae1fe09e83498f4826e8 (patch)
treedf6fc2446aa862c18c158bdc80f557e5276c6c53
parentf3c6bfa2106ec7c1d363e321aad4201b29d6afa5 (diff)
downloademacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.tar.gz
emacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.zip
(custom-load-symbol): Simplify previous change.
-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."
1306 (condition-case nil 1306 (condition-case nil
1307 (require load) 1307 (require load)
1308 (error nil))) 1308 (error nil)))
1309 ((assoc load load-history)) 1309 ;; Don't reload a file already loaded.
1310 ((assoc (locate-library load) load-history))
1310 (t 1311 (t
1311 (condition-case nil 1312 (condition-case nil
1312 (load-library load) 1313 ;; Without this, we would load cus-edit recursively.
1314 ;; We are still loading it when we call this,
1315 ;; and it is not in load-history yet.
1316 (or (equal load "cus-edit")
1317 (load-library load))
1313 (error nil)))))))) 1318 (error nil))))))))
1314 1319
1315(defun custom-load-widget (widget) 1320(defun custom-load-widget (widget)