diff options
| author | Roland McGrath <roland@gnu.org> | 1993-01-08 20:28:41 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1993-01-08 20:28:41 +0000 |
| commit | dffd3124175845d75c0b35c98a8f7c832137abcc (patch) | |
| tree | 932ad5d26afdb7b7e19bd10de7c040ec07867fd7 /lisp/timer.el | |
| parent | 507876f3c776a033119030e817dcf1a423ea5f2f (diff) | |
| download | emacs-dffd3124175845d75c0b35c98a8f7c832137abcc.tar.gz | |
(run-at-time): Use a pipe to talk to the timer process.
Diffstat (limited to 'lisp/timer.el')
| -rw-r--r-- | lisp/timer.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 5be142628a2..1e0211233c9 100644 --- a/lisp/timer.el +++ b/lisp/timer.el @@ -1,6 +1,6 @@ ;;; timer.el --- run a function with args at some time in future -;; Copyright (C) 1990 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. ;; Maintainer: FSF @@ -41,7 +41,8 @@ the call to the function. If REPEAT is nil, call it just once." (cond ((or (not timer-process) (memq (process-status timer-process) '(exit signal nil))) (if timer-process (delete-process timer-process)) - (setq timer-process (start-process "timer" nil "timer") + (setq timer-process (let ((process-connection-type nil)) + (start-process "timer" nil "timer")) timer-alist nil) (set-process-filter timer-process 'timer-process-filter) (set-process-sentinel timer-process 'timer-process-sentinel) |