- (use-global-map (, helped-map))
- (use-local-map nil)
- (setq key (read-key-sequence nil))
- (setq char (aref key 0))
- (if (or (eq char ??) (eq char help-char))
+ (setcdr local-map ,helped-map)
+ (define-key local-map [t] 'undefined)
+ ;; Make the scroll bar keep working normally.
+ (define-key local-map [vertical-scroll-bar]
+ (lookup-key global-map [vertical-scroll-bar]))
+ (if three-step-help
+ (progn
+ (setq key (let ((overriding-local-map local-map))
+ (read-key-sequence nil)))
+ ;; Make the HELP key translate to C-h.
+ (if (lookup-key function-key-map key)
+ (setq key (lookup-key function-key-map key)))
+ (setq char (aref key 0)))
+ (setq char ??))
+ (if (or (eq char ??) (eq char help-char)
+ (memq char help-event-list))