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