diff options
| author | Dave Love | 2000-12-06 18:38:47 +0000 |
|---|---|---|
| committer | Dave Love | 2000-12-06 18:38:47 +0000 |
| commit | 58195faaf830ccf310a2e902a5d64ff746a6a4c2 (patch) | |
| tree | 185640184e9330aa494dda4e6e0e9f91b46ebd8d | |
| parent | e2896b224bff9ca9359367c1c775754905d7bc6c (diff) | |
| download | emacs-58195faaf830ccf310a2e902a5d64ff746a6a4c2.tar.gz emacs-58195faaf830ccf310a2e902a5d64ff746a6a4c2.zip | |
(load-file): Fix change of 2000-03-12.
| -rw-r--r-- | lisp/files.el | 9 |
1 files 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." | |||
| 535 | 535 | ||
| 536 | (defun load-file (file) | 536 | (defun load-file (file) |
| 537 | "Load the Lisp file named FILE." | 537 | "Load the Lisp file named FILE." |
| 538 | (interactive "fLoad file: ") | 538 | ;; This is a case where .elc makes a lot of sense. |
| 539 | (let ((completion-ignored-extensions | 539 | (interactive (list (let ((completion-ignored-extensions |
| 540 | (delete ".elc" completion-ignored-extensions))) | 540 | (delete ".elc" completion-ignored-extensions))) |
| 541 | (load (expand-file-name file) nil nil t))) | 541 | (read-file-name "Load file: ")))) |
| 542 | (load (expand-file-name file) nil nil t)) | ||
| 542 | 543 | ||
| 543 | (defun load-library (library) | 544 | (defun load-library (library) |
| 544 | "Load the library named LIBRARY. | 545 | "Load the library named LIBRARY. |