[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv26575/contrib

Modified Files:
	slime-repl.el ChangeLog 
Log Message:
	* slime-repl.el ([shortcut] quit): Quit the connection before
	killing the REPL buffer; otherwise the default connection is
	selected rather than the connection of the REPL buffer.
	Reported by Stas Boukarev.


--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/23 10:07:14	1.13
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2009/01/27 15:13:52	1.14
@@ -1322,8 +1322,11 @@
 (defslime-repl-shortcut slime-repl-quit ("quit")
   (:handler (lambda ()
 	      (interactive)
-	      (kill-buffer (slime-output-buffer))
-	      (slime-quit-lisp)))
+              ;; `slime-quit-lisp' determines the connection to quit
+              ;; on behalf of the REPL's `slime-buffer-connection'.
+              (let ((repl-buffer (slime-output-buffer)))
+                (slime-quit-lisp)
+                (kill-buffer repl-buffer))))
   (:one-liner "Quit the current Lisp."))
 
 (defslime-repl-shortcut slime-repl-defparameter ("defparameter" "!")
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/23 10:07:14	1.168
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/01/27 15:13:52	1.169
@@ -1,3 +1,10 @@
+2009-01-27  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime-repl.el ([shortcut] quit): Quit the connection before
+	killing the REPL buffer; otherwise the default connection is
+	selected rather than the connection of the REPL buffer.
+	Reported by Stas Boukarev.
+
 2009-01-23  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-repl.el (slime-repl-mode-map): Use the key bindings from