Mercurial > emacs
changeset 15127:654bc3990b4d
(gud-display-line): Switch to gud buffer before calling gud-find-file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 May 1996 21:20:55 +0000 |
| parents | f9d06e4e877c |
| children | a5faedec59f1 |
| files | lisp/gud.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gud.el Thu May 02 06:08:40 1996 +0000 +++ b/lisp/gud.el Thu May 02 21:20:55 1996 +0000 @@ -1318,7 +1318,11 @@ (defun gud-display-line (true-file line) (let* ((last-nonmenu-event t) ; Prevent use of dialog box for questions. - (buffer (gud-find-file true-file)) + (buffer + (save-excursion + (or (eq (current-buffer) gud-comint-buffer) + (set-buffer gud-comint-buffer)) + (gud-find-file true-file))) (window (display-buffer buffer)) (pos)) ;;; (if (equal buffer (current-buffer))