;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\304\301%\207" [custom-declare-group zombie nil "Editing ZOMBIE programs." :group languages custom-declare-variable zombie-indent-width 4 "The indent width used by the editing buffer."] 6) (defvar zombie-font-lock-keywords (byte-code "\300\301B\302\303\304\305BF\207" ["\\_<\\(d\\(?:\\(?:emo\\|jin\\)n\\)\\|enslaved undead\\|free-willed undead\\|ghost\\|restless undead\\|\\(?:vampir\\|zombi\\)e\\)\\_>" font-lock-type-face ("\\(task\\) \\([^ \n]+\\)" (1 font-lock-keyword-face) (2 font-lock-function-name-face)) ("\\([^ \n]+\\) is a" 1 font-lock-variable-name-face) "\\_<\\(a\\(?:nimate\\|round\\)\\|b\\(?:a\\(?:d\\|nish\\)\\|ind\\)\\|disturb\\|forget\\|good\\|invoke\\|moan\\|re\\(?:member\\(?:ing\\)?\\|nd\\)\\|s\\(?:ay\\|hamble\\|pit\\|tumble\\|ummon\\)\\|t\\(?:as\\(?:k\\|te\\)\\|urn\\)\\|until\\)\\_>" font-lock-keyword-face] 5)) (defvar zombie-mode-map (byte-code "\301 \302\303\304#\210)\207" [kmap make-sparse-keymap define-key [remap newline-and-indent] reindent-then-newline-and-indent] 4)) (defvar zombie-block-opening-regexp "\\_<\\(bad\\|good\\|s\\(?:hamble\\|ummon\\)\\|tas\\(?:k\\|te\\)\\)\\_>") (defvar zombie-block-closing-regexp "\\_<\\(around\\|b\\(?:\\(?:a\\|in\\)d\\)\\|good\\|spit\\|until\\)\\_>\\|\\_<\\(animate\\|disturb\\)\\_>[ ]*$") #@36 Indent current-line as ZOMBIE code (defalias 'zombie-indent-line #[nil "\212\305y\306U\204\f\306\202\307 \210\310!\203i \\\202i)\212\307 \210\310\n!)\311\f \2031 \2022\306Z\306]!*\207" [zombie-block-opening-regexp zombie-indent-width zombie-block-closing-regexp closing col -1 0 back-to-indentation looking-at indent-line-to] 3 (#$ . 1410) nil]) (defvar zombie-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [zombie-mode-hook variable-documentation put "Hook run after entering ZOMBIE mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp zombie-mode-map definition-name zombie-mode] 4) (defvar zombie-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\322#\210\303\311\323\324#\207" [zombie-mode-abbrev-table zombie-mode-map variable-documentation put purecopy "Keymap for `zombie-mode'." boundp zombie-mode-syntax-table definition-name zombie-mode (lambda (def-tmp-var) (defvar zombie-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `zombie-mode'." (lambda (def-tmp-var) (defvar zombie-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `zombie-mode'." derived-mode-parent prog-mode custom-mode-group zombie] 5) #@231 Major mode for editing ZOMBIE programs. In addition to any hooks its parent mode `prog-mode' might have run, this mode runs the hook `zombie-mode-hook', as the final or penultimate step during initialization. \{zombie-mode-map} (defalias 'zombie-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327 !\210\330\f!\210\306\331!\210\332\333 )\334\335!\207" [delay-mode-hooks major-mode mode-name zombie-mode-map zombie-mode-syntax-table parent make-local-variable t prog-mode zombie-mode "ZOMBIE" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table indent-line-function zombie-indent-line (zombie-font-lock-keywords) run-mode-hooks zombie-mode-hook zombie-mode-abbrev-table local-abbrev-table font-lock-defaults] 6 (#$ . 2978) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [add-to-list auto-mode-alist ("\\.zombie\\'" . zombie-mode) provide zombie] 3)