[268] in Zephyr_Bugs

home help back first fref pref prev next nref lref last post

zwgc.el

eichin@ATHENA.MIT.EDU (eichin@ATHENA.MIT.EDU)
Mon Apr 1 02:25:01 1991

I got the following mail from University of Florida. I told them that
there would be a new zwgc.el in the next Zephyr release; this is just
a reminder that Barr3y Jaspan <bjaspan>'s zwgc.el should be included
with that release...
							_Mark_


Date: Thu, 28 Mar 91 16:55:07 -0500
From: "William Dean Norris II" <wdn@porpoise.cis.ufl.edu>
Message-Id: <9103282155.AA06030@porpoise.cis.ufl.edu>
To: eichin@ATHENA.MIT.EDU
Subject: zwgc.el

I added a variable to keep track of the process-id so it could be used
as an argument to process-kill-without-query.  

Here is the context diff.

*** zwgc.el.~1~	Wed Jan 30 11:00:28 1991
--- zwgc.el	Thu Mar 28 16:44:15 1991
***************
*** 45,50 ****
--- 45,54 ----
  (defvar zwgc-prog "/local/athena/zwgc" 
    "*Program to run as the zwgc process. Should set it for the machine type.")
  
+ (defvar zwgc-process nil
+   "Internal Process pointer.  Can be used as an argument to
+ process-kill-without-query.")
+ 
  (defun zwgc-wakeup (proc string)
    "Procedure called when zwgc spits something out"
    (save-excursion (set-buffer (get-buffer "*zwgc*"))
***************
*** 78,83 ****
--- 82,88 ----
  	(if proc (delete-process proc))
  	(setq proc (start-process "Zwgc" buffer 
  				  zwgc-prog "-ttymode" "-nofork"))
+ 	(setq zwgc-process proc)
  	(set-process-filter proc 'zwgc-wakeup))
        (shell-mode)
        (local-set-key "\177" 'zwgc-punt)
			
-----			In the North it's a Cultural Exercise (Football)
William Dean Norris II	In the Mid-West it's Cannibalism
University of Florida	In the West it's a Tourist Attraction
wdn@cis.ufl.edu		In the South it's a RELIGION. - "Julia" Designing Women


home help back first fref pref prev next nref lref last post