Commit dffd3124 authored by Roland McGrath's avatar Roland McGrath
Browse files

(run-at-time): Use a pipe to talk to the timer process.

parent 507876f3
;;; 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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment