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/abbrev.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/abbrev.el')
-rw-r--r-- | lisp/abbrev.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 50d0011e812..be6f9ee3437 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 (format-prompt "Write abbrev file" abbrev-file-name) + (read-file-name "Write abbrev file: " (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 (format-prompt "Save abbrevs to file" abbrev-file-name) + (list (read-file-name "Save abbrevs to file: " (file-name-directory (expand-file-name abbrev-file-name)) abbrev-file-name))) |