;ELC ;;; compiled by jwz@thalidomide on Fri May 6 14:49:07 1994 ;;; from file /th/jwz/emacs19/lisp/packages/lpr.el ;;; emacs version 19.10 Lucid (beta21). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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 "This file was compiled for Emacs 19.")) (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 "MM" [print-region-1 #[(start end switches page-headers) " P\n!\nU  b  )ed\"  =  ҉&ed ՚B Ӊ =՚ F\" ! Ӊ!+" [buffer-name " Emacs buffer" tab-width width name message "Spooling..." 8 print-region-new-buffer end point-marker untabify page-headers system-type usg-unix-v call-process-region start "pr" t nil lpr-command "lpr" "-p" switches apply print-region-function berkeley-unix "-J" "-T" markerp "Spooling...done"] 8] print-region-new-buffer #[nil " p!q~ \n#ed)" [buffer-name " *spool temp*" oldbuf get-buffer-create erase-buffer insert-buffer-substring start end] 4]] 2) (fset 'printify-region #[(begin end) "b #h!\nW\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"])