From c3207e5d7229139706b226b2757a402e6ab526c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 21 Oct 1994 20:29:30 +0000 Subject: [PATCH] Finish installing previous change. --- lisp/timer.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/timer.el b/lisp/timer.el index 69a68b8db5a..446abd426b4 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -142,7 +142,15 @@ will happen at the specified time." token (assoc (substring token (match-beginning 3) (match-end 3)) timer-alist) timer-alist (delq token timer-alist)) - (error "%s for %s; couldn't set at `%s'" error (nth 2 token) do)))) + (or timer-alist + timer-dont-exit + (process-send-eof proc)) + ;; Update error message for this particular instance + (put 'timer-filter-error + 'error-message + (format "%s for %s; couldn't set at \"%s\"" + error (nth 2 token) do)) + (signal 'timer-filter-error (list proc str))))) (or timer-alist timer-dont-exit (process-send-eof proc)))) (defun timer-process-sentinel (proc str) -- 2.39.5