[home.git] / .tclshrc

# Get less sucky interactive behavior.
# http://tclreadline.sourceforge.net/
if {$tcl_interactive} {
	package require tclreadline
	namespace eval tclreadline {
		proc prompt1 {} {
			return "\ 1\e\[0;31m\ 2tclsh>\ 1\e\[0m\ 2 "
		}
	}
	namespace import tclreadline::ls
	::tclreadline::Loop
}
Commit	Line	Data
c224d2ef MF	1	# Get less sucky interactive behavior.
	2	# http://tclreadline.sourceforge.net/
	3	if {$tcl_interactive} {
	4	package require tclreadline
	5	namespace eval tclreadline {
	6	proc prompt1 {} {
	7	return "\ 1\e\[0;31m\ 2tclsh>\ 1\e\[0m\ 2 "
	8	}
	9	}
	10	namespace import tclreadline::ls
	11	::tclreadline::Loop
	12	}