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

mouse.el comment

Browse source
This commit is contained in:
Glenn Morris 2013-02-06 20:54:50 -05:00
parent 55b056bacf
commit 925baaa91d
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/mouse.el
View file

@ -865,6 +865,8 @@ DO-MOUSE-DRAG-REGION-POST-PROCESS should only be used by
;; Find its binding.
(let* ((fun (key-binding (vector (car event))))
;; FIXME This doesn't make sense, because
;; event-click-count always returns something >= 1.
(do-multi-click (and (> (event-click-count event) 0)
(functionp fun)
(not (memq fun '(mouse-set-point