143 |
(help-mode) |
(help-mode) |
144 |
(goto-char (point-min)) |
(goto-char (point-min)) |
145 |
(while (or (memq char (append help-event-list |
(while (or (memq char (append help-event-list |
146 |
(cons help-char '(?? ?\C-v ?\ ?\177 delete backspace vertical-scroll-bar ?\M-v)))) |
(cons help-char '(?? ?\C-v ?\s ?\177 delete backspace vertical-scroll-bar ?\M-v)))) |
147 |
(eq (car-safe char) 'switch-frame) |
(eq (car-safe char) 'switch-frame) |
148 |
(equal key "\M-v")) |
(equal key "\M-v")) |
149 |
(condition-case nil |
(condition-case nil |