Mercurial > emacs
comparison lisp/progmodes/gud.el @ 69181:c4332666a388
(gud-display-line): Use gdb-display-source-buffer
for gdb-ui/gdb-mi (old concept).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 27 Feb 2006 09:15:58 +0000 |
| parents | 5f11fee2087b |
| children | 4ec5a067baf3 |
comparison
equal
deleted
inserted
replaced
| 69180:9c5c44399069 | 69181:c4332666a388 |
|---|---|
| 2751 (let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. | 2751 (let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. |
| 2752 (buffer | 2752 (buffer |
| 2753 (with-current-buffer gud-comint-buffer | 2753 (with-current-buffer gud-comint-buffer |
| 2754 (gud-find-file true-file))) | 2754 (gud-find-file true-file))) |
| 2755 (window (and buffer (or (get-buffer-window buffer) | 2755 (window (and buffer (or (get-buffer-window buffer) |
| 2756 (display-buffer buffer)))) | 2756 (if (memq gud-minor-mode '(gdbmi gdba)) |
| 2757 (gdb-display-source-buffer buffer)) | |
| 2758 (display-buffer buffer)))) | |
| 2757 (pos)) | 2759 (pos)) |
| 2758 (message "%s %s" (current-buffer) buffer) | |
| 2759 (if buffer | 2760 (if buffer |
| 2760 (progn | 2761 (progn |
| 2761 (with-current-buffer buffer | 2762 (with-current-buffer buffer |
| 2762 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer) | 2763 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer) |
| 2763 (if (yes-or-no-p | 2764 (if (yes-or-no-p |