diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-26 14:08:21 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-26 14:08:21 +0200 |
commit | be7af20e732db65c33f5d41402675a403416ce7b (patch) | |
tree | 2ee19fb93ce44429fd9ba06409d284768c1485ad /lisp/ps-print.el | |
parent | 0985c0e6c6f1da712d3a48fa88af2861bf218d60 (diff) | |
download | emacs-be7af20e732db65c33f5d41402675a403416ce7b.tar.gz |
Use format-prompt a couple of places
* lisp/ps-print.el (ps-print-preprint):
* lisp/help-fns.el (describe-function): Use `format-prompt'
(bug#12443).
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r-- | lisp/ps-print.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el index 1ca4a23ab2c..67ee4d24390 100644 --- a/lisp/ps-print.el +++ b/lisp/ps-print.el @@ -4523,7 +4523,7 @@ page-height == ((floor print-height ((th + ls) * zh)) * ((th + ls) * zh)) - th (let* ((name (concat (file-name-nondirectory (or (buffer-file-name) (buffer-name))) ".ps")) - (prompt (format "Save PostScript to file (default %s): " name)) + (prompt (format-prompt "Save PostScript to file" name)) (res (read-file-name prompt default-directory name nil))) (while (cond ((file-directory-p res) (ding) |