From 58195faaf830ccf310a2e902a5d64ff746a6a4c2 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 6 Dec 2000 18:38:47 +0000 Subject: [PATCH] (load-file): Fix change of 2000-03-12. --- lisp/files.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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. -- 2.39.5