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.

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 7fe1fb6c3d06e9c226090cb8c2d20a63569bc1eb..132530deb3b3183503c96226298602f3e5fbdb3d 100644 (file)
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -168,9 +168,9 @@ and then returns."
                                              (point-max))
                                             ""
                                           (concat  ", or "
-                                                   (help--key-description-fontified "\s") ; SPC
+                                                   (help--key-description-fontified (kbd "<PageDown>"))
                                                    " or "
-                                                   (help--key-description-fontified "\d") ; DEL
+                                                   (help--key-description-fontified (kbd "<PageUp>"))
                                                    " to scroll"))))
                            char (aref key 0)))
 

diff --git a/lisp/help.el b/lisp/help.el
index 85312a411adc8cd47873c2c9902dd7ef360f1d28..bd671c3d16b2d5a8f9f6a764172958e09b1e5274 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -233,9 +233,9 @@ Do not call this in the scope of `with-help-window'."
   (purecopy "Type a help option: [abcCdefFgiIkKlLmnprstvw.] C-[cdefmnoptw] or ?")
   (concat
    "\(Type "
-   (help--key-description-fontified "\s") ; SPC
+   (help--key-description-fontified (kbd "<PageDown>"))
    " or "
-   (help--key-description-fontified "\d") ; DEL
+   (help--key-description-fontified (kbd "<PageUp>"))
    " to scroll, "
    (help--key-description-fontified "\C-s")
    " to search, or \\<help-map>\\[help-quit] to exit.)"