diff options
| author | Gerd Möllmann | 2025-02-24 05:48:29 +0100 |
|---|---|---|
| committer | Gerd Möllmann | 2025-02-24 05:51:41 +0100 |
| commit | 02fbdbf4ff628fe4ee6112a57d63a14445726215 (patch) | |
| tree | 099a099b4629c0e2a5cbe5985ee5ed403e8244dc | |
| parent | 45f5f718a07bb126bbd71952c5fbd1c5f126df7d (diff) | |
| download | emacs-02fbdbf4ff628fe4ee6112a57d63a14445726215.tar.gz emacs-02fbdbf4ff628fe4ee6112a57d63a14445726215.zip | |
Handle case of not knowing a frame when mouse moved
* lisp/xt-mouse.el (xterm-mouse--handle-mouse-movement): Don't call
display--update-for-mouse-movement if we don't have a frame.
| -rw-r--r-- | lisp/xt-mouse.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 250f4efebb4..94b3f08de96 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -133,9 +133,11 @@ https://invisible-island.net/xterm/ctlseqs/ctlseqs.html)." | |||
| 133 | 133 | ||
| 134 | (defun xterm-mouse--handle-mouse-movement () | 134 | (defun xterm-mouse--handle-mouse-movement () |
| 135 | "Handle mouse motion that was just generated for XTerm mouse." | 135 | "Handle mouse motion that was just generated for XTerm mouse." |
| 136 | (display--update-for-mouse-movement (terminal-parameter nil 'xterm-mouse-frame) | 136 | (when-let* ((frame (terminal-parameter nil 'xterm-mouse-frame))) |
| 137 | (terminal-parameter nil 'xterm-mouse-x) | 137 | (display--update-for-mouse-movement |
| 138 | (terminal-parameter nil 'xterm-mouse-y))) | 138 | frame |
| 139 | (terminal-parameter nil 'xterm-mouse-x) | ||
| 140 | (terminal-parameter nil 'xterm-mouse-y)))) | ||
| 139 | 141 | ||
| 140 | ;; These two variables have been converted to terminal parameters. | 142 | ;; These two variables have been converted to terminal parameters. |
| 141 | ;; | 143 | ;; |