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

(mouse-drag-region): Modify previous change--don't run the ordinary binding

Browse source 
in the case of a multiple click.
This commit is contained in:
Richard M. Stallman 1995-01-26 03:18:45 +00:00
parent ad14280fb7
commit bfbcf12e47
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -414,7 +414,10 @@ release the mouse button. Otherwise, it does not."
mouse-drag-overlay start-point)))))))))
(if (consp event)
(let ((fun (key-binding (vector (car event)))))
(if (fboundp fun)
;; Run the binding of the terminating up-event, if possible.
;; In the case of a multiple click, it gives the wrong results,
;; because it would fail to set up a region.
(if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun))
(funcall fun event)
(if (not (= (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay)))