From 6bd7d9fad81197f4ba10168f03fe09a1a9cd3b1f Mon Sep 17 00:00:00 2001
From: Stu Grossman <grossman@cygnus>
Date: Tue, 24 Jan 1995 01:23:18 +0000
Subject: [PATCH] 	* gdbtk.tcl:  Take .gdbtkinit if it exists.  Makes
 gdbtk match the 	doc!

---
 gdb/ChangeLog | 5 +++++
 gdb/gdbtk.tcl | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a6730c07f0b..f597b646997 100644
--- 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 74bd7e957ff..2a16424c48d 100644
--- 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
-- 
2.30.2