(load-file): Allow completion to .elc.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 7c9a181262e..8c2d7806e86 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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.