(tooltip-show-help-function): Check car and cdr of

mouse position.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index e4cab1beba1543e648045a62f0e9f458d5db92b3..05ba204511a7526739dff211b226be35314c7c5d 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -454,7 +454,7 @@ This function must return nil if it doesn't handle EVENT."
                    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 @@ MSG is either a help string to display, or nil to cancel the display."
               (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))