FUEL: Use ".exe" in windows to locate factor binary.

db4
Jose A. Ortega Ruiz 2009-01-15 22:08:44 +01:00
parent 7954a0881f
commit 180f43767a
2 changed files with 3 additions and 2 deletions

View File

@ -81,7 +81,7 @@
(cond ((looking-at "USING: ") 'factor-font-lock-vocabulary-name)
((looking-at "\\(TUPLE\\|SYMBOLS\\|VARS\\): ")
'factor-font-lock-symbol)
(t 'font-lock-warning-face))))
(t 'default))))
(t 'factor-font-lock-comment)))
(defconst fuel-font-lock--font-lock-keywords

View File

@ -68,7 +68,8 @@ buffer."
(setq fuel-listener--buffer (current-buffer)))))
(defun fuel-listener--start-process ()
(let ((factor (expand-file-name fuel-listener-factor-binary))
(let ((factor (locate-file (expand-file-name fuel-listener-factor-binary)
'("") exec-suffixes))
(image (expand-file-name fuel-listener-factor-image))
(comint-redirect-perform-sanity-check nil))
(unless (file-executable-p factor)