Eskil

Check-in [4eeb246a35]
Login

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

Overview
Comment:More variants of Emacs detection
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 4eeb246a353b89b7439c168ff46e49818f1c1235281e34decab9695366f9eae3
User & Date: peter 2021-09-23 14:40:59.145
Context
2023-04-26
11:52
Debug function to auto-fill to two windows. check-in: 881c0495ad user: peter tags: trunk
2021-09-23
14:40
More variants of Emacs detection check-in: 4eeb246a35 user: peter tags: trunk
11:43
Allow revision control detect with -browse. check-in: ad5a922deb user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to eskil.vfs/lib/pstools/pstools.tcl.
︙︙
138
139
140
141
142
143
144

145
146
147
148
149
150
151

    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*"]

        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
            }








>








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
            }
︙︙