;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:18:55 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/textmodes/bibtex-style.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\304B\305\304!\204U\306\304\307 \310\311\312	#\210\310\313\314	#\210\310\315\316	#\210\310\317\320	#\210\310\321\322	#\210\310\323\324	#\210\310\325\326	#\210\310\327\326	#\210\310\330\331	#\210\310\332\331	#\210\310\333\324	#\210	)\"\210\302B\334\335!\210\336B\337\340!\210\341B\305\341!\204{\306\341\342\n\343\"\344B\345B\"\210\346\347N\204\211\350\346\347\351\352!#\210\353\354!\204\225\350\354\355\356#\210\354B\305\354!\204\245\306\354\357 \"\210\354\347N\204\263\350\354\347\351\360!#\210\353\304!\204\277\350\304\355\356#\210\304B\305\304!\204\317\306\304\307 \"\210\304\347N\204\335\350\304\347\351\361!#\210\350\303\355\356#\210\303B\305\303!\204\367\306\303\362\303\363\"\210\"\210\303\347N\204\350\303\347\351\364!#\210\350\356\365\363#\207" [current-load-list st bibtex-style-commands bibtex-style-mode-abbrev-table bibtex-style-mode-syntax-table default-boundp set-default make-syntax-table modify-syntax-entry 37 "<" 10 ">" 123 "(}" 125 "){" 34 "\"" 46 "_" 39 "'" 35 42 "." 61 36 (lambda (#1=#:defconst-tmp-var) (defconst bibtex-style-commands #1#)) ("ENTRY" "EXECUTE" "FUNCTION" "INTEGERS" "ITERATE" "MACRO" "READ" "REVERSE" "SORT" "STRINGS") bibtex-style-functions (lambda (#2=#:defconst-tmp-var) (defconst bibtex-style-functions #2#)) ("<" ">" "=" "+" "-" "*" ":=" "add.period$" "call.type$" "change.case$" "chr.to.int$" "cite$" "duplicate$" "empty$" "format.name$" "if$" "int.to.chr$" "int.to.str$" "missing$" "newline$" "num.names$" "pop$" "preamble$" "purify$" "quote$" "skip$" "stack$" "substring$" "swap$" "text.length$" "text.prefix$" "top$" "type$" "warning$" "while$" "width$" "write$") bibtex-style-font-lock-keywords regexp-opt words font-lock-keyword-face (("\\w+\\$" . font-lock-keyword-face) ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" (2 font-lock-function-name-face))) bibtex-style-mode-hook variable-documentation put purecopy "Hook run when entering BibStyle mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp bibtex-style-mode-map definition-name bibtex-style-mode make-sparse-keymap "Keymap for `bibtex-style-mode'." "Syntax table for `bibtex-style-mode'." define-abbrev-table nil "Abbrev table for `bibtex-style-mode'." derived-mode-parent] 6)
#@162 Major mode for editing BibTeX style files.

This mode runs the hook `bibtex-style-mode-hook', as the final step
during initialization.

\{bibtex-style-mode-map}
(defalias 'bibtex-style-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\306\315!\210\316
\306\317!\210\320\306\321!\210\322\306\323!\210\324\306\325!\210\307\326)\327\330!\207" [delay-mode-hooks major-mode mode-name bibtex-style-mode-map bibtex-style-mode-syntax-table bibtex-style-mode-abbrev-table make-local-variable t fundamental-mode bibtex-style-mode "BibStyle" use-local-map set-syntax-table comment-start "%" outline-regexp "^[a-z]" imenu-generic-expression ((nil "\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" 2)) indent-line-function bibtex-style-indent-line parse-sexp-ignore-comments (bibtex-style-font-lock-keywords nil t ((46 . "w"))) run-mode-hooks bibtex-style-mode-hook local-abbrev-table font-lock-defaults] 2 (#$ . 2873) nil])
#@43 Indent current line of BibTeX Style code.
(defalias 'bibtex-style-indent-line #[nil "`\302\303\304\217\203\212\305	!)\202\305	!*\207" [savep indent nil (byte-code "\212\301y\210\302\303w\210`Y\203\303\304 \301])\207" [savep 0 " 	" nil bibtex-style-calculate-indentation] 2) ((error 0)) indent-line-to] 3 (#$ . 3824) nil])
#@58 Basic amount of indentation to use in BibTeX Style mode.
(custom-declare-variable 'bibtex-style-indent-basic '2 '(#$ . 4163) :version "22.2" :type 'integer :group 'bibtex)
(defalias 'bibtex-style-calculate-indentation #[(&optional virt) "e\304 U\203	\305\207\306\307\310\"!\203\305\207	\203&\212\311\312x\210n)\203&i\206d\306\313!\2033\312\314\315\217\206d\306\316!\203@\312\317\320\217\206d\321\322\323\217\206d\312\324\325\217\212\321\326\327\217\210i\n\204]\306\330!\203a\202b\305\\*\207" [bibtex-style-commands virt fai bibtex-style-indent-basic line-beginning-position 0 looking-at regexp-opt words " 	{" nil "}" (byte-code "\212\300\301!\210\302\303!)\207" [up-list -1 bibtex-style-calculate-indentation virt] 2) ((scan-error)) "if\\$" (byte-code "\212\300\301!\210\302\303!)\207" [backward-sexp 3 bibtex-style-calculate-indentation virt] 2) ((scan-error (byte-code "\300\301\302\217\207" [nil (byte-code "\212\301\302!\210\303\304!\\)\207" [bibtex-style-indent-basic up-list -1 bibtex-style-calculate-indentation virt] 3) ((scan-error))] 3))) err (byte-code "\212\300\301!\210)\302\207" [backward-sexp 1 nil] 2) ((scan-error (byte-code "\3028b\210	\303\304!\\\207" [err bibtex-style-indent-basic 2 bibtex-style-calculate-indentation virt] 3))) (byte-code "\212\300\301!\210\302d!\210\303\304!)\207" [forward-sexp 2 forward-comment looking-at "if\\$"] 2) ((scan-error)) (byte-code "\300\301!\210\212\302\303x\210n)\203\303\207" [backward-sexp 1 " 	{" nil] 2) ((scan-error)) "ENTRY"] 4])
(provide 'bibtex-style)
