From 3af8f7fba128fc6781c45a7053cd5ba203e8aeb9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Mon, 20 Apr 2009 19:11:07 -0500
Subject: [PATCH] search for emacs.exe on windows by default

---
 basis/editors/emacs/emacs.factor           | 5 ++++-
 basis/editors/emacs/windows/windows.factor | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index 366bc53104..31fcaf114e 100644
--- 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 91d6e878e4..0b8efcf3ae 100755
--- 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|| ;