/[emacs]/emacs/lisp/tooltip.el
ViewVC logotype

Diff of /emacs/lisp/tooltip.el

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

revision 1.39 by kfstorm, Fri Dec 17 15:16:33 2004 UTC revision 1.40 by kfstorm, Tue Feb 22 09:42:23 2005 UTC
# Line 488  MSG is either a help string to display, Line 488  MSG is either a help string to display,
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-")

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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