429 |
regardless of the where point is in the buffer and where the window |
regardless of the where point is in the buffer and where the window |
430 |
is placed in the frame." |
is placed in the frame." |
431 |
(let* ((wind (if (null window) (selected-window) window)) |
(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 |
|
432 |
(big-hairy-result (compute-motion |
(big-hairy-result (compute-motion |
433 |
(window-start) |
(window-start) |
434 |
'(0 . 0) |
'(0 . 0) |
435 |
pos |
pos |
436 |
(cons usable-width usable-height) |
nil ; (window-width window-height) |
437 |
usable-width |
nil ; window-width |
438 |
(cons (window-hscroll) |
(cons (window-hscroll) |
439 |
0) ; why zero? |
0) ; why zero? |
440 |
wind))) |
wind))) |