Eskil

Check-in [5b26ac0815]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Better emacs detection on WIndows.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5b26ac08151960d7c0df90d3594651d48c7cb1f7
User & Date: peter 2012-02-29 23:41:38.034
Context
2012-06-11
22:40
Added -nocdiff command line flag for debug. check-in: bbf1b82952 user: peter tags: trunk
2012-02-29
23:41
Better emacs detection on WIndows. check-in: 5b26ac0815 user: peter tags: trunk
2012-02-28
22:56
Removed debug print. check-in: ed6f0f6f90 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to eskil.vfs/lib/pstools/pstools.tcl.
︙︙
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
            }
        }
︙︙