(FILECREATED "28-May-84 13:03:42" {PHYLUM}<SPEECH>EMACSPATCH.;1
 697    

      changes to:  (VARS EMACSPATCHCOMS)
		   (FNS TEDIT.GETINPUT))


(PRETTYCOMPRINT EMACSPATCHCOMS)

(RPAQQ EMACSPATCHCOMS
 ((FNS TEDIT.GETINPUT)))
(DEFINEQ

(TEDIT.GETINPUT

  (LAMBDA (TEXTOBJ PROMPTSTRING DEFAULTSTRING DELIMITER.LIST WINDOW)
                                                             (* pkh: "28-May-84 12:57")

    (PROG (WINDOW)
          (SETQ WINDOW (TEDIT.PROCESS.INTERACTION.WINDOW))
          (CLEARW WINDOW)
          (RETURN (PROMPTFORWORD PROMPTSTRING DEFAULTSTRING NIL WINDOW NIL NIL
				 (OR DELIMITER.LIST (CHARCODE (EOL LF TAB ESCAPE)))
				 NIL)))))
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (230 675 (TEDIT.GETINPUT 240 . 673)))))
STOP