mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
put on event-kind property.
This commit is contained in:
Richard M. Stallman 2006-01-01 07:55:21 +00:00
parent b20de1cd1c
commit cbf090c459
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

6
lisp/mouse.el
View file

@ -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