# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 976127927 0
# Node ID 98daea4658178b69086d58482a7b37959e388e17
# Parent  b99749cc8b64025c7ee40b0570e9bc08c433e4a7
(load-file): Fix change of 2000-03-12.

diff -r b99749cc8b64 -r 98daea465817 lisp/files.el
--- a/lisp/files.el	Wed Dec 06 18:03:35 2000 +0000
+++ b/lisp/files.el	Wed Dec 06 18:38:47 2000 +0000
@@ -535,10 +535,11 @@
 
 (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.