Merge branch 'master' of git://factorcode.org/git/factor

basis/editors/editpadlite/editpadlite.factor

@@ -6,6 +6,7 @@ IN: editors.editpadlite
 : editpadlite-path ( -- path )
     \ editpadlite-path get-global [
         "JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
+        [ "editpadlite.exe" ] unless*
     ] unless* ;
 
 : editpadlite ( file line -- )

basis/editors/editpadpro/editpadpro.factor

@@ -6,6 +6,7 @@ IN: editors.editpadpro
 : editpadpro-path ( -- path )
     \ editpadpro-path get-global [
         "JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
+        [ "editpadpro.exe" ] unless*
     ] unless* ;
 
 : editpadpro ( file line -- )

basis/editors/editplus/editplus.factor

@@ -6,6 +6,7 @@ IN: editors.editplus
 : editplus-path ( -- path )
     \ editplus-path get-global [
         "EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files
+        [ "editplus.exe" ] unless*
     ] unless* ;
 
 : editplus ( file line -- )

basis/editors/emeditor/emeditor.factor

@@ -6,6 +6,7 @@ IN: editors.emeditor
 : emeditor-path ( -- path )
     \ emeditor-path get-global [
         "EmEditor" t [ "EmEditor.exe" tail? ] find-in-program-files
+        [ "EmEditor.exe" ] unless*
     ] unless* ;
 
 : emeditor ( file line -- )

basis/editors/etexteditor/etexteditor.factor

@@ -7,6 +7,7 @@ IN: editors.etexteditor
 : etexteditor-path ( -- str )
     \ etexteditor-path get-global [
         "e" t [ "e.exe" tail? ] find-in-program-files
+        [ "e" ] unless*
     ] unless* ;
 
 : etexteditor ( file line -- )

basis/editors/gvim/windows/windows.factor

@@ -6,4 +6,5 @@ IN: editors.gvim.windows
 M: windows gvim-path
     \ gvim-path get-global [
         "vim" t [ "gvim.exe" tail? ] find-in-program-files
+        [ "gvim.exe" ] unless*
     ] unless* ;

basis/editors/notepad2/notepad2.factor

@@ -5,6 +5,7 @@ IN: editors.notepad2
 : notepad2-path ( -- path )
     \ notepad2-path get-global [
         windows-directory "system32\\notepad.exe" append-path
+        [ "notepad.exe" ] unless*
     ] unless* ;
 
 : notepad2 ( file line -- )

basis/editors/notepadpp/notepadpp.factor

@@ -5,6 +5,7 @@ IN: editors.notepadpp
 : notepadpp-path ( -- path )
     \ notepadpp-path get-global [
         "notepad++" t [ "notepad++.exe" tail? ] find-in-program-files
+        [ "notepad++.exe" ] unless*
     ] unless* ;
 
 : notepadpp ( file line -- )

basis/editors/scite/scite.factor

@@ -14,6 +14,7 @@ IN: editors.scite
             "SciTE Source Code Editor" t
             [ >lower "scite.exe" tail? ] find-in-program-files
         ] unless*
+        [ "scite.exe" ] unless*
     ] unless* ;
 
 : scite-command ( file line -- cmd )

basis/editors/ted-notepad/ted-notepad.factor

@@ -5,6 +5,7 @@ IN: editors.ted-notepad
 : ted-notepad-path ( -- path )
     \ ted-notepad-path get-global [
         "TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files
+        [ "TedNPad.exe" ] unless*
     ] unless* ;
 
 : ted-notepad ( file line -- )

basis/editors/textpad/textpad.factor

@@ -6,6 +6,7 @@ IN: editors.textpad
 : textpad-path ( -- path )
     \ textpad-path get-global [
         "TextPad 5" t [ "TextPad.exe" tail? ] find-in-program-files
+        [ "TextPad.exe" ] unless*
     ] unless* ;
 
 : textpad ( file line -- )

basis/editors/ultraedit/ultraedit.factor

@@ -5,6 +5,7 @@ IN: editors.ultraedit
 : ultraedit-path ( -- path )
     \ ultraedit-path get-global [
         "IDM Computer Solutions" t [ "uedit32.exe" tail? ] find-in-program-files
+        [ "uedit32.exe" ] unless*
     ] unless* ;
 
 : ultraedit ( file line -- )