diff options
| author | Richard M. Stallman | 2002-05-30 17:13:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-05-30 17:13:54 +0000 |
| commit | a49a58f999b17d8e4da728372a778f6e9dce9f2c (patch) | |
| tree | fa4ad403341ec58cc007bbd727ea293a4e7cd421 /lisp | |
| parent | af5090c285fe4bc77da9e14f3b4cd809037bb90e (diff) | |
| download | emacs-a49a58f999b17d8e4da728372a778f6e9dce9f2c.tar.gz emacs-a49a58f999b17d8e4da728372a778f6e9dce9f2c.zip | |
(find-file-default): Add defvar for var already used.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index 4930d6a96a0..bac2f6bb5c9 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -788,6 +788,9 @@ documentation for additional customization information." | |||
| 788 | (pop-to-buffer buffer t norecord) | 788 | (pop-to-buffer buffer t norecord) |
| 789 | (raise-frame (window-frame (selected-window))))) | 789 | (raise-frame (window-frame (selected-window))))) |
| 790 | 790 | ||
| 791 | (defvar find-file-default nil | ||
| 792 | "Used within `find-file-read-args'.") | ||
| 793 | |||
| 791 | (defun find-file-read-args (prompt) | 794 | (defun find-file-read-args (prompt) |
| 792 | (list (let ((find-file-default | 795 | (list (let ((find-file-default |
| 793 | (and buffer-file-name | 796 | (and buffer-file-name |