diff options
| author | Richard M. Stallman | 1997-05-31 02:47:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-05-31 02:47:47 +0000 |
| commit | 85b78d5b5ae442643bf4ae1fe09e83498f4826e8 (patch) | |
| tree | df6fc2446aa862c18c158bdc80f557e5276c6c53 | |
| parent | f3c6bfa2106ec7c1d363e321aad4201b29d6afa5 (diff) | |
| download | emacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.tar.gz emacs-85b78d5b5ae442643bf4ae1fe09e83498f4826e8.zip | |
(custom-load-symbol): Simplify previous change.
| -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." | |||
| 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) |