[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mouse.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mouse.el |
Date: |
Sun, 01 Jan 2006 07:55:12 +0000 |
Index: emacs/lisp/mouse.el
diff -u emacs/lisp/mouse.el:1.291 emacs/lisp/mouse.el:1.292
--- emacs/lisp/mouse.el:1.291 Sat Dec 31 11:46:34 2005
+++ emacs/lisp/mouse.el Sun Jan 1 07:55:12 2006
@@ -1032,7 +1032,11 @@
(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
- [Emacs-diffs] Changes to emacs/lisp/mouse.el,
Richard M. Stallman <=