# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1250169731 0
# Node ID fdb28981838bed9621c6bdaef5ae7f021080d779
# Parent  985e25a22139075f9f70df04b69eb0e81accbe36
(gdb-inferior-io-mode): Use start-process to
create buffer with a pty but no process so that GDB can make the
inferior the controlling process.

diff -r 985e25a22139 -r fdb28981838b lisp/progmodes/gdb-mi.el
--- a/lisp/progmodes/gdb-mi.el	Thu Aug 13 13:21:46 2009 +0000
+++ b/lisp/progmodes/gdb-mi.el	Thu Aug 13 13:22:11 2009 +0000
@@ -1432,11 +1432,11 @@
 (define-derived-mode gdb-inferior-io-mode comint-mode "Inferior I/O"
   "Major mode for gdb inferior-io."
   :syntax-table nil :abbrev-table nil
-  ;; We want to use comint because it has various nifty and familiar
-  ;; features.  We don't need a process, but comint wants one, so create
-  ;; a dummy one.
-  (make-comint-in-buffer
-   "gdb-inferior" (current-buffer) "sleep" nil "1000000000"))
+  ;; We want to use comint because it has various nifty and familiar features.
+  (start-process "gdb-inferior" 
+;;		 (concat "*input/output of " (gdb-get-target-string) "*")
+		 (current-buffer)
+		 nil))
 
 (defun gdb-inferior-filter (proc string)
   (unless (string-equal string "")