diff options
| author | Andrea Corallo <akrl@sdf.org> | 2021-04-05 21:00:18 +0200 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2021-04-05 21:00:18 +0200 |
| commit | 74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73 (patch) | |
| tree | b1e99508f836a1d12d17eb3072e14b0cfb2ba407 /lisp/pixel-scroll.el | |
| parent | 0a3e715e1f5e13874139b4678375b8f5704b800b (diff) | |
| parent | 14d295871a93c37a33d558ec4e8d49a93b787d8e (diff) | |
| download | emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.tar.gz emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.tar.bz2 emacs-74b58f28ecbc6fe9d7a60c96c79acfdf2329ff73.zip | |
Merge remote-tracking branch 'savannah/master' into native-comp
Diffstat (limited to 'lisp/pixel-scroll.el')
| -rw-r--r-- | lisp/pixel-scroll.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 68dc0fb94b3..78b8259b395 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -1,4 +1,4 @@ -;;; pixel-scroll.el --- Scroll a line smoothly +;;; pixel-scroll.el --- Scroll a line smoothly -*- lexical-binding: t -*- ;; Copyright (C) 2017-2021 Free Software Foundation, Inc. ;; Author: Tak Kunihiro <tkk@misasa.okayama-u.ac.jp> @@ -124,7 +124,7 @@ This is an alternative of `scroll-up'. Scope moves downward." (or arg (setq arg 1)) (if (pixel-scroll-in-rush-p) (scroll-up arg) - (dotimes (ii arg) ; move scope downward + (dotimes (_ arg) ; move scope downward (let ((amt (if pixel-resolution-fine-flag (if (integerp pixel-resolution-fine-flag) pixel-resolution-fine-flag @@ -145,7 +145,7 @@ This is and alternative of `scroll-down'. Scope moves upward." (or arg (setq arg 1)) (if (pixel-scroll-in-rush-p) (scroll-down arg) - (dotimes (ii arg) + (dotimes (_ arg) (let ((amt (if pixel-resolution-fine-flag (if (integerp pixel-resolution-fine-flag) pixel-resolution-fine-flag @@ -244,7 +244,7 @@ that was scrolled." (dst (* line height)) ; goal @25 @25 @92 (delta (- dst src))) ; pixels to be scrolled 25 17 4 (pixel--whistlestop-pixel-up (1- delta)) ; until one less @24 @24 @91 - (dotimes (ii line) + (dotimes (_ line) ;; On horizontal scrolling, move cursor. (when (> (window-hscroll) 0) (vertical-motion 1)) |