diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2007-05-12 09:39:06 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2007-05-12 09:39:06 +0000 |
| commit | 315c417c8041958eeef96a3427d8488f8d6cfa1a (patch) | |
| tree | cc09a4e9438af12e9007a0f27ea6b69e21985188 /lisp/xt-mouse.el | |
| parent | 06b6baf6f9c3de7b40b5541ec832bed3afd97f90 (diff) | |
| download | emacs-315c417c8041958eeef96a3427d8488f8d6cfa1a.tar.gz | |
(xterm-mouse-debug-buffer): New variable.
(xterm-mouse-translate): Use it.
Diffstat (limited to 'lisp/xt-mouse.el')
| -rw-r--r-- | lisp/xt-mouse.el | 4 |
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) |