[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Prevent typeout messages to be scribbled into random buffers.
Patch from Michael Weber.

* slime-typeout-frame.el (slime-typeout-message-aux): prevent
typeout messages from scribbling into any buffer which happens to
be in the typeout window
(slime-typeout-buffer): new function; changed buffer name to
"*SLIME Typeout*"
(slime-make-typeout-frame): use it
(slime-ensure-typeout-frame): ensure typeout buffer is visible

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/05 17:38:59	1.1395
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/05 18:19:33	1.1396
@@ -1,5 +1,8 @@
 2008-08-05  Helmut Eller  <heller at common-lisp.net>
 
+	* slime.el (slime-with-output-to-temp-buffer): Make sure that we
+	don't make the wrong buffer read-only.
+
 	* swank-lispworks.lisp (make-stream-interactive): Run our own
 	thread to periodically flush streams instead of relying on
 	soft-force-output.
--- /project/slime/cvsroot/slime/slime.el	2008/08/04 20:25:45	1.959
+++ /project/slime/cvsroot/slime/slime.el	2008/08/05 18:19:34	1.960
@@ -928,14 +928,13 @@
 If REUSEP is t, an already existing buffer won't be killed."
   `(let ((standard-output
 	  (slime-temp-buffer ,name #',mode ,reusep ,emacs-snapshot))
-	 (connection% ,(if (eq connection t)
-				'(slime-connection)
-			      connection))
+	 (connection% ,(if (eq connection t) '(slime-connection) connection))
 	 (package% ,package))
      (with-current-buffer standard-output
        (setq slime-buffer-package package%)
        ,@(if connection '((setq slime-buffer-connection connection%)))
        , at body
+       (assert (eq (current-buffer) standard-output))
        ,@(if read-only '((setq buffer-read-only t))))))
 
 (put 'slime-with-output-to-temp-buffer 'lisp-indent-function 2)
@@ -9134,7 +9133,8 @@
                                           (return-from outta 42))))
                                  (dotimes (i ,times) 
                                    (break)
-                                   (sleep 0.2)))))))))
+                                   (sleep 0.2))))))
+           )))
     (dolist (test tests)
       (let ((name       (car test))
             (definition (cdr test)))