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 | fea425b9ddc3534a501a86de782ecabf406ebb47 (patch) | |
| tree | 6bf3f918ced5456561952138dd895a76fafaef94 /lisp/=timer.el | |
| parent | 529ba5d03e88b434f941d038577653a24d43f539 (diff) | |
| download | emacs-fea425b9ddc3534a501a86de782ecabf406ebb47.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)) |