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

put on event-kind property.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44dc14b11170b455e092a1c0d3bd16e5b6dd17d2..2e187fed24bd38e50e3830ff53fa5fc0be2421ad 100644 (file)
--- 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 8f0fedf401e803bf5b64aa4a3d9cb386776d9f07..ef655ba836fdae1c99da82f5b3d1e34f5fcb19c6 100644 (file)
--- 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