aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2004-08-02 15:20:05 +0000
committerKim F. Storm2004-08-02 15:20:05 +0000
commitc296856cee8f420a0d69ca8ceaa5dc4c718a7dca (patch)
tree409357afbff6af27251e72b3300b4ced1d0a0f1d
parent5970bd01f02aee80ba8353f6f7c6e6e5512eaeb4 (diff)
downloademacs-c296856cee8f420a0d69ca8ceaa5dc4c718a7dca.tar.gz
emacs-c296856cee8f420a0d69ca8ceaa5dc4c718a7dca.zip
(windmove-coordinates-of-position): Let compute-motion
calculate usable window width and height.
-rw-r--r--lisp/windmove.el6
1 files 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)
429regardless of the where point is in the buffer and where the window 429regardless of the where point is in the buffer and where the window
430is placed in the frame." 430is placed in the frame."
431 (let* ((wind (if (null window) (selected-window) window)) 431 (let* ((wind (if (null window) (selected-window) window))
432 (usable-width (1- (window-width wind))) ; 1- for cont. column
433 (usable-height (1- (window-height wind))) ; 1- for mode line
434 (big-hairy-result (compute-motion 432 (big-hairy-result (compute-motion
435 (window-start) 433 (window-start)
436 '(0 . 0) 434 '(0 . 0)
437 pos 435 pos
438 (cons usable-width usable-height) 436 nil ; (window-width window-height)
439 usable-width 437 nil ; window-width
440 (cons (window-hscroll) 438 (cons (window-hscroll)
441 0) ; why zero? 439 0) ; why zero?
442 wind))) 440 wind)))