Function: pr-ps-set-printer

pr-ps-set-printer is a byte-compiled function defined in printing.el.gz.

Signature

(pr-ps-set-printer VALUE)

Source Code

;; Defined in /usr/src/emacs/lisp/printing.el.gz
(defun pr-ps-set-printer (value)
  (let ((ps (cdr (assq value pr-ps-printer-alist))))
    (or ps
	(error
	 "Invalid PostScript printer name `%s' for variable `pr-ps-name'"
	 value))
    (setq pr-ps-name           value
	  pr-ps-command        (nth 0 ps)
	  pr-ps-switches       (nth 1 ps)
	  pr-ps-printer-switch (nth 2 ps)
	  pr-ps-printer        (nth 3 ps))
    (or (stringp pr-ps-command)
	(setq pr-ps-command
	      (cond (lpr-windows-system "print")
		    (lpr-lp-system      "lp")
		    (t                 "lpr")
		    )))
    (or (stringp pr-ps-printer-switch)
	(setq pr-ps-printer-switch
	      (cond (lpr-windows-system "/D:")
		    (lpr-lp-system      "-d")
		    (t                 "-P")
		    )))
    (pr-eval-alist (nthcdr 4 ps)))
  (force-mode-line-update))