(mouse-drag-region-1): When following link via mouse-2,

put on event-kind property.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44dc14b1117..2e187fed24b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-01  Richard M. Stallman  <rms@gnu.org>
+
+        * mouse.el (mouse-drag-region-1): When following link via mouse-2,
+        put on event-kind property.
+
 2005-12-31  Chong Yidong  <cyd@stupidchicken.com>
 
         * custom.el (provide-theme): Ban `user' theme name.
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 8f0fedf401e..ef655ba836f 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1032,7 +1032,11 @@ at the same position."
                   (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