From c296856cee8f420a0d69ca8ceaa5dc4c718a7dca Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 2 Aug 2004 15:20:05 +0000 Subject: [PATCH] (windmove-coordinates-of-position): Let compute-motion calculate usable window width and height. --- lisp/windmove.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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))) -- 2.39.2