From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Jan 1998 23:11:18 +0000 (+0000)
Subject: (mouse-drag-vertical-line): Properly determine which
X-Git-Tag: emacs-20.3~2388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d6a85e05fe3c861f0f66f19ad391eeeb070acbd;p=emacs.git

(mouse-drag-vertical-line): Properly determine which
side the scroll bar or vertical line is on.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 6f4a60a86ec..1b053404c3c 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -300,16 +300,16 @@ This command must be bound to a mouse click."
   (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)