(xterm-mouse-event-read): New function.

(xterm-mouse-event): Use it to get xterm sequences above #x7f.
Suggested by Aman Bhargava <emacs-bug@amanb.net>.

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index 08e1d39a430c92415d6d68a3f239080800af946d..9fad35fb850c8cddebf1d18c6347d155aa773c6a 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -112,11 +112,18 @@
   (setcdr pos (cons xterm-mouse-x xterm-mouse-y))
   pos)
 
+;; read xterm sequences above ascii 127 (#x7f)
+(defun xterm-mouse-event-read ()
+  (let ((c (read-char)))
+    (if (< c 0)
+        (+ c #x8000000 128)
+      c)))
+
 (defun xterm-mouse-event ()
   "Convert XTerm mouse event to Emacs mouse event."
-  (let* ((type (- (read-char) #o40))
-        (x (- (read-char) #o40 1))
-        (y (- (read-char) #o40 1))
+  (let* ((type (- (xterm-mouse-event-read) #o40))
+        (x (- (xterm-mouse-event-read) #o40 1))
+        (y (- (xterm-mouse-event-read) #o40 1))
         (point (cons x y))
         (window (window-at x y))
         (where (if window