aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2021-04-30 19:30:28 +0200
committerStefan Kangas2021-04-30 19:30:28 +0200
commit04266a2cacc0f0705d0d1abaada464b402cc7b07 (patch)
tree7591e5f0df7caa442cdae9b147956dcfce30125e
parent1167253f75badf9e7df1bf983c2ebeb2d37d3881 (diff)
downloademacs-04266a2cacc0f0705d0d1abaada464b402cc7b07.tar.gz
emacs-04266a2cacc0f0705d0d1abaada464b402cc7b07.zip
Advertise PgUp/PgDn instead of SPC/DEL in help-for-help
* lisp/help-macro.el (make-help-screen): * lisp/help.el (help-for-help): Advertise PgUp/PgDn instead of SPC/DEL.
-rw-r--r--lisp/help-macro.el4
-rw-r--r--lisp/help.el4
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 7fe1fb6c3d0..132530deb3b 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -168,9 +168,9 @@ and then returns."
168 (point-max)) 168 (point-max))
169 "" 169 ""
170 (concat ", or " 170 (concat ", or "
171 (help--key-description-fontified "\s") ; SPC 171 (help--key-description-fontified (kbd "<PageDown>"))
172 " or " 172 " or "
173 (help--key-description-fontified "\d") ; DEL 173 (help--key-description-fontified (kbd "<PageUp>"))
174 " to scroll")))) 174 " to scroll"))))
175 char (aref key 0))) 175 char (aref key 0)))
176 176
diff --git a/lisp/help.el b/lisp/help.el
index 85312a411ad..bd671c3d16b 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -233,9 +233,9 @@ Do not call this in the scope of `with-help-window'."
233 (purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?") 233 (purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?")
234 (concat 234 (concat
235 "\(Type " 235 "\(Type "
236 (help--key-description-fontified "\s") ; SPC 236 (help--key-description-fontified (kbd "<PageDown>"))
237 " or " 237 " or "
238 (help--key-description-fontified "\d") ; DEL 238 (help--key-description-fontified (kbd "<PageUp>"))
239 " to scroll, " 239 " to scroll, "
240 (help--key-description-fontified "\C-s") 240 (help--key-description-fontified "\C-s")
241 " to search, or \\<help-map>\\[help-quit] to exit.)" 241 " to search, or \\<help-map>\\[help-quit] to exit.)"