Mercurial > emacs
comparison lisp/progmodes/gud.el @ 80511:e85df11c51e4
(gud-tooltip-tips): Use tooltip-event-buffer
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 12 Apr 2008 13:14:56 +0000 |
| parents | 77d3ee77571c |
| children | ca9efc5939fc |
comparison
equal
deleted
inserted
replaced
| 80510:f3ac5401fa8e | 80511:e85df11c51e4 |
|---|---|
| 3399 (let ((expr (tooltip-expr-to-print event))) | 3399 (let ((expr (tooltip-expr-to-print event))) |
| 3400 (when expr | 3400 (when expr |
| 3401 (if (and (eq gud-minor-mode 'gdba) | 3401 (if (and (eq gud-minor-mode 'gdba) |
| 3402 (not gdb-active-process)) | 3402 (not gdb-active-process)) |
| 3403 (progn | 3403 (progn |
| 3404 (with-current-buffer | 3404 (with-current-buffer (tooltip-event-buffer event) |
| 3405 (window-buffer (let ((mouse (mouse-position))) | |
| 3406 (window-at (cadr mouse) | |
| 3407 (cddr mouse)))) | |
| 3408 (let ((define-elt (assoc expr gdb-define-alist))) | 3405 (let ((define-elt (assoc expr gdb-define-alist))) |
| 3409 (unless (null define-elt) | 3406 (unless (null define-elt) |
| 3410 (tooltip-show | 3407 (tooltip-show |
| 3411 (cdr define-elt) | 3408 (cdr define-elt) |
| 3412 (or gud-tooltip-echo-area tooltip-use-echo-area)) | 3409 (or gud-tooltip-echo-area tooltip-use-echo-area)) |