[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	slime-clipboard.el slime-compiler-notes-tree.el slime-sprof.el 
Log Message:
* slime.el (slime-threads-update-interval): New customization
variable, if set to a number the threads buffer will
updated with this interval.
(slime-with-popup-buffer): Rename modes option to mode,
for a major mode. Enabling minor modes from within the body
doesn't cause troubles. End that way it is compatible with XEmacs
since it doesn't need to use minor-mode-list to distinguish
between minor and major modes.

* swank.lisp (list-threads): Delete the current thread from the listing.


--- /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2010/04/05 10:53:02	1.4
+++ /project/slime/cvsroot/slime/contrib/slime-clipboard.el	2010/04/17 18:10:20	1.5
@@ -65,7 +65,7 @@
 
 (defun slime-clipboard-display-entries (entries)
   (slime-with-popup-buffer ("*Slime Clipboard*"
-                            :modes '(slime-clipboard-mode))
+                            :mode 'slime-clipboard-mode)
     (slime-clipboard-insert-entries entries)))
 
 (defun slime-clipboard-insert-entries (entries)
--- /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el	2010/04/05 10:53:02	1.3
+++ /project/slime/cvsroot/slime/contrib/slime-compiler-notes-tree.el	2010/04/17 18:10:20	1.4
@@ -23,7 +23,7 @@
   (interactive (list (slime-compiler-notes)))
   (with-temp-message "Preparing compiler note tree..."
     (slime-with-popup-buffer ("*SLIME Compiler-Notes*"
-                              :modes '(slime-compiler-notes-mode))
+                              :mode 'slime-compiler-notes-mode)
       (when (null notes)
         (insert "[no notes]"))
       (let ((collapsed-p))
--- /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/04/06 02:40:09	1.7
+++ /project/slime/cvsroot/slime/contrib/slime-sprof.el	2010/04/17 18:10:20	1.8
@@ -66,7 +66,8 @@
   (interactive)
   (slime-with-popup-buffer ("*slime-sprof-browser*"
                             :connection t
-                            :modes '(slime-sprof-browser-mode))
+                            :select t
+                            :mode 'slime-sprof-browser-mode)
     (slime-sprof-update)))
 
 (defun slime-sprof-toggle-swank-exclusion ()