diff options
| -rw-r--r-- | lisp/pixel-scroll.el | 3 |
1 files changed, 2 insertions, 1 deletions
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 | |||
| 399 | window, and the pixel height of that line." | 399 | window, and the pixel height of that line." |
| 400 | (let* ((pos0 (save-excursion | 400 | (let* ((pos0 (save-excursion |
| 401 | (goto-char (window-start)) | 401 | (goto-char (window-start)) |
| 402 | (beginning-of-visual-line) | 402 | (unless (bobp) |
| 403 | (beginning-of-visual-line)) | ||
| 403 | (point))) | 404 | (point))) |
| 404 | (vscroll0 (window-vscroll nil t)) | 405 | (vscroll0 (window-vscroll nil t)) |
| 405 | (line-height nil) | 406 | (line-height nil) |