Function: pr-text2ps

pr-text2ps is a byte-compiled function defined in printing.el.gz.

Signature

(pr-text2ps KIND N-UP FILENAME &optional FROM TO)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-text2ps (kind n-up filename &optional from to)
  (with-file-modes pr-file-modes
    (let ((ps-n-up-printing n-up)
	  (ps-spool-config (and (eq ps-spool-config 'setpagedevice)
				'setpagedevice)))
      (pr-delete-file-if-exists filename)
      (cond (pr-faces-p
	     (cond (pr-spool-p
		    ;; pr-faces-p and pr-spool-p
		    ;; here FILENAME arg is ignored
		    (cond ((eq kind 'buffer)
			   (ps-spool-buffer-with-faces))
			  ((eq kind 'region)
			   (ps-spool-region-with-faces (or from (point))
						       (or to (mark))))
			  ))
		   ;; pr-faces-p and not pr-spool-p
		   ((eq kind 'buffer)
		    (ps-print-buffer-with-faces filename))
		   ((eq kind 'region)
		    (ps-print-region-with-faces (or from (point))
						(or to (mark)) filename))
		   ))
	    (pr-spool-p
	     ;; not pr-faces-p and pr-spool-p
	     ;; here FILENAME arg is ignored
	     (cond ((eq kind 'buffer)
		    (ps-spool-buffer))
		   ((eq kind 'region)
		    (ps-spool-region (or from (point)) (or to (mark))))
		   ))
	    ;; not pr-faces-p and not pr-spool-p
	    ((eq kind 'buffer)
	     (ps-print-buffer filename))
	    ((eq kind 'region)
	     (ps-print-region (or from (point)) (or to (mark)) filename))
	    ))))