;ELC   
;;; compiled by rms@mole.gnu.ai.mit.edu on Thu Jan 18 01:57:02 1996
;;; from file /gd/gnu/emacs/19.0/lisp/lpr.el
;;; emacs version 19.30.70.7.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`lpr.el' was compiled for Emacs 19.29 or later"))


#@87 *List of strings to pass as extra options for the printer program.
See `lpr-command'.
(defvar lpr-switches nil (#$ . -465))
#@207 *Non-nil means construct -T and -J options for the printer program.
These are made assuming that the program is `lpr';
if you are using some other incompatible printer program,
this variable should be nil.
(defvar lpr-add-switches (eq system-type (quote berkeley-unix)) (#$ . -596))
#@39 *Name of program for printing a file.
(defvar lpr-command (byte-code "Á>ƒ Â‡Ã‡" [system-type (usg-unix-v dgux hpux irix) "lp" "lpr"] 2) (#$ . -885))
#@163 *List of strings of options to request page headings in the printer program.
If nil, we run `lpr-page-header-program' to make page headings
and print the result.
(defvar lpr-headers-switches nil (#$ . -1043))
#@112 Function to call to print the region on a printer.
See definition of `print-region-1' for calling conventions.
(defvar print-region-function nil (#$ . 1259))
#@53 *Name of program for adding page headers to a file.
(defvar lpr-page-header-program "pr" (#$ . -1423))
#@145 *List of strings to use as options for the page-header-generating program.
The variable `lpr-page-header-program' specifies the program to use.
(defvar lpr-page-header-switches (quote ("-f")) (#$ . -1533))
#@120 Print buffer contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr.
(defalias 'lpr-buffer #[nil "Àed	Â$‡" [print-region-1 lpr-switches nil] 5 (#$ . 1746) nil])
#@123 Print buffer contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr.
(defalias 'print-buffer #[nil "Àed	Â$‡" [print-region-1 lpr-switches t] 5 (#$ . 1964) nil])
#@120 Print region contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr.
(defalias 'lpr-region #[(start end) "À	\nÄ$‡" [print-region-1 start end lpr-switches nil] 5 (#$ . 2185) "r"])
#@123 Print region contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr.
(defalias 'print-region #[(start end) "À	\nÄ$‡" [print-region-1 start end lpr-switches t] 5 (#$ . 2422) "r"])
(defalias 'print-region-1 #[(start end switches page-headers) "À ÁPÀ ÁP\n‰Ä	\nŠƒ6 \fƒ6 Í\f;ƒ/ \fC‚1 \f\"ƒF ÏÐÑÒ#P‚G ÓÔÕ\"ˆÖU„w ×\"‰@AŠbˆÛ )Üed\"ˆ)ƒ³ \f„³ ×\"‰@A)ÝÞà‰Ä!…§ â	D#¤&ˆedÝ$†º Þ%Ä‰‰¯!…Î æ\nD!…Ü \f…Ü ç	D¤¤¤\"ˆè!ƒð Ä‰“ˆÔé\".‡" [buffer-name " Emacs buffer" buffer-file-type tab-width nil switch-string width binary-process-output binary-process-input title name page-headers lpr-headers-switches append switches " with options " mapconcat identity " " "" message "Spooling%s..." 8 print-region-new-buffer start end new-coords point-marker untabify apply call-process-region lpr-page-header-program t lpr-add-switches "-h" lpr-page-header-switches print-region-function lpr-command "-J" "-T" markerp "Spooling%s...done"] 11])
(defalias 'print-region-new-buffer #[(ostart oend) "À Á˜ƒ \nB‡pÅÁ!qˆ~ˆÆ ˆÇ\f\n#ˆed)B‡" [buffer-name " *spool temp*" ostart oend oldbuf get-buffer-create erase-buffer insert-buffer-substring] 4])
#@156 Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF)
in the current buffer into printable representations as control or
hexadecimal escapes.
(defalias 'printify-region #[(begin end) "ŠbˆÁÃÄÆ#…, hÇÈ!ˆ\nÉWƒ# ÊË\nÌ\\\"‚' ÊÍ\n\"cˆ‚ *‡" [begin nil c re-search-forward "[ ---ÿ]" end t delete-backward-char 1 32 format "\\^%c" 64 "\\%02x"] 4 (#$ . 3686) "r"])
(provide (quote lpr))