Function: pr-ps-directory-using-ghostscript

pr-ps-directory-using-ghostscript is an autoloaded, interactive and byte-compiled function defined in printing.el.gz.

Signature

(pr-ps-directory-using-ghostscript N-UP DIR FILE-REGEXP &optional FILENAME)

Documentation

Print directory using PostScript through ghostscript.

Interactively, the command prompts for N-UP printing number, a directory, a file name regexp for matching and, when you use a prefix argument (C-u (universal-argument)), the command prompts the user for a file name, and saves the PostScript image in that file instead of saving it in a temporary file.

Noninteractively, if N-UP is nil, prompts for N-UP printing number. If DIR is nil, prompts for DIRectory. If FILE-REGEXP is nil, prompts for FILE(name)-REGEXP. The argument FILENAME is treated as follows: if it's nil, save the image in a temporary file. If FILENAME is a string, save the PostScript image in a file with that name. If FILENAME is t, prompts for a file name.

See also documentation for pr-list-directory.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
;;;###autoload
(defun pr-ps-directory-using-ghostscript (n-up dir file-regexp &optional filename)
  "Print directory using PostScript through ghostscript.

Interactively, the command prompts for N-UP printing number, a directory, a
file name regexp for matching and, when you use a prefix argument (\\[universal-argument]), the
command prompts the user for a file name, and saves the PostScript image in
that file instead of saving it in a temporary file.

Noninteractively, if N-UP is nil, prompts for N-UP printing number.  If DIR is
nil, prompts for DIRectory.  If FILE-REGEXP is nil, prompts for
FILE(name)-REGEXP.  The argument FILENAME is treated as follows: if it's nil,
save the image in a temporary file.  If FILENAME is a string, save the
PostScript image in a file with that name.  If FILENAME is t, prompts for a
file name.

See also documentation for `pr-list-directory'."
  (interactive (pr-interactive-ps-dir-args (pr-prompt "PS print dir GS")))
  (defvar pr--n-up) (defvar pr--dir) (defvar pr--file-regexp)
  (defvar pr--filename)
  (let ((pr--n-up n-up) (pr--dir dir) (pr--file-regexp file-regexp)
        (pr--filename filename))
    (pr-set-ps-dir-args 'pr--n-up 'pr--dir 'pr--file-regexp 'pr--filename
                        (pr-prompt "PS print dir GS"))
    (let ((file (pr-ps-file pr--filename)))
      (pr-ps-file-list pr--n-up pr--dir pr--file-regexp file)
      (pr-ps-file-using-ghostscript file)
      (or pr--filename (pr-delete-file file)))))