[Emacs-diffs] /srv/bzr/emacs/trunk r108027: Force interactive-mode in GDB on MS-Windows.

[Eli Zaretskii]

------------------------------------------------------------
revno: 108027
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Wed 2012-04-25 11:07:57 +0300
message:
  Force interactive-mode in GDB on MS-Windows.
  
   lisp/progmodes/gdb-mi.el (gdb-init-1): Condition Windows-specific
   settings on 'system-type', not on 'window-system'.  On MS-Windows,
   set interactive-mode on in GDB.
modified:
  lisp/ChangeLog
  lisp/progmodes/gdb-mi.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-24 21:47:24 +0000
+++ b/lisp/ChangeLog    2012-04-25 08:07:57 +0000
@@ -1,3 +1,9 @@
+2012-04-25  Eli Zaretskii  <address@hidden>
+
+       * progmodes/gdb-mi.el (gdb-init-1): Condition Windows-specific
+       settings on 'system-type', not on 'window-system'.  On MS-Windows,
+       set interactive-mode on in GDB.
+
 2012-04-24  Stefan Monnier  <address@hidden>
 
        * progmodes/ruby-mode.el: Simplify last change, and cleanup code.

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2012-04-20 08:48:50 +0000
+++ b/lisp/progmodes/gdb-mi.el  2012-04-25 08:07:57 +0000
@@ -862,8 +862,13 @@
   (gdb-clear-inferior-io)
   (gdb-inferior-io--init-proc (get-process "gdb-inferior"))
 
-  (if (eq window-system 'w32)
-      (gdb-input "-gdb-set new-console off" 'ignore))
+  (when (eq system-type 'windows-nt)
+    ;; Don't create a separate console window for the debuggee.
+    (gdb-input "-gdb-set new-console off" 'ignore)
+    ;; Force GDB to behave as if its input and output stream were
+    ;; connected to a TTY device (since on Windows we use pipes for
+    ;; communicating with GDB).
+    (gdb-input "-gdb-set interactive-mode on" 'ignore))
   (gdb-input "-gdb-set height 0" 'ignore)
 
   (when gdb-non-stop