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

[Miles Bader]

Index: emacs/lisp/xt-mouse.el
diff -c emacs/lisp/xt-mouse.el:1.16.2.1 emacs/lisp/xt-mouse.el:1.16.2.2
*** emacs/lisp/xt-mouse.el:1.16.2.1     Fri Apr  4 01:20:13 2003
--- emacs/lisp/xt-mouse.el      Tue Oct 14 19:51:30 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
***************
*** 191,194 ****
--- 198,202 ----
  
  (provide 'xt-mouse)
  
+ ;;; arch-tag: 84962d4e-fae9-4c13-a9d7-ef4925a4ac03
  ;;; xt-mouse.el ends here