Function: ps-font

ps-font is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-font FONT-SYM FONT-TYPE)

Documentation

Font family name for text of font-type, when generating PostScript.

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-font (font-sym font-type)
  "Font family name for text of `font-type', when generating PostScript."
  (let* ((font-list (ps-font-alist font-sym))
	 (normal-font (cdr (assq 'normal font-list))))
    (while (and font-list (not (eq font-type (car (car font-list)))))
      (setq font-list (cdr font-list)))
    (or (cdr (car font-list)) normal-font)))