bug#6594: <no subject>

["Langton, Asher" <langton2@llnl.gov>]

I looked at this a little more, and on my systems the value of c jumps to
0x8000000 around the 94th column. I don't know much about the internals of
emacs nor what the valid character values are here, but this works for me
on both Linux and OSX:

;; read xterm sequences above ascii 127 (#x7f)
(defun xterm-mouse-event-read ()
  (let ((c (read-char)))
    (cond ((and (> c #x3FFF80) (< c #x3FFFFF))
           (+ 128 (- c #x3FFF80)))
          ((>= c #x8000000)
           (+ 128 (- c #x8000000)))
          (t c))))





-Asher