Commit 5d6a85e0 authored by Richard M. Stallman's avatar Richard M. Stallman

(mouse-drag-vertical-line): Properly determine which

side the scroll bar or vertical line is on.
parent 3fafe1d5
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment