(FILECREATED "14-Nov-86 17:22:46" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH153.;1
 1363   

      changes to:  (VARS RHTPATCH153COMS))


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

(PRETTYCOMPRINT RHTPATCH153COMS)

(RPAQQ RHTPATCH153COMS
 ((* * Change to NCCROSSFILELINKS)
			  (FNS NC.CrossFileLinkEditFn)))
(* * Change to NCCROSSFILELINKS)


(DEFINEQ

(NC.CrossFileLinkEditFn

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


          (* * 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.FetchTitle
 
										  DestinationCard))
					     (
NC.FetchTitle
 Card)))
			then
 (
NC.AssignTitle
 Card NIL DestinationCardTitle))
		    (
NC.EditNoteCard
 DestinationCard RegionOrPosition TypeSpecificArgs)))))
)
(PUTPROPS RHTPATCH153 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (371 1281 (NC.CrossFileLinkEditFn 381 . 1279)))))
STOP