steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

search for emacs.exe on windows by default

db4
Doug Coleman 2009-04-20 19:11:07 -05:00
parent bf0b1e63c8
commit 3af8f7fba1
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/editors/emacs/emacs.factor
View File

@ -11,7 +11,10 @@ M: object default-emacsclient ( -- path ) "emacsclient" ;
: emacsclient ( file line -- ) : emacsclient ( file line -- )
[ [
{ [ emacsclient-path get ] [ default-emacsclient ] } 0|| , {
[ emacsclient-path get-global ]
[ default-emacsclient dup emacsclient-path set-global ]
} 0|| ,
"--no-wait" , "--no-wait" ,
number>string "+" prepend , number>string "+" prepend ,
, ,

2
basis/editors/emacs/windows/windows.factor
View File

@ -8,5 +8,5 @@ M: windows default-emacsclient
{ {
[ "Emacs" [ "emacsclientw.exe" tail? ] find-in-program-files ] [ "Emacs" [ "emacsclientw.exe" tail? ] find-in-program-files ]
[ "Emacs" [ "emacsclient.exe" tail? ] find-in-program-files ] [ "Emacs" [ "emacsclient.exe" tail? ] find-in-program-files ]
[ "emacsclient.exe" ] [ "emacs.exe" ]
} 0|| ; } 0|| ;