mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-08 15:35:02 +00:00
Fix help message with help-window-select
* lisp/help.el (help-print-return-message): (help-window-display-message): Recommend 'scroll-up-command' instead of 'scroll-up' when 'help-window-select' is non-nil. (Bug#43122)
This commit is contained in:
parent
0fb3fc92b3
commit
302f71e55d
@ -179,7 +179,7 @@ Do not call this in the scope of `with-help-window'."
|
||||
(if (same-window-p (buffer-name standard-output))
|
||||
;; Say how to scroll this window.
|
||||
(substitute-command-keys
|
||||
"\\[scroll-up] to scroll the help.")
|
||||
"\\[scroll-up-command] to scroll the help.")
|
||||
;; Say how to scroll some other window.
|
||||
(substitute-command-keys
|
||||
"\\[scroll-other-window] to scroll the help."))))))))
|
||||
@ -1243,7 +1243,7 @@ window."
|
||||
".")
|
||||
((eq scroll 'other)
|
||||
", \\[scroll-other-window] to scroll help.")
|
||||
(scroll ", \\[scroll-up] to scroll help."))))
|
||||
(scroll ", \\[scroll-up-command] to scroll help."))))
|
||||
(message "%s"
|
||||
(substitute-command-keys (concat quit-part scroll-part)))))
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user