(load-file): Allow completion to .elc.
This commit is contained in:
parent
5e5dff44e7
commit
a1fe6488ec
1 changed files with 3 additions and 1 deletions
|
@ -494,7 +494,9 @@ colon-separated list of directories when resolving a relative directory name."
|
|||
(defun load-file (file)
|
||||
"Load the Lisp file named FILE."
|
||||
(interactive "fLoad file: ")
|
||||
(load (expand-file-name file) nil nil t))
|
||||
(let ((completion-ignored-extensions
|
||||
(delete ".elc" completion-ignored-extensions)))
|
||||
(load (expand-file-name file) nil nil t)))
|
||||
|
||||
(defun load-library (library)
|
||||
"Load the library named LIBRARY.
|
||||
|
|
Loading…
Add table
Reference in a new issue