# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831840249 0
# Node ID ff9f17883c5b82206697ae6d69a797a2ff6d2490
# Parent  f639c5d732a35b711718cf29e9a2ca895de1164d
(win32-handle-scroll-bar-event): Use scroll-bar-maybe-set-window-start.

diff -r f639c5d732a3 -r ff9f17883c5b lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Sat May 11 18:38:11 1996 +0000
+++ b/lisp/term/w32-win.el	Sat May 11 18:44:09 1996 +0000
@@ -96,7 +96,7 @@
        ((eq bar-part 'above-handle)
 	(scroll-down))
        ((eq bar-part 'handle)
-	(scroll-bar-drag-1 event))
+	(scroll-bar-maybe-set-window-start event))
        ((eq bar-part 'below-handle)
 	(scroll-up))
        ((eq bar-part 'down)