mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-10 14:10:51 +00:00
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 1bda71ec3b
. (bug#29737)
This commit is contained in:
parent
b882d4ef11
commit
9105c9aa34
1 changed files with 5 additions and 5 deletions
|
@ -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.
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue