(FILECREATED "11-Feb-87 15:48:30" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH198.;1
 1478   

      changes to:  (VARS RHTPATCH198COMS))


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH198COMS)

(RPAQQ RHTPATCH198COMS
 ((* * Small change so that running open events card doesn't waste time 
			     trying to close card after running it. Just leave it cached.)
			  (* * Change to NCDATABASE)
			  (FNS NC.RunOpenEvents)))
(* * Small change so that running open events card doesn't waste time trying to close card 
after running it. Just leave it cached.)


(* * Change to NCDATABASE)


(DEFINEQ

(NC.RunOpenEvents

  (LAMBDA (FileName NoteFile When)                           (* rht: "11-Feb-87 15:45")


          (* * If When = AFTER then read and eval the OpenEvents card.)



    (
SELECTQ
 When
	       (AFTER (
OR
 (type?
 NoteFile NoteFile)
			    (
SETQ
 NoteFile (
NC.NoteFileFromFileName
 FileName)))
		      (LET ((OpenEventsCard (
NCP.LookupCardByName
 (
QUOTE
 OpenEventsCard)
								    NoteFile)))
		           (if
 (
NCP.ValidCardP
 OpenEventsCard)
			       then
 (if
 (
NOT
 (
NCP.ActiveCardP
 OpenEventsCard))
					  then
 (
NCP.CacheCards
 OpenEventsCard))
				      (
NC.EvaluateListCardSubstance
 OpenEventsCard 
								"Evaluating the Open Events card"))))
	       NIL)))
)
(PUTPROPS RHTPATCH198 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (638 1396 (NC.RunOpenEvents 648 . 1394)))))
STOP