%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/textmodes/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/textmodes/mhtml-mode.elc

;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.

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


(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 (#$ . 1130)])
(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 (#$ . 1488)])
(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 (#$ . 1778)])
(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 (#$ . 2200)])
(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 (#$ . 2552)])
(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 (#$ . 2989)])
(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 (#$ . 3350)])
(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 (#$ . 3812)])
(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 (#$ . 4188)])
(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 (#$ . 4640)])
(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 (#$ . 5010)])
(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 (#$ . 5442)])
(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 (#$ . 5800)])
(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 (#$ . 6317)])
(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 (#$ . 6726)])
(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 (#$ . 7203)])
(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 (#$ . 7642)])
(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 (#$ . 8813)])
(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 "\\(?:com\\(?:\\(?:ment\\|pletion\\)-\\)\\|electric-indent-\\|forward-sexp-function\\|major-mode\\|\\(?:smie\\|uncomment\\)-\\)" (#$ . 9978))
#@65 Regexp matching the prefix of buffer-locals we want to capture.
(defconst mhtml--variable-prefix "\\(?:font-lock-\\|indent-line-function\\)" (#$ . 10241))
#@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!r\211q\210\311\312\313\314\315!\316\"\317$\216 \210\320 \210\321\300!\204+\322\300!\210\323\324 \211\203Y\211@\325	\326@!\"\203B\211B\262\325\n\326@!\"\203R\211B\262A\266\202\202-\210\327!>\204i\330\331\332D\"\210\211\333I\266\327!>\204\330\331\332D\"\210\211\334I\266*\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*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [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 (#$ . 10402)])
#@16 

(fn SUBMODE)
(defalias 'mhtml--mark-buffer-locals #[257 "\301!>\204\302\303\304D\"\210\211\305H\211\205$\211@\306@!\210A\266\202\202\207" [cl-struct-mhtml--submode-tags type-of signal wrong-type-argument mhtml--submode 7 make-local-variable] 5 (#$ . 11378)])
#@39 List of all crucial variable symbols.
(defvar mhtml--crucial-variables nil (#$ . 11655))
(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@	BA\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 (#$ . 11805)])
(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 (#$ . 12508)]))
(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\202,\310\207" [cl-struct-mhtml--submode-tags get-text-property mhtml-submode type-of signal wrong-type-argument mhtml--submode 1 ""] 6 (#$ . 12933)])
#@262 Extend the font lock region according to HTML sub-mode needs.

This is used via `font-lock-extend-region-functions'.  It ensures
that the font-lock region is extended to cover either whole
lines, or to the spot where the submode changes, whichever is
smallest.
(defalias 'mhtml--extend-font-lock-region #[0 "	\212b\210m\204
\302u\210\303`\304\302\305 $\306\304\"\306\304\"=\204$T	b\210o\204.\307u\210\310`\304\302\305\311!$\306	\304\"\306\304\"=\204F	S)\312 \210U?\206U	U?\207" [font-lock-beg font-lock-end nil previous-single-property-change mhtml-submode line-beginning-position get-text-property -1 next-single-property-change 2 font-lock-extend-region-multiline] 8 (#$ . 13268)])
#@41 

(fn SUBMODE BEG END &optional LOUDLY)
(defalias 'mhtml--submode-fontify-one-region #[1027 "\203t\205\301\302\303!>\204\304\305\306D\"\210\307H\"\205;\301\310\303!>\2046\304\305\306	D\"\210\307H\"\311\312\313\314\315\n\n\n\n$\316\"\317$\320\203h\211A\262\242\321\211A\262\242DDB\262\202N\322\323\324\321DDE!\207\325 \210\326#\207" [cl-struct-mhtml--submode-tags mapcar car type-of signal wrong-type-argument mhtml--submode 7 cdr make-byte-code 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\317\320\321\301\302\303#\322\"\323$\324\203Z\211A\262\242\325\211A\262\242DDB\262\202@\326\327\330\325DDE!\207" vconcat vector [cl-struct-mhtml--submode-tags mapcar car type-of signal wrong-type-argument mhtml--submode 6 cdr make-byte-code 0 "\214\303\300\301\302#)\207" vconcat vector [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] 15 (#$ . 13976)])
#@23 

(fn BEG END LOUDLY)
(defalias 'mhtml--submode-fontify-region #[771 "\300!\210W\203I\301\302\"\303\302\304\n$\305\n\n$\211:\203B\211@\306=\203BA@^\262\211AA\262]\262\210\262\210\202U\203VU?\205[\306BB\207" [syntax-propertize get-text-property mhtml-submode next-single-property-change nil mhtml--submode-fontify-one-region jit-lock-bounds] 14 (#$ . 15080)])
#@72 Record the last visited submode.
This is used by `mhtml--pre-command'.
(defvar mhtml--last-submode nil (#$ . 15484))
(make-variable-buffer-local 'mhtml--last-submode)
#@51 Alist of stashed values of the crucial variables.
(defvar mhtml--stashed-crucial-variables nil (#$ . 15657))
(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\210A\266\202\202\207" [] 5 (#$ . 16040)])
(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 (#$ . 16582)])
(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 \3148\2037\315\262\202F\3108\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 \3148\203w\315\262\202\206\3108\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#\210b\210o\204\303`S\304\"\211\203\305\"\210\210\306`#\207" [mhtml--syntax-propertize remove-list-of-text-properties (syntax-table local-map mhtml-submode) get-text-property mhtml-submode mhtml--syntax-propertize-submode sgml-syntax-propertize] 6 (#$ . 18374)])
#@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\245\214\307`\306\"\206`\212\211b\210\310 )\311\267\202.\211	Z\262\202.\312\262d}\210\211C\205O\313\314\315!>\204K\316\317\320D\"\210\321H\"\205j\313\322\315!>\204f\316\317\320D\"\210\321H\"\323\312\324\325\326	!\327\"\330$\331\203\221\211A\262\242\332\211A\262\242DDB\262\202w\333\334\335\332DDE!\266\204)\266\202)\202\247\336 \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-byte-code "\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\242DDB\262\2024\315\316\317\314DDE!\207" vconcat vector [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 (#$ . 18721) nil])
(defalias 'mhtml--flyspell-check-word #[0 "\300`\301\"\211\203
\302 \202\303\207" [get-text-property mhtml-submode flyspell-generic-progmode-verify t] 3])
(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
.=\204R\326
\325.C#\210\327!\210\330\f!\210
.\306\331!\210\332\306\333!\210\334\306\335!\210\336\306\337!\210\340\341\342\343\344\307$\210\341\345\343\344\307$\210\346/!\210\3460!\210\347/!\210\3470!\210\3501!1\351 \210\352\353!\210)\354\355!\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 font-lock-extend-region-functions (mhtml--extend-font-lock-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 run-hooks prog-mode-hook run-mode-hooks mhtml-mode-hook local-abbrev-table mhtml--css-submode mhtml--js-submode mhtml--crucial-variables] 5 (#$ . 21458) nil])
(byte-code "\300\301\302\303#\210\304\301!\207" [put mhtml-mode flyspell-mode-predicate mhtml--flyspell-check-word provide] 4)

Zerion Mini Shell 1.0