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