[Emacs-diffs] /srv/bzr/emacs/emacs-23 r99927: * xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127

[Jan D]

------------------------------------------------------------
revno: 99927
committer: Jan D <address@hidden>
branch nick: emacs-23
timestamp: Wed 2010-07-14 19:53:42 +0200
message:
  * xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127
  now that unicode is used (Bug#6594).
modified:
  lisp/ChangeLog
  lisp/xt-mouse.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-14 16:11:39 +0000
+++ b/lisp/ChangeLog    2010-07-14 17:53:42 +0000
@@ -1,3 +1,8 @@
+2010-07-14  Jan Djärv  <address@hidden>
+
+       * xt-mouse.el (xterm-mouse-event-read): Fix for characters > 127
+       now that unicode is used (Bug#6594).
+
 2010-07-14  Chong Yidong  <address@hidden>
 
        * simple.el (push-mark-command): Set the selection if

=== modified file 'lisp/xt-mouse.el'
--- a/lisp/xt-mouse.el  2010-01-13 08:35:10 +0000
+++ b/lisp/xt-mouse.el  2010-07-14 17:53:42 +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)