(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