Commit 9105c9aa authored by Tak Kunihiro's avatar Tak Kunihiro Committed by Eli Zaretskii

Fix scrolling up in pixel-scroll.el

* lisp/pixel-scroll.el (pixel-scroll-up): Do not try to move cursor
down when EOB is shown at the top.  This function is reverted to
commit 1bda71ec. (bug#29737)
parent b882d4ef
...@@ -110,11 +110,11 @@ This is an alternative of `scroll-up'. Scope moves downward." ...@@ -110,11 +110,11 @@ This is an alternative of `scroll-up'. Scope moves downward."
pixel-resolution-fine-flag pixel-resolution-fine-flag
(frame-char-height)) (frame-char-height))
(pixel-line-height)))) (pixel-line-height))))
(while (pixel-point-at-top-p amt) ; prevent too late (multi tries) (if (pixel-eob-at-top-p) ; when end-of-the-buffer is close
(vertical-motion 1)) ; move point downward (scroll-up 1) ; relay on robust method
(if (pixel-eob-at-top-p) ; when end-of-the-buffer is close (while (pixel-point-at-top-p amt) ; prevent too late (multi tries)
(scroll-up 1) ; relay on robust method (vertical-motion 1)) ; move point downward
(pixel-scroll-pixel-up amt))))) ; move scope downward (pixel-scroll-pixel-up amt))))) ; move scope downward
(defun pixel-scroll-down (&optional arg) (defun pixel-scroll-down (&optional arg)
"Scroll text of selected window down ARG lines. "Scroll text of selected window down ARG lines.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment