emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master c9f05cb: Make precision scrolling work on margins and fringes


From: Po Lu
Subject: master c9f05cb: Make precision scrolling work on margins and fringes
Date: Fri, 24 Dec 2021 02:35:52 -0500 (EST)

branch: master
commit c9f05cbe3fc7290cc4874afa378cdf8062e84e2f
Author: Po Lu <luangruo@yahoo.com>
Commit: Po Lu <luangruo@yahoo.com>

    Make precision scrolling work on margins and fringes
    
    * lisp/pixel-scroll.el (pixel-scroll-precision-mode-map): Add
    missing key definitions.
---
 lisp/pixel-scroll.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lisp/pixel-scroll.el b/lisp/pixel-scroll.el
index d3b4500..b943365 100644
--- a/lisp/pixel-scroll.el
+++ b/lisp/pixel-scroll.el
@@ -108,6 +108,18 @@ is always with pixel resolution.")
     (define-key map [vertical-scroll-bar wheel-down] #'pixel-scroll-precision)
     (define-key map [vertical-scroll-bar wheel-up] #'pixel-scroll-precision)
     (define-key map [vertical-scroll-bar touch-end] 
#'pixel-scroll-start-momentum)
+    (define-key map [left-margin wheel-down] #'pixel-scroll-precision)
+    (define-key map [left-margin wheel-up] #'pixel-scroll-precision)
+    (define-key map [left-margin touch-end] #'pixel-scroll-start-momentum)
+    (define-key map [right-margin wheel-down] #'pixel-scroll-precision)
+    (define-key map [right-margin wheel-up] #'pixel-scroll-precision)
+    (define-key map [right-margin touch-end] #'pixel-scroll-start-momentum)
+    (define-key map [left-fringe wheel-down] #'pixel-scroll-precision)
+    (define-key map [left-fringe wheel-up] #'pixel-scroll-precision)
+    (define-key map [left-fringe touch-end] #'pixel-scroll-start-momentum)
+    (define-key map [right-fringe wheel-down] #'pixel-scroll-precision)
+    (define-key map [right-fringe wheel-up] #'pixel-scroll-precision)
+    (define-key map [right-fringe touch-end] #'pixel-scroll-start-momentum)
     map)
   "The key map used by `pixel-scroll-precision-mode'.")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]