Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Dave Love 2000-12-06 18:38:47 +00:00
parent e2896b224b
commit 58195faaf8
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/files.el
View file

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