(FILECREATED " 2-Nov-84 13:41:08" {ERIS}<LISPNEW>SOURCES>FONTNAMEPATCH.;1 1124 ) (* Copyright (c) 1984 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT FONTNAMEPATCHCOMS) (RPAQQ FONTNAMEPATCHCOMS ((FNS FONTNAME.IP))) (DEFINEQ (FONTNAME.IP [LAMBDA (FONTDESC) (* rmk: " 2-Nov-84 13:28") (* Convert a Lisp font name to the proper NS font name) (PROG (FACE NAME) [COND ((EQ (QUOTE ITALIC) (FONTPROP FONTDESC (QUOTE DEVICESLOPE))) (SETQ FACE (QUOTE (-Italic] [COND ((EQ (QUOTE BOLD) (FONTPROP FONTDESC (QUOTE DEVICEWEIGHT))) (push FACE (QUOTE -Bold] (SETQ NAME (FONTPROP FONTDESC (QUOTE DEVICEFAMILY))) [COND (FACE (SETQ NAME (PACK (CONS NAME FACE] (RETURN (APPEND (QUOTE (XEROX XC82-0-0)) (CONS NAME]) ) (PUTPROPS FONTNAMEPATCH COPYRIGHT ("Xerox Corporation" 1984)) (DECLARE: DONTCOPY (FILEMAP (NIL (244 1040 (FONTNAME.IP 254 . 1038))))) STOP