;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Fri Aug 26 23:31:41 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/lpr.el ;;; emacs version 19.25.94.8. ;;; 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")) (defvar lpr-switches nil "\ *List of strings to pass as extra switch args to `lpr' when it is invoked.") (defvar lpr-add-options (eq system-type (quote berkeley-unix)) "\ *Non-nil means construct -T and -J options for the `lpr'.") (defvar lpr-command (byte-code "Á>ƒ‡Ç" [system-type (usg-unix-v dgux hpux irix) "lp" "lpr"] 2) "\ *Shell command for printing a file") (defvar lpr-headers-switches (byte-code "Á>?…‡" [system-type (usg-unix-v dgux hpux irix) "-p"] 2) "\ *List of strings to use as options for `lpr' to request page headings.") (defvar print-region-function nil "\ Function to call to print the region on a printer. See definition of `print-region-1' for calling conventions.") (defalias '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]) (defalias '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]) (defalias '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"]) (defalias '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 "ÀÁÂ\"ˆÀÃÄ\"‡" [defalias print-region-1 #[(start end switches page-headers) "À ÁPÀ ÁP\nŠÆÇ!ˆ\nÈU„/É\n \"ˆ Š bˆÌ  )Íed\"ˆƒiƒPÐ;ƒFC‚H\"‚iÉ\n \"ˆÒ\n ÓÔ‰Õ&ˆe\nd Ö†pÒ\n Õ‰‰¯……Ú Û\fF¤¤\"ˆÜ !ƒ˜ Õ‰“ˆÆÝ!,‡" [buffer-name " Emacs buffer" tab-width width title name message "Spooling..." 8 print-region-new-buffer start end point-marker untabify page-headers lpr-headers-switches append switches call-process-region "pr" t nil apply print-region-function lpr-command lpr-add-options "-J" "-T" markerp "Spooling...done"] 8] print-region-new-buffer #[(ostart oend) "À Á˜†#pÃÁ!qˆ~ˆÄ ˆÅ\n#ˆed‰ )‡" [buffer-name " *spool temp*" oldbuf get-buffer-create erase-buffer insert-buffer-substring ostart oend start end] 4]] 3) (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 "\ Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF) in the current buffer into printable representations as control or hexadecimal escapes." "r"])