Commit cbf090c4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

put on event-kind property.
parent b20de1cd
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment