diff lisp/=timer.el @ 9642:d857ac857c27

Finish installing previous change.

--- 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)