From: Kim F. Storm <storm@cua.dk>
Date: Mon, 2 Aug 2004 15:20:05 +0000 (+0000)
Subject: (windmove-coordinates-of-position): Let compute-motion
X-Git-Tag: ttn-vms-21-2-B4~5353
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c296856cee8f420a0d69ca8ceaa5dc4c718a7dca;p=emacs.git

(windmove-coordinates-of-position): Let compute-motion
calculate usable window width and height.
---

diff --git a/lisp/windmove.el b/lisp/windmove.el
index 7008b86335e..642f04a1d8d 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -429,14 +429,12 @@ the return value from `windmove-coordinates-of-position' is (0 . 0)
 regardless of the where point is in the buffer and where the window
 is placed in the frame."
   (let* ((wind (if (null window) (selected-window) window))
-         (usable-width (1- (window-width wind))) ; 1- for cont. column
-         (usable-height (1- (window-height wind))) ; 1- for mode line
          (big-hairy-result (compute-motion
                             (window-start)
                             '(0 . 0)
                             pos
-                            (cons usable-width usable-height)
-                            usable-width
+                            nil ; (window-width window-height)
+                            nil ; window-width
                             (cons (window-hscroll)
                                   0)    ; why zero?
                             wind)))