;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Wed May 17 02:55:36 1995
;;; from file /gd/gnu/emacs/19.0/lisp/lpr.el
;;; emacs version 19.28.91.22.
;;; 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")))
    (error "`/gd/gnu/emacs/19.0/lisp/lpr.el' was compiled for Emacs 19"))


#@76 *List of strings to pass as extra switch args to `lpr' when it is invoked.
(defvar lpr-switches nil (#$ . -475))
#@59 *Non-nil means construct -T and -J options for the `lpr'.
(defvar lpr-add-switches (eq system-type (quote berkeley-unix)) (#$ . -594))
#@39 *Name of program for printing a file.
(defvar lpr-command (byte-code "Á>ƒ Â‡Ã‡" [system-type (usg-unix-v dgux hpux irix) "lp" "lpr"] 2) (#$ . -735))
#@157 *List of strings to use as options for `lpr' to request page headings.
If nil, we run `lpr-page-header-program' to make page headings
and print the result.
(defvar lpr-headers-switches nil (#$ . -893))
#@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 (#$ . 1102))
#@53 *Name of program for adding page headers to a file.
(defvar lpr-page-header-program "pr" (#$ . -1266))
#@67 *List of strings to use as options for `lpr-page-header-program'.
(defvar lpr-page-header-switches (quote ("-f")) (#$ . -1375))
#@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 (#$ . 1510) 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 (#$ . 1728) 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 (#$ . 1949) "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 (#$ . 2186) "r"])
(defalias 'print-region-1 #[(start end switches page-headers) "À ÁPÀ ÁP\nÃŠƒ/ 	ƒ/ Ê	;ƒ( 	C‚* 	\"ƒ? ÌÍÎÏ#P‚@ ÐÑÒ\f\"ˆ\nÓU„o Ô\"‰@AŠbˆØ )Ùed\"ˆ)ƒ« 	„« Ô\"‰@A)ÚÛÝ‰Ã…Ÿ ßD ¤&ˆedÚ!†² Û\"Ã‰‰¯…Æ ãD…Ô 	…Ô äD¤¤¤\"ˆå!ƒè Ã‰“ˆÑæ\f\"-‡" [buffer-name " Emacs buffer" tab-width nil switch-string width 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 (#$ . 3377) "r"])
(provide (quote lpr))