4.4BSD/usr/src/contrib/emacs-18.57/lisp/lpr.elc


(defvar lpr-command (if (eq system-type (quote usg-unix-v)) "lp" "lpr") "\
Shell command for printing a file")

(defun lpr-buffer nil "\
Print buffer contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." (interactive) (byte-code "ed#" [lpr-switches nil print-region-1] 4))

(defun print-buffer nil "\
Print buffer contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." (interactive) (byte-code "edB#" [lpr-switches nil print-region-1 "-p"] 5))

(defun lpr-region (start end) "\
Print region contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." (interactive "r") (byte-code "È	
#" [start end lpr-switches nil print-region-1] 4))

(defun print-region (start end) "\
Print region contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr." (interactive "r") (byte-code "È	
B#" [start end lpr-switches nil print-region-1 "-p"] 5))

(defun print-region-1 (start end switches) (byte-code " P
!
\"5p!q  
#	ed\"ed)
&=PF	\"\"\"!)*" [name width tab-width oldbuf start end lpr-command nil system-type switches buffer-name " Emacs buffer" message "Spooling..." /= 8 get-buffer-create " *spool temp*" widen erase-buffer insert-buffer-substring untabify apply call-process-region nconc list berkeley-unix "-J" "-T" "Spooling...done"] 18))