# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831072055 0
# Node ID 654bc3990b4d7d9bc518c281c7a3ab3a54f201b2
# Parent  f9d06e4e877cda57cb604ad7aebc222c6eed74ae
(gud-display-line): Switch to gud buffer before calling gud-find-file.

diff -r f9d06e4e877c -r 654bc3990b4d lisp/gud.el
--- 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))