Commit 89a94f1e authored by Chong Yidong's avatar Chong Yidong
Browse files

* mouse.el (mouse-drag-vertical-line): Use window-inside-edges

	when checking for attempt to drag leftmost or rightmost scrollbar.
parent e09ce637
2006-03-16 Martin Rudalics <rudalics@gmx.at>
* mouse.el (mouse-drag-vertical-line): Use window-inside-edges
when checking for attempt to drag leftmost or rightmost scrollbar.
2006-03-16 Nick Roberts <nickrob@snap.net.nz>
 
* progmodes/gdb-ui.el (gdb-inferior-status): New variable.
......
......@@ -538,19 +538,20 @@ resized by dragging their header-line."
(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))
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 'right)
(if (= (nth 2 (window-edges start-event-window))
(frame-width start-event-frame))
(error "Attempt to drag rightmost scrollbar"))
(if (= (nth 0 (window-edges start-event-window)) 0)
(error "Attempt to drag leftmost scrollbar")))
(cond
((one-window-p t)
(error "Attempt to resize sole ordinary window"))
((and (eq which-side 'right)
(>= (nth 2 (window-inside-edges start-event-window))
(frame-width start-event-frame)))
(error "Attempt to drag rightmost scrollbar"))
((and (eq which-side 'left)
(= (nth 0 (window-inside-edges start-event-window)) 0))
(error "Attempt to drag leftmost scrollbar")))
(track-mouse
(progn
;; enlarge-window only works on the selected window, so
......
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