# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885251478 0
# Node ID 988d8082f292058d71a0d3164a7721020cd843b6
# Parent  15a32cd96ea526a25ce7709281cfb2bb2f8af652
(mouse-drag-vertical-line): Properly determine which
side the scroll bar or vertical line is on.

diff -r 15a32cd96ea5 -r 988d8082f292 lisp/mouse.el
--- a/lisp/mouse.el	Mon Jan 19 21:33:26 1998 +0000
+++ b/lisp/mouse.el	Mon Jan 19 23:11:18 1998 +0000
@@ -300,16 +300,16 @@
   (interactive "e")
   ;; Give temporary modes such as isearch a chance to turn off.
   (run-hooks 'mouse-leave-buffer-hook)
-  (let ((done nil)
-	(echo-keystrokes 0)
-	(start-event-frame (window-frame (car (car (cdr start-event)))))
-	(start-event-window (car (car (cdr start-event))))
-	(start-nwindows (count-windows t))
-	(old-selected-window (selected-window))
-	event mouse x left right edges wconfig growth
-	(which-side
-	 (or (cdr (assq 'vertical-scroll-bars default-frame-alist))
-	     'left)))
+  (let* ((done nil)
+	 (echo-keystrokes 0)
+	 (start-event-frame (window-frame (car (car (cdr start-event)))))
+	 (start-event-window (car (car (cdr start-event))))
+	 (start-nwindows (count-windows t))
+	 (old-selected-window (selected-window))
+	 event mouse x left right edges wconfig growth
+	 (which-side
+	  (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame)))
+	      'right)))
     (if (one-window-p t)
 	(error "Attempt to resize sole ordinary window"))
     (if (eq which-side 'left)