[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.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/ChangeLog	2010/04/04 21:51:54	1.2053
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/05 10:53:02	1.2054
@@ -1,3 +1,7 @@
+2010-04-05  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el: Some further adaptations to the new slime-with-popup-buffer.
+
 2010-04-04  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-insert-threads): Use header-line-format only when
--- /project/slime/cvsroot/slime/slime.el	2010/04/04 21:51:54	1.1294
+++ /project/slime/cvsroot/slime/slime.el	2010/04/05 10:53:02	1.1295
@@ -2793,7 +2793,8 @@
 (defun slime-show-compilation-log (notes)
   "Create and display the compilation log buffer."
   (interactive (list (slime-compiler-notes)))
-  (slime-with-popup-buffer ("*SLIME Compilation*")
+  (slime-with-popup-buffer ("*SLIME Compilation*"
+                            :modes '(compilation-mode))
     (slime-insert-compilation-log notes)))
 
 (defun slime-insert-compilation-log (notes)
@@ -2812,7 +2813,6 @@
             (slime-insert-note-group notes)
             (insert "\n")
             (slime-make-note-overlay (first notes) start (1- (point))))))
-      (compilation-mode)
       (set (make-local-variable 'compilation-skip-threshold) 0)
       (setq next-error-last-buffer (current-buffer)))))
 
@@ -6368,8 +6368,8 @@
 (defun slime-list-connections ()
   "Display a list of all connections."
   (interactive)
-  (slime-with-popup-buffer (slime-connections-buffer-name)
-    (slime-connection-list-mode)
+  (slime-with-popup-buffer (slime-connections-buffer-name
+                            :modes '(slime-connection-list-mode))
     (slime-draw-connection-list)))
 
 (defun slime-update-connection-list ()