aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2025-01-25 12:10:32 +0200
committerEli Zaretskii2025-01-25 12:10:32 +0200
commit062da7003f98cb8352e9cc91e0a8fd7de11b2bd1 (patch)
tree1a146be2aeca91476c4556361f86c35f8272c461
parent52dc01f1c8b3c14405cc9ce2a825ea68edcdadc8 (diff)
downloademacs-062da7003f98cb8352e9cc91e0a8fd7de11b2bd1.tar.gz
emacs-062da7003f98cb8352e9cc91e0a8fd7de11b2bd1.zip
; Improve prompts and error messages in 'info-look'
* lisp/info-look.el (info-lookup-change-mode): Improve text of prompt and error messages. (Bug#75634)
-rw-r--r--lisp/info-look.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/info-look.el b/lisp/info-look.el
index 70b04fe72a3..4e6498aa100 100644
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -377,12 +377,13 @@ If optional argument QUERY is non-nil, query for the help mode."
377 (cons (symbol-name mode-spec) mode-spec))) 377 (cons (symbol-name mode-spec) mode-spec)))
378 (info-lookup->topic-value topic))) 378 (info-lookup->topic-value topic)))
379 (mode (completing-read 379 (mode (completing-read
380 (format "Use %s help mode: " topic) 380 (format "Major mode whose manuals to search for this %s: "
381 topic)
381 completions nil t nil 'info-lookup-history))) 382 completions nil t nil 'info-lookup-history)))
382 (or (setq mode (cdr (assoc mode completions))) 383 (or (setq mode (cdr (assoc mode completions)))
383 (error "No %s help available" topic)) 384 (error "No manuals available for %s" topic))
384 (or (info-lookup->mode-value topic mode) 385 (or (info-lookup->mode-value topic mode)
385 (error "No %s help available for `%s'" topic mode)) 386 (error "The manuals of `%s' have no %s help" mode topic))
386 (setq info-lookup-mode mode))) 387 (setq info-lookup-mode mode)))
387 388
388(defun info-lookup--item-to-mode (item mode) 389(defun info-lookup--item-to-mode (item mode)