Mercurial > emacs

diff lisp/xt-mouse.el @ 109471:1135ec86232d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 19 Jul 2010 22:55:12 +0000
parents a6e068e858a4
children 376148b31b5e
line wrap: on
line diff
--- a/lisp/xt-mouse.el	Thu Jul 15 22:44:54 2010 +0000
+++ b/lisp/xt-mouse.el	Mon Jul 19 22:55:12 2010 +0000
@@ -122,8 +122,8 @@
 ;; read xterm sequences above ascii 127 (#x7f)
 (defun xterm-mouse-event-read ()
   (let ((c (read-char)))
-    (if (< c 0)
-        (+ c #x8000000 128)
+    (if (> c #x3FFF80)
+        (+ 128 (- c #x3FFF80))
       c)))
 
 (defun xterm-mouse-truncate-wrap (f)