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

minor factor.el fix

darcs
wayo.cavazos 2006-09-07 08:38:06 +00:00
parent b415dc6541
commit c8fccb6d7d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/factor.el
View File

@ -108,7 +108,7 @@
(defun factor-server () (defun factor-server ()
(interactive) (interactive)
(make-comint "factor-server" factor-binary nil factor-image "-shell=tty") (make-comint "factor-server" factor-binary nil factor-image "-shell=tty")
(comint-send-string "*factor-server*" "USE: jedit telnet\n")) (comint-send-string "*factor-server*" "USE: shells telnet\n"))
;; (defun factor-listener () ;; (defun factor-listener ()
;; (interactive) ;; (interactive)
@ -136,8 +136,8 @@
(make-comint-in-buffer (make-comint-in-buffer
"factor-listener" (current-buffer) '("localhost" . 9999))) "factor-listener" (current-buffer) '("localhost" . 9999)))
(defun load-factor-file (file-name) (defun factor-run-file (file-name)
(interactive "fLoad Factor file: ") (interactive "fRun Factor file: ")
(comint-send-string nil (format "\"%s\" run-file\n" file-name))) (comint-send-string nil (format "\"%s\" run-file\n" file-name)))
(defun factor-update-stack-buffer (&optional string) (defun factor-update-stack-buffer (&optional string)