From e07aa7db90330dd60b179ca4bd69708f57a1b063 Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Mon, 21 Mar 2005 22:16:22 +0000 Subject: [PATCH] (tooltip-show-help-function): Check car and cdr of mouse position. --- lisp/tooltip.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/tooltip.el b/lisp/tooltip.el index e4cab1beba1..05ba204511a 100644 --- 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)) -- 2.39.2