Fix regression in help-mode prompt
* lisp/help-macro.el (make-help-screen): Restore SPC and DEL in prompt. Reported by Colin Baxter <m43cap@yandex.com>.
This commit is contained in:
parent
9bd3f78645
commit
6170c5036e
1 changed files with 6 additions and 2 deletions
|
@ -165,14 +165,18 @@ and then returns."
|
||||||
(let ((cursor-in-echo-area t)
|
(let ((cursor-in-echo-area t)
|
||||||
(overriding-local-map local-map))
|
(overriding-local-map local-map))
|
||||||
(setq key (read-key-sequence
|
(setq key (read-key-sequence
|
||||||
(format "Type one of the options listed%s: "
|
(format "Type one of listed options%s: "
|
||||||
(if (pos-visible-in-window-p
|
(if (pos-visible-in-window-p
|
||||||
(point-max))
|
(point-max))
|
||||||
""
|
""
|
||||||
(concat ", or "
|
(concat ", or "
|
||||||
(help--key-description-fontified (kbd "<PageDown>"))
|
(help--key-description-fontified (kbd "<PageDown>"))
|
||||||
" or "
|
"/"
|
||||||
(help--key-description-fontified (kbd "<PageUp>"))
|
(help--key-description-fontified (kbd "<PageUp>"))
|
||||||
|
"/"
|
||||||
|
(help--key-description-fontified (kbd "SPC"))
|
||||||
|
"/"
|
||||||
|
(help--key-description-fontified (kbd "DEL"))
|
||||||
" to scroll"))))
|
" to scroll"))))
|
||||||
char (aref key 0)))
|
char (aref key 0)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue