editors.emacs: add an emacsclient-args on request.

diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index f2d2240cf7e3127192f39f7e20493f12712abada..a8e6d23ecf33d366cc2dd13f015f9e01375f8bca 100644 (file)
--- a/basis/editors/emacs/emacs.factor
+++ b/basis/editors/emacs/emacs.factor
@@ -6,6 +6,7 @@ SINGLETON: emacsclient
 emacsclient editor-class set-global
 
 SYMBOL: emacsclient-path
+SYMBOL: emacsclient-args
 
 HOOK: find-emacsclient os ( -- path )
 
@@ -22,6 +23,7 @@ M: windows find-emacsclient
 M: emacsclient editor-command ( file line -- command )
     [
         emacsclient-path get [ find-emacsclient ] unless* ,
+        emacsclient-args get %
         "-a=emacs" ,
         "--no-wait" ,
         number>string "+" prepend ,