Function: ps-generate-postscript-with-faces1

ps-generate-postscript-with-faces1 is a byte-compiled function defined in ps-print.el.gz.

Signature

(ps-generate-postscript-with-faces1 FROM TO)

Source Code

;; Defined in /usr/src/emacs/lisp/ps-print.el.gz
(defun ps-generate-postscript-with-faces1 (from to)
  ;; Generate some PostScript.
  (let ((face 'default)
        (position to)
        (property-change from)
        (overlay-change from)
        before-string after-string)
    (while (< from to)
      (and (< property-change to)       ; Don't search for property change
                                        ; unless previous search succeeded.
           (setq property-change (next-property-change from nil to)))
      (and (< overlay-change to)        ; Don't search for overlay change
                                        ; unless previous search succeeded.
           (setq overlay-change (min (next-overlay-change from)
                                     to)))
      (setq position (min property-change overlay-change)
            before-string nil
            after-string nil)
      (setq face
            (cond ((invisible-p from)
                   'emacs--invisible--face)
                  ((get-char-property from 'face))
                  (t 'default)))
      ;; Plot up to this record.
      (and before-string
           (ps-plot-string before-string))
      (ps-plot-with-face from position face)
      (and after-string
           (ps-plot-string after-string))
      (setq from position))
    (ps-plot-with-face from to face)))