diff options
| author | Michael I. Bushnell | 1993-01-08 21:14:11 +0000 |
|---|---|---|
| committer | Michael I. Bushnell | 1993-01-08 21:14:11 +0000 |
| commit | a973c898d92840e9f5f12ef5fbf8ea2163687aba (patch) | |
| tree | 471f168b9a7a85135dee3d64aadda84f5d4456fb | |
| parent | 6d7ee041a28c9d3362dcac8b97eff329e25351d3 (diff) | |
| download | emacs-a973c898d92840e9f5f12ef5fbf8ea2163687aba.tar.gz emacs-a973c898d92840e9f5f12ef5fbf8ea2163687aba.zip | |
Use process-send-string instead of send-string.
| -rw-r--r-- | lisp/timer.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 1e0211233c9..b743d3caf7f 100644 --- a/lisp/timer.el +++ b/lisp/timer.el | |||
| @@ -51,7 +51,7 @@ the call to the function. If REPEAT is nil, call it just once." | |||
| 51 | (continue-process timer-process))) | 51 | (continue-process timer-process))) |
| 52 | ;; There should be a living, breathing timer process now | 52 | ;; There should be a living, breathing timer process now |
| 53 | (let ((token (concat (current-time-string) "-" (length timer-alist)))) | 53 | (let ((token (concat (current-time-string) "-" (length timer-alist)))) |
| 54 | (send-string timer-process (concat time "@" token "\n")) | 54 | (process-send-string timer-process (concat time "@" token "\n")) |
| 55 | (setq timer-alist (cons (list token repeat function args) timer-alist)))) | 55 | (setq timer-alist (cons (list token repeat function args) timer-alist)))) |
| 56 | 56 | ||
| 57 | (defun timer-process-filter (proc str) | 57 | (defun timer-process-filter (proc str) |