# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1091460005 0
# Node ID c3fcca92bfd9c4b9fac9550e47c92544227d5a4c
# Parent  0731f4f165af8344153b46e2132839577986ca07
(windmove-coordinates-of-position): Let compute-motion
calculate usable window width and height.

diff -r 0731f4f165af -r c3fcca92bfd9 lisp/windmove.el
--- a/lisp/windmove.el	Mon Aug 02 15:19:24 2004 +0000
+++ b/lisp/windmove.el	Mon Aug 02 15:20:05 2004 +0000
@@ -429,14 +429,12 @@
 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)))