(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "26-Jan-88 17:33:04" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH079.;1
 2560   

      changes to%:  (VARS PMIPATCH079COMS))


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

(PRETTYCOMPRINT PMIPATCH079COMS)

(RPAQQ PMIPATCH079COMS
 (

(* ;;; "New file")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH079 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH079 FILETYPE)))
                        
          
          (* ;; "Changed in NCCROSSFILELINKS")


                        
          
          (* ;; "")


                        
          
          (* ;; "Remove the (PUTPROP 'CrossFileLink 'AttachedBitMapFn (FUNCTION NC.CrossFileLinkAttachedBitMapFn)) from the P at the end of the coms.")


                        
          
          (* ;; "")


                        
          
          (* ;; "Also, add this comment to the end of the comment located at the top of the coms:  ;; An example of such a function may be found in NC.CrossFileLinkAttachedBitMapFn in this file, and you would install it or your own function by doing (PUTPROP 'CrossFileLink 'AttachedBitMapFn (FUNCTION NC.CrossFileLinkAttachedBitMapFn)).")


                        
          
          (* ;; "")


                        
          
          (* ;; "This P expression is for this patch file only.  Do not integrate!")


                        (P (PUTPROP 'CrossFileLink 'AttachedBitMapFn NIL))))



(* ;;; "New file")


(DECLARE%: DONTCOPY 

(PUTPROPS PMIPATCH079 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS PMIPATCH079 FILETYPE
 :BCOMPL)
)



(* ;; "Changed in NCCROSSFILELINKS")





(* ;; "")





(* ;; 
"Remove the (PUTPROP 'CrossFileLink 'AttachedBitMapFn (FUNCTION NC.CrossFileLinkAttachedBitMapFn)) from the P at the end of the coms."
)





(* ;; "")





(* ;; 
"Also, add this comment to the end of the comment located at the top of the coms:  ;; An example of such a function may be found in NC.CrossFileLinkAttachedBitMapFn in this file, and you would install it or your own function by doing (PUTPROP 'CrossFileLink 'AttachedBitMapFn (FUNCTION NC.CrossFileLinkAttachedBitMapFn))."
)





(* ;; "")





(* ;; "This P expression is for this patch file only.  Do not integrate!")


(PUTPROP 'CrossFileLink 'AttachedBitMapFn NIL)
(PUTPROPS PMIPATCH079 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP