changeset 91950:d758efc0f23f

(gdb-output-sink): Define with an invalid value. (gdb): Initialize it here instead.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 19 Feb 2008 04:30:50 +0000
parents d3395bc69ea8
children d42fe75822fe
files lisp/ChangeLog lisp/progmodes/gdb-ui.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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>.
 
--- 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)