From c224d2ef62c0a9781ac9cab0a097cc1a37a07ef7 Mon Sep 17 00:00:00 2001
From: Mike Frysinger <vapier@gentoo.org>
Date: Mon, 9 Nov 2015 22:36:48 -0800
Subject: [PATCH] tclshrc: add

---
 .tclshrc | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 .tclshrc

diff --git a/.tclshrc b/.tclshrc
new file mode 100644
index 0000000..b5cfe8b
--- /dev/null
+++ b/.tclshrc
@@ -0,0 +1,12 @@
+# Get less sucky interactive behavior.
+# http://tclreadline.sourceforge.net/
+if {$tcl_interactive} {
+	package require tclreadline
+	namespace eval tclreadline {
+		proc prompt1 {} {
+			return "
\[0;31mtclsh>
\[0m "
+		}
+	}
+	namespace import tclreadline::ls
+	::tclreadline::Loop
+}
-- 
2.39.2