From c0a1ff7be2ed7c7209237ca1c0fb52c3dc2a3f20 Mon Sep 17 00:00:00 2001 From: MitchMarq42 Date: Sun, 15 Jan 2023 20:09:15 -0900 Subject: [PATCH] 2048: use mwheel-scroll-functions to set termux swipe keys --- lisp/2048.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/2048.el b/lisp/2048.el index 7879f3c..7fcdfe2 100644 --- a/lisp/2048.el +++ b/lisp/2048.el @@ -362,10 +362,10 @@ individually." (local-set-key (kbd "j") '2048-shift-down) (local-set-key (kbd "k") '2048-shift-up) ;; Swipe controls for termux - (local-set-key (kbd "") '2048-shift-left) - (local-set-key (kbd "") '2048-shift-right) - (local-set-key (kbd "") '2048-shift-down) - (local-set-key (kbd "") '2048-shift-up) + (setq-local 'mwheel-scroll-left-function '2048-shift-left) + (setq-local 'mwheel-scroll-right-function '2048-shift-right) + (setq-local 'mwheel-scroll-down-function '2048-shift-down) + (setq-local 'mwheel-scroll-up-function '2048-shift-up) (2048-startup) (setq font-lock-defaults '(2048-highlights)))