diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-05 04:33:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-05 04:33:42 +0000 |
| commit | ebb0719c46bf2a7856696ec283f6d1159093c79e (patch) | |
| tree | a61ac55b8b48e20724d0d949bf528118e88e9517 /lisp | |
| parent | 03f962fbc4ac4f958931a9c73423b49fe9315077 (diff) | |
| download | emacs-ebb0719c46bf2a7856696ec283f6d1159093c79e.tar.gz | |
(win32-handle-scroll-bar-event):
Look for `up' and `down' instead of `up-arrow' and `down-arrow'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/w32-win.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el index 305c4ec9265..3d42104e888 100644 --- a/lisp/term/w32-win.el +++ b/lisp/term/w32-win.el @@ -91,7 +91,7 @@ (save-excursion (select-window window) (cond - ((eq bar-part 'up-arrow) + ((eq bar-part 'up) (scroll-down 1)) ((eq bar-part 'above-handle) (scroll-down)) @@ -99,7 +99,7 @@ (scroll-bar-drag-1 event)) ((eq bar-part 'below-handle) (scroll-up)) - ((eq bar-part 'down-arrow) + ((eq bar-part 'down) (scroll-up 1)) )))) |