/[emacs]/emacs/lisp/xt-mouse.el
ViewVC logotype

Diff of /emacs/lisp/xt-mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by gerd, Wed Jul 25 17:41:21 2001 UTC revision 1.14.4.1 by pot, Mon Apr 7 14:05:11 2003 UTC
# Line 113  Line 113 
113    (setcdr pos (cons xterm-mouse-x xterm-mouse-y))    (setcdr pos (cons xterm-mouse-x xterm-mouse-y))
114    pos)    pos)
115    
116    ;; read xterm sequences above ascii 127 (#x7f)
117    (defun xterm-mouse-event-read ()
118      (let ((c (read-char)))
119        (if (< c 0)
120            (+ c #x8000000 128)
121          c)))
122    
123  (defun xterm-mouse-event ()  (defun xterm-mouse-event ()
124    "Convert XTerm mouse event to Emacs mouse event."    "Convert XTerm mouse event to Emacs mouse event."
125    (let* ((type (- (read-char) #o40))    (let* ((type (- (xterm-mouse-event-read) #o40))
126           (x (- (read-char) #o40 1))           (x (- (xterm-mouse-event-read) #o40 1))
127           (y (- (read-char) #o40 1))           (y (- (xterm-mouse-event-read) #o40 1))
128           (point (cons x y))           (point (cons x y))
129           (window (window-at x y))           (window (window-at x y))
130           (where (if window           (where (if window

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26