From aced8e8482f93683d7f1299782901e8c2990c704 Mon Sep 17 00:00:00 2001 From: Alan Third Date: Tue, 27 Jun 2017 20:59:05 +0100 Subject: Change events to match mac port events The changelog from the commit two before will cover this if they're squashed, which is my plan. Hence no changelog entry here. --- lisp/touch.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/touch.el b/lisp/touch.el index ef38f473753..4e7b6145159 100644 --- a/lisp/touch.el +++ b/lisp/touch.el @@ -57,7 +57,7 @@ (defun touch-gesture--pinch (event) "Increase or decrease the text scale according to EVENT." (interactive (list last-input-event)) - (let ((delta (caddr event))) + (let ((delta (* 25 (caddr event)))) (if (not (= delta 0)) (text-scale-increase delta)))) @@ -76,7 +76,8 @@ factor. (global-unset-key [touch-scroll]) (when touch-gesture-mode (global-set-key [touch-scroll] 'touch-gesture--scroll) - (global-set-key [touch-pinch] 'touch-gesture--pinch))) + (global-set-key [magnify-up] 'touch-gesture--pinch) + (global-set-key [magnify-down] 'touch-gesture--pinch))) ;;; Compatibility entry point ;; preloaded ;;;###autoload -- cgit v1.2.1