FUEL: Use ".exe" in windows to locate factor binary.
parent
7954a0881f
commit
180f43767a
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue