(FILECREATED "28-May-86 09:36:42" {ERIS}<LISPUSERS>KOTO>DEDITHARDCOPY.;2
 1082   

      changes to:  (FNS DEDIT-HARDCOPY)
                   (VARS DEDITHARDCOPYCOMS)
                   (ADVICE MAKEEDITW)

      previous date: "28-May-86 09:32:45" {ERIS}<LISPUSERS>KOTO>DEDITHARDCOPY.;1)


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

(PRETTYCOMPRINT DEDITHARDCOPYCOMS)

(RPAQQ DEDITHARDCOPYCOMS
 ((ADVISE MAKEEDITW)
                          (FNS DEDIT-HARDCOPY)))

(PUTPROPS MAKEEDITW READVICE
 [NIL (AFTER NIL (WINDOWPROP !VALUE (QUOTE HARDCOPYFN)
                                                    (QUOTE DEDIT-HARDCOPY])
(READVISE MAKEEDITW)
(DEFINEQ

(DEDIT-HARDCOPY

  [LAMBDA (WINDOW IMS)
                                       (* lmm "28-May-86 09:34")

    (PRINTOUT IMS .FONT BOLDFONT (WINDOWPROP WINDOW (QUOTE TITLE))
           .FONT DEFAULTFONT T T)
    (PRINTDEF (CAR (WINDOWPROP WINDOW (QUOTE EDITEXPR)))
           NIL T NIL NIL IMS T])
)
(PUTPROPS DEDITHARDCOPY COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (681 998 (DEDIT-HARDCOPY 691 . 996)))))
STOP