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

if buffer already has a window.

diff --git a/lisp/gud.el b/lisp/gud.el
index 8d7fc1f95a586495a240479e7c85a6613e3ed8d4..685927b21fa80b277f33c4240094e4b3992ee67e 100644 (file)
--- 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