later-do: Work even if the called function errors out.

darcs-hash:20050920160128-2189f-8674b2d67de3428a3a7ab47b36a24342552089e1.gz

1 files changed, 4 insertions, 3 deletions

diff --git a/later-do.el b/later-do.el
index 8cd4f94..0151fc6 100644
--- a/later-do.el
+++ b/later-do.el
@@ -64,9 +64,10 @@ empty."
     (setq later-do-timer (run-with-timer later-do-interval
                                          nil
                                          'later-do-timer))
-    (apply (caar later-do-list)
-           (cdar later-do-list))
-    (setq later-do-list (cdr later-do-list))))
+    (let ((fun (caar later-do-list))
+          (args (cdar later-do-list)))
+      (setq later-do-list (cdr later-do-list))
+      (apply fun args))))
 
 (provide 'later-do)
 ;;; later-do.el ends here