diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-10-11 03:31:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-10-11 03:31:06 +0000 |
| commit | cb80240ac4e5e1de419fc055d6f3be5e3f952762 (patch) | |
| tree | 1f31d45054a634f3e21fad39d20552a3f2a0c376 /lisp/help-macro.el | |
| parent | 7f6241eaf5cbb2c801f6416a38ac52f98a1c0841 (diff) | |
| download | emacs-cb80240ac4e5e1de419fc055d6f3be5e3f952762.tar.gz | |
(make-help-screen): Make scroll bar work normally.
Diffstat (limited to 'lisp/help-macro.el')
| -rw-r--r-- | lisp/help-macro.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 8ae3876cef3..e047715b4ab 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el @@ -105,6 +105,9 @@ and then returns." (progn (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)) @@ -130,7 +133,7 @@ and then returns." (help-mode) (goto-char (point-min)) (while (or (memq char (append help-event-list - (cons help-char '(?? ?\C-v ?\ ?\177 delete backspace ?\M-v)))) + (cons help-char '(?? ?\C-v ?\ ?\177 delete backspace vertical-scroll-bar ?\M-v)))) (eq (car-safe char) 'switch-frame) (equal key "\M-v")) (condition-case nil @@ -151,7 +154,11 @@ and then returns." (if (pos-visible-in-window-p (point-max)) "" " or Space to scroll"))) - char (aref key 0)))))) + char (aref key 0))) + + ;; If this is a scroll bar command, just run it. + (when (eq char 'vertical-scroll-bar) + (command-execute (lookup-key local-map key) nil key))))) ;; We don't need the prompt any more. (message "") ;; Mouse clicks are not part of the help feature, |