Re: Patch for xt-mouse beyond column 94

[Aman Bhargava <emacs-bug@amanb.net>]

Sorry, the previously posted patch contained a typo. The corrected patch
follows:

*** xt-mouse.el.original        Tue Apr  1 13:35:58 2003
--- xt-mouse.el Tue Apr  1 15:43:00 2003
***************
*** 115,123 ****

  (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))
         (point (cons x y))
         (window (window-at x y))
         (where (if window
--- 115,131 ----

  (defun xterm-mouse-event ()
    "Convert XTerm mouse event to Emacs mouse event."
!
!   ;; read-char messes up xterm sequences above ascii 127 (ox7f)
!   (defun read-8bit-char ()
!     (let ((c (read-char)))
!       (if (< c 0)
!         (+ c #x8000000 128)
!       c)))
!
!   (let* ((type (- (read-8bit-char) #o40))
!        (x (- (read-8bit-char) #o40 1))
!        (y (- (read-8bit-char) #o40 1))
         (point (cons x y))
         (window (window-at x y))
         (where (if window