(make-help-screen): Handle help-event-list.

Handle backspace like delete.

1 files changed, 6 insertions, 3 deletions

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index bd129a8aed8..096de16ee2c 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -112,7 +112,8 @@ and then returns."
                                (setq key (lookup-key function-key-map key)))
                            (setq char (aref key 0)))
                        (setq char ??))
-                     (if (or (eq char ??) (eq char help-char))
+                     (if (or (eq char ??) (eq char help-char)
+                             (memq char help-event-list))
                          (progn
                            (setq config (current-window-configuration))
                            (switch-to-buffer-other-window "*Help*")
@@ -125,7 +126,8 @@ and then returns."
                            (insert help-screen)
                            (help-mode)
                            (goto-char (point-min))
-                           (while (or (memq char (cons help-char '(?? ?\C-v ?\ ?\177 delete ?\M-v)))
+                           (while (or (memq char (append help-event-list
+                                                         (cons help-char '(?? ?\C-v ?\ ?\177 delete backspace ?\M-v))))
                                       (eq (car-safe char) 'switch-frame)
                                       (equal key "\M-v"))
                              (condition-case nil
@@ -134,7 +136,8 @@ and then returns."
                                        (handle-switch-frame char))
                                    (if (memq char '(?\C-v ?\ ))
                                        (scroll-up))
-                                   (if (or (memq char '(?\177 ?\M-v delete))
+                                   (if (or (memq char '(?\177 ?\M-v
+                                                        delete backspace))
                                            (equal key "\M-v"))
                                        (scroll-down)))
                                (error nil))