* gdbtk.tcl: Take .gdbtkinit if it exists. Makes gdbtk match the

	doc!

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a6730c0..f597b64 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jan 23 17:21:09 1995  Stu Grossman  (grossman@cygnus.com)
+
+       * gdbtk.tcl:  Take .gdbtkinit if it exists.  Makes gdbtk match the
+       doc!
+
 Mon Jan 23 13:11:46 1995  Per Bothner  <bothner@kalessin.cygnus.com>
 
        Add support for Chill bitstring literals (e.h. H'FF00').

diff --git a/gdb/gdbtk.tcl b/gdb/gdbtk.tcl
index 74bd7e9..2a16424 100644 (file)
--- a/gdb/gdbtk.tcl
+++ b/gdb/gdbtk.tcl
@@ -2672,4 +2672,8 @@ destroy .t
 pack .c.m
 bind .c.m <Leave> {destroy .c}
 
+if [file exists ~/.gdbtkinit] {
+       source ~/.gdbtkinit
+}
+
 update