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

2017-05-03 18:14:28 -07:00 · 2017-05-03 18:14:28 -07:00 · 0fd663e25d
parent 0f52366466
commit 0fd663e25d
1 changed files with 2 additions and 0 deletions
--- 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 ,