138
139
140
141
142
143
144
145
146
147
148
149
150
151
|
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
+
|
if {[info exists ::env(EDITOR)]} {
lappend candidates $::env(EDITOR)
}
if {$::tcl_platform(platform) == "windows"} {
# Try to locate some common installation points for Emacs
set dirs [glob -nocomplain c:/apps/emacs*]
lappend dirs {*}[glob -nocomplain "C:/Program Files/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]} {
lappend candidates $em
break
}
|