factor.el: use ~/factor as the default location
parent
fa5b621257
commit
ca484a7002
|
@ -110,8 +110,8 @@
|
||||||
|
|
||||||
(require 'comint)
|
(require 'comint)
|
||||||
|
|
||||||
(defvar factor-binary "/scratch/repos/Factor/factor")
|
(defvar factor-binary "~/factor/factor")
|
||||||
(defvar factor-image "/scratch/repos/Factor/factor.image")
|
(defvar factor-image "~/factor/factor.image")
|
||||||
|
|
||||||
(defun factor-telnet-to-port (port)
|
(defun factor-telnet-to-port (port)
|
||||||
(interactive "nPort: ")
|
(interactive "nPort: ")
|
||||||
|
@ -202,8 +202,8 @@
|
||||||
(defun run-factor ()
|
(defun run-factor ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(switch-to-buffer
|
(switch-to-buffer
|
||||||
(make-comint-in-buffer "factor" nil factor-binary nil
|
(make-comint-in-buffer "factor" nil (expand-file-name factor-binary) nil
|
||||||
(concat "-i=" factor-image)
|
(concat "-i=" (expand-file-name factor-image))
|
||||||
"-run=listener"))
|
"-run=listener"))
|
||||||
(factor-listener-mode))
|
(factor-listener-mode))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue