summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKim F. Storm <storm@cua.dk>2004-08-02 15:20:05 +0000
committerKim F. Storm <storm@cua.dk>2004-08-02 15:20:05 +0000
commit0273090006d488c13155de73ecd35aeb26beabe9 (patch)
treec4c44c8a1edc5f995c11daf090e6395808de9b8e
parent2b9db2e6ff5de5cd600158be5b08da09411176c0 (diff)
downloademacs-0273090006d488c13155de73ecd35aeb26beabe9.tar.gz
(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)
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)))