(win32-handle-scroll-bar-event):

Look for `up' and `down' instead of `up-arrow' and `down-arrow'.

(win32-handle-scroll-bar-event):
Look for `up' and `down' instead of `up-arrow' and `down-arrow'.
ebb0719c · Richard M. Stallman · 03f962fb · ebb0719c
Commit ebb0719c authored May 05, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/term/w32-win.el lisp/term/w32-win.el +2 -2

No files found.
--- 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))
       ))))