comparison lisp/xt-mouse.el @ 50478:4c84e707a287

(xterm-mouse-event-read): New function. (xterm-mouse-event): Use it to get xterm sequences above #x7f. Suggested by Aman Bhargava <[e-mail]>.

50477:bfaa5e73184f

(defun xterm-mouse-position-function (pos)
  "Bound to `mouse-position-function' in XTerm mouse mode."
  (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
		    (coordinates-in-window-p point window)
		  'menu-bar))

50478:4c84e707a287

(defun xterm-mouse-position-function (pos)
  "Bound to `mouse-position-function' in XTerm mouse mode."
  (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
		    (coordinates-in-window-p point window)
		  'menu-bar))