diff options
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a9943ccd7f4..0e20d0f3538 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1813,8 +1813,9 @@ one of them returns non-nil." ;;;###autoload (defun doc-file-to-man (file) "Produce an nroff buffer containing the doc-strings from the DOC file." - (interactive (list (read-file-name "Name of DOC file: " doc-directory - internal-doc-file-name t))) + (interactive (list (read-file-name (format-prompt "Name of DOC file" + internal-doc-file-name) + doc-directory internal-doc-file-name t))) (or (file-readable-p file) (error "Cannot read file `%s'" file)) (pop-to-buffer (generate-new-buffer "*man-doc*")) @@ -1843,8 +1844,9 @@ one of them returns non-nil." ;;;###autoload (defun doc-file-to-info (file) "Produce a texinfo buffer with sorted doc-strings from the DOC file." - (interactive (list (read-file-name "Name of DOC file: " doc-directory - internal-doc-file-name t))) + (interactive (list (read-file-name (format-prompt "Name of DOC file" + internal-doc-file-name) + doc-directory internal-doc-file-name t))) (or (file-readable-p file) (error "Cannot read file `%s'" file)) (let ((i 0) type name doc alist) |