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

	doc!

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a6730c07f0bae02e3547f8935a45191768cbc67d..f597b6469970925b9481778631a1b53a504004a7 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 74bd7e957ff99fdb996ec30fd15ebdd42eee7fde..2a16424c48d0376c2ed34654ba254a71041cb78f 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