[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv1911

Modified Files:
	slime.el 
Log Message:
(slime-accept-process-output-supports-floats): New variable to cache
the result of calling accept-process-output with a float as timeout
argument. Not all Emacs version support that and if the call raises an
error we know that it's not supported.  
(slime-accept-process-output): Use it.


--- /project/slime/cvsroot/slime/slime.el	2006/08/11 16:27:36	1.638
+++ /project/slime/cvsroot/slime/slime.el	2006/08/14 20:24:40	1.639
@@ -10232,10 +10232,12 @@
     `(unless (fboundp ',name)
        (defun ,name , at rest))))
 
+(defvar slime-accept-process-output-supports-floats 
+  (ignore-errors (accept-process-output nil 0.0) t))
+
 (defun slime-accept-process-output (&optional process timeout)
   "Like `accept-process-output' but the TIMEOUT argument can be a float."
-  (cond ((or (featurep 'xemacs)
-             (> emacs-major-version 21))
+  (cond (slime-accept-process-output-supports-floats
          (accept-process-output process timeout))
         (t
          (accept-process-output process