477 |
(string-match "^mouse-2" msg)) |
(string-match "^mouse-2" msg)) |
478 |
(setq mp (mouse-pixel-position)) |
(setq mp (mouse-pixel-position)) |
479 |
(consp (setq pos (cdr mp))) |
(consp (setq pos (cdr mp))) |
480 |
(car pos) (cdr pos) |
(car pos) (>= (car pos) 0) |
481 |
|
(cdr pos) (>= (cdr pos) 0) |
482 |
(setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
(setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
483 |
(windowp (posn-window pos))) |
(windowp (posn-window pos))) |
484 |
(with-current-buffer (window-buffer (posn-window pos)) |
(with-current-buffer (window-buffer (posn-window pos)) |