procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

In mouse-drag-line correctly use window-in-direction.

Browse source
This commit is contained in:
Martin Rudalics 2011-10-22 19:06:13 +02:00
parent d195726a70
commit 53ebff1ff0
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -12,7 +12,7 @@
2011-10-22 Martin Rudalics <rudalics@gmx.at>
* mouse.el (mouse-drag-line): Fix minibuffer resizing broken by
last fix.
last fix. Use window-in-direction correctly.
2011-10-21 Chong Yidong <cyd@gnu.org>

7
lisp/mouse.el
View file

@ -419,8 +419,9 @@ must be one of the symbols header, mode, or vertical."
(cond
((eq line 'header)
;; Check whether header-line can be dragged at all.
(when (window-at-side-p window 'top)
(setq done t)))
(if (window-at-side-p window 'top)
(setq done t)
(setq window (window-in-direction 'above window t))))
((eq line 'mode)
;; Check whether mode-line can be dragged at all.
(when (and (window-at-side-p window 'bottom)
@ -436,7 +437,7 @@ must be one of the symbols header, mode, or vertical."
window
;; If the scroll bar is on the start-event window's left,
;; adjust the window on the left of it.
(window-in-direction 'left window)))))
(window-in-direction 'left window t)))))
;; Start tracking.
(track-mouse