131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
if {[info exists var]} return
# What is a good value on Mac?
if {$::tcl_platform(platform) == "unix"} {
set var emacs
} else {
set var wordpad
foreach dir [lsort -decreasing -dictionary \
[glob -nocomplain c:/apps/emacs*]] {
set em [file join $dir bin runemacs.exe]
set em [file normalize $em]
if {[file exists $em]} {
set var $em
break
}
}
|
>
>
|
<
|
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
if {[info exists var]} return
# What is a good value on Mac?
if {$::tcl_platform(platform) == "unix"} {
set var emacs
} else {
set var wordpad
set dirs [glob -nocomplain c:/apps/emacs*]
lappend dirs {*}[glob -nocomplain "C:/Program Files/emacs*"]
foreach dir [lsort -decreasing -dictionary $dirs] {
set em [file join $dir bin runemacs.exe]
set em [file normalize $em]
if {[file exists $em]} {
set var $em
break
}
}
|