diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/pixel-scroll.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index cc90be021f7..5ffa8caa71c 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -424,10 +424,11 @@ the height of the current window." (defun pixel-scroll-precision-scroll-up (delta) "Scroll the current window up by DELTA pixels." (let* ((edges (window-edges nil t nil t)) - (max-y (- (nth 3 edges) 1 + (max-y (- (nth 3 edges) + (nth 1 edges) (window-tab-line-height) (window-header-line-height))) - (usable-height (- max-y (nth 1 edges)))) + (usable-height max-y)) (when-let* ((posn (posn-at-point)) (current-y (+ (cdr (posn-x-y posn)) (line-pixel-height)))) |