;ELC
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305!\210\306\307\310\"\210\306\311\312\"\207" [require cl-lib mmm-auto mmm-vars mmm-add-classes ((httpd-conf-perl :submode perl :delimiter-mode nil :front "" :back "")) mmm-add-group html-js ((js-script-cdata :submode js-mode :face mmm-code-submode-face :front "]*>[ \n]*\\(//\\)?[ \n]*") (js-script :submode js-mode :face mmm-code-submode-face :front "]*>[ ]*\n?" :back "[ ]*" :insert ((106 js-tag nil @ "" @)))) html-css ((css-cdata :submode css :face mmm-code-submode-face :front "]*>[ \n]*\\(//\\)?[ \n]*") (css :submode css :face mmm-code-submode-face :front "]*>[ ]*\n?" :back "[ ]*" :insert ((99 css-tag nil @ "" @))))] 3)
#@443 Alist associating here-document name regexps to submodes.
Normally, this variable is unnecessary, as the `here-doc' submode
class tries to automagically recognize the right submode. If you use
here-document names that it doesn't recognize, however, then you can
add elements to this alist. Each element is (REGEXP . MODE) where
REGEXP is a regular expression matched against the here-document name
and MODE is a major mode function symbol.
(defvar mmm-here-doc-mode-alist nil (#$ . 1080))
(defalias 'mmm-here-doc-get-mode #[(string) "\306\307\"\210\310\311\"\312\313\314 \"!\206\216 \315\227\316\"\312\317\320\321\322\n\323\n\235\"\323C\244\324#!!\206\215 \313\325\n\"\206\215 \313\326\n\"\206\215 \n\327\211 \327 \330 \327 :\203\202 \211 \211A \242 @\312\317\f
\331Q!!\211 \203v \327\211 \202w \330)\203\202 A\211\202K .\206\215 \332\333\327\")\207" [string mmm-here-doc-mode-alist words #1=#:--cl-var-- one two string-match "[a-zA-Z_-]+" match-string 0 mmm-ensure-modename cl-some #[(pair) "\302@ \"\205\n A\207" [pair string string-match] 3] split-string "[_-]+" intern mapconcat identity cl-ldiff "mode" "-" #[(word) "\301\302!!\207" [word mmm-ensure-modename intern] 3] #[(word) "\301\302\303P!!\207" [word mmm-ensure-modename intern "-mode"] 4] nil t "-mode" signal mmm-no-matching-submode #2=#:--cl-var-- #3=#:--cl-var-- #4=#:--cl-var-- it] 9])
(byte-code "\300\301!\210\302\303\304\"\210\302\305\306\"\207" [mmm-add-classes ((here-doc :front "<<[\"'`]?\\([a-zA-Z0-9_-]+\\)" :front-offset (end-of-line 1) :back "^~1$" :save-matches 1 :delimiter-mode nil :match-submode mmm-here-doc-get-mode :insert ((100 here-doc "Here-document Name: " @ "<<" str _ "\n" @ "\n" @ str "\n" @)))) mmm-add-group embperl ((embperl-perl :submode perl :front "\\[\\([-\\+!\\*\\$]\\)" :back "~1\\]" :save-matches 1 :match-name "embperl" :match-face (("[+" . mmm-output-submode-face) ("[-" . mmm-code-submode-face) ("[!" . mmm-init-submode-face) ("[*" . mmm-code-submode-face) ("[$" . mmm-special-submode-face)) :insert ((112 embperl "Region Type (Character): " @ "[" str @ " " _ " " @ str "]" @) (43 embperl+ 112 . "+") (45 embperl- 112 . "-") (33 embperl! 112 . "!") (42 embperl* 112 . "*") (36 embperl$ 112 . "$"))) (embperl-comment :submode text-mode :face mmm-comment-submode-face :front "\\[#" :back "#\\]" :insert ((35 embperl-comment nil @ "[#" @ " " _ " " @ "#]" @)))) eperl ((eperl-expr :submode perl :face mmm-output-submode-face :front "<:=" :back ":>" :insert ((61 eperl-expr nil @ "<:=" @ " " _ " " @ ":>" @))) (eperl-code :submode perl :face mmm-code-submode-face :front "<:" :back "_?:>" :match-name "eperl" :insert ((112 eperl-code nil @ "<:" @ " " _ " " @ ":>" @) (58 eperl-code 112) (95 eperl-code_ nil @ "<:" @ " " _ " " @ "_:>" @))) (eperl-comment :submode text :face mmm-comment-submode-face :front ":>//" :back "\n"))] 3)
(defalias 'mmm-file-variables-verify #[nil "\212\302 \303\216db\210\304 \210\305\306\307\310#\205- \311\312!\307\210`\313\314\315\311\312!\"\307\310#\205, \316 \210`E+\211\205_ AA@\205_ \302 \317\216\320\314\321\322 @!\"\311\323!\"*\205_ \323\224 A@V\205_ \323\225 AA@W)\207" [save-match-data-internal bounds match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] backward-page re-search-forward "^\\(.*\\)Local Variables:" nil t match-string 1 search-forward format "%sEnd:" beginning-of-line #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "^%s" regexp-quote 0] 8])
(defalias 'mmm-file-variables-find-back #[(bound) "\301 \210`V?\205
\302\303!\207" [bound forward-sexp looking-at ""] 2])
(byte-code "\300\301!\210\302\303\304\"\210\300\305!\210\302\306\307\"\210\310\311!\207" [mmm-add-classes ((file-variables :front ".+:" :front-verify mmm-file-variables-verify :back mmm-file-variables-find-back :submode emacs-lisp-mode :delimiter-mode nil)) mmm-add-group jsp ((jsp-comment :submode text-mode :face mmm-comment-submode-face :front "<%--" :back "--%>" :insert ((45 jsp-comment nil @ "<%--" @ " " _ " " @ "--%>" @))) (jsp-code :submode java :match-face (("<%!" . mmm-declaration-submode-face) ("<%=" . mmm-output-submode-face) ("<%" . mmm-code-submode-face)) :front "<%[!=]?" :back "%>" :match-name "jsp" :insert ((37 jsp-code nil @ "<%" @ " " _ " " @ "%>" @) (33 jsp-declaration nil @ "<%!" @ " " _ " " @ "%>" @) (61 jsp-expression nil @ "<%=" @ " " _ " " @ "%>" @))) (jsp-directive :submode text-mode :face mmm-special-submode-face :front "<%@" :back "%>" :insert ((64 jsp-directive nil @ "<%@" @ " " _ " " @ "%>" @)))) ((sgml-dtd :submode dtd-mode :face mmm-declaration-submode-face :delimiter-mode nil :front "[]*\\[" :back "]>")) html-php ((html-php-output :submode php-mode :face mmm-output-submode-face :front "<\\?php *echo " :back "\\(\\?>\\|\\'\\)" :include-front t :front-offset 5 :insert ((101 php-echo nil @ "" @))) (html-php-code :submode php-mode :face mmm-code-submode-face :front "<\\?\\(php\\)?" :back "\\(\\?>\\|\\'\\)" :insert ((112 php-section nil @ "" @) (98 php-block nil @ "" @)))) provide mmm-sample] 3)