4.3BSD/usr/contrib/emacs/lisp/lpr.elc

(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ËÌ!qˆÍ ˆÎ ˆÏ	!ˆÐ
Ñ
ÒÓ\"&)‚/ňÔÐÕÖ
×


ØÙ ÚPÛÙ ÚP&
\"\"ˆÇÜ!)‡" [tab-width oldbuf start end t nil switches message "Spooling..." /= 8 get-buffer-create " *spool temp*" widen erase-buffer insert-buffer-substring call-process-region "expand" format "-%d" apply nconc list "lpr" "-J" buffer-name " Emacs buffer" "-T" "Spooling...done"] 25))