procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use format-prompt a couple of places

Browse source 
* lisp/ps-print.el (ps-print-preprint):
* lisp/help-fns.el (describe-function): Use `format-prompt'
(bug#12443).
This commit is contained in:
Lars Ingebrigtsen 2020-08-26 14:08:21 +02:00
parent 0985c0e6c6
commit be7af20e73
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/help-fns.el
View file

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

2
lisp/ps-print.el
View file

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