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:
parent
6089dec2b4
commit
6d9297abe0
1 changed files with 4 additions and 1 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue