[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv31553

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (utf-8-source): XEmacs has no set-buffer-multibyte.
(slime-create-test-results-buffer): Set file-coding-system.

--- /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:10:32	1.2306
+++ /project/slime/cvsroot/slime/ChangeLog	2012/03/26 15:36:50	1.2307
@@ -1,5 +1,8 @@
 2012-03-26  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (utf-8-source): XEmacs has no set-buffer-multibyte.
+	(slime-create-test-results-buffer): Set file-coding-system.
+
 	* swank-lispworks.lisp (swank-compile-string): Don't include the
 	source-string in the dspec::*location*.  As LW has the habbit to
 	print the entire *location* on redefinition the source-string
--- /project/slime/cvsroot/slime/slime.el	2012/03/26 15:10:38	1.1394
+++ /project/slime/cvsroot/slime/slime.el	2012/03/26 15:36:50	1.1395
@@ -7481,6 +7481,7 @@
   (with-current-buffer (get-buffer-create slime-test-buffer-name)
     (erase-buffer)
     (outline-mode)
+    (setq buffer-file-coding-system 'binary)
     (set (make-local-variable 'outline-regexp) "\\*+")
     (slime-set-truncate-lines)))
 
@@ -8009,14 +8010,15 @@
       (let ((filename "/tmp/slime-tmp-file.lisp"))
         (setcar cell nil)
         (add-hook 'slime-compilation-finished-hook hook)
-        (unwind-protect 
+        (unwind-protect
             (with-temp-buffer
-              (set-buffer-multibyte t)
+              (when (fboundp 'set-buffer-multibyte)
+                (set-buffer-multibyte t))
               (setq buffer-file-coding-system 'utf-8-unix)
               (setq buffer-file-name filename)
               (insert ";; -*- coding: utf-8-unix -*- \n")
               (insert input)
-              (save-buffer)
+              (write-region nil nil filename nil t)
               (let ((slime-load-failed-fasl 'always))
                 (slime-compile-and-load-file)
                 (slime-wait-condition "Compilation finished" 
@@ -8025,7 +8027,7 @@
               (slime-test-expect "Compile-file result correct"
                                  output (slime-eval '(cl-user::foo))))
           (remove-hook 'slime-compilation-finished-hook hook)
-          (delete-file filename))))))
+          (ignore-errors (delete-file filename)))))))
 
 (def-slime-test async-eval-debugging (depth)
   "Test recursive debugging of asynchronous evaluation requests."