mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(custom-load-symbol): Simplify previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-31 02:47:47 +00:00
parent f3c6bfa210
commit 85b78d5b5a
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/cus-edit.el
View file

@ -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)