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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require semantic semantic/format sgml-mode] 2)
#@67 Regular expression used to find special sections in an HTML file.
(defvar semantic-html-super-regex "<\\(h[1-9]\\|title\\|script\\|body\\|a +href\\)\\>" (#$ . 185))
#@56 Alist of sectioning commands and their relative level.
(defvar semantic-html-section-list '(("title" 1) ("script" 1) ("body" 1) ("a" 11) ("h1" 2) ("h2" 3) ("h3" 4) ("h4" 5) ("h5" 6) ("h6" 7) ("h7" 8) ("h8" 9) ("h9" 10)) (#$ . 356))
#@272 Parse the current html buffer for semantic tags.
IGNORE any arguments.  Always parse the whole buffer.
Each tag returned is of the form:
 ("NAME" section (:members CHILDREN))
or
 ("NAME" anchor)
Override `semantic-parse-region' in `html-mode' buffers.

(fn &rest IGNORE)
(defalias 'semantic-parse-region-html-mode #[128 "\300\301\302 \"\207" [mapcar semantic-html-expand-tag semantic-html-parse-headings] 4 (#$ . 595)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-parse-region-html-mode definition-name semantic-parse-region mode-local-bind ((semantic-parse-region . semantic-parse-region-html-mode)) (override-flag t) html-mode] 4)
#@107 We can't parse changes for HTML mode right now.
Override `semantic-parse-changes' in `html-mode' buffers.
(defalias 'semantic-parse-changes-html-mode #[0 "\301\211\207" [semantic-parse-tree-state needs-rebuild] 2 (#$ . 1261)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-parse-changes-html-mode definition-name semantic-parse-changes mode-local-bind ((semantic-parse-changes . semantic-parse-changes-html-mode)) (override-flag t) html-mode] 4)
#@36 Expand the HTML tag TAG.

(fn TAG)
(defalias 'semantic-html-expand-tag #[257 "\300
!\211\203(
\301\302\303\"\211AA\262
\211:\203%\211\304\305@#!\240\210\266\306!@\207" [semantic-html-components :members mapcar semantic-html-expand-tag semantic-tag-make-plist plist-put semantic--tag-expand] 12 (#$ . 1738)])
#@47 Return components belonging to TAG.

(fn TAG)
(defalias 'semantic-html-components #[257 "\211\300\301\302
8\262
\"\207" [:members plist-get 2] 7 (#$ . 2064)])
#@54 Parse the current html buffer for all semantic tags.
(defalias 'semantic-html-parse-headings #[0 "\302\212eb\210\303\304\305\306!\"ed#\307	\302\310#\2036\311\224B\262\211`\302
\247\203,
@Y\2051\312#\266\202\313
!\266)\211\237\262
\314
\311\"@\207" [buffer-file-name semantic-html-super-regex nil make-progress-reporter format "Parsing %s..." file-name-nondirectory re-search-forward t 0 progress-reporter-do-update progress-reporter-done semantic-html-recursive-combobulate-list] 9 (#$ . 2231)])
#@205 Set the end point of the first section tag in METATAGLIST to PNT.
METATAGLIST is a list of tags in the intermediate tag format used by the
html parser.  PNT is the new point to set.

(fn METATAGLIST PNT)
(defalias 'semantic-html-set-endpoint #[514 "\300\203@\211A@\262
\301=\204A\262\202
@\262
\211\205)\211GS
\233\240\210\211\207" [nil section] 5 (#$ . 2748)])
#@291 Create a semantic tag of class section.
NAME is the name of this section.
MEMBERS is a list of semantic tags representing the elements that make
up this section.
LEVEL is the leveling level.
START and END define the location of data described by the tag.

(fn NAME MEMBERS LEVEL START END)
(defalias 'semantic-html-new-section-tag #[1285 "\300=\301\203\302\202\303\304D\305!\306\211\257\266\203\203'`\202(D\"\207" [11 append anchor section :members semantic-tag-make-plist nil] 15 (#$ . 3129)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put semantic-html-new-section-tag speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@139 Extract a section name from the current buffer and point.
Assume the cursor is in the tag representing the section we
need the name from.
(defalias 'semantic-html-extract-section-name #[0 "\212\300\301!\210\301u\210\300\302!\210\303\304w\210\305\306!\203!\300\302!\210\303\304w\210\202`\304\307\310\304\311#\203=\312\224b\210\313\304x\210`\262
\314\"\202>\315\266\202)\207" [forward-sexp -1 1 "\n	 " nil looking-at "<" re-search-forward "</" t 0 " \n	" buffer-substring-no-properties ""] 6 (#$ . 3805)])
#@286 Rearrange SECTIONLIST to be a hierarchical tag list starting at LEVEL.
Return the rearranged new list, with all remaining tags from
SECTIONLIST starting at ELT 2.  Sections not are not dealt with as soon as a
tag with greater section value than LEVEL is found.

(fn SECTIONLIST LEVEL)
(defalias 'semantic-html-recursive-combobulate-list #[514 "\302\303\302
\212\3042\274\205\273@b\210\305\306!\203\264\307\310!\311
	\303#\302\211\211\204.\312\313\"\210`\262\203NA@\nX\203N\203I\314	\"\210\315\304\303\"\210\310\225b\210\316\302w\210\317 \262\320AA@\"\262

@A@d\321=\322\203z\323\202{\324\325D\326!\302\211\257\266\203\203\223`\202\224D\"\266\206\262\203\245\314	\"\210	B\262	\211A\262\266\202\312\327!\210\2020\210)\237)B\207" [case-fold-search semantic-html-section-list nil t level-jump looking-at "<\\(\\w+\\)" match-string 1 assoc-string error "Tag %s matched in regexp but is not in list" semantic-html-set-endpoint throw " 	" semantic-html-extract-section-name semantic-html-recursive-combobulate-list 11 append anchor section :members semantic-tag-make-plist "Problem finding section in semantic/html parser"] 26 (#$ . 4323)])
#@110 The children TAG expands to.
Override `semantic-sb-tag-children-to-expand' in `html-mode' buffers.

(fn TAG)
(defalias 'semantic-sb-tag-children-to-expand-html-mode #[257 "\300
!\207" [semantic-html-components] 3 (#$ . 5526)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put semantic-sb-tag-children-to-expand-html-mode definition-name semantic-sb-tag-children-to-expand mode-local-bind ((semantic-sb-tag-children-to-expand . semantic-sb-tag-children-to-expand-html-mode)) (override-flag t) html-mode] 4)
#@44 Set up a buffer for parsing of HTML files.
(defalias 'semantic-default-html-setup #[0 "\306\307\310\311\312\313\314\315\211\316\317\320\321\322\307\"\207" [semantic-parser-name semantic--parse-table imenu-create-index-function semantic-command-separation-character semantic-type-relation-separator-character semantic-symbol->name-assoc-list "HTML" t semantic-create-imenu-index ">" (":") ((section . "Section")) (section) nil (section) (section) (section) semantic-install-function-overrides ((semantic-tag-components . semantic-html-components)) semantic-imenu-expandable-tag-classes semantic-imenu-bucketize-file semantic-imenu-bucketize-type-members senator-step-at-start-end-tag-classes senator-step-at-tag-classes semantic-stickyfunc-sticky-classes] 4 (#$ . 6050)])
(provide 'semantic/html)