diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-01-08 20:53:02 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-01-08 20:53:02 +0800 |
| commit | e05512ba42dea3064965367df59732cc71515435 (patch) | |
| tree | 6f4254f46a20d48ac40e03bbdc1f0f35c0b68795 /lisp/face-remap.el | |
| parent | 2e60ca3713af49cd8b3bfe5cda9ad51f6be6046a (diff) | |
| download | emacs-e05512ba42dea3064965367df59732cc71515435.tar.gz emacs-e05512ba42dea3064965367df59732cc71515435.tar.bz2 emacs-e05512ba42dea3064965367df59732cc71515435.zip | |
Fix pinch-to-scale on real X servers and NS
* lisp/face-remap.el (text-scale-pinch): Stop waiting for
more events.
Diffstat (limited to 'lisp/face-remap.el')
| -rw-r--r-- | lisp/face-remap.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/lisp/face-remap.el b/lisp/face-remap.el index 95207959dd3..00560f9d2e1 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el @@ -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)) |