diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-13 14:58:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-13 14:58:24 +0200 |
| commit | 9ca83cdd79747fb09f714593243060b17b34e039 (patch) | |
| tree | a1687d6e83662286743b316e6a95a86d867d12d7 /lisp/misearch.el | |
| parent | e1e93da9a9b668d19806161a29b393140324b4d2 (diff) | |
| download | emacs-9ca83cdd79747fb09f714593243060b17b34e039.tar.gz | |
Revert "Use format-prompt in read-file-name calls that have a default"
This reverts commit de4f347901adffd07bc9bff028dc073fb3c6df33.
read-file-name already displays a long path when given a default
(like INITIAL in many other prompting functions), so using
format-prompt here is superfluous.
Diffstat (limited to 'lisp/misearch.el')
| -rw-r--r-- | lisp/misearch.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/misearch.el b/lisp/misearch.el index 36a7afe518c..958c10a1bf6 100644 --- a/lisp/misearch.el +++ b/lisp/misearch.el @@ -316,10 +316,9 @@ Every next/previous file in the defined sequence is visited by (defun multi-isearch-read-files () "Return a list of files specified interactively, one by one." ;; Most code from `multi-occur'. - (let* ((files (list (read-file-name - (format-prompt "First file to search" - (file-name-nondirectory buffer-file-name)) - default-directory buffer-file-name))) + (let* ((files (list (read-file-name "First file to search: " + default-directory + buffer-file-name))) (file nil)) (while (not (string-equal (setq file (read-file-name |