From: Dave Love <fx@gnu.org>
Date: Wed, 6 Dec 2000 18:38:47 +0000 (+0000)
Subject: (load-file): Fix change of 2000-03-12.
X-Git-Tag: emacs-pretest-21.0.93~143
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58195faaf830ccf310a2e902a5d64ff746a6a4c2;p=emacs.git

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

diff --git a/lisp/files.el b/lisp/files.el
index 579ad907404..22bb8c729a1 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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.