procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Increase xterm click count only within double-click-fuzz

Browse source 
* lisp/xt-mouse.el (xterm-mouse-event): Save the last click's position
and check it against the current click's position.  (Bug#28658)
This commit is contained in:
Alexander Gramiak 2017-09-30 15:47:56 -06:00
parent 745aea2296
commit 89b0023044
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/xt-mouse.el
View file

@ -278,6 +278,8 @@ which is the \"1006\" extension implemented in Xterm >= 277."
(last-name (symbol-name last-type))
(last-time (nth 1 last-click))
(click-count (nth 2 last-click))
(last-x (nth 3 last-click))
(last-y (nth 4 last-click))
(this-time (float-time))
(name (symbol-name type)))
(cond
@ -292,12 +294,16 @@ which is the \"1006\" extension implemented in Xterm >= 277."
double-click-time
(or (eq double-click-time t)
(> double-click-time (* 1000 (- this-time last-time))))
(<= (abs (- x last-x))
(/ double-click-fuzz 8))
(<= (abs (- y last-y))
(/ double-click-fuzz 8))
(equal last-name (replace-match "" t t name)))
(setq click-count (1+ click-count))
(xterm-mouse--set-click-count event click-count))
(t (setq click-count 1)))
(set-terminal-parameter nil 'xterm-mouse-last-click
(list type this-time click-count)))
(list type this-time click-count x y)))
(set-terminal-parameter nil 'xterm-mouse-x x)
(set-terminal-parameter nil 'xterm-mouse-y y)