Function: pr-ps-outfile-preprint

pr-ps-outfile-preprint is a byte-compiled function defined in printing.el.gz.

Signature

(pr-ps-outfile-preprint &optional MESS)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-ps-outfile-preprint (&optional mess)
  (let* ((prompt (format "%soutput PostScript file name: " (or mess "")))
	 (res    (read-file-name prompt default-directory "" nil)))
    (while (cond ((not (file-writable-p res))
		  (ding)
		  (setq prompt "is unwritable"))
		 ((file-directory-p res)
		  (ding)
		  (setq prompt "is a directory"))
		 ((file-exists-p res)
		  (ding)
		  (setq prompt "exists")
		  (not (y-or-n-p (format-message
				  "File `%s' exists; overwrite? " res))))
		 (t nil))
      (setq res (read-file-name
		 (format "File %s; PostScript file: " prompt)
		 (file-name-directory res) nil nil
		 (file-name-nondirectory res))))
    (expand-file-name res)))