Mercurial > emacs
comparison lisp/progmodes/gud.el @ 94477:c5e171cb3acf
(gud-speedbar-buttons): Raise frame in gdb-speedbar-timer-fn.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Tue, 29 Apr 2008 11:03:40 +0000 |
| parents | 24da79778167 |
| children | 52b7a8c22af5 |
comparison
equal
deleted
inserted
replaced
| 94476:3fd45a6262cb | 94477:c5e171cb3acf |
|---|---|
| 505 (p (window-point window))) | 505 (p (window-point window))) |
| 506 (cond | 506 (cond |
| 507 ((memq minor-mode '(gdbmi gdba)) | 507 ((memq minor-mode '(gdbmi gdba)) |
| 508 (erase-buffer) | 508 (erase-buffer) |
| 509 (insert "Watch Expressions:\n") | 509 (insert "Watch Expressions:\n") |
| 510 (if gdb-speedbar-auto-raise | |
| 511 (raise-frame speedbar-frame)) | |
| 512 (let ((var-list gdb-var-list) parent) | 510 (let ((var-list gdb-var-list) parent) |
| 513 (while var-list | 511 (while var-list |
| 514 (let* (char (depth 0) (start 0) (var (car var-list)) | 512 (let* (char (depth 0) (start 0) (var (car var-list)) |
| 515 (varnum (car var)) (expr (nth 1 var)) | 513 (varnum (car var)) (expr (nth 1 var)) |
| 516 (type (if (nth 3 var) (nth 3 var) " ")) | 514 (type (if (nth 3 var) (nth 3 var) " ")) |