488 |
(setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
(setq pos (posn-at-x-y (car pos) (cdr pos) (car mp))) |
489 |
(windowp (posn-window pos))) |
(windowp (posn-window pos))) |
490 |
(with-current-buffer (window-buffer (posn-window pos)) |
(with-current-buffer (window-buffer (posn-window pos)) |
491 |
(if (mouse-on-link-p (posn-point pos)) |
(if (mouse-on-link-p pos) |
492 |
(setq msg (concat |
(setq msg (concat |
493 |
(cond |
(cond |
494 |
((eq mouse-1-click-follows-link 'double) "double-") |
((eq mouse-1-click-follows-link 'double) "double-") |