diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-19 03:54:46 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-19 03:54:46 +0000 |
| commit | fbfed6f05fdf5bf363ca5691aefde4d573ce8203 (patch) | |
| tree | 726c22e6a55cb3e760a25f6aa60580d76c8de253 /lisp/timer.el | |
| parent | 4d4c4e027fe376759227a6fb6b31a88be6e36347 (diff) | |
| download | emacs-fbfed6f05fdf5bf363ca5691aefde4d573ce8203.tar.gz | |
entered into RCS
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 128d32c7d30..bbd0db72742 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -50,7 +50,7 @@ the call to the function." (continue-process timer-process))) ;; There should be a living, breathing timer process now (let ((token (concat (current-time-string) "-" (length timer-alist)))) - (send-string timer-process (concat time "\001" token "\n")) + (send-string timer-process (concat time "@" token "\n")) (setq timer-alist (cons (list token repeat function args) timer-alist)))) (defun timer-process-filter (proc str) @@ -63,9 +63,9 @@ the call to the function." (cond (do (apply (nth 2 do) (nth 3 do)) ; do it (if (natnump (nth 1 do)) ; reschedule it - (send-string proc (concat (nth 1 do) " sec\001" (car do) "\n")) + (send-string proc (concat (nth 1 do) " sec@" (car do) "\n")) (setq timer-alist (delq do timer-alist)))) - ((string-match "timer: \\([^:]+\\): \\([^\001]*\\)\001\\(.*\\)$" token) + ((string-match "timer: \\([^:]+\\): \\([^@]*\\)@\\(.*\\)$" token) (setq error (substring token (match-beginning 1) (match-end 1)) do (substring token (match-beginning 2) (match-end 2)) token (assoc (substring token (match-beginning 3) (match-end 3)) |