Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!rutgers!columbia!cunixc!howie
From: howie@cunixc.columbia.edu (Howie Kaye)
Newsgroups: comp.emacs
Subject: Re: help - make GNU display-time NOT use a pty
Message-ID: <100@cunixc.columbia.edu>
Date: Wed, 9-Sep-87 11:10:11 EDT
Article-I.D.: cunixc.100
Posted: Wed Sep  9 11:10:11 1987
Date-Received: Fri, 11-Sep-87 05:56:26 EDT
References: <16402@teknowledge-vaxc.ARPA>
Reply-To: howie@cunixc.columbia.edu (Howie Kaye)
Organization: Columbia University Center for Computing Activities
Lines: 37


I thought this was a problem a long time ago.  Here is a lisp function
to run a program on a pipe.  Then a one line change is necessary in time.el.

(defun start-process-no-pty (name buffer program &rest program-args)
  "Run a process via start-process, but do it on a pipe"
  (let ((temp process-connection-type)
	(x nil)
	(y nil))
    (setq process-connection-type nil)
    (setq x '(start-process name buffer program))
    (setq x (append x program-args))
    (setq y (eval x))
    (setq process-connection-type temp)
    y))

Then in time.el change:

	  (setq display-time-process
		(start-process "display-time" nil
			       "loadst" 
			       "-n" 
			       (int-to-string display-time-interval)))

to:

	  (setq display-time-process
		(start-process-no-pty "display-time" nil
				      "loadst" 
				      "-n" 
				      (int-to-string display-time-interval)))


------------------------------------------------------------
Howie Kaye				howie@columbia.edu
Columbia University 			hlkcu@cuvma.bitnet
Systems Group				...!seismo!columbia!howie