;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:11:47 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/bibtex-style.el
;;; in Emacs version 24.3.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.

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


(defvar bibtex-style-mode-syntax-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\317#\210\301\321\322#\210\301\323\322#\210\301\324\315#\210\211\207" [make-syntax-table modify-syntax-entry 37 "<" 10 ">" 123 "(}" 125 "){" 34 "\"" 46 "_" 39 "'" 35 42 "." 61 36] 5))
(defconst bibtex-style-commands '("ENTRY" "EXECUTE" "FUNCTION" "INTEGERS" "ITERATE" "MACRO" "READ" "REVERSE" "SORT" "STRINGS"))
(defconst bibtex-style-functions '("<" ">" "=" "+" "-" "*" ":=" "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$"))
(defvar bibtex-style-font-lock-keywords (byte-code "\301\302\"\303B\304B\207" [bibtex-style-commands regexp-opt words font-lock-keyword-face (("\\w+\\$" . font-lock-keyword-face) ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" (2 font-lock-function-name-face)))] 3))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [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] 5)
(defvar bibtex-style-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [bibtex-style-mode-map variable-documentation put purecopy "Keymap for `bibtex-style-mode'." boundp bibtex-style-mode-syntax-table definition-name bibtex-style-mode] 5)
(defvar bibtex-style-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [bibtex-style-mode-syntax-table variable-documentation put purecopy "Syntax table for `bibtex-style-mode'." bibtex-style-mode-abbrev-table definition-name bibtex-style-mode] 5)
(defvar bibtex-style-mode-abbrev-table (progn (define-abbrev-table 'bibtex-style-mode-abbrev-table nil) bibtex-style-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [bibtex-style-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `bibtex-style-mode'." bibtex-style-mode derived-mode-parent nil] 5)
#@168 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}

(fn)
(defalias 'bibtex-style-mode #[0 "\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 kill-all-local-variables 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 (#$ . 3129) nil])
#@49 Indent current line of BibTeX Style code.

(fn)
(defalias 'bibtex-style-indent-line #[0 "`C\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\313\300EDC\217
@\203'\212\314
!)\202*\314
!\207" [#1=#:err funcall make-byte-code 0 "\212\301y\210\302\303w\210`\300@Y\203\300\303\240\210\304 \301])\207" vconcat vector [0 " 	" nil bibtex-style-calculate-indentation] 2 "\n\n(fn)" error #[257 "\300\207" [0] 2 "\n\n(fn IGNORED)"] indent-line-to] 9 (#$ . 4092) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable bibtex-style-indent-basic funcall function #[0 "\300\207" [2] 1 "\n\n(fn)"] "Basic amount of indentation to use in BibTeX Style mode." :version "22.2" :type integer :group bibtex] 10)
(defalias 'bibtex-style-calculate-indentation #[256 "e\302 U\203	\303\207\304\305\306\"!\203\303\207\211\203&\212\307\310x\210n)\203&i\206\215\304\311!\203;\312\313\314D\315\313\316\312EDC\217\206\215\304\317!\203P\320\313\321D\315\313\322\320EDC\217\206\215\323\313\324D\315\313\325\323EDC\217\206\215\326\313\327D\315\313\330\326EDC\217\212\331\313\332D\315\313\333\331EDC\217\210i
\204\204\304\334!\203\210	\202\211\303\\)\262
\207" [bibtex-style-commands bibtex-style-indent-basic line-beginning-position 0 looking-at regexp-opt words " 	{" nil "}" #1=#:err funcall #[0 "\212\300\301!\210\302\303!)\207" [up-list -1 bibtex-style-calculate-indentation virt] 2 "\n\n(fn)"] scan-error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] "if\\$" #2=#:err #[0 "\212\300\301!\210\302\303!)\207" [backward-sexp 3 bibtex-style-calculate-indentation virt] 2 "\n\n(fn)"] #[257 "\300\301\302D\303\301\304\300EDC\217\207" [#3=#:err funcall #[0 "\212\301\302!\210\303\304!\\)\207" [bibtex-style-indent-basic up-list -1 bibtex-style-calculate-indentation virt] 3 "\n\n(fn)"] scan-error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 7 "\n\n(fn IGNORED)"] #4=#:err #[0 "\212\300\301!\210)\302\207" [backward-sexp 1 nil] 2 "\n\n(fn)"] #[257 "\301
8b\210\302\303!\\\207" [bibtex-style-indent-basic 2 bibtex-style-calculate-indentation virt] 4 "\n\n(fn ERR)"] #5=#:err #[0 "\212\300\301!\210\302d!\210\303\304!)\207" [forward-sexp 2 forward-comment looking-at "if\\$"] 2 "\n\n(fn)"] #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] #6=#:err #[0 "\300\301!\210\212\302\303x\210n)?\205\202\207" [backward-sexp 1 " 	{" nil] 2 "\n\n(fn)"] #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] "ENTRY"] 8 "\n\n(fn &optional VIRT)"])
(provide 'bibtex-style)