From ebb0719c46bf2a7856696ec283f6d1159093c79e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 May 1996 04:33:42 +0000 Subject: [PATCH] (win32-handle-scroll-bar-event): Look for `up' and `down' instead of `up-arrow' and `down-arrow'. --- lisp/term/w32-win.el | 4 ++-- 1 file 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)) )))) -- 2.39.2