diff options
author | forcer <forcer> | 2005-09-20 16:01:00 +0000 |
---|---|---|
committer | forcer <mwolson@gnu.org> | 2005-09-20 16:01:00 +0000 |
commit | d6361e597150746437cf1d4fce6db113cf90aabe (patch) | |
tree | 78644805fc56ed1fd9d493b41b2c7a7b380cb75a | |
parent | 8da8ace462c9a23d9d8dcde1f18e9a8eae6c1023 (diff) |
later-do: Work even if the called function errors out.
darcs-hash:20050920160128-2189f-8674b2d67de3428a3a7ab47b36a24342552089e1.gz
-rw-r--r-- | later-do.el | 7 |
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 |