# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782771370 0
# Node ID d857ac857c275c2e962baa258c621cfc8ab01d43
# Parent  284c463190910ec8845c47c7b274c12138b0093b
Finish installing previous change.

diff -r 284c46319091 -r d857ac857c27 lisp/=timer.el
--- a/lisp/=timer.el	Fri Oct 21 20:27:08 1994 +0000
+++ b/lisp/=timer.el	Fri Oct 21 20:29:30 1994 +0000
@@ -142,7 +142,15 @@
               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)