(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)


(FILECREATED "11-Sep-2026 13:34:29" 
{DSK}<home>frank>il>medley>notecards>patches>MEDLEYSYSTEMPATCHES.;2
 1812   

      :EDIT-BY "FGH"

      :CHANGES-TO (VARS MEDLEYSYSTEMPATCHESCOMS)

      :PREVIOUS-DATE " 3-Nov-2020 16:14:11" 
{DSK}<home>frank>il>medley>notecards>patches>MEDLEYSYSTEMPATCHES.;1)


(PRETTYCOMPRINT MEDLEYSYSTEMPATCHESCOMS)

(RPAQQ MEDLEYSYSTEMPATCHESCOMS

       (
        (* ;; 

       "rht 12/14/87: Fix so that REATTACHPROMPTWINDOW stops trashing promptwindow's PASSTOMAINCOMS.")


        (FNS REATTACHPROMPTWINDOW)
        
        (* ;; "Temporary fix to the random popping up of shrunken text cards problem.")


        [VARS (TTY.PROCESS.DEFAULT '(BACKGROUND EXEC EXEC#2 EXEC#3 EXEC#4 EXEC#4 EXEC#5 MOUSE]
        (PROP (FILETYPE MAKEFILE-ENVIRONMENT)
              MEDLEYSYSTEMPATCHES)))



(* ;; "rht 12/14/87: Fix so that REATTACHPROMPTWINDOW stops trashing promptwindow's PASSTOMAINCOMS.")


(DEFINEQ

(REATTACHPROMPTWINDOW

  [LAMBDA (MAINWINDOW PWINDOW)                               (* ; "Edited 14-Dec-87 01:08 by rht:")

    (* ;; "rht 12/14/87: Fixed so that restores old PASSTOMAINCOMS after calling ATTACHWINDOW.")

    (LET [(OLDPASSTOMAINCOMS (WINDOWPROP PWINDOW 'PASSTOMAINCOMS]
         (ATTACHWINDOW PWINDOW MAINWINDOW 'TOP 'JUSTIFY)
         (WINDOWPROP PWINDOW 'PASSTOMAINCOMS OLDPASSTOMAINCOMS])
)



(* ;; "Temporary fix to the random popping up of shrunken text cards problem.")



(RPAQQ TTY.PROCESS.DEFAULT
 (BACKGROUND EXEC EXEC#2 EXEC#3 EXEC#4 EXEC#4 EXEC#5 MOUSE))

(PUTPROPS MEDLEYSYSTEMPATCHES
 FILETYPE
 :TCOMPL)

(PUTPROPS MEDLEYSYSTEMPATCHES
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1019 1443 (REATTACHPROMPTWINDOW 1029 . 1441)))))
STOP