From cbf090c4593aa130615d67ddc1ce70f44a9067ab Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 Jan 2006 07:55:21 +0000 Subject: [PATCH] (mouse-drag-region-1): When following link via mouse-2, put on event-kind property. --- lisp/ChangeLog | 5 +++++ lisp/mouse.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) 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 + + * mouse.el (mouse-drag-region-1): When following link via mouse-2, + put on event-kind property. + 2005-12-31 Chong Yidong * 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 -- 2.39.2