[Emacs-diffs] /srv/bzr/emacs/trunk r106166: In mouse-drag-line correctly use window-in-direction.

[martin rudalics]

------------------------------------------------------------
revno: 106166
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Sat 2011-10-22 19:06:13 +0200
message:
  In mouse-drag-line correctly use window-in-direction.
modified:
  lisp/ChangeLog
  lisp/mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-10-22 10:17:25 +0000
+++ b/lisp/ChangeLog    2011-10-22 17:06:13 +0000
@@ -12,7 +12,7 @@
 2011-10-22  Martin Rudalics  <address@hidden>
 
        * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by
-       last fix.
+       last fix.  Use window-in-direction correctly.
 
 2011-10-21  Chong Yidong  <address@hidden>
 

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2011-10-22 09:43:09 +0000
+++ b/lisp/mouse.el     2011-10-22 17:06:13 +0000
@@ -419,8 +419,9 @@
     (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 @@
                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