From d6361e597150746437cf1d4fce6db113cf90aabe Mon Sep 17 00:00:00 2001 From: forcer Date: Tue, 20 Sep 2005 16:01:00 +0000 Subject: later-do: Work even if the called function errors out. darcs-hash:20050920160128-2189f-8674b2d67de3428a3a7ab47b36a24342552089e1.gz --- later-do.el | 7 ++++--- 1 file 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 -- cgit v1.2.3