Function: ps-generate-header

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

Signature

(ps-generate-header NAME FONTTAG0 FONTTAG1 CONTENTS)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-generate-header (name fonttag0 fonttag1 contents)
  (ps-output "/" name "[\n")
  (and contents (> ps-header-lines 0)
       (let ((count 1))
	 (ps-generate-header-line fonttag0 (car contents))
	 (while (and (< count ps-header-lines)
		     (setq contents (cdr contents)))
	   (ps-generate-header-line fonttag1 (car contents))
	   (setq count (1+ count)))))
  (ps-output "]def\n"))