(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "14-Sep-94 18:38:49" ("compiled on " {DSK}<lispcore>lispusers>TEDIT-CLOSE-ON-SHRINK.;1) 
"28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49")
(FILECREATED "30-Nov-87 15:32:08" {ERINYES}<LISPUSERS>LYRIC>TEDIT-CLOSE-ON-SHRINK.;3 2335 changes to%:
 (VARS TEDIT-CLOSE-ON-SHRINKCOMS) previous date%: "30-Nov-87 14:55:18" 
{ERINYES}<LISPUSERS>LYRIC>TEDIT-CLOSE-ON-SHRINK.;2)
\TEDIT-CLOSE-ON-SHRINK :D8
(P 1 backingStream P 0 textObj I 0 teditWindow) �$��@	����H����É,¹HÊ,�jð—I•I	����i�(32 CLOSEF? 5 TEXTOBJ)
(14 TEXTOBJ)
()
(PRETTYCOMPRINT TEDIT-CLOSE-ON-SHRINKCOMS)
(RPAQQ TEDIT-CLOSE-ON-SHRINKCOMS ((FNS \TEDIT-CLOSE-ON-SHRINK) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (
UNADVISE \TEDIT.REOPEN.STREAM) (PUTPROP (QUOTE TEDIT.CREATEW) (QUOTE READVICE) (QUOTE (NIL (AFTER NIL 
(if (NOT (MEMB (QUOTE \TEDIT-CLOSE-ON-SHRINK) (WINDOWPROP !VALUE (QUOTE SHRINKFN)))) then (
WINDOWADDPROP !VALUE (QUOTE SHRINKFN) (QUOTE \TEDIT-CLOSE-ON-SHRINK))))))) (PUTPROP (QUOTE 
\TEDIT.CREATEW.FROM.REGION) (QUOTE READVICE) (QUOTE (NIL (AFTER NIL (if (NOT (MEMB (QUOTE 
\TEDIT-CLOSE-ON-SHRINK) (WINDOWPROP !VALUE (QUOTE SHRINKFN)))) then (WINDOWADDPROP !VALUE (QUOTE 
SHRINKFN) (QUOTE \TEDIT-CLOSE-ON-SHRINK))))))) (READVISE TEDIT.CREATEW \TEDIT.CREATEW.FROM.REGION) (
SETQ ADVISEDFNS (LDIFFERENCE ADVISEDFNS (QUOTE (TEDIT.CREATEW \TEDIT.CREATEW.FROM.REGION 
\TEDIT.REOPEN.STREAM))))))))
(UNADVISE \TEDIT.REOPEN.STREAM)
(PUTPROP (QUOTE TEDIT.CREATEW) (QUOTE READVICE) (QUOTE (NIL (AFTER NIL (if (NOT (MEMB (QUOTE 
\TEDIT-CLOSE-ON-SHRINK) (WINDOWPROP !VALUE (QUOTE SHRINKFN)))) then (WINDOWADDPROP !VALUE (QUOTE 
SHRINKFN) (QUOTE \TEDIT-CLOSE-ON-SHRINK)))))))
(PUTPROP (QUOTE \TEDIT.CREATEW.FROM.REGION) (QUOTE READVICE) (QUOTE (NIL (AFTER NIL (if (NOT (MEMB (
QUOTE \TEDIT-CLOSE-ON-SHRINK) (WINDOWPROP !VALUE (QUOTE SHRINKFN)))) then (WINDOWADDPROP !VALUE (QUOTE
 SHRINKFN) (QUOTE \TEDIT-CLOSE-ON-SHRINK)))))))
(READVISE TEDIT.CREATEW \TEDIT.CREATEW.FROM.REGION)
(SETQ ADVISEDFNS (LDIFFERENCE ADVISEDFNS (QUOTE (TEDIT.CREATEW \TEDIT.CREATEW.FROM.REGION 
\TEDIT.REOPEN.STREAM))))
(PUTPROPS TEDIT-CLOSE-ON-SHRINK COPYRIGHT ("Xerox Corporation" 1987))
NIL