[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master be7af20 2/2: Use format-prompt a couple of places
From: |
Lars Ingebrigtsen |
Subject: |
master be7af20 2/2: Use format-prompt a couple of places |
Date: |
Wed, 26 Aug 2020 08:08:33 -0400 (EDT) |
branch: master
commit be7af20e732db65c33f5d41402675a403416ce7b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
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 a137c50..d302c05 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 1ca4a23..67ee4d2 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)