(FILECREATED "28-Jun-86 01:23:34" {QV}<NOTECARDS>1.3K>FGHPATCH079.;1
 1226   

      changes to:  (VARS FGHPATCH079COMS)
		   (FNS NC.InsureProperFiling))


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

(PRETTYCOMPRINT FGHPATCH079COMS)

(RPAQQ FGHPATCH079COMS
 ((* * Minor fix to FGHPATCH073)
			  (FNS NC.InsureProperFiling)))
(* * Minor fix to FGHPATCH073)


(DEFINEQ

(NC.InsureProperFiling

  (LAMBDA (Card)                                             (* fgh: "28-Jun-86 01:20")

                                                             (* Called when any type of note card is being quitted 

							     from, i.e., closed)


          (* * rht 12/9/84: Moved check of the NC.ForceFiling flag into NC.CheckContentsHooks.)




          (* * fgh 11/12/85 Updated to handle Card and NoteFile objects.)




          (* * fgh 6/27/86 Changed format to allow being killed by ERROR!)



    (
COND

      ((
NULL
 (
NC.FetchBeingDeletedFlg
 Card))
	(
NC.CheckTitle
 Card)
	(
OR
 (
NULL
 NC.ForceSourcesFlg)
	      (
NC.CheckSources
 Card))
	(
NC.CheckFiling
 Card)))))
)
(PUTPROPS FGHPATCH079 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (394 1144 (NC.InsureProperFiling 404 . 1142)))))
STOP