diff options
| -rw-r--r-- | lisp/xt-mouse.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 5fb977d99e5..d2d0cf5ee06 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -70,7 +70,11 @@ http://invisible-island.net/xterm/ctlseqs/ctlseqs.html)." | |||
| 70 | (cond | 70 | (cond |
| 71 | ((null event) nil) ;Unknown/bogus byte sequence! | 71 | ((null event) nil) ;Unknown/bogus byte sequence! |
| 72 | (is-down | 72 | (is-down |
| 73 | (setf (terminal-parameter nil 'xterm-mouse-last-down) event) | 73 | (setf (terminal-parameter nil 'xterm-mouse-last-down) |
| 74 | ;; EVENT might be handed back to the input queue, which | ||
| 75 | ;; might modify it. Copy it into the terminal parameter | ||
| 76 | ;; to guard against that. | ||
| 77 | (copy-sequence event)) | ||
| 74 | vec) | 78 | vec) |
| 75 | (is-move vec) | 79 | (is-move vec) |
| 76 | (t | 80 | (t |