# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1203395450 0
# Node ID d758efc0f23fba5d79ed37b064d2781b3715420b
# Parent  d3395bc69ea80c83aa4117124d0e0ce1e975eda7
(gdb-output-sink): Define with an invalid value.
(gdb): Initialize it here instead.

diff -r d3395bc69ea8 -r d758efc0f23f lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Feb 19 04:03:01 2008 +0000
+++ b/lisp/ChangeLog	Tue Feb 19 04:30:50 2008 +0000
@@ -1,5 +1,8 @@
 2008-02-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* progmodes/gdb-ui.el (gdb-output-sink): Define with an invalid value.
+	(gdb): Initialize it here instead.
+
 	* files.el (locate-dominating-file): Fix thinko in last change.
 	Reported by Bruce Stephens <bruce.stephens@isode.com>.
 
diff -r d3395bc69ea8 -r d758efc0f23f lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Tue Feb 19 04:03:01 2008 +0000
+++ b/lisp/progmodes/gdb-ui.el	Tue Feb 19 04:30:50 2008 +0000
@@ -150,7 +150,7 @@
 (defvar gdb-prompting nil
   "True when gdb is idle with no pending input.")
 
-(defvar gdb-output-sink 'user
+(defvar gdb-output-sink nil
   "The disposition of the output of the current gdb command.
 Possible values are these symbols:
 
@@ -317,6 +317,7 @@
   (local-set-key "\C-i" 'gud-gdb-complete-command)
   (setq comint-prompt-regexp "^(.*gdb[+]?) *")
   (setq paragraph-start comint-prompt-regexp)
+  (setq gdb-output-sink 'user)
   (setq gdb-first-prompt t)
   (setq gud-running nil)
   (setq gdb-ready nil)