[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv18126

Modified Files:
	ChangeLog slime.el 
Log Message:
Save repl-history in /tmp, during testing.
(slime-temp-directory): New function.
(slime-run-tests): Save repl-history in /tmp.
(slime-repl-mode): Ignore persistent history if
slime-repl-history-file is nil.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/11 07:37:49	1.1433
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/11 07:38:04	1.1434
@@ -3,6 +3,10 @@
 	* slime.el (slime-execute-tests): Call slime-test-should-fail-p
 	before executing the test (which may close the connection).
 	(def-slime-test): Use slime-sync-to-top-level with a timeout.
+	(slime-temp-directory): New function.
+	(slime-run-tests): Save repl-history in /tmp.
+	(slime-repl-mode): Ignore persistent history if
+	slime-repl-history-file is nil.
 
 2008-08-10  Helmut Eller  <heller at common-lisp.net>
 
--- /project/slime/cvsroot/slime/slime.el	2008/08/11 07:37:50	1.984
+++ /project/slime/cvsroot/slime/slime.el	2008/08/11 07:38:05	1.985
@@ -1371,12 +1371,14 @@
 
 (defun slime-swank-port-file ()
   "Filename where the SWANK server writes its TCP port number."
-  (concat (file-name-as-directory
-           (cond ((fboundp 'temp-directory) (temp-directory))
-                 ((boundp 'temporary-file-directory) temporary-file-directory)
-                 (t "/tmp/")))
+  (concat (file-name-as-directory (slime-temp-directory))
           (format "slime.%S" (emacs-pid))))
 
+(defun slime-temp-directory ()
+  (cond ((fboundp 'temp-directory) (temp-directory))
+        ((boundp 'temporary-file-directory) temporary-file-directory)
+        (t "/tmp/")))
+
 (defun slime-delete-swank-port-file (&optional quiet)
   (condition-case data
       (delete-file (slime-swank-port-file))
@@ -2840,8 +2842,9 @@
   (setq slime-current-thread :repl-thread)
   (set (make-local-variable 'scroll-conservatively) 20)
   (set (make-local-variable 'scroll-margin) 0)
-  (slime-repl-safe-load-history)
-  (add-local-hook 'kill-buffer-hook 'slime-repl-safe-save-merged-history)
+  (when slime-repl-history-file
+    (slime-repl-safe-load-history)
+    (add-local-hook 'kill-buffer-hook 'slime-repl-safe-save-merged-history))
   (add-hook 'kill-emacs-hook 'slime-repl-save-all-histories)
   (slime-setup-command-hooks)
   ;; At the REPL, we define beginning-of-defun and end-of-defun to be
@@ -8391,7 +8394,9 @@
   (assert (slime-at-top-level-p) () "Pending RPCs or open debuggers.")
   (slime-create-test-results-buffer)
   (unwind-protect
-      (slime-execute-tests)
+      (let ((slime-repl-history-file 
+             (expand-file-name "slime-repl-history" (slime-temp-directory))))
+        (slime-execute-tests))
     (pop-to-buffer slime-test-buffer-name)
     (goto-char (point-min))
     (hide-body)