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 "ÁˆÂedÃB#‡" [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‰)ˆÖ×ØÙ
ÇÇÇ&ØÚ=…PÛÜF	\"\"\"ˆÌÝ!)*‡" [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))