[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Fix slime-quit-lisp in non-default REPL buffer.
Patch from Richard M Kreuter.

* slime.el (slime-quit-lisp): Killing the REPL buffer also removes
the buffer local binding of slime-buffer-connection.  Remember the
connection before killing the buffer.

--- /project/slime/cvsroot/slime/ChangeLog	2008/07/26 23:05:59	1.1375
+++ /project/slime/cvsroot/slime/ChangeLog	2008/07/29 11:03:20	1.1376
@@ -1,3 +1,11 @@
+2008-07-29  Richard M Kreuter <kreuter at progn.net>
+
+	Fix slime-quit-lisp in non-default REPL buffer.
+
+	* slime.el (slime-quit-lisp): Killing the REPL buffer also removes
+	the buffer local binding of slime-buffer-connection.  Remember the
+	connection before killing the buffer.
+
 2008-07-27  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank.lisp (swank-compiler): Fix bug when invoking an abort
--- /project/slime/cvsroot/slime/slime.el	2008/07/23 14:17:32	1.950
+++ /project/slime/cvsroot/slime/slime.el	2008/07/29 11:03:20	1.951
@@ -6419,9 +6419,10 @@
   "Quit lisp, kill the inferior process and associated buffers."
   (interactive)
   (slime-eval-async '(swank:quit-lisp))
-  (kill-buffer (slime-output-buffer))
-  (set-process-filter (slime-connection) nil)
-  (set-process-sentinel (slime-connection) 'slime-quit-sentinel))
+  (let ((connection (slime-connection)))
+    (kill-buffer (slime-output-buffer))
+    (set-process-filter connection  nil)
+    (set-process-sentinel connection 'slime-quit-sentinel)))
 
 (defun slime-quit-sentinel (process message)
   (assert (process-status process) 'closed)