From 7d800b6d20353a3298b7380ef336bc56df9b8fce Mon Sep 17 00:00:00 2001
From: tromey <tromey>
Date: Tue, 28 Nov 2000 16:50:25 +0000
Subject: [PATCH] 	* library/debug.tcl (logfile): Also recognize stderr.

---
 libgui/ChangeLog         | 4 ++++
 libgui/library/debug.tcl | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 425ebbf482..81f667cdc0 100644
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-27  Tom Tromey  <tromey@cygnus.com>
+
+	* library/debug.tcl (logfile): Also recognize stderr.
+
 2000-07-12  Syd Polk  <spolk@redhat.com>
 
 	* library/Makefile.am: Only regenerate tclIndex and pkgIndex.tcl
diff --git a/libgui/library/debug.tcl b/libgui/library/debug.tcl
index 36114eb036..093e64159c 100644
--- a/libgui/library/debug.tcl
+++ b/libgui/library/debug.tcl
@@ -40,13 +40,13 @@ namespace eval ::debug {
 
   proc logfile {file} {
     variable logfile
-    if {$logfile != "" && $logfile != "stdout"} {
+    if {$logfile != "" && $logfile != "stdout" && $logfile != "stderr"} {
       catch {close $logfile}
     }
     
     if {$file == ""} {
       set logfile ""
-    } elseif {$file == "stdout"} {
+    } elseif {$file == "stdout" || $file == "stderr"} {
       set logfile $file
     } else {
       set logfile [open $file w+]
-- 
2.11.0