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 | 8930080f32920410f11830b0690bbe3c24f238b8 (patch) | |
| tree | a5d014df6c241b2fd378df85fcb1d394a4cc1bf2 /lisp/=timer.el | |
| parent | d3a74882aeeb7a0f1c1cce813ab7b8984b543281 (diff) | |
| download | emacs-8930080f32920410f11830b0690bbe3c24f238b8.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) |