Commit 58195faa authored by Dave Love's avatar Dave Love
Browse files

(load-file): Fix change of 2000-03-12.

parent e2896b22
......@@ -535,10 +535,11 @@ colon-separated list of directories when resolving a relative directory name."
(defun load-file (file)
"Load the Lisp file named FILE."
(interactive "fLoad file: ")
(let ((completion-ignored-extensions
(delete ".elc" completion-ignored-extensions)))
(load (expand-file-name file) nil nil t)))
;; This is a case where .elc makes a lot of sense.
(interactive (list (let ((completion-ignored-extensions
(delete ".elc" completion-ignored-extensions)))
(read-file-name "Load file: "))))
(load (expand-file-name file) nil nil t))
(defun load-library (library)
"Load the library named LIBRARY.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment