From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 26 Aug 2020 12:08:21 +0000 (+0200)
Subject: Use format-prompt a couple of places
X-Git-Tag: emacs-28.0.90~6382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be7af20e732db65c33f5d41402675a403416ce7b;p=emacs.git

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).
---

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)