;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:03:54 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/lpr.el ;;; emacs version 19.0.509. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defvar lpr-switches nil "\ *List of strings to pass as extra switch args to lpr when it is invoked.") (defvar lpr-command (byte-code "Á>ƒ‡Ç" [system-type (usg-unix-v dgux-unix hpux silicon-graphics-unix) "lp" "lpr"] 2) "\ *Shell command for printing a file") (defvar print-region-function nil "\ Function to call to print the region on a printer. See definition of `print-region-1' for calling conventions.") (fset 'lpr-buffer #[nil "Àed Â$‡" [print-region-1 lpr-switches nil] 5 "\ Print buffer contents as with Unix command `lpr'. `lpr-switches' is a list of extra switches (strings) to pass to lpr." nil]) (fset 'print-buffer #[nil "Àed Â$‡" [print-region-1 lpr-switches t] 5 "\ Print buffer contents as with Unix command `lpr -p'. `lpr-switches' is a list of extra switches (strings) to pass to lpr." nil]) (fset 'lpr-region #[(start end) "À \n Ä$‡" [print-region-1 start end lpr-switches nil] 5 "\ Print region contents as with Unix command `lpr'. `lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"]) (fset 'print-region #[(start end) "À \n Ä$‡" [print-region-1 start end lpr-switches t] 5 "\ Print region contents as with Unix command `lpr -p'. `lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"]) (byte-code "ÀÁMˆÂÃM‡" [print-region-1 #[(start end switches page-headers) "À ÁP\nŠÅÆ!ˆ\nÇU„ È \n\"ˆ Ëed\"ˆ ƒH Î=ƒBÈ \n\"ˆÏ \nÐщÒ&ˆ‚HÓBÕ†OÏ×Ø \nÒ‰‰&× Ú=…iÛ Ü F\"\"\"ˆÅÝ!+‡" [buffer-name " Emacs buffer" tab-width width name message "Spooling..." 8 print-region-new-buffer start end untabify page-headers system-type usg-unix-v call-process-region "pr" t nil "-p" switches apply print-region-function nconc list lpr-command berkeley-unix "-J" "-T" "Spooling...done"] 10] print-region-new-buffer #[(start end) "ÀÁ Â\"†%pÄÂ!qˆÅ ˆÆ ˆÇ  #ˆed‰ )‡" [string= buffer-name " *spool temp*" oldbuf get-buffer-create widen erase-buffer insert-buffer-substring start end] 4]] 2) (fset '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 "\ Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF) in the current buffer into printable representations as control or hexadecimal escapes." "r"])