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.8WCzdV/a2ps.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.el' was compiled for Emacs 19.29 or later"))

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


(byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\301\207" [current-load-list a2ps-program default-boundp set-default "/usr/bin/a2ps" a2ps-font-lock-keywords (("^\\#.*" . font-lock-comment-face) ("\\b\\(---\\|\\\\\\(Alpha\\|Beta\\|Chi\\|D\\(elta\\|ownarrow\\)\\|E\\(psilon\\|ta\\)\\|Gamma\\|I\\(m\\|ota\\)\\|Kappa\\|L\\(ambda\\|eft\\(arrow\\|rightarrow\\)\\)\\|Mu\\|Nu\\|Om\\(ega\\|icron\\)\\|P\\(hi\\|i\\|si\\)\\|R\\(e\\|ho\\|ightarrow\\)\\|Sigma\\|T\\(au\\|heta\\)\\|Up\\(arrow\\|silon\\)\\|Xi\\|Zeta\\|a\\(l\\(eph\\|pha\\)\\|ngle\\|pp\\(le\\|rox\\)\\)\\|b\\(eta\\|ullet\\)\\|c\\(a\\(p\\|rriagereturn\\)\\|dot\\|hi\\|irc\\|lubsuit\\|o\\(ng\\|pyright\\)\\|up\\)\\|d\\(elta\\|i\\(amondsuit\\|v\\)\\|ownarrow\\)\\|e\\(mptyset\\|psilon\\|quiv\\|ta\\|xists\\)\\|f\\(lorin\\|orall\\)\\|g\\(amma\\|eq\\)\\|heartsuit\\|i\\(n\\(\\|fty\\|t\\)\\|ota\\)\\|kappa\\|l\\(a\\(mbda\\|ngle\\)\\|ceil\\|dots\\|e\\(ft\\(arrow\\|rightarrow\\)\\|q\\)\\|floor\\)\\|mu\\|n\\(abla\\|eq\\|ot\\(\\|\\\\\\(in\\|subset\\)\\)\\|u\\)\\|o\\(m\\(ega\\|icron\\)\\|plus\\|times\\)\\|p\\([im]\\|artial\\|erp\\|hi\\|r\\(ime\\|o\\(d\\|pto\\)\\)\\|si\\)\\|r\\(a\\(dicalex\\|ngle\\)\\|ceil\\|egister\\|floor\\|ho\\|ightarrow\\)\\|s\\(i\\(gma\\|m\\)\\|padesuit\\|u\\(bset\\(\\|eq\\)\\|chthat\\|m\\|pset\\(\\|eq\\)\\|rd\\)\\)\\|t\\(au\\|he\\(refore\\|ta\\)\\|imes\\|rademark\\)\\|up\\(arrow\\|silon\\)\\|v\\(ar\\(Upsilon\\|copyright\\|diamondsuit\\|p\\(hi\\|i\\)\\|register\\|sigma\\|t\\(heta\\|rademark\\)\\)\\|ee\\)\\|w\\(edge\\|p\\)\\|xi\\|zeta\\)\\)\\b" . font-lock-type-face) ("\\b\\(a\\(2ps\\|lphabets?\\|ncestors\\|re\\)\\|by\\|c\\(ase\\|losers\\)\\|documentation\\|e\\(nd\\|xceptions\\)\\|first\\|i\\([ns]\\|nsensitive\\)\\|keywords\\|op\\(erators\\|tional\\)\\|requires\\|s\\(e\\(cond\\|nsitive\\|quences\\)\\|tyle\\)\\|version\\|written\\)\\b" . font-lock-keyword-face) ("\\b\\(C\\(-\\(char\\|string\\)\\|omment\\(\\|_strong\\)\\)\\|E\\(ncoding\\|rror\\)\\|In\\(dex[1234]\\|visible\\)\\|Keyword\\(\\|_strong\\)\\|Label\\(\\|_strong\\)\\|Plain\\|S\\(tring\\|ymbol\\)\\|Tag[1234]\\)\\b" . font-lock-type-face) "default font-lock-keywords")] 3)
#@32 syntax table used in a2ps mode
(defvar a2ps-mode-syntax-table nil (#$ . 2755))
(byte-code "\303 \304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\314#\210\304\315\316#\210\304\317\316#\210\304\320\316#\210\321	B\322\321!\204L\323\321\324 \325\n\326\327#\210\325\n\330\331#\210\n)\"\210\303\207" [a2ps-mode-syntax-table current-load-list map make-syntax-table modify-syntax-entry 35 "<\n" 10 ">#" 47 "\"" 92 "_" 64 "w" 95 42 a2ps-mode-map default-boundp set-default make-sparse-keymap define-key "" a2ps-a2ps-buffer "" comment-region] 6)
#@47 Check that the current style sheet is correct
(defalias 'a2ps-check-buffer #[nil "\303	Q\304\n!)\207" [a2ps-program buffer-file-name compile-command " -q < /dev/null -o - > /dev/null -E" compile] 3 (#$ . 3323) nil])
#@45 send contents of the current region to a2ps
(defalias 'a2ps-a2ps-region #[nil "\301\302\303\304$\210\305\302`\306 #\210\307\302!\210\310\303!\207" [a2ps-program start-process "a2psprocess" "*a2ps output*" "-e" process-send-region mark process-send-eof switch-to-buffer] 5 (#$ . 3547) nil])
#@25 Menu used in a2ps mode.
(defvar a2ps-mode-menu nil (#$ . 3844))
(byte-code "\301\302\303\304\305\306E$\207" [a2ps-mode-map easy-menu-do-define a2ps-mode-menu "Menu used in a2ps mode." "a2ps" ["Compile region" a2ps-compile-regexp t] ["Documentation" a2ps-goto-info-page t]] 7)
#@62 Read documentation for a2ps style sheets in the info system.
(defalias 'a2ps-goto-info-page #[nil "\300\301!\210\302\303!\207" [require info Info-goto-node "(a2ps)Style sheets implementation"] 2 (#$ . 4127) nil])
#@63 A major-mode to edit a2ps style sheet files
\{a2ps-mode-map}

(defalias 'a2ps-mode #[nil "\306 \210\307!\210\310\301!\210\311\310\302!\210\312\313\314!\210\315 \210\316\317!\210\313\320!\210\321\"\210\312\310\322!\210\323\324\325\326!\210\327\330!\207" [a2ps-mode-map comment-start parse-sexp-ignore-comments a2ps-mode-menu words-include-escapes major-mode kill-all-local-variables use-local-map make-local-variable "#" t require filladapt filladapt-mode load "make-regexp" easymenu easy-menu-add font-lock-defaults a2ps-mode "a2ps" (a2ps-font-lock-keywords nil) set-syntax-table run-hooks a2ps-mode-hook mode-name a2ps-mode-syntax-table] 3 (#$ . 4346) nil])
(provide 'a2ps-mode)