From 5d6a85e05fe3c861f0f66f19ad391eeeb070acbd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 19 Jan 1998 23:11:18 +0000 Subject: [PATCH] (mouse-drag-vertical-line): Properly determine which side the scroll bar or vertical line is on. --- lisp/mouse.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) 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) -- 2.39.2