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

(FILECREATED "30-Dec-87 12:29:21" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH299.;6
 1542   

      changes to%:  (ADVICE (TTYDISPLAYSTREAM :IN TEDIT.GET))
                    (VARS RHTPATCH299COMS)

      previous date%: "30-Dec-87 11:40:17" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH299.;4)


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

(PRETTYCOMPRINT RHTPATCH299COMS)

(RPAQQ RHTPATCH299COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH299 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH299 FILETYPE)))
                        
          
          (* ;; "Fixes promptwindow problem in TEDIT.GET (from TEDITFILE)")


                        
          
          (* ;; "Addition for LYRICTEDITPATCHES")


                        (ADVISE (TTYDISPLAYSTREAM :IN TEDIT.GET))))
(DECLARE%: DONTCOPY 

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

(PUTPROPS RHTPATCH299 FILETYPE
 :TCOMPL)
)



(* ;; "Fixes promptwindow problem in TEDIT.GET (from TEDITFILE)")





(* ;; "Addition for LYRICTEDITPATCHES")


[XCL:REINSTALL-ADVICE '(TTYDISPLAYSTREAM :IN TEDIT.GET) :BEFORE
       '((:LAST (if (NOT (WINDOWP (fetch (TEXTOBJ PROMPTWINDOW)
                                         of TEXTOBJ)))
                    then
                    (RETURN NIL]
(READVISE (TTYDISPLAYSTREAM :IN TEDIT.GET))
(PUTPROPS RHTPATCH299 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP