From 9ca83cdd79747fb09f714593243060b17b34e039 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 13 Sep 2020 14:58:24 +0200 Subject: 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. --- lisp/misearch.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/misearch.el') 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 -- cgit v1.2.3