%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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))
(defvar bibtex-style-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [bibtex-style-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar bibtex-style-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\317#\207" [bibtex-style-mode-abbrev-table bibtex-style-mode-map variable-documentation put purecopy "Keymap for `bibtex-style-mode'." boundp bibtex-style-mode-syntax-table definition-name bibtex-style-mode (lambda (#1=#:def-tmp-var) (defvar bibtex-style-mode-syntax-table #1#)) make-syntax-table "Syntax table for `bibtex-style-mode'." (lambda (#1#) (defvar bibtex-style-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `bibtex-style-mode'." derived-mode-parent] 5)
#@177 Major mode for editing BibTeX style files.
This mode runs the hook `bibtex-style-mode-hook', as the final or penultimate step
during initialization.
\{bibtex-style-mode-map}
(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 (#$ . 2793) nil])
#@43 Indent current line of BibTeX Style code.
(defalias 'bibtex-style-indent-line #[0 "`\3001 \212\301y\210\302\303w\210`Y\203 \303\262\304 \301])0\202! \210\301\203- \212\305!)\2020 \305!\207" [(error) 0 " " nil bibtex-style-calculate-indentation indent-line-to] 4 (#$ . 3765) 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] "Basic amount of indentation to use in BibTeX Style mode." :version "22.2" :type integer :group bibtex] 10)
#@23
(fn &optional VIRT)
(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\333 \304\311!\203B \3121= \212\313\314!\210\315\316!)0\202? \210\310\206\333 \304\317!\203r \3201Y \212\321\322!\210\315\316!)0\202o \210\3231m \212\313\314!\210 \315\316!\\)0\202o \210\310\206\333 \3241\201 \212\321\325!\210)\3100\202\215 \3268b\210 \315\316!\\\262\206\333 \3271\245 \212\330\326!\210\331d!\210\304\317!)0\202\247 \210\310\212\3321\302 \321\325!\210\212\307\310x\210n)?\205\276 \202\254 0\202\306 \210\202\307 \210i\204\322 \304\333!\203\326 \202\327 \303\\)\262\207" [bibtex-style-commands bibtex-style-indent-basic line-beginning-position 0 looking-at regexp-opt words " {" nil "}" (scan-error) up-list -1 bibtex-style-calculate-indentation virt "if\\$" (scan-error) backward-sexp 3 (scan-error) (scan-error) 1 2 (scan-error) forward-sexp forward-comment (scan-error) "ENTRY"] 5 (#$ . 4327)])
(provide 'bibtex-style)
Zerion Mini Shell 1.0