mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source 
(xterm-mouse-translate): Use it.
This commit is contained in:
Nick Roberts 2007-05-12 09:39:06 +00:00
parent 06b6baf6f9
commit 315c417c80
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/xt-mouse.el
View File

@ -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)