[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-threads-update-interval): Add :group and :type
parameters to this customization.
Thanks to Mark Harig.


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/17 18:10:20	1.2067
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/18 17:15:16	1.2068
@@ -1,3 +1,9 @@
+2010-04-18  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-threads-update-interval): Add :group and :type
+	parameters to this customization.
+	Thanks to Mark Harig.
+
 2010-04-17  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-threads-update-interval): New customization
--- /project/slime/cvsroot/slime/slime.el	2010/04/17 18:10:20	1.1302
+++ /project/slime/cvsroot/slime/slime.el	2010/04/18 17:15:16	1.1303
@@ -2580,7 +2580,7 @@
   (run-hook-with-args 'slime-before-compile-functions (point-min) (point-max))
   (let ((file (slime-to-lisp-filename (buffer-file-name)))
         (options (slime-simplify-plist `(, at slime-compile-file-options
-                                         :policy ,policy))))
+                                         :policy ',policy))))
     (slime-eval-async
         `(swank:compile-file-for-emacs ,file ,(if load t nil) . ,options)
       #'slime-compilation-finished)
@@ -6207,7 +6207,11 @@
 (defvar slime-threads-buffer-timer nil)
 
 (defcustom slime-threads-update-interval nil
-  "Interval at which the list of threads will be updated.")
+  "Interval at which the list of threads will be updated."
+  :type '(choice
+          (number :value 0.5)
+          (const nil))
+  :group 'slime-ui)
 
 (defun slime-list-threads ()
   "Display a list of threads."