Swap modifiers to previous assignment because I don't want to fix them in
~/.fvwm. Assign keycode to Caps_Lock before aliasing to LCtrl so ~/.xmodmaprc
script can be re-evaluated without errors.
# -*- mode: tcl -*-
if {$tcl_interactive} {
catch {
package require tclreadline
namespace eval tclreadline {
if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {
proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " }
proc prompt2 {} { return "\[0;31m...> \[0m" }
} {
proc prompt1 {} { return "tcl> " }
proc prompt2 {} { return "...> " }
}
}
::tclreadline::Loop
}
}