From de4f347901adffd07bc9bff028dc073fb3c6df33 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 7 Sep 2020 22:10:01 +0200 Subject: Use format-prompt in read-file-name calls that have a default * lisp/xwidget.el (xwidget-webkit-save-as-file): * lisp/vc/vc.el (vc-backend-for-registration, vc-delete-file) (vc-rename-file): * lisp/vc/ediff-ptch.el (ediff-prompt-for-patch-file): * lisp/vc/diff-mode.el (diff-tell-file-name): * lisp/progmodes/etags.el (visit-tags-table) (visit-tags-table-buffer): * lisp/misearch.el (multi-isearch-read-files): * lisp/mail/rmailmm.el (rmail-mime-save): * lisp/help-fns.el (doc-file-to-man, doc-file-to-info): * lisp/gnus/gnus-bookmark.el (gnus-bookmark-load): * lisp/files.el (write-file, basic-save-buffer): * lisp/dired.el (dired-read-dir-and-switches): * lisp/bookmark.el (bookmark-save, bookmark-load): * lisp/abbrev.el (write-abbrev-file, abbrev-edit-save-to-file): Use format-prompt in read-file-name calls that have a default. --- lisp/abbrev.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/abbrev.el') diff --git a/lisp/abbrev.el b/lisp/abbrev.el index be6f9ee3437..50d0011e812 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -233,7 +233,7 @@ If VERBOSE is non-nil, display a message indicating where abbrevs have been saved." (interactive (list - (read-file-name "Write abbrev file: " + (read-file-name (format-prompt "Write abbrev file" abbrev-file-name) (file-name-directory (expand-file-name abbrev-file-name)) abbrev-file-name))) (or (and file (> (length file) 0)) @@ -262,7 +262,7 @@ have been saved." (defun abbrev-edit-save-to-file (file) "Save all user-level abbrev definitions in current buffer to FILE." (interactive - (list (read-file-name "Save abbrevs to file: " + (list (read-file-name (format-prompt "Save abbrevs to file" abbrev-file-name) (file-name-directory (expand-file-name abbrev-file-name)) abbrev-file-name))) -- cgit v1.2.3