From be7af20e732db65c33f5d41402675a403416ce7b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 26 Aug 2020 14:08:21 +0200 Subject: [PATCH] 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). --- lisp/help-fns.el | 2 +- lisp/ps-print.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a137c504888..d302c05283c 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -152,7 +152,7 @@ When called from lisp, FUNCTION may also be a function object." (enable-recursive-minibuffers t) (val (completing-read (if fn - (format "Describe function (default %s): " fn) + (format-prompt "Describe function" fn) "Describe function: ") #'help--symbol-completion-table (lambda (f) (or (fboundp f) (get f 'function-documentation))) 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) -- 2.39.2