Mercurial > emacs

changeset 1747:aae774aae3de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(run-at-time): Use a pipe to talk to the timer process.
author Roland McGrath <roland@gnu.org>
date Fri, 08 Jan 1993 20:28:41 +0000
parents 7c4fc10fde41
children d505599b0438
files lisp/=timer.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=timer.el	Fri Jan 08 20:26:54 1993 +0000
+++ b/lisp/=timer.el	Fri Jan 08 20:28:41 1993 +0000
@@ -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 @@
   (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)