[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el (slime-show-description): Put the connection name into
	the buffer name for description buffers. So we can have multiple
	description buffers open, one per connection.

	Useful for comparing the output of DISASSEMBLE across
	implementations.


--- /project/slime/cvsroot/slime/slime.el	2009/04/21 13:01:16	1.1153
+++ /project/slime/cvsroot/slime/slime.el	2009/04/25 08:53:16	1.1154
@@ -4107,9 +4107,12 @@
                                        (slime-current-package))))
 
 (defun slime-show-description (string package)
-  (slime-with-popup-buffer ("*SLIME Description*" package)
-    (princ string)
-    (goto-char (point-min))))
+  ;; So we can have one description buffer open per connection. Useful
+  ;; for comparing the output of DISASSEMBLE across implementations.
+  (let ((bufname (format "*SLIME Description <%s>*" (slime-connection-name))))
+    (slime-with-popup-buffer (bufname package t)
+      (princ string)
+      (goto-char (point-min)))))
 
 (defun slime-last-expression ()
   (buffer-substring-no-properties
--- /project/slime/cvsroot/slime/ChangeLog	2009/04/21 13:01:16	1.1727
+++ /project/slime/cvsroot/slime/ChangeLog	2009/04/25 08:53:16	1.1728
@@ -1,3 +1,12 @@
+2009-04-25  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-show-description): Put the connection name into
+	the buffer name for description buffers. So we can have multiple
+	description buffers open, one per connection.
+
+	Useful for comparing the output of DISASSEMBLE across
+	implementations.
+
 2009-04-21  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-handle-indentation-update): Revert change from