Mercurial > emacs
changeset 60808:9afb7c1de631
(tooltip-show-help-function): Check car and cdr of
mouse position.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Mon, 21 Mar 2005 22:16:22 +0000 |
| parents | d157045932cd |
| children | c8e49e96413b |
| files | lisp/tooltip.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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))