(FILECREATED "16-May-87 00:10:36" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH263.;1
 1252   

      changes to:  (VARS RHTPATCH263COMS)
		   (FNS NC.LinksCachedP))


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

(PRETTYCOMPRINT RHTPATCH263COMS)

(RPAQQ RHTPATCH263COMS
 ((* * Fixes bug introduced in RGPATCH041 whereby auto-filing new cards in 
			     ToBeFiled broke when closing notefile. This patch makes NC.LinksCachedP 
			     return non-nil for new, active cards.)
			  (* * Change to NCCARDS)
			  (FNS NC.LinksCachedP)))
(* * Fixes bug introduced in RGPATCH041 whereby auto-filing new cards in ToBeFiled broke when 
closing notefile. This patch makes NC.LinksCachedP return non-nil for new, active cards.)


(* * Change to NCCARDS)


(DEFINEQ

(NC.LinksCachedP

  (LAMBDA (Card)                                             (* rht: "16-May-87 00:06")


          (* * Does this card have links cahced?)




          (* * rht 5/16/87: Changed to also return non-nil if card is active and new.)



    (
OR
 (fetch
 (Card Links) of
 Card)
	  (
AND
 (
NC.ActiveCardP
 Card)
		 (
NC.FetchNewCardFlg
 Card)))))
)
(PUTPROPS RHTPATCH263 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (771 1170 (NC.LinksCachedP 781 . 1168)))))
STOP