Function: pr-ps-file-print

pr-ps-file-print is an autoloaded, interactive and byte-compiled function defined in printing.el.gz.

Signature

(pr-ps-file-print FILENAME)

Documentation

Print PostScript file FILENAME.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
;;;###autoload
(defun pr-ps-file-print (filename)
  "Print PostScript file FILENAME."
  (interactive (list (pr-ps-infile-preprint "Print ")))
  (and (stringp filename) (file-exists-p filename)
       ;; printing
       (let ((file (expand-file-name filename)))
	 (if (string= pr-ps-command "")
	     ;; default action
	     (let ((ps-spool-buffer (get-buffer-create ps-spool-buffer-name)))
	       (with-current-buffer ps-spool-buffer
		 (erase-buffer)
		 (insert-file-contents-literally file))
	       (pr-despool-print))
	   ;; use `pr-ps-command' to print
	   (apply #'pr-call-process
		  pr-ps-command
		  (pr-switches-string pr-ps-switches "pr-ps-switches")
		  (if (string-match "cp" pr-ps-command)
		      ;; for "cp" (cmd in out)
		      (list (pr-dosify-file-name file)
			    (concat pr-ps-printer-switch pr-ps-printer))
		    ;; else, for others (cmd out in)
		    (list (concat pr-ps-printer-switch pr-ps-printer)
			  (pr-dosify-file-name file))))))))