Function: ps-background-pages

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

Signature

(ps-background-pages PAGE-LIST FUNC)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-background-pages (page-list func)
  (if page-list
      (mapcar
       #'(lambda (pages)
	   (let ((start (if (consp pages) (car pages) pages))
		 (end   (if (consp pages) (cdr pages) pages)))
	     (and (integerp start) (integerp end) (<= start end)
		  (add-to-list 'ps-background-pages (vector start end func)))))
       page-list)
    (setq ps-background-all-pages (cons func ps-background-all-pages))))