Mercurial > emacs

comparison lisp/xt-mouse.el @ 80899:955868b1755c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 44b6d7a1ef55
children ecb305fe2f17 0a3247aa24a4 d7172f202ab8
comparison
equal deleted inserted replaced
80898:453654d283ff 80899:955868b1755c
40 ;;; Todo: 40 ;;; Todo:
41 41
42 ;; Support multi-click -- somehow. 42 ;; Support multi-click -- somehow.
43 43
44 ;;; Code: 44 ;;; Code:
45
46 (defvar xterm-mouse-debug-buffer nil)
45 47
46 (define-key function-key-map "\e[M" 'xterm-mouse-translate) 48 (define-key function-key-map "\e[M" 'xterm-mouse-translate)
47 49
48 (defvar xterm-mouse-last) 50 (defvar xterm-mouse-last)
49 51
93 (if (symbolp down-where) 95 (if (symbolp down-where)
94 0 96 0
95 (list (intern (format "drag-mouse-%d" 97 (list (intern (format "drag-mouse-%d"
96 (+ 1 xterm-mouse-last))) 98 (+ 1 xterm-mouse-last)))
97 down-data click-data))))) 99 down-data click-data)))))
100 (if xterm-mouse-debug-buffer
101 (print unread-command-events xterm-mouse-debug-buffer))
98 (if (and (symbolp down-where) 102 (if (and (symbolp down-where)
99 (consp down-where)) 103 (consp down-where))
100 (vector (list down-where down-data) down) 104 (vector (list down-where down-data) down)
101 (vector down)))))))) 105 (vector down))))))))
102 106