emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/osm 6f14067777 26/77: add mwheel scroll functions


From: ELPA Syncer
Subject: [elpa] externals/osm 6f14067777 26/77: add mwheel scroll functions
Date: Mon, 7 Mar 2022 08:58:05 -0500 (EST)

branch: externals/osm
commit 6f14067777e1d8d687851f9daa1cbcdf267cec30
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    add mwheel scroll functions
---
 osm.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/osm.el b/osm.el
index cba4104738..279cb53542 100644
--- a/osm.el
+++ b/osm.el
@@ -419,9 +419,13 @@ We need two distinct images which are not `eq' for the 
display properties.")
               show-trailing-whitespace nil
               display-line-numbers nil
               buffer-read-only t
+              fringe-indicator-alist '((truncation . nil))
               revert-buffer-function #'osm--revert
-              bookmark-make-record-function #'osm--make-bookmark
-              fringe-indicator-alist '((truncation . nil)))
+              mwheel-scroll-up-function #'osm-down
+              mwheel-scroll-down-function #'osm-up
+              mwheel-scroll-left-function #'osm-left
+              mwheel-scroll-right-function #'osm-right
+              bookmark-make-record-function #'osm--make-bookmark)
   (add-hook 'window-size-change-functions #'osm--revert nil 'local))
 
 (defun osm--display-tile (x y)



reply via email to

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