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

FUEL: Choose adequate factor binary default, depending on system type.

db4
Jose A. Ortega Ruiz 2009-01-16 02:39:59 +01:00
parent 867c1cb63c
commit 40be28cd6f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
misc/fuel/fuel-listener.el
View File

@ -31,7 +31,12 @@
:group 'fuel)
(defcustom fuel-listener-factor-binary
(expand-file-name "factor" fuel-factor-root-dir)
(expand-file-name (cond ((eq system-type 'windows-nt)
"factor.exe")
((eq system-type 'darwin)
"Factor.app/Contents/MacOS/factor")
(t "factor"))
fuel-factor-root-dir)
"Full path to the factor executable to use when starting a listener."
:type '(file :must-match t)
:group 'fuel-listener)
@ -68,8 +73,7 @@ buffer."
(setq fuel-listener--buffer (current-buffer)))))
(defun fuel-listener--start-process ()
(let ((factor (locate-file (expand-file-name fuel-listener-factor-binary)
'("") exec-suffixes))
(let ((factor (expand-file-name fuel-listener-factor-binary))
(image (expand-file-name fuel-listener-factor-image))
(comint-redirect-perform-sanity-check nil))
(unless (file-executable-p factor)