1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/gud.el b/lisp/gud.el
index fac0be43175..b42d9a20011 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1318,7 +1318,11 @@ Obeying it means displaying in another window the specified file and line."
 
 (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))