Commit 873dd80b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

Handle backspace like delete.
parent ec3ea488
...@@ -112,7 +112,8 @@ and then returns." ...@@ -112,7 +112,8 @@ and then returns."
(setq key (lookup-key function-key-map key))) (setq key (lookup-key function-key-map key)))
(setq char (aref key 0))) (setq char (aref key 0)))
(setq char ??)) (setq char ??))
(if (or (eq char ??) (eq char help-char)) (if (or (eq char ??) (eq char help-char)
(memq char help-event-list))
(progn (progn
(setq config (current-window-configuration)) (setq config (current-window-configuration))
(switch-to-buffer-other-window "*Help*") (switch-to-buffer-other-window "*Help*")
...@@ -125,7 +126,8 @@ and then returns." ...@@ -125,7 +126,8 @@ and then returns."
(insert help-screen) (insert help-screen)
(help-mode) (help-mode)
(goto-char (point-min)) (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) (eq (car-safe char) 'switch-frame)
(equal key "\M-v")) (equal key "\M-v"))
(condition-case nil (condition-case nil
...@@ -134,7 +136,8 @@ and then returns." ...@@ -134,7 +136,8 @@ and then returns."
(handle-switch-frame char)) (handle-switch-frame char))
(if (memq char '(?\C-v ?\ )) (if (memq char '(?\C-v ?\ ))
(scroll-up)) (scroll-up))
(if (or (memq char '(?\177 ?\M-v delete)) (if (or (memq char '(?\177 ?\M-v
delete backspace))
(equal key "\M-v")) (equal key "\M-v"))
(scroll-down))) (scroll-down)))
(error nil)) (error nil))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment