[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-clipboard.el slime-compiler-notes-tree.el 
	slime-sprof.el 
Log Message:
* slime-sprof.el (slime-sprof-browser): Use slime-with-popup-buffer for
buffer creation.

* slime.el: Some further adaptations to the new slime-with-popup-buffer.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/04/03 17:00:04	1.364
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/04/05 10:53:02	1.365
@@ -1,3 +1,8 @@
+2010-04-05  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-sprof.el (slime-sprof-browser): Use slime-with-popup-buffer for
+	buffer creation.
+
 2010-04-03  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (print-decoded-arglist): prin1-arg -> print-arg.
--- /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2010/02/15 21:42:37	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2010/04/05 10:53:02	1.4
@@ -64,8 +64,8 @@
 		    #'slime-clipboard-display-entries))
 
 (defun slime-clipboard-display-entries (entries)
-  (slime-with-popup-buffer ("*Slime Clipboard*")
-    (slime-clipboard-mode)
+  (slime-with-popup-buffer ("*Slime Clipboard*"
+                            :modes '(slime-clipboard-mode))
     (slime-clipboard-insert-entries entries)))
 
 (defun slime-clipboard-insert-entries (entries)
--- /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el	2009/02/25 17:54:38	1.2
+++ /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el	2010/04/05 10:53:02	1.3
@@ -22,9 +22,8 @@
   "Show the compiler notes NOTES in tree view."
   (interactive (list (slime-compiler-notes)))
   (with-temp-message "Preparing compiler note tree..."
-    (slime-with-popup-buffer ("*SLIME Compiler-Notes*")
-      (erase-buffer)
-      (slime-compiler-notes-mode)
+    (slime-with-popup-buffer ("*SLIME Compiler-Notes*"
+                              :modes '(slime-compiler-notes-mode))
       (when (null notes)
         (insert "[no notes]"))
       (let ((collapsed-p))
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/02/15 21:42:37	1.5
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/04/05 10:53:02	1.6
@@ -25,7 +25,6 @@
 
 (slime-define-keys slime-sprof-browser-mode-map
   ("h" 'describe-mode)
-  ("q" 'bury-buffer)
   ("d" 'slime-sprof-browser-disassemble-function)
   ("g" 'slime-sprof-browser-go-to)
   ("v" 'slime-sprof-browser-view-source)
@@ -65,17 +64,10 @@
 
 (defun slime-sprof-browser ()
   (interactive)
-  (switch-to-buffer (slime-sprof-browser-buffer))
-  (slime-sprof-update))
-
-(defun slime-sprof-browser-buffer ()
-  (if (get-buffer "*slime-sprof-browser*")
-      (get-buffer "*slime-sprof-browser*")
-      (let ((connection (slime-connection)))
-        (with-current-buffer (get-buffer-create "*slime-sprof-browser*")
-          (slime-sprof-browser-mode)
-          (setq slime-buffer-connection connection)
-          (current-buffer)))))
+  (slime-with-popup-buffer ("*slime-sprof-browser*"
+                            :connection t
+                            :modes '(slime-sprof-browser-mode))
+    (slime-sprof-update)))
 
 (defun slime-sprof-toggle-swank-exclusion ()
   (interactive)