search for emacs.exe on windows by default

diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index 366bc53104efc515b0abfe4e379a210957ef69a6..31fcaf114efa7cf86bc4df57d681dd5e9d2173c7 100644 (file)
--- a/basis/editors/emacs/emacs.factor
+++ b/basis/editors/emacs/emacs.factor
@@ -11,7 +11,10 @@ M: object default-emacsclient ( -- path ) "emacsclient" ;
 
 : emacsclient ( file line -- )
     [
-        { [ emacsclient-path get ] [ default-emacsclient ] } 0|| ,
+        {
+            [ emacsclient-path get-global ]
+            [ default-emacsclient dup emacsclient-path set-global ]
+        } 0|| ,
         "--no-wait" ,
         number>string "+" prepend ,
         ,

diff --git a/basis/editors/emacs/windows/windows.factor b/basis/editors/emacs/windows/windows.factor
index 91d6e878e4958f00dd446b0e81cd2ce876b72694..0b8efcf3aeb9d2d65e604839781951ea54b46b3b 100755 (executable)
--- a/basis/editors/emacs/windows/windows.factor
+++ b/basis/editors/emacs/windows/windows.factor
@@ -8,5 +8,5 @@ M: windows default-emacsclient
     {
         [ "Emacs" [ "emacsclientw.exe" tail? ] find-in-program-files ]
         [ "Emacs" [ "emacsclient.exe" tail? ] find-in-program-files ]
-        [ "emacsclient.exe" ]
+        [ "emacs.exe" ]
     } 0|| ;