Function: pr-txt-set-printer

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

Signature

(pr-txt-set-printer VALUE)

Source Code

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