diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/touch.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 |