[Emacs-diffs] Changes to emacs/lisp/xt-mouse.el

[Francesco Potortì]

Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.18 emacs/lisp/xt-mouse.el:1.19
*** emacs/lisp/xt-mouse.el:1.18 Tue Feb  4 07:16:18 2003
--- emacs/lisp/xt-mouse.el      Mon Apr  7 10:04:51 2003
***************
*** 112,122 ****
    (setcdr pos (cons xterm-mouse-x xterm-mouse-y))
    pos)
  
  (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
--- 112,129 ----
    (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 (- (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