From: Dave Love <fx@gnu.org>
Date: Sun, 12 Mar 2000 14:42:35 +0000 (+0000)
Subject: (load-file): Allow completion to .elc.
X-Git-Tag: emacs-pretest-21.0.90~4684
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1fe6488ecfe88e7465f431edf112fe47d34e620;p=emacs.git

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

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.