mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(windmove-coordinates-of-position): Let compute-motion

Browse Source 
calculate usable window width and height.
This commit is contained in:
Kim F. Storm 2004-08-02 15:20:05 +00:00
parent 5970bd01f0
commit c296856cee
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/windmove.el
View File

@ -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)))