andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix pinch-to-scale on real X servers and NS

Browse source 
* lisp/face-remap.el (text-scale-pinch): Stop waiting for
more events.
This commit is contained in:
Po Lu 2022-01-08 20:53:02 +08:00
parent 2e60ca3713
commit e05512ba42
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/face-remap.el
View file

@ -400,15 +400,6 @@ a top-level keymap, `text-scale-increase' or
(interactive "e")
(when (not (eq (event-basic-type event) 'pinch))
(error "`text-scale-pinch' bound to bad event type"))
(let ((evt))
(catch 'done
(while t
(unless (and (setq evt (read-event nil nil 0.01))
(eq (car evt) 'pinch))
(throw 'done nil))))
(when (and (consp evt)
(eq (car evt) 'pinch))
(setq event evt)))
(let ((window (posn-window (nth 1 event)))
(scale (nth 4 event))
(dx (nth 2 event))