(gud-display-line): Don't call display-buffer

if buffer already has a window.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/gud.el b/lisp/gud.el
index 8d7fc1f95a5..685927b21fa 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1,4 +1,4 @@
-;;; gud.el --- Grand Unified Debugger mode for gdb, sdb, dbx, or xdb under Emacs
+;;; gud.el --- Grand Unified Debugger mode for gdb, dbx, etc. under Emacs
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: FSF
@@ -1355,7 +1355,8 @@ Obeying it means displaying in another window the specified file and line."
             (or (eq (current-buffer) gud-comint-buffer)
                 (set-buffer gud-comint-buffer))
             (gud-find-file true-file)))
-         (window (and buffer (display-buffer buffer)))
+         (window (and buffer (or (get-buffer-window buffer)
+                                 (display-buffer buffer))))
          (pos))
     (if buffer
         (progn