[Emacs-diffs] Changes to emacs/lisp/xt-mouse.el,v

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Nick Roberts <nickrob>  07/05/12 09:39:06

Index: xt-mouse.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/xt-mouse.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- xt-mouse.el 3 Apr 2007 21:16:17 -0000       1.39
+++ xt-mouse.el 12 May 2007 09:39:06 -0000      1.40
@@ -43,6 +43,8 @@
 
 ;;; Code:
 
+(defvar xterm-mouse-debug-buffer nil)
+
 (define-key function-key-map "\e[M" 'xterm-mouse-translate)
 
 (defvar xterm-mouse-last)
@@ -95,6 +97,8 @@
                       (list (intern (format "drag-mouse-%d"
                                             (+ 1 xterm-mouse-last)))
                             down-data click-data)))))
+           (if xterm-mouse-debug-buffer
+               (print unread-command-events xterm-mouse-debug-buffer))
            (if (and (symbolp down-where)
                     (consp down-where))
                (vector (list down-where down-data) down)