diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help-fns.el | 2 | ||||
| -rw-r--r-- | 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) |