| # | Line 10 | Line 10 | proc beep {} { # ring the bell | |
|---|---|---|
| 10 | proc view_txt fn { # view a text file | |
| 11 | global env | |
| 12 | if [info exists env(EDITOR)] { | |
| 13 | < | eval exec xterm -e $env(EDITOR) $fn |
| 13 | > | if {[lsearch -exact {vi vedit view ex edit ed red} \ |
| 14 | > | [file tail [lindex $env(EDITOR) 0]]] >= 0} { |
| 15 | > | eval exec xterm +sb -e $env(EDITOR) $fn |
| 16 | > | } else { |
| 17 | > | eval exec $env(EDITOR) $fn |
| 18 | > | } |
| 19 | } else { | |
| 20 | foreach f $fn { | |
| 21 | exec xedit $f | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |