diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2008-04-12 13:14:56 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2008-04-12 13:14:56 +0000 |
| commit | bcb96719b37029024876fca1f65eab69d32aa6d8 (patch) | |
| tree | 9b90cd11e3cbd775245bba3410d55abbfe61fcc6 | |
| parent | 6c6273c6a54a6b7482636e995b1dec27ce385aad (diff) | |
| download | emacs-bcb96719b37029024876fca1f65eab69d32aa6d8.tar.gz | |
(gud-tooltip-tips): Use tooltip-event-buffer
| -rw-r--r-- | lisp/progmodes/gud.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 655c7496142..3b8c9628c3b 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -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 |