(gdb-output-sink): Define with an invalid value.

(gdb): Initialize it here instead.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07fa73f582b38c67aebeac15509289b6383a9667..3916891fdac296cee4bca3c1556846998ff44616 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 0d3f364ff395bb83f56c96457202008d10b29ea9..71d850a8b8ca257b290633930a9d3691b54fb157 100644 (file)
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -150,7 +150,7 @@ Emacs can't find.")
 (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 @@ session."
   (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)