(FILECREATED "17-Nov-86 18:02:32" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH159.;1
 1948   

      changes to:  (VARS RHTPATCH159COMS)
		   (FNS NC.CrossFileLinkEditFn))


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

(PRETTYCOMPRINT RHTPATCH159COMS)

(RPAQQ RHTPATCH159COMS
 ((* * Fixes strange race condition where notefile would open and card found 
			     before its title had been cached. This meant that cross file link 
			     editfn's call to NC.FetchTitle would return NIL. Now calls 
			     NC.RetrieveTitle which waits till caching completes.)
			  (* * Change to NCCROSSFILELINKS)
			  (FNS NC.CrossFileLinkEditFn)))
(* * Fixes strange race condition where notefile would open and card found before its title 
had been cached. This meant that cross file link editfn's call to NC.FetchTitle would return 
NIL. Now calls NC.RetrieveTitle which waits till caching completes.)


(* * Change to NCCROSSFILELINKS)


(DEFINEQ

(NC.CrossFileLinkEditFn

  (LAMBDA (Card Substance RegionOrPosition TypeSpecificArgs)
                                                             (* rht: "17-Nov-86 17:55")


          (* * Given a CrossFileLink Substance, try to find the corresponding destination card in the destination notefile 

	  and bring it up.)




          (* * rht 11/13/86: Now updates title of crossfile link card to be the same as destination card if necessary.)



    (LET ((DestinationCard (
NC.GetCrossFileLinkDestCard
 Card))
	  DestinationCardTitle)
         (if
 DestinationCard
	     then
 (if
 (
NOT
 (
STREQUAL
 (
SETQ
 DestinationCardTitle (
NC.RetrieveTitle
 
										  DestinationCard))
					     (
NC.FetchTitle
 Card)))
			then
 (
NC.AssignTitle
 Card NIL DestinationCardTitle))
		    (
NC.EditNoteCard
 DestinationCard RegionOrPosition TypeSpecificArgs)))))
)
(PUTPROPS RHTPATCH159 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (953 1866 (NC.CrossFileLinkEditFn 963 . 1864)))))
STOP