From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 21 Oct 1994 20:29:30 +0000 (+0000)
Subject: Finish installing previous change.
X-Git-Tag: emacs-19.34~6213
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3207e5d7229139706b226b2757a402e6ab526c5;p=emacs.git

Finish installing previous change.
---

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)