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 @@ | |||
| 1 | ;;; timer.el --- run a function with args at some time in future | 1 | ;;; timer.el --- run a function with args at some time in future |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1990, 1993 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: FSF | 5 | ;; Maintainer: FSF |
| 6 | 6 | ||
| @@ -41,7 +41,8 @@ the call to the function. If REPEAT is nil, call it just once." | |||
| 41 | (cond ((or (not timer-process) | 41 | (cond ((or (not timer-process) |
| 42 | (memq (process-status timer-process) '(exit signal nil))) | 42 | (memq (process-status timer-process) '(exit signal nil))) |
| 43 | (if timer-process (delete-process timer-process)) | 43 | (if timer-process (delete-process timer-process)) |
| 44 | (setq timer-process (start-process "timer" nil "timer") | 44 | (setq timer-process (let ((process-connection-type nil)) |
| 45 | (start-process "timer" nil "timer")) | ||
| 45 | timer-alist nil) | 46 | timer-alist nil) |
| 46 | (set-process-filter timer-process 'timer-process-filter) | 47 | (set-process-filter timer-process 'timer-process-filter) |
| 47 | (set-process-sentinel timer-process 'timer-process-sentinel) | 48 | (set-process-sentinel timer-process 'timer-process-sentinel) |