diff options
| author | Alan Third <alan@idiocy.org> | 2017-06-27 20:59:05 +0100 |
|---|---|---|
| committer | Alan Third <alan@idiocy.org> | 2017-06-27 20:59:05 +0100 |
| commit | aced8e8482f93683d7f1299782901e8c2990c704 (patch) | |
| tree | 897a5606547a77ab27c878a06a77bc8e1c08f473 /lisp | |
| parent | d932d344ee33d23e8237b78a5a7d123e813aed18 (diff) | |
| download | emacs-scratch/touch.tar.gz | |
Change events to match mac port eventsscratch/touch
The changelog from the commit two before will cover this if they're
squashed, which is my plan. Hence no changelog entry here.
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 |