diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-11-30 19:28:04 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-11-30 19:28:04 +0800 |
| commit | f633116c09d0ca8be1bdd332283108b03dfcf0c8 (patch) | |
| tree | 3b1cee056068f56426548c0b428fed18348b3f4c /lisp/pixel-scroll.el | |
| parent | 4e2fa4c34b8e1d49dc1788544c50f89732264a82 (diff) | |
| download | emacs-f633116c09d0ca8be1bdd332283108b03dfcf0c8.tar.gz emacs-f633116c09d0ca8be1bdd332283108b03dfcf0c8.tar.bz2 emacs-f633116c09d0ca8be1bdd332283108b03dfcf0c8.zip | |
* lisp/pixel-scroll.el (pixel-scroll-precision): Handle zero delta.
Diffstat (limited to 'lisp/pixel-scroll.el')
| -rw-r--r-- | lisp/pixel-scroll.el | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el index 1af292139ea..2fd7cace0b0 100644 --- a/lisp/pixel-scroll.el +++ b/lisp/pixel-scroll.el @@ -477,18 +477,19 @@ wheel." (if (and (nth 4 event) (zerop (window-hscroll window))) (let ((delta (round (cdr (nth 4 event))))) - (if (> (abs delta) (window-text-height window t)) - (mwheel-scroll event nil) - (with-selected-window window - (condition-case nil - (if (< delta 0) - (pixel-scroll-precision-scroll-down (- delta)) - (pixel-scroll-precision-scroll-up delta)) - ;; Do not ding at buffer limits. Show a message instead. - (beginning-of-buffer - (message (error-message-string '(beginning-of-buffer)))) - (end-of-buffer - (message (error-message-string '(end-of-buffer)))))))) + (unless (zerop delta) + (if (> (abs delta) (window-text-height window t)) + (mwheel-scroll event nil) + (with-selected-window window + (condition-case nil + (if (< delta 0) + (pixel-scroll-precision-scroll-down (- delta)) + (pixel-scroll-precision-scroll-up delta)) + ;; Do not ding at buffer limits. Show a message instead. + (beginning-of-buffer + (message (error-message-string '(beginning-of-buffer)))) + (end-of-buffer + (message (error-message-string '(end-of-buffer))))))))) (mwheel-scroll event nil)))) ;;;###autoload |