/[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.43 by kfstorm, Mon Mar 21 22:16:22 2005 UTC revision 1.44 by kfstorm, Tue Mar 22 21:52:08 2005 UTC
# Line 477  MSG is either a help string to display, Line 477  MSG is either a help string to display,
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))

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

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