masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 11:23:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

; Improve prompts and error messages in 'info-look'

Browse source 
* lisp/info-look.el (info-lookup-change-mode): Improve text of
prompt and error messages.  (Bug#75634)
This commit is contained in:
Eli Zaretskii 2025-01-25 12:10:32 +02:00
parent 52dc01f1c8
commit 062da7003f
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/info-look.el
View file

@ -377,12 +377,13 @@ If optional argument QUERY is non-nil, query for the help mode."
(cons (symbol-name mode-spec) mode-spec))) (cons (symbol-name mode-spec) mode-spec)))
(info-lookup->topic-value topic))) (info-lookup->topic-value topic)))
(mode (completing-read (mode (completing-read
(format "Use %s help mode: " topic) (format "Major mode whose manuals to search for this %s: "
topic)
completions nil t nil 'info-lookup-history))) completions nil t nil 'info-lookup-history)))
(or (setq mode (cdr (assoc mode completions))) (or (setq mode (cdr (assoc mode completions)))
(error "No %s help available" topic)) (error "No manuals available for %s" topic))
(or (info-lookup->mode-value topic mode) (or (info-lookup->mode-value topic mode)
(error "No %s help available for `%s'" topic mode)) (error "The manuals of `%s' have no %s help" mode topic))
(setq info-lookup-mode mode))) (setq info-lookup-mode mode)))
(defun info-lookup--item-to-mode (item mode) (defun info-lookup--item-to-mode (item mode)