chiark / gitweb /
el/dot-emacs.el (mdw-fontify-rust): Fix integer literal syntax.
[profile] / dot / tclshrc
CommitLineData
78719982
MW
1### -*-tcl-*-
2
3if {$tcl_interactive} {
4 if {![catch { package require tclreadline }]} {
5 proc _set_prompt {} {
6 set bold [exec tput bold]
7 set unbold [exec tput sgr0]
8 set interp [file tail [info nameofexecutable]]
9 proc ::tclreadline::prompt1 {} \
10 [list return "$bold$interp%$unbold "]
11 proc ::tclreadline::prompt2 {} \
12 [list return "$bold$interp>$unbold "]
13 }
14 _set_prompt
15 rename _set_prompt {}
16 ::tclreadline::Loop
17 }
18}