Mercurial > emacs

diff lisp/mouse.el @ 67965:ea7ab3ce03e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region-1): When following link via mouse-2, put on event-kind property.
author Richard M. Stallman <rms@gnu.org>
date Sun, 01 Jan 2006 07:55:12 +0000
parents f223df02d351
children 217b260efd66
line wrap: on
line diff
--- a/lisp/mouse.el	Sun Jan 01 02:10:52 2006 +0000
+++ b/lisp/mouse.el	Sun Jan 01 07:55:12 2006 +0000
@@ -1032,7 +1032,11 @@
 		  (select-window original-window)
 		  (if (or (vectorp on-link) (stringp on-link))
 		      (setq event (aref on-link 0))
-		    (setcar event 'mouse-2)))
+		    (setcar event 'mouse-2)
+		    ;; If this mouse click has never been done by
+		    ;; the user, it doesn't have the necessary
+		    ;; property to be interpreted correctly.
+		    (put 'mouse-2 'event-kind 'mouse-click)))
 		(push event unread-command-events))))
 
         ;; Case where the end-event is not a cons cell (it's just a boring