diff options
| author | Richard M. Stallman | 1996-05-05 04:33:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-05-05 04:33:42 +0000 |
| commit | ebb0719c46bf2a7856696ec283f6d1159093c79e (patch) | |
| tree | a61ac55b8b48e20724d0d949bf528118e88e9517 | |
| parent | 03f962fbc4ac4f958931a9c73423b49fe9315077 (diff) | |
| download | emacs-ebb0719c46bf2a7856696ec283f6d1159093c79e.tar.gz emacs-ebb0719c46bf2a7856696ec283f6d1159093c79e.zip | |
(win32-handle-scroll-bar-event):
Look for `up' and `down' instead of `up-arrow' and `down-arrow'.
| -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 @@ | |||
| 91 | (save-excursion | 91 | (save-excursion |
| 92 | (select-window window) | 92 | (select-window window) |
| 93 | (cond | 93 | (cond |
| 94 | ((eq bar-part 'up-arrow) | 94 | ((eq bar-part 'up) |
| 95 | (scroll-down 1)) | 95 | (scroll-down 1)) |
| 96 | ((eq bar-part 'above-handle) | 96 | ((eq bar-part 'above-handle) |
| 97 | (scroll-down)) | 97 | (scroll-down)) |
| @@ -99,7 +99,7 @@ | |||
| 99 | (scroll-bar-drag-1 event)) | 99 | (scroll-bar-drag-1 event)) |
| 100 | ((eq bar-part 'below-handle) | 100 | ((eq bar-part 'below-handle) |
| 101 | (scroll-up)) | 101 | (scroll-up)) |
| 102 | ((eq bar-part 'down-arrow) | 102 | ((eq bar-part 'down) |
| 103 | (scroll-up 1)) | 103 | (scroll-up 1)) |
| 104 | )))) | 104 | )))) |
| 105 | 105 | ||