;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.265
;;; Reason:
;;;  When you use Terminal-Resume to permit deexposed typeout for a window, you want
;;;  that window to have its Output Hold flag cleared too....
;;; Written 9-May-88 11:59:20 by pld at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.264, Experimental Local-File 73.5, Experimental FILE-Server 22.4, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.2, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.



; From modified file DJ: L.WINDOW; BASSTR.LISP#411 at 9-May-88 11:59:20
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; BASSTR  "

(DEFUN KBD-ESC-RESUME ()
  "Handle a terminal-resume typed on the keyboard by allowing interesting window to type out."
  (LET ((W (FIND-INTERESTING-WINDOW)))
    (COND (W
	   (SEND W :SET-DEEXPOSED-TYPEOUT-ACTION :PERMIT)
	   (SETF (TV:SHEET-OUTPUT-HOLD-FLAG W) 0))
	  (T
	   (BEEP)))))

))