[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	slime.el 
Log Message:
* slime.el (slime-with-xref-buffer): Use buffer-names like
"*slime xref...*" so that slime-kill-all-buffers can pick
it up easily.

--- /project/slime/cvsroot/slime/slime.el	2009/03/07 21:12:33	1.1146
+++ /project/slime/cvsroot/slime/slime.el	2009/03/09 11:55:21	1.1147
@@ -1,4 +1,3 @@
-
 ;;; slime.el --- Superior Lisp Interaction Mode for Emacs
 ;;
 ;;;; License
@@ -4704,10 +4703,12 @@
 
 ;;;;; XREF results buffer and window management
 
-(defmacro* slime-with-xref-buffer ((xref-type symbol &optional package emacs-snapshot)  
+(defmacro* slime-with-xref-buffer ((xref-type symbol &optional package 
+                                              emacs-snapshot)
                                    &body body)
   "Execute BODY in a xref buffer, then show that buffer."
-  `(let ((xref-buffer-name% (format "*XREF[%s: %s]*" ,xref-type ,symbol)))
+  `(let ((xref-buffer-name% (format "*slime xref[%s: %s]*" 
+                                    ,xref-type ,symbol)))
      (slime-with-popup-buffer (xref-buffer-name% ,package t t ,emacs-snapshot)
        (slime-xref-mode)
        (slime-set-truncate-lines)