ACC SHELL

;ELC
;;; Compiled by abuild@build34 on Mon Jul  5 19:25:37 2010
;;; from file /usr/src/packages/BUILD/a2ps-4.13/contrib/emacs/elc.bQOfNU/a2ps-print.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`a2ps-print.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@75 *List of strings to pass as extra switch args to a2ps when it is invoked.
(defvar a2ps-switches nil (#$ . -612))
#@35 Shell command for printing a file
(defvar a2ps-command "a2ps" (#$ . 731))
#@123 Print buffer contents as with Unix command `a2ps'.
`a2ps-switches' is a list of extra switches (strings) to pass to a2ps.
(defalias 'a2ps-buffer #[(argp) "\301ed#\207" [argp a2ps-region] 4 (#$ . 812) "P"])
#@123 Print region contents as with Unix command `a2ps'.
`a2ps-switches' is a list of extra switches (strings) to pass to a2ps.
(defalias 'a2ps-region #[(start end argp) "	\f\203\306\307\310!C\"\311
\n#*\207" [a2ps-switches a2ps-command lpr-command switches argp start append read-string "switches: " a2ps-region-1 end] 4 (#$ . 1026) "r\nP"])
(defalias 'a2ps-region-1 #[(start end switches) "\306 \306 \307\310\306 \"\311O\212\312\313!\210\314U\2047p\315\316!q\210~\210\317 \210\320\f!\210	\321ed\"\210ed)\322\323
\311\211\211\324P\325\326PP\327\nP\257	\244\"\210\312\330!,\207" [tab-width width filetype name oldbuf start buffer-name string-match "[^.]*$" nil message "Spooling..." 8 get-buffer-create " *spool temp*" erase-buffer insert-buffer-substring untabify apply call-process-region "--center-title=" "--footer=" " Emacs buffer" "--pretty-print=" "Spooling...done" end lpr-command switches] 12])