diff options
| -rw-r--r-- | lisp/timer.el | 10 |
1 files changed, 9 insertions, 1 deletions
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) |