Function: ps-select-font

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

Signature

(ps-select-font FONT-FAMILY SYM FONT-SIZE TITLE-FONT-SIZE)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-select-font (font-family sym font-size title-font-size)
  (let ((font-entry (cdr (assq font-family ps-font-info-database))))
    (or font-entry
	(error "Don't have data to scale font %s.  Known fonts families are %s"
	       font-family
	       (mapcar 'car ps-font-info-database)))
    (let ((size (ps-lookup 'size)))
      (put sym 'fonts (ps-lookup 'fonts))
      (put sym 'space-width (ps-size-scale 'space-width))
      (put sym 'avg-char-width (ps-size-scale 'avg-char-width))
      (put sym 'line-height (ps-size-scale 'line-height))
      (put sym 'title-line-height
	   (/ (* (ps-lookup 'line-height) title-font-size) size)))))