Mercurial > emacs
changeset 80899:955868b1755c
(xterm-mouse-debug-buffer): New variable.
(xterm-mouse-translate): Use it.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 12 May 2007 09:39:06 +0000 |
| parents | 453654d283ff |
| children | a78617188196 |
| files | lisp/xt-mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/xt-mouse.el Sat May 12 09:38:20 2007 +0000 +++ b/lisp/xt-mouse.el Sat May 12 09:39:06 2007 +0000 @@ -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)