(gud-tooltip-tips): Use tooltip-event-buffer

This commit is contained in:
Nick Roberts 2008-04-12 13:14:56 +00:00
parent 6c6273c6a5
commit bcb96719b3

View file

@ -3401,10 +3401,7 @@ This function must return nil if it doesn't handle EVENT."
(if (and (eq gud-minor-mode 'gdba)
(not gdb-active-process))
(progn
(with-current-buffer
(window-buffer (let ((mouse (mouse-position)))
(window-at (cadr mouse)
(cddr mouse))))
(with-current-buffer (tooltip-event-buffer event)
(let ((define-elt (assoc expr gdb-define-alist)))
(unless (null define-elt)
(tooltip-show