[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory tiger.common-lisp.net:/tmp/cvs-serv18347

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-timer-call): Use debug marker in
condition-case.

--- /project/slime/cvsroot/slime/ChangeLog	2012/11/02 08:35:12	1.2363
+++ /project/slime/cvsroot/slime/ChangeLog	2012/11/08 12:34:06	1.2364
@@ -1,3 +1,8 @@
+2012-11-08  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-timer-call): Use debug marker in
+	condition-case.
+
 2012-11-02  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (find-definition.3): Fix syntax.
--- /project/slime/cvsroot/slime/slime.el	2012/11/02 08:35:12	1.1420
+++ /project/slime/cvsroot/slime/slime.el	2012/11/08 12:34:06	1.1421
@@ -1414,7 +1414,7 @@
                     #'slime-timer-call #'slime-attempt-connection 
                     process (and retries (1- retries)) 
                     (1+ attempt))))))))
-    
+
 (defun slime-timer-call (fun &rest args)
   "Call function FUN with ARGS, reporting all errors.
 
@@ -1422,7 +1422,8 @@
 `timer-event-handler') ignores errors."
   (condition-case data
       (apply fun args)
-    (error (debug nil (list "Error in timer" fun args data)))))
+    ((debug error)
+     (debug nil (list "Error in timer" fun args data)))))
 
 (defun slime-cancel-connect-retry-timer ()
   (when slime-connect-retry-timer