mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
Handle backspace like delete.
This commit is contained in:
Richard M. Stallman 1995-06-29 02:50:01 +00:00
parent ec3ea48827
commit 873dd80b92
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/help-macro.el
View File

@ -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))