146 |
|
|
147 |
(setq xterm-mouse-x x |
(setq xterm-mouse-x x |
148 |
xterm-mouse-y y) |
xterm-mouse-y y) |
149 |
(if w |
(setq |
150 |
(list mouse (posn-at-x-y (- x left) (- y top) w t)) |
last-input-event |
151 |
(list mouse |
(if w |
152 |
(append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))) |
(list mouse (posn-at-x-y (- x left) (- y top) w t)) |
153 |
|
(list mouse |
154 |
|
(append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))) |
155 |
|
|
156 |
;;;###autoload |
;;;###autoload |
157 |
(define-minor-mode xterm-mouse-mode |
(define-minor-mode xterm-mouse-mode |