(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