;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\316\317\320\321\322&\207" [require sgml-mode js css-mode prog-mode custom-declare-variable mhtml-tag-relative-indent funcall function #[0 "\300\207" [t] 1 ""] "How <script> and <style> bodies are indented relative to the tag.\n\nWhen t, indentation looks like:\n\n  <script>\n    code();\n  </script>\n\nWhen nil, indentation of the script body starts just below the\ntag, like:\n\n  <script>\n  code();\n  </script>\n\nWhen `ignore', the script body starts in the first column, like:\n\n  <script>\ncode();\n  </script>" :group sgml :type (choice (const nil) (const t) (const ignore)) :safe symbolp :version "26.1"] 12)
#@73 compiler-macro for inlining `mhtml--submode-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-p (and (memq (type-of cl-x) cl-struct-mhtml--submode-tags) t)) nil] 9 (#$ . 809)])
(put 'mhtml--submode-p 'compiler-macro 'mhtml--submode-p--cmacro)
#@13 

(fn CL-X)
(defalias 'mhtml--submode-p #[257 "\301
!>\205	\302\207" [cl-struct-mhtml--submode-tags type-of t] 3 (#$ . 1166)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put mhtml--submode-p side-effect-free error-free put mhtml--submode cl-deftype-satisfies] 5)
#@76 compiler-macro for inlining `mhtml--submode-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-name (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 1))) nil] 9 (#$ . 1456)])
(put 'mhtml--submode-name 'compiler-macro 'mhtml--submode-name--cmacro)
#@64 Access slot "name" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-name #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 1] 5 (#$ . 1878)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-name side-effect-free t] 4)
#@79 compiler-macro for inlining `mhtml--submode-end-tag'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-end-tag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-end-tag (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2230)])
(put 'mhtml--submode-end-tag 'compiler-macro 'mhtml--submode-end-tag--cmacro)
#@67 Access slot "end-tag" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-end-tag #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 2] 5 (#$ . 2667)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-end-tag side-effect-free t] 4)
#@84 compiler-macro for inlining `mhtml--submode-syntax-table'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-syntax-table--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-syntax-table (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 3))) nil] 9 (#$ . 3028)])
(put 'mhtml--submode-syntax-table 'compiler-macro 'mhtml--submode-syntax-table--cmacro)
#@72 Access slot "syntax-table" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-syntax-table #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 3] 5 (#$ . 3490)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-syntax-table side-effect-free t] 4)
#@82 compiler-macro for inlining `mhtml--submode-propertize'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-propertize--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-propertize (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 4))) nil] 9 (#$ . 3866)])
(put 'mhtml--submode-propertize 'compiler-macro 'mhtml--submode-propertize--cmacro)
#@70 Access slot "propertize" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-propertize #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 4] 5 (#$ . 4318)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-propertize side-effect-free t] 4)
#@78 compiler-macro for inlining `mhtml--submode-keymap'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-keymap--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-keymap (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 5))) nil] 9 (#$ . 4688)])
(put 'mhtml--submode-keymap 'compiler-macro 'mhtml--submode-keymap--cmacro)
#@66 Access slot "keymap" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-keymap #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 5] 5 (#$ . 5120)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-keymap side-effect-free t] 4)
#@95 compiler-macro for inlining `mhtml--submode-crucial-captured-locals'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-crucial-captured-locals--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-crucial-captured-locals (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 6))) nil] 9 (#$ . 5478)])
(put 'mhtml--submode-crucial-captured-locals 'compiler-macro 'mhtml--submode-crucial-captured-locals--cmacro)
#@83 Access slot "crucial-captured-locals" of `mhtml--submode' struct
CL-X.

(fn CL-X)
(defalias 'mhtml--submode-crucial-captured-locals #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 6] 5 (#$ . 5995)])
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--submode-crucial-captured-locals side-effect-free t] 4)
#@87 compiler-macro for inlining `mhtml--submode-captured-locals'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'mhtml--submode-captured-locals--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block mhtml--submode-captured-locals (progn (or (mhtml--submode-p cl-x) (signal 'wrong-type-argument (list 'mhtml--submode cl-x))) (aref cl-x 7))) nil] 9 (#$ . 6404)])
(put 'mhtml--submode-captured-locals 'compiler-macro 'mhtml--submode-captured-locals--cmacro)
#@75 Access slot "captured-locals" of `mhtml--submode' struct CL-X.

(fn CL-X)
(defalias 'mhtml--submode-captured-locals #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 7] 5 (#$ . 6881)])
(byte-code "\300\301\302\303#\304\305\306\"\207" [function-put mhtml--submode-captured-locals side-effect-free t defalias copy-mhtml--submode copy-sequence] 4)
#@166 compiler-macro for inlining `make-mhtml--submode'.

(fn CL-WHOLE &cl-quote &key NAME END-TAG SYNTAX-TABLE PROPERTIZE KEYMAP CRUCIAL-CAPTURED-LOCALS CAPTURED-LOCALS)
(defalias 'make-mhtml--submode--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262
\202.\311	>A@\203P\312\262
\202.\313\314@\"\210\202.\210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals (:name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals)" cl--defsubst-expand (name end-tag syntax-table propertize keymap crucial-captured-locals captured-locals) (cl-block make-mhtml--submode (record 'mhtml--submode name end-tag syntax-table propertize keymap crucial-captured-locals captured-locals))] 22 (#$ . 7320)])
(put 'make-mhtml--submode 'compiler-macro 'make-mhtml--submode--cmacro)
#@146 Constructor for objects of type `mhtml--submode'.

(fn &key NAME END-TAG SYNTAX-TABLE PROPERTIZE KEYMAP CRUCIAL-CAPTURED-LOCALS CAPTURED-LOCALS)
(defalias 'make-mhtml--submode #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y\211@\310>\203A\211AA\262
\202.\311	>A@\203P\312\262
\202.\313\314@\"\210\202.\210\315\316&\207" [plist-member :name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals (:name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :end-tag :syntax-table :propertize :keymap :crucial-captured-locals :captured-locals)" record mhtml--submode] 17 (#$ . 8491)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put make-mhtml--submode side-effect-free t cl-struct-define mhtml--submode nil cl-structure-object record ((cl-tag-slot) (name) (end-tag) (syntax-table) (propertize) (keymap) (crucial-captured-locals) (captured-locals)) cl-struct-mhtml--submode-tags] 11)
#@75 Regexp matching the prefix of "crucial" buffer-locals we want to capture.
(defconst mhtml--crucial-variable-prefix "\\(?:adaptive-fill-\\|com\\(?:\\(?:ment\\|pletion\\)-\\)\\|electric-indent-\\|f\\(?:ill-\\|orward-sexp-function\\)\\|major-mode\\|normal-auto-fill-function\\|\\(?:paragraph\\|smie\\|uncomment\\)-\\)" (#$ . 9656))
#@65 Regexp matching the prefix of buffer-locals we want to capture.
(defconst mhtml--variable-prefix "\\(?:font-lock-\\|indent-line-function\\)" (#$ . 9991))
#@99 A wrapper for make-mhtml--submode that computes the buffer-local variables.

(fn MODE &rest ARGS)
(defalias 'mhtml--construct-submode #[385 "\304\211\305\306\"\307\310\311\"r\211q\210\312\313\"\216 \210\314 \210\315\300!\204%\316\300!\210\317\320 \211\203S\211@\321	\322@!\"\203<\211B\262\321\n\322@!\"\203L\211B\262
A\266\202\202'\210\323!>\204c\324\325\326D\"\210
\327I\210\323!>\204w\324\325\326D\"\210
\330I\210*\210\207" [font-lock-fontify-region-function mhtml--crucial-variable-prefix mhtml--variable-prefix cl-struct-mhtml--submode-tags nil apply make-mhtml--submode generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] font-lock-set-defaults variable-binding-locus make-local-variable font-lock-default-fontify-region buffer-local-variables string-match symbol-name type-of signal wrong-type-argument mhtml--submode 6 7] 12 (#$ . 10151)])
#@16 

(fn SUBMODE)
(defalias 'mhtml--mark-buffer-locals #[257 "\301
!>\204\302\303\304D\"\210\211\305H\211\205$\211@\306
@!\210
A\266\202\202\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 7 make-local-variable] 5 (#$ . 11090)])
#@39 List of all crucial variable symbols.
(defvar mhtml--crucial-variables nil (#$ . 11367))
(make-variable-buffer-local 'mhtml--crucial-variables)
#@16 

(fn SUBMODE)
(defalias 'mhtml--mark-crucial-buffer-locals #[257 "\302
!>\204\303\304\305D\"\210\211\306H\211\205)\211@\307
@!\210\211@	B
A\266\202\202\207" [cl-struct-mhtml--submode-tags mhtml--crucial-variables type-of signal wrong-type-argument mhtml--submode 6 make-local-variable] 5 (#$ . 11517)])
(defconst mhtml--css-submode (mhtml--construct-submode 'css-mode :name "CSS" :end-tag "</style>" :syntax-table css-mode-syntax-table :propertize css-syntax-propertize-function :keymap css-mode-map))
(defconst mhtml--js-submode (mhtml--construct-submode 'js-mode :name "JS" :end-tag "</script>" :syntax-table js-mode-syntax-table :propertize 'js-syntax-propertize :keymap js-mode-map))
#@27 

(fn SUBMODE &rest BODY)
(defalias 'mhtml--with-locals '(macro . #[385 "\300\301\302\303\304DEE\301\302\305\304DEE\300\301\302\306\307\nDEE\301\302\310\307DEEBBBF\207" [cl-progv when mapcar #'car mhtml--submode-captured-locals #'cdr #'car mhtml--submode-crucial-captured-locals #'cdr] 13 (#$ . 12220)]))
(byte-code "\300\301\302\303#\300\207" [function-put mhtml--with-locals lisp-indent-function 1] 4)
#@51 Mode-line lighter indicating the current submode.
(defalias 'mhtml--submode-lighter #[0 "m\203
o\204
`S\202`\301
\302\"\211\203)\303
!>\204%\304\305\306D\"\210\211\307H\207\310\207" [cl-struct-mhtml--submode-tags get-text-property mhtml-submode type-of signal wrong-type-argument mhtml--submode 1 ""] 6 (#$ . 12645)])
#@41 

(fn SUBMODE BEG END &optional LOUDLY)
(defalias 'mhtml--submode-fontify-one-region #[1027 "\203n\205\301\302\303!>\204\304\305\306D\"\210\307H\"\205;\301\310\303!>\2046\304\305\306	D\"\210\307H\"\311\312%\313\203a\211A\262\242\314\211A\262\242DD
B\262
\202G\315\316\237\317\314DDE!\207\320 \210\321#\207" [cl-struct-mhtml--submode-tags mapcar car type-of signal wrong-type-argument mhtml--submode 7 cdr make-closure #[0 "\300\205\305\306\307\300!\f>\204\310\311\312\300D\"\210\300\313H\"\300\2052\305\314\307\300!\f>\204.\310\311\312\300D\"\210\300\313H\"\315\316\301\302\303$\317\203S\211A\262\242\320\211A\262\242DD
B\262
\2029\321\322\237\323\320DDE!\207" [V0 V1 V2 V3 cl-struct-mhtml--submode-tags mapcar car type-of signal wrong-type-argument mhtml--submode 6 cdr make-closure #[0 "\214\303\300\301\302#)\207" [V0 V1 V2 font-lock-fontify-region] 4] nil quote eval let funcall] 10] nil quote eval let funcall font-lock-set-defaults font-lock-default-fontify-region] 14 (#$ . 12977)])
#@23 

(fn BEG END LOUDLY)
(defalias 'mhtml--submode-fontify-region #[771 "\300!\210\211W\203F\301\302\"\303\302\304	$\305		$\211:\203?\211@\306=\203?
A@^\262\211AA\262]\262\210\262\210\202U\203S
U?\205X\306BB\207" [syntax-propertize get-text-property mhtml-submode next-single-property-change nil mhtml--submode-fontify-one-region jit-lock-bounds] 13 (#$ . 14032)])
#@72 Record the last visited submode.
This is used by `mhtml--pre-command'.
(defvar mhtml--last-submode nil (#$ . 14433))
(make-variable-buffer-local 'mhtml--last-submode)
#@51 Alist of stashed values of the crucial variables.
(defvar mhtml--stashed-crucial-variables nil (#$ . 14606))
(make-variable-buffer-local 'mhtml--stashed-crucial-variables)
(defalias 'mhtml--stash-crucial-variables #[0 "\302\303\"\211\207" [mhtml--crucial-variables mhtml--stashed-crucial-variables mapcar #[257 "\211\300p\"B\207" [buffer-local-value] 5 "\n\n(fn SYM)"]] 3])
#@14 

(fn ALIST)
(defalias 'mhtml--map-in-crucial-variables #[257 "\211\211\205\211@\211@
AL\210
A\266\202\202
\207" [] 5 (#$ . 14989)])
(defalias 'mhtml--pre-command #[0 "\303`\304\"\211=?\2056\211\203\204\305 \210\306
\2030\307!	>\204*\310\311\312D\"\210
\313H\2021\n!\210\211\211\207" [mhtml--last-submode cl-struct-mhtml--submode-tags mhtml--stashed-crucial-variables get-text-property mhtml-submode mhtml--stash-crucial-variables mhtml--map-in-crucial-variables type-of signal wrong-type-argument mhtml--submode 6] 6])
#@20 

(fn SUBMODE END)
(defalias 'mhtml--syntax-propertize-submode #[514 "\212\301\302!>\204\303\304\305D\"\210\306H\307#\203\310\224\262
)\311`\312\313\302!>\2046\303\304\305\nD\"\210\314H\315\302\n!>\204L\303\304\305\fD\"\210	\316H\257#\210\302!>\204c\303\304\305D\"\210
\317H`\"\210\211b\207" [cl-struct-mhtml--submode-tags search-forward type-of signal wrong-type-argument mhtml--submode 2 t 0 set-text-properties mhtml-submode syntax-table 3 local-map 5 4] 14 (#$ . 15531)])
(defvar mhtml--syntax-propertize #[514 "
b\210`
W\205%
\302\303\304#\205%
\305\224\203Q\306\307!\211A\310\233\241\210\311
!\266\312\225b\210\313 \314
8\2037\315\262
\202F\310
8\203C\316\262
\202F\317\262
\204\320\"\210\202\321\224\203\221\306\307!\211A\322\233\241\210\311
!\266\312\225b\210\313 \314
8\203w\315\262
\202\206\310
8\203\203\316\262
\202\206\317\262
\204\320	\"\210\202\314\224\203\242\323\314\224\314\225\324\325$\210\202\310\224\203\263\323\310\224\310\225\324\326$\210\202\327\224\203\327\306\307!\211A\330\233\241\210\311
!\266\323\305\224\305\225\324\331$\210\332
!\210\202\322\224\203\306\307!\211A\333\233\241\210\311
!\266\305\224\305\225\317f\312\224f=\203\375\305u\202
\317f\334=\203
\335\317x\210\212\336\312\224!@)\312U\205
\337\211\203 
\323\324$\210\266\202\207" [mhtml--css-submode mhtml--js-submode re-search-forward "\\(<style.*?>\\)\\|\\(<script.*?>\\)\\|\\(<\\)!--\\|--[ 	\n]*\\(>\\)\\|\\(<\\)[?!]\\|\\([\"']\\)[^\"'<>]*" t 1 match-data ints 4 set-match-data 0 syntax-ppss 3 string comment nil mhtml--syntax-propertize-submode 2 6 put-text-property syntax-table (2097163) (2097164) 5 10 (15 . 62) sgml-syntax-propertize-inside 12 62 "-" sgml--syntax-propertize-ppss (1)] 10 "\n\n(fn START END)"])
#@18 

(fn START END)
(defalias 'mhtml-syntax-propertize #[514 "\301\302\"\303\304#\210b\210\211\203\305
\"\210\210\306`#\207" [mhtml--syntax-propertize get-text-property mhtml-submode remove-list-of-text-properties (syntax-table local-map mhtml-submode) mhtml--syntax-propertize-submode sgml-syntax-propertize] 7 (#$ . 17323)])
#@72 Indent the current line as HTML, JS, or CSS, according to its context.
(defalias 'mhtml-indent-line #[0 "\212\304 \210\305`\306\")\211\203\235\214\307`\306\"\206`\212\211b\210\310 )\311\267\202.\211	Z\262
\202.\312\262

d}\210\211C\205O\313\314\315!>\204K\316\317\320D\"\210\321H\"\205j\313\322\315!>\204f\316\317\320D\"\210\321H\"\323\324\"\325\203\212\211A\262\242\326\211A\262\242DD
B\262
\202p\327\330\237\331\326DDE!\266\204)\266\202)\207\332 \207" [mhtml-tag-relative-indent sgml-basic-offset prog-indentation-context cl-struct-mhtml--submode-tags back-to-indentation get-text-property mhtml-submode previous-single-property-change sgml-calculate-indent #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 35 ignore 43)) 0 mapcar car type-of signal wrong-type-argument mhtml--submode 7 cdr make-closure #[0 "\300\205\302\303\304\300!	>\204\305\306\307\300D\"\210\300\310H\"\300\2052\302\311\304\300!	>\204.\305\306\307\300D\"\210\300\310H\"\312\313\203N\211A\262\242\314\211A\262\242DD
B\262
\2024\315\316\237\317\314DDE!\207" [V0 cl-struct-mhtml--submode-tags mapcar car type-of signal wrong-type-argument mhtml--submode 6 cdr #[0 " \207" [indent-line-function] 1] nil quote eval let funcall] 10] nil quote eval let funcall sgml-indent-line] 13 (#$ . 17662) nil])
(defalias 'mhtml--flyspell-check-word #[0 "\300`\301\"\211\203\302 \207\303\207" [get-text-property mhtml-submode flyspell-generic-progmode-verify t] 3])
#@205 Move point forward past a structured expression.
If point is on a tag, move to the end of the tag.
Otherwise, this calls `forward-sexp'.
Prefix arg specifies how many times to move (default 1).

(fn ARG)
(defalias 'mhtml-forward #[257 "\300`\301\"\211\204\f\302!\207\303\304!\207" [get-text-property mhtml-submode sgml-skip-tag-forward nil forward-sexp] 5 (#$ . 19187) "P"])
(defvar mhtml-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [mhtml-mode-hook variable-documentation put "Hook run after entering '((sgml-xml-mode XHTML+ HTML+) (:eval (mhtml--submode-lighter))) mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp mhtml-mode-map definition-name mhtml-mode] 4)
(defvar mhtml-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#\207" [mhtml-mode-abbrev-table mhtml-mode-map variable-documentation put purecopy "Keymap for `mhtml-mode'." boundp mhtml-mode-syntax-table definition-name mhtml-mode (lambda (#1=#:def-tmp-var) (defvar mhtml-mode-syntax-table #1#)) make-syntax-table "Syntax table for `mhtml-mode'." (lambda (#1#) (defvar mhtml-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `mhtml-mode'." derived-mode-parent html-mode] 5)
#@401 Major mode based on `html-mode', but works with embedded JS and CSS.

Code inside a <script> element is indented using the rules from
`js-mode'; and code inside a <style> element is indented using
the rules from `css-mode'.

In addition to any hooks its parent mode might have run, this mode
runs the hook `mhtml-mode-hook', as the final or penultimate step
during initialization.

\{mhtml-mode-map}
(defalias 'mhtml-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
7=\204R\326
\3257C#\210\327!\210\330\f!\210
7\306\331!\210\332\306\333!\210\334\306\335!\210\336\337\340\341\342\307$\210\337\343\341\342\307$\210\3448!\210\3449!\210\3458!\210\3459!\210\346:!:\347 \210\3509!;>\204\257\351\352\3539D\"\2109\211\354\355\356\355!\205\300-\205\300\357B\3509!;>\204\323\351\352\3539D\"\2109\211\354\354HBI\262
\262
I\266\360 \210\337\361\362\342\307$\210\363\364!\210)\365\366!\207" [delay-mode-hooks major-mode mode-name mhtml-mode-map mhtml-mode-syntax-table mhtml-mode-abbrev-table make-local-variable t html-mode mhtml-mode ((sgml-xml-mode "XHTML+" "HTML+") (:eval (mhtml--submode-lighter))) 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 mhtml-indent-line syntax-propertize-function mhtml-syntax-propertize font-lock-fontify-region-function mhtml--submode-fontify-region add-hook pre-command-hook mhtml--pre-command nil post-command-hook mhtml--mark-buffer-locals mhtml--mark-crucial-buffer-locals delete-dups js--update-quick-match-re type-of signal wrong-type-argument mhtml--submode 6 auto-fill-function boundp js-do-auto-fill c-foreign-init-lit-pos-cache before-change-functions c-foreign-truncate-lit-pos-cache run-hooks prog-mode-hook run-mode-hooks mhtml-mode-hook local-abbrev-table mhtml--css-submode mhtml--js-submode mhtml--crucial-variables cl-struct-mhtml--submode-tags] 10 (#$ . 20754) nil])
(byte-code "\300\301\302\303#\210\304\301!\207" [put mhtml-mode flyspell-mode-predicate mhtml--flyspell-check-word provide] 4)