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

(FILECREATED "15-Sep-88 14:51:18" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH335.;2
 2066   

      changes to%:  (VARS RHTPATCH335COMS)

      previous date%: "15-Sep-88 14:50:09" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH335.;1)


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

(PRETTYCOMPRINT RHTPATCH335COMS)

(RPAQQ RHTPATCH335COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH335 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH335 FILETYPE)))
                        [DECLARE%: FIRST (P (NC.LoadFileFromDirectories 'NCFILECARD]
                        
                        (* ;; 

        "Changes File cards so that they no longer try to keep card title up to date with file name.")


                        (FNS NC.FileCardPutFile)))
(DECLARE%: DONTCOPY 

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

(PUTPROPS RHTPATCH335
 FILETYPE
 :TCOMPL)
)
(DECLARE%: FIRST 

(NC.LoadFileFromDirectories 'NCFILECARD)
)



(* ;; "Changes File cards so that they no longer try to keep card title up to date with file name.")


(DEFINEQ

(NC.FileCardPutFile

  [LAMBDA (WindowOrCard DatabaseStream QuittingFlg)
          (* ; "Edited 15-Sep-88 14:47 by Trigg")


(* ;;; "Do the work to save a file card.  That is you must put the file if its changed as well as write thee notecard info to the NoteFile")


    (* ;; "fgh 12/17/85 Updated for 1.3")


    (* ;; "rht 9/15/88: Ripped out stuff that changes title to match file we just %"put%" to.")


    (LET ((Card (NC.CoerceToCard WindowOrCard))
          TextStream)
         (SETQ TextStream (NC.FetchTextStream Card))
         (if
 (AND TextStream (TEDIT.STREAMCHANGEDP TextStream))
             then
 (TEDIT.PUT TextStream (NC.FetchSubstance Card))
                  (NC.PutProp Card 'FileVersion (NC.FileCardFileVersionNumber Card])
)
(PUTPROPS RHTPATCH335 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1198 1983 (NC.FileCardPutFile 1208 . 1981)))))
STOP