From ca484a7002de15578f7b23ec68d525cfb148964e Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 18 Feb 2008 12:52:20 -0600
Subject: [PATCH] factor.el: use ~/factor as the default location

---
 misc/factor.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/misc/factor.el b/misc/factor.el
index 19b7f28e22..7225ef91fd 100644
--- a/misc/factor.el
+++ b/misc/factor.el
@@ -110,8 +110,8 @@
 
 (require 'comint)
 
-(defvar factor-binary "/scratch/repos/Factor/factor")
-(defvar factor-image "/scratch/repos/Factor/factor.image")
+(defvar factor-binary "~/factor/factor")
+(defvar factor-image "~/factor/factor.image")
 
 (defun factor-telnet-to-port (port)
   (interactive "nPort: ")
@@ -202,8 +202,8 @@
 (defun run-factor ()
   (interactive)
   (switch-to-buffer
-   (make-comint-in-buffer "factor" nil factor-binary nil
-			  (concat "-i=" factor-image)
+   (make-comint-in-buffer "factor" nil (expand-file-name factor-binary) nil
+			  (concat "-i=" (expand-file-name factor-image))
 			  "-run=listener"))
   (factor-listener-mode))