diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-03-21 22:16:22 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-03-21 22:16:22 +0000 |
| commit | e07aa7db90330dd60b179ca4bd69708f57a1b063 (patch) | |
| tree | bab2b9683bfd5fd1f90f250c12d38c771a57d8e6 /lisp/tooltip.el | |
| parent | f0ebf1ebe769079f2817fcd7a4d435d05c6d73db (diff) | |
| download | emacs-e07aa7db90330dd60b179ca4bd69708f57a1b063.tar.gz | |
(tooltip-show-help-function): Check car and cdr of
mouse position.
Diffstat (limited to 'lisp/tooltip.el')
| -rw-r--r-- | lisp/tooltip.el | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |