allow setting of emacsclient

diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index 1d9f72f8c35eea4540b465963c6edf1a19202f13..eae6a3077b0b651890359958795d060a9e5170a0 100644 (file)
--- a/basis/editors/emacs/emacs.factor
+++ b/basis/editors/emacs/emacs.factor
@@ -4,12 +4,14 @@ IN: editors.emacs
 
 : emacsclient ( file line -- )
     [
-        "emacsclient" ,
+        \ emacsclient get ,
         "--no-wait" ,
         "+" swap number>string append ,
         ,
     ] { } make try-process ;
 
+\ emacsclient "emacsclient" set-global
+
 : emacs ( word -- )
     where first2 emacsclient ;