# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1111443382 0
# Node ID 9afb7c1de6314dcd0e06b9973ac70eb30d6d8788
# Parent  d157045932cd4d47e7e217634f56e512f5e0854a
(tooltip-show-help-function): Check car and cdr of
mouse position.

diff -r d157045932cd -r 9afb7c1de631 lisp/tooltip.el
--- a/lisp/tooltip.el	Mon Mar 21 22:15:54 2005 +0000
+++ b/lisp/tooltip.el	Mon Mar 21 22:16:22 2005 +0000
@@ -454,7 +454,7 @@
 		    expr)))))))
 
 (defun gdb-tooltip-print ()
-  (tooltip-show 
+  (tooltip-show
    (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)
      (let ((string (buffer-string)))
        ;; remove newline for tooltip-use-echo-area
@@ -477,6 +477,7 @@
 	       (string-match "^mouse-2" msg))
 	     (setq mp (mouse-pixel-position))
 	     (consp (setq pos (cdr mp)))
+	     (car pos) (cdr pos)
 	     (setq pos (posn-at-x-y (car pos) (cdr pos) (car mp)))
 	     (windowp (posn-window pos)))
 	(with-current-buffer (window-buffer (posn-window pos))