(xterm-mouse-debug-buffer): New variable.

(xterm-mouse-translate): Use it.

1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 8ae79903d51..3a7c8fd553a 100644
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -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)