Make xterm-mouse-event check whether the click event is valid

* lisp/xt-mouse.el (xterm-mouse-event): Defensively check against
a situation that shouldn't happen (but does) (bug#17378).
This commit is contained in:
Lars Ingebrigtsen 2020-09-20 23:32:45 +02:00
parent 6089dec2b4
commit 6d9297abe0

View file

@ -237,7 +237,10 @@ which is the \"1006\" extension implemented in Xterm >= 277."
(xterm-mouse--read-event-sequence extension))
(t
(error "Unsupported XTerm mouse protocol")))))
(when click
(when (and click
;; In very obscure circumstances, the click may become
;; invalid (see bug#17378).
(>= (nth 1 click) 0))
(let* ((type (nth 0 click))
(x (nth 1 click))
(y (nth 2 click))