bug#17675: 24.4.50; *gud* buffer keeps on getting buried

[Michael Welsh Duggan <mwd@md5i.com>]

[-- Attachment #1: Type: text/plain, Size: 77 bytes --]

And one more time, this time incorporating your suggestion more
completely.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 863 bytes --]

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 24d5469..71dc574 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2603,7 +2603,12 @@ comint mode, which see."
 		      file-subst)))
 	 (filepart (and file-word (concat "-" (file-name-nondirectory file))))
 	 (existing-buffer (get-buffer (concat "*gud" filepart "*"))))
-    (switch-to-buffer (concat "*gud" filepart "*"))
+    (select-window
+      (display-buffer
+       (get-buffer-create (concat "*gud" filepart "*"))
+       '(display-buffer-reuse-window 
+         display-buffer-in-previous-window
+         display-buffer-same-window display-buffer-pop-up-window)))
     (when (and existing-buffer (get-buffer-process existing-buffer))
       (error "This program is already being debugged"))
     ;; Set the dir, in case the buffer already existed with a different dir.

[-- Attachment #3: Type: text/plain, Size: 42 bytes --]


-- 
Michael Welsh Duggan
(md5i@md5i.com)