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

diff --git a/lisp/files.el b/lisp/files.el
index 7c9a181262e911d50d88130880150700aa19d044..8c2d7806e86c421b6298e82963d504b045ddf76f 100644 (file)
--- 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.