From 59db96d83ae837b3a3d82a979cd97a271bcd86bf Mon Sep 17 00:00:00 2001 From: Po Lu Date: Fri, 10 Dec 2021 11:30:07 +0800 Subject: [PATCH] Fix bob detection when pixel scrolling upwards * lisp/pixel-scroll.el (pixel-point-and-height-at-unseen-line): Don't go to the beginning-of-visual-line if bobp. --- lisp/pixel-scroll.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 432a5dc52cf..29d8e7e0255 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -399,7 +399,8 @@ character on the unseen line just above the scope of current window, and the pixel height of that line." (let* ((pos0 (save-excursion (goto-char (window-start)) - (beginning-of-visual-line) + (unless (bobp) + (beginning-of-visual-line)) (point))) (vscroll0 (window-vscroll nil t)) (line-height nil) -- 2.39.5