;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:31 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/nxml/nxml-outln.el
;;; in Emacs version 24.3.1
;;; 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\304\305\306\307\310\311\312\313&\210\304\314\315\316\310\311\312\313&\210\304\317\320\321\310\311\312\322&\210\323\324\325\326\310\327%\210\323\330\331\332\310\327%\210\323\333\334\335\310\327%\210\323\336\337\340\310\327%\207" [require xmltok nxml-util nxml-rap custom-declare-variable nxml-section-element-name-regexp "article\\|\\(sub\\)*section\\|chapter\\|div\\|appendix\\|part\\|preface\\|reference\\|simplesect\\|bibliography\\|bibliodiv\\|glossary\\|glossdiv" "Regular expression matching the name of elements used as sections.\nAn XML element is treated as a section if:\n\n- its local name (that is, the name without the prefix) matches\nthis regexp;\n\n- either its first child element or a descendant of that first child\nelement has a local name matching the variable\n`nxml-heading-element-name-regexp'; and\n\n- its start-tag occurs at the beginning of a line (possibly indented)." :group nxml :type regexp nxml-heading-element-name-regexp "title\\|head" "Regular expression matching the name of elements used as headings.\nAn XML element is only recognized as a heading if it occurs as or\nwithin the first child of an element that is recognized as a section.\nSee the variable `nxml-section-element-name-regexp' for more details." nxml-outline-child-indent 2 "Indentation in an outline for child element relative to parent element." integer custom-declare-face nxml-heading ((t :weight bold)) "Face for the contents of abbreviated heading elements." nxml-faces nxml-outline-indicator ((t)) "Face for `+' or `-' before element names in outlines." nxml-outline-active-indicator ((t :box t :inherit nxml-outline-indicator)) "Face for clickable `+' or `-' before element names in outlines." nxml-outline-ellipsis ((t :weight bold)) "Face used for `...' in outlines."] 8)
#@52 Maximum distance from section to scan for heading.
(defvar nxml-heading-scan-distance 1000 (#$ . 2397))
(defvar nxml-outline-prefix-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210)\207" [map make-sparse-keymap define-key "
" nxml-show-all "" nxml-hide-all-text-content "" nxml-refresh-outline "" nxml-hide-direct-text-content "" nxml-show-direct-text-content "" nxml-hide-subheadings "" nxml-show "" nxml-show-subheadings "\f" nxml-hide-text-content "	" nxml-show-direct-subheadings "" nxml-hide-other] 4))
#@43 Show all elements in the buffer normally.
(defalias 'nxml-show-all #[nil "\306 \307\211\211\310\211\211
\311\216\312ed\313#\210.\314\310ed#\207" [buffer-file-truename buffer-file-name deactivate-mark buffer-undo-list inhibit-modification-hooks inhibit-read-only buffer-modified-p t nil ((byte-code "\204\301\302!\210\302\207" [#1=#:modified restore-buffer-modified-p nil] 2)) remove-text-properties (nxml-outline-state nil) nxml-outline-set-overlay #1#] 7 (#$ . 3092) nil])
#@312 Hide all text content in the buffer.
Anything that is in a section but is not a heading will be hidden.
The visibility of headings at any level will not be changed.  See the
variable `nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-hide-all-text-content #[nil "\300\301!\207" [nxml-transform-buffer-outline ((nil . t))] 2 (#$ . 3584) nil])
#@416 Show the text content that is directly part of the section containing point.
Each subsection will be shown according to its individual state, which
will not be changed.  The section containing point is the innermost
section that contains the character following point.  See the variable
`nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-show-direct-text-content #[nil "\300 \210\301\302 \303\"\210\304 \210\305 \207" [nxml-outline-pre-adjust-point nxml-set-outline-state nxml-section-start-position nil nxml-refresh-outline nxml-outline-adjust-point] 3 (#$ . 4026) nil])
#@310 Show the immediate subheadings of the section containing point.
The section containing point is the innermost section that contains
the character following point.  See the variable
`nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-show-direct-subheadings #[nil "\301 \302!\303=\203\304\305\"\210)\306 \210\307 \207" [pos nxml-section-start-position nxml-get-outline-state hide-children nxml-set-outline-state t nxml-refresh-outline nxml-outline-adjust-point] 3 (#$ . 4698) nil])
#@419 Hide the text content that is directly part of the section containing point.
The heading of the section will remain visible.  The state of
subsections will not be changed.  The section containing point is the
innermost section that contains the character following point.  See the
variable `nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-hide-direct-text-content #[nil "\301 \302!\204\303\304\"\210)\305 \210\306 \207" [pos nxml-section-start-position nxml-get-outline-state nxml-set-outline-state t nxml-refresh-outline nxml-outline-adjust-point] 3 (#$ . 5283) nil])
#@573 Hide the subheadings that are part of the section containing point.
The text content will also be hidden, leaving only the heading of the
section itself visible.  The state of the subsections will also be
changed to hide their headings, so that \[nxml-show-direct-text-content]
would show only the heading of the subsections.  The section containing
point is the innermost section that contains the character following
point.  See the variable `nxml-section-element-name-regexp' for more
details on how to customize which elements are recognized as sections
and headings.
(defalias 'nxml-hide-subheadings #[nil "\300\301!\207" [nxml-transform-subtree-outline ((nil . hide-children) (t . hide-children))] 2 (#$ . 5959) nil])
#@370 Show the section containing point normally, without hiding anything.
This includes everything in the section at any level.  The section
containing point is the innermost section that contains the character
following point.  See the variable `nxml-section-element-name-regexp'
for more details on how to customize which elements are recognized as
sections and headings.
(defalias 'nxml-show #[nil "\300\301!\207" [nxml-transform-subtree-outline ((hide-children) (t))] 2 (#$ . 6690) nil])
#@311 Hide text content at all levels in the section containing point.
The section containing point is the innermost section that contains
the character following point.  See the variable
`nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-hide-text-content #[nil "\300\301!\207" [nxml-transform-subtree-outline ((nil . t))] 2 (#$ . 7184) nil])
#@395 Show the subheadings at all levels of the section containing point.
The visibility of the text content at all levels in the section is not
changed.  The section containing point is the innermost section that
contains the character following point.  See the variable
`nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-show-subheadings #[nil "\300\301!\207" [nxml-transform-subtree-outline ((hide-children . t))] 2 (#$ . 7622) nil])
#@416 Hide text content other than that directly in the section containing point.
Hide headings other than those of ancestors of that section and their
immediate subheadings.  The section containing point is the innermost
section that contains the character following point.  See the variable
`nxml-section-element-name-regexp' for more details on how to
customize which elements are recognized as sections and headings.
(defalias 'nxml-hide-other #[nil "\302\212\303\304\305\217\203*\203\306`!\204\307`\310\"\210`B	`W\203*`Sb\210\202)\311\312!)\207" [nxml-outline-state-transform-exceptions nxml-prolog-end nil err (nxml-back-to-section-start) ((nxml-outline-error (nxml-report-outline-error "Couldn't find containing section: %s" err))) nxml-get-outline-state nxml-set-outline-state t nxml-transform-buffer-outline ((nil . hide-children) (t . hide-children))] 3 (#$ . 8153) nil])
(defvar nxml-outline-state-transform-exceptions nil)
(defvar nxml-target-section-pos nil)
(defvar nxml-depth-in-target-section nil)
(defvar nxml-outline-state-transform-alist nil)
(defalias 'nxml-transform-buffer-outline #[(alist) "\305\306\307\310 \210,\311 \207" [alist nxml-outline-display-section-tag-function nxml-outline-state-transform-alist nxml-depth-in-target-section nxml-target-section-pos nil 0 nxml-section-tag-transform-outline-state nxml-refresh-outline nxml-outline-adjust-point] 4])
(defalias 'nxml-transform-subtree-outline #[(alist) "\305 \306\307\310 \210,\311 \207" [alist nxml-outline-display-section-tag-function nxml-outline-state-transform-alist nxml-depth-in-target-section nxml-target-section-pos nxml-section-start-position nil nxml-section-tag-transform-outline-state nxml-refresh-outline nxml-outline-adjust-point] 4])
(defalias 'nxml-outline-pre-adjust-point #[nil "e`W\203>\301`S\302\"\203>\301`\302\"\204>\301`\303\"\206 \301`\304\"\211;\2053G\305Y\2053\306\305O\307\230)\203>\310`S\302\"b\207`dW\203Z\301`\304\"\203Z\301`T\302\"\203Z\311`T\302\"b\207`dW\205l\301`\302\"\205l\311`\302\"b\207" [str get-char-property invisible before-string display 3 0 "..." previous-single-char-property-change next-single-char-property-change] 4])
#@48 Adjust point after showing or hiding elements.
(defalias 'nxml-outline-adjust-point #[nil "\301`\302\"\205e`W\205\301`S\302\"\205\303`\302\304$b\207" [nxml-prolog-end get-char-property invisible previous-single-char-property-change nil] 5 (#$ . 10339)])
(defalias 'nxml-transform-outline-state #[(section-start-pos) "\304!\211\n\236\211\205\305A\"*\207" [section-start-pos old-state nxml-outline-state-transform-alist change nxml-get-outline-state nxml-set-outline-state] 4])
(defalias 'nxml-section-tag-transform-outline-state #[(startp section-start-pos &optional heading-start-pos) "\204	\205	\305V\205	S\211\207	\203	T\202%\nU\203%\305	\2053\n\f\235?\2053\306\n!\207" [startp nxml-depth-in-target-section section-start-pos nxml-target-section-pos nxml-outline-state-transform-exceptions 0 nxml-transform-outline-state] 2])
(defalias 'nxml-get-outline-state #[(pos) "\301\302\"\207" [pos get-text-property nxml-outline-state] 3])
(defalias 'nxml-set-outline-state #[(pos state) "\306 \307\211\211\310\211\211\311\216\203#\312\211T\313$\202*\314\211T\315#.\207" [buffer-file-truename buffer-file-name deactivate-mark buffer-undo-list inhibit-modification-hooks inhibit-read-only buffer-modified-p t nil ((byte-code "\204\301\302!\210\302\207" [#1=#:modified restore-buffer-modified-p nil] 2)) put-text-property nxml-outline-state remove-text-properties (nxml-outline-state nil) #1# state pos] 7])
#@69 Do the same as \[nxml-show-direct-text-content] from a mouse click.
(defalias 'nxml-mouse-show-direct-text-content #[(event) "\301!\205\302 \207" [event nxml-mouse-set-point nxml-show-direct-text-content] 2 (#$ . 11798) "e"])
#@69 Do the same as \[nxml-hide-direct-text-content] from a mouse click.
(defalias 'nxml-mouse-hide-direct-text-content #[(event) "\301!\205\302 \207" [event nxml-mouse-set-point nxml-hide-direct-text-content] 2 (#$ . 12033) "e"])
#@61 Do the same as \[nxml-hide-subheadings] from a mouse click.
(defalias 'nxml-mouse-hide-subheadings #[(event) "\301!\205\302 \207" [event nxml-mouse-set-point nxml-hide-subheadings] 2 (#$ . 12268) "e"])
#@68 Do the same as \[nxml-show-direct-subheadings] from a mouse click.
(defalias 'nxml-mouse-show-direct-subheadings #[(event) "\301!\205\302 \207" [event nxml-mouse-set-point nxml-show-direct-subheadings] 2 (#$ . 12479) "e"])
(defalias 'nxml-mouse-set-point #[(event) "\302!\210	\205	\303\207" [event nxml-prolog-end mouse-set-point t] 2])
(defalias 'nxml-token-start-tag-p #[nil "\301=\206	\302=\207" [xmltok-type start-tag partial-start-tag] 2])
(put 'nxml-token-start-tag-p 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nxml-token-end-tag-p #[nil "\301=\206	\302=\207" [xmltok-type end-tag partial-end-tag] 2])
(put 'nxml-token-end-tag-p 'byte-optimizer 'byte-compile-inline-expand)
#@73 Refresh the outline to correspond to the current XML element structure.
(defalias 'nxml-refresh-outline #[nil "\212eb\210\300\301!\210\302\301!\210\303\304\305\217)\207" [kill-local-variable line-move-ignore-invisible make-local-variable err (byte-code "\300\301\211\211#\207" [nxml-outline-display-rest nil] 4) ((nxml-outline-error (nxml-report-outline-error "Cannot display outline: %s" err)))] 3 (#$ . 13189) nil])
(defvar nxml-outline-display-section-tag-function nil)
#@424 Display up to and including the end of the current element.
OUTLINE-STATE can be nil, t, hide-children.  START-TAG-INDENT is the
indent of the start-tag of the current element, or nil if no
containing element has a non-nil OUTLINE-STATE.  TAG-QNAMES is a list
of the qnames of the open elements.  Point is after the title content.
Leave point after the closing end-tag.  Return t if we had a
non-transparent child section.
(defalias 'nxml-outline-display-rest #[(outline-state start-tag-indent tag-qnames) "`\306?\307 \204\203\352\310\311@\"\202\347\f\312=\204$\f\313=\203\205
\203.
\314\"\210\315 \204<\310\316\"\210@\230\204L\310\317@#\210)\n\306V\203\\\nSA\202\204j\320\314`#\210\202\352	\203u\321=\203|\322!\210\202\352\323\"\210\202\352\324 
\204\235\301=\203\235	?\205\244\325 \205\244\326 
\203\262
\327#\210B\203\311\321=\203\317\327\211\203\317\nT\202\345\330	&\210\327A`+\327\204	+\207" [tag-qnames had-children transparent-depth last-pos xmltok-type nxml-outline-display-section-tag-function 0 nxml-section-tag-forward nxml-outline-error "missing end-tag %s" end-tag partial-end-tag nil xmltok-end-tag-qname "extra end-tag %s" "mismatched end-tag; expected %s, got %s" nxml-outline-set-overlay hide-children nxml-outline-display-single-line-end-tag nxml-outline-display-multi-line-end-tag xmltok-start-tag-qname nxml-token-starts-line-p nxml-heading-start-position t nxml-display-section xmltok-start qname outline-state start-tag-indent section-start-pos heading-start-pos] 8 (#$ . 13669)])
(defconst nxml-highlighted-less-than (propertize "<" 'face 'nxml-tag-delimiter))
(defconst nxml-highlighted-greater-than (propertize ">" 'face 'nxml-tag-delimiter))
(defconst nxml-highlighted-colon (propertize ":" 'face 'nxml-element-colon))
(defconst nxml-highlighted-slash (propertize "/" 'face 'nxml-tag-slash))
(defconst nxml-highlighted-ellipsis (propertize "..." 'face 'nxml-outline-ellipsis))
(defconst nxml-highlighted-empty-end-tag (concat nxml-highlighted-ellipsis nxml-highlighted-less-than nxml-highlighted-slash nxml-highlighted-greater-than))
(defconst nxml-highlighted-inactive-minus (propertize "-" 'face 'nxml-outline-indicator))
(defconst nxml-highlighted-active-minus (propertize "-" 'face 'nxml-outline-active-indicator))
(defconst nxml-highlighted-active-plus (propertize "+" 'face 'nxml-outline-active-indicator))
(defalias 'nxml-display-section #[(last-pos section-start-pos heading-start-pos parent-indent parent-outline-state had-children tag-qnames) "\212b\210\306\307x\210`)\310!\204\f\203\311\202$\n\203#\312\202$\307\313\f\205+\314	S\307\315%\210\n\203\301\203D\\\202J\212b\210i)\307\313
	S	\315$\210\313\314	#\210\313\312\211T\315$\313\314T#\210b\210\316 \210\313\317`#\210\320\n #\321\322\323\324\"!\204\230\"\202\263\n\325=\203\252\321\326\327#\210#\202\263\321\326\330#\210$\331 @!%\260#+\202\337b\210\316 \210\313
	S`\315$\210\320\n\205\334\\ #+\207" [section-start-pos section-start-pos-bol outline-state had-children parent-outline-state newline-before-section-start-category " 	" nil nxml-get-outline-state nxml-outline-display-ellipsis nxml-outline-display-show nxml-outline-set-overlay nxml-outline-display-hide t nxml-end-of-heading nxml-outline-display-heading nxml-outline-display-rest overlay-put display make-string 32 hide-children category nxml-outline-display-hiding-tag nxml-outline-display-showing-tag nxml-highlighted-qname last-pos parent-indent nxml-outline-child-indent indent start-tag-overlay heading-start-pos tag-qnames nxml-highlighted-less-than nxml-highlighted-inactive-minus nxml-highlighted-active-plus nxml-highlighted-active-minus nxml-highlighted-greater-than] 9])
(defalias 'nxml-highlighted-qname #[(qname) "\303\304\"\211\203\305\306	O\307\310#\n\305	T\311O\307\312#Q\202$\305\307\312#)\207" [qname colon nxml-highlighted-colon string-match ":" propertize 0 face nxml-element-prefix nil nxml-element-local-name] 7])
(defalias 'nxml-outline-display-single-line-end-tag #[(last-pos) "\303\304	\305\306%\210\307\303\310	`\306$\311\n#\207" [last-pos xmltok-start nxml-highlighted-empty-end-tag nxml-outline-set-overlay nxml-outline-display-hide nil t overlay-put nxml-outline-display-show display] 6])
(defalias 'nxml-outline-display-multi-line-end-tag #[(last-pos start-tag-indent) "\212b\210\306\307w\210\307f\310=\205\"`Tb\210\311\307`#\210`	b\210\312 \210\313)\307\311\314	\307\313%\210\311\315	`\313$\316\n\317\203C\320\f\321\"\202D\322
\323\324 !\260#*\207" [last-pos xmltok-start end-tag-overlay indentp start-tag-indent nxml-highlighted-less-than " 	" nil 10 nxml-outline-set-overlay beginning-of-line t nxml-outline-display-hide nxml-outline-display-showing-tag overlay-put display make-string 32 "" nxml-highlighted-qname xmltok-end-tag-qname nxml-highlighted-slash nxml-highlighted-active-minus nxml-highlighted-greater-than] 9])
(defvar nxml-outline-show-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "
" nxml-show-direct-text-content [mouse-2] nxml-mouse-show-direct-text-content] 4))
(defvar nxml-outline-show-help "mouse-2: show")
(byte-code "\303\304\305\306#\210\303\304\307\306#\210\303\304\310#\210\303\304\311	#\210\303\312\305\306#\210\303\312\307\306#\210\303\312\313\306#\210\303\312\310#\210\303\312\311	#\210\303\314\305\306#\210\303\314\307\306#\210\303\314\310#\210\303\314\311	#\210\303\314\315\n#\210\303\316\310#\210\303\316\311	#\210\303\316\305\306#\210\303\316\307\306#\210\303\316\317\320#\207" [nxml-outline-show-map nxml-outline-show-help nxml-highlighted-ellipsis put nxml-outline-display-show nxml-outline-display t evaporate keymap help-echo nxml-outline-display-hide invisible nxml-outline-display-ellipsis before-string nxml-outline-display-heading face nxml-heading] 4)
(defvar nxml-outline-hiding-tag-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key [mouse-1] nxml-mouse-show-direct-subheadings [mouse-2] nxml-mouse-show-direct-text-content "
" nxml-show-direct-text-content] 4))
(defvar nxml-outline-hiding-tag-help "mouse-1: show subheadings, mouse-2: show text content")
(byte-code "\302\303\304\305#\210\302\303\306\305#\210\302\303\307#\210\302\303\310	#\207" [nxml-outline-hiding-tag-map nxml-outline-hiding-tag-help put nxml-outline-display-hiding-tag nxml-outline-display t evaporate keymap help-echo] 4)
(defvar nxml-outline-showing-tag-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-sparse-keymap define-key [mouse-1] nxml-mouse-hide-subheadings [mouse-2] nxml-mouse-show-direct-text-content "
" nxml-show-direct-text-content] 4))
(defvar nxml-outline-showing-tag-help "mouse-1: hide subheadings, mouse-2: show text content")
(byte-code "\302\303\304\305#\210\302\303\306\305#\210\302\303\307#\210\302\303\310	#\207" [nxml-outline-showing-tag-map nxml-outline-showing-tag-help put nxml-outline-display-showing-tag nxml-outline-display t evaporate keymap help-echo] 4)
#@379 Replace any `nxml-outline-display' overlays between START and END.
Overlays are removed if they overlay the region between START and END,
and have a non-nil `nxml-outline-display' property (typically via their
category).  If CATEGORY is non-nil, they will be replaced with a new
overlay with that category from START to END.  If CATEGORY is nil,
no new overlay will be created.
(defalias 'nxml-outline-set-overlay #[(category start end &optional front-advance rear-advance) "	W\205>\306	\"\307\203%@A\310\n\311\"\203
\312\n!\210\202
*\f\205>\313	\307
%\314\n\304\f#\210\315\n)\207" [start end overlay overlays category front-advance overlays-in nil overlay-get nxml-outline-display delete-overlay make-overlay overlay-put t rear-advance line-move-ignore-invisible] 6 (#$ . 20844)])
#@101 Move from the start of the content of the heading to the end.
Do not move past the end of the line.
(defalias 'nxml-end-of-heading #[nil "\302\303\304\217\305\210\306\305x\210\204\307 	\310=\203(b\210\202(`W\203(b\210\306\305x\210`)\207" [pos xmltok-type err (byte-code "\301`\302\"\205\207" [xmltok-start nxml-scan-element-forward t] 3) ((nxml-scan-error)) nil " 	" nxml-token-before end-tag] 3 (#$ . 21653)])
(defalias 'nxml-token-starts-line-p #[nil "\212b\210\301\302x\210n)\207" [xmltok-start " 	" nil] 2])
(defvar nxml-cached-section-tag-regexp nil)
(defvar nxml-cached-section-element-name-regexp nil)
(defalias 'nxml-make-section-tag-regexp #[nil "	=\203\n\207\303 \207" [nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp nxml-make-section-tag-regexp-1] 2])
(put 'nxml-make-section-tag-regexp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'nxml-make-section-tag-regexp-1 #[nil "\304\305\306	\307\n\310\260\n\207" [nxml-cached-section-element-name-regexp xmltok-ncname-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp nil "</?\\(" "\\(" ":\\)?" "\\)[ 	
\n>]"] 6])
#@163 Move forward past the first tag that is a section start- or end-tag.
Return `xmltok-type' for tag.
If no tag found, return nil and move to the end of the buffer.
(defalias 'nxml-section-tag-forward #[nil "\306	=\203\n\202
\307 \306`W\203b\210\310\f\306\311#\204*\306\202X\312\224b\210\312\225\313 \210\314`!\211\205Bb\210\315)\204\316 \210\317>\203SU\203+\207" [nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp match-end tag-regexp case-fold-search nil nxml-make-section-tag-regexp-1 re-search-forward move 0 nxml-ensure-scan-up-to-date nxml-inside-end t xmltok-forward (start-tag partial-start-tag end-tag partial-end-tag) nxml-prolog-end xmltok-type end xmltok-name-end] 5 (#$ . 22840)])
#@187 Move backward to the end of a tag that is a section start- or end-tag.
The position of the end of the tag must be <= point.
Point is at the end of the tag.  `xmltok-start' is the start.
(defalias 'nxml-section-tag-backward #[nil "\306`	=\203\f\n\202\307 \306`W\203\"eb\210\306\202r\310\f\311#\2044\306eb\210\202p\312\224b\210\312\225\313 \210\314`!\211\205MSb\210\315)\204\"\316 \210`
X\203i\317>\203iSU\204pb\210\202\",\207" [nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp match-end tag-regexp start nil nxml-make-section-tag-regexp-1 re-search-backward move 0 nxml-ensure-scan-up-to-date nxml-inside-start t xmltok-forward (start-tag partial-start-tag end-tag partial-end-tag) case-fold-search nxml-prolog-end xmltok-type pos xmltok-name-end xmltok-start] 5 (#$ . 23628)])
#@95 Return the position of the start of the section containing point.
Signal an error on failure.
(defalias 'nxml-section-start-position #[nil "\300\301\302\217\207" [err (byte-code "\212\300 \203\n`\202
\301\302!)\207" [nxml-back-to-section-start error "Not in section"] 2) ((nxml-outline-error (nxml-report-outline-error "Couldn't determine containing section: %s" err)))] 3 (#$ . 24505)])
#@311 Try to move back to the start of the section containing point.
The start of the section must be <= point.
Only visible sections are included unless INVISIBLE-OK is non-nil.
If found, return t.  Otherwise move to `point-min' and return nil.
If unbalanced section tags are found, signal an `nxml-outline-error'.
(defalias 'nxml-back-to-section-start #[(&optional invisible-ok) "\306 \204\n\307 \205h\310\211\310\f\311=\204\f\312=\203&\313 	B\202X	\204D\314 \203X
\204:\315\n\316\"\204X\317 \203X\320\202X\321 	@\230\204T\322\323!\210	A)\nb\210?\205b\307 )\204*\207" [found open-tags section-start-pos xmltok-start xmltok-type invisible-ok nxml-after-section-start-tag nxml-section-tag-backward nil end-tag partial-end-tag xmltok-end-tag-qname nxml-token-starts-line-p get-char-property invisible nxml-heading-start-position t xmltok-start-tag-qname nxml-outline-error "mismatched end-tag" qname] 3 (#$ . 24902)])
#@158 If the character after point is in a section start-tag, move after it.
Return the token type.  Otherwise return nil.
Set up variables like `xmltok-forward'.
(defalias 'nxml-after-section-start-tag #[nil "\306 \307\n\310>\205&\212b\210\311\f
=\203\202\312 !)\205&	b\210\n*\207" [case-fold-search pos xmltok-type xmltok-start nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-token-after nil (start-tag partial-start-tag) looking-at nxml-make-section-tag-regexp-1 nxml-cached-section-tag-regexp] 3 (#$ . 25850)])
#@239 Return the position of the start of the content of a heading element.
Adjust the position to be after initial leading whitespace.
Return nil if no heading element is found.  Requires point to be
immediately after the section's start-tag.
(defalias 'nxml-heading-start-position #[nil "\306\307\310Q\307	\310Q`\311\212\312 \203h\313>\2036\314\f\315 \"\204h\306V\203hS\211\202\\\316>\203_\314\f\317 \"\204h\314
\317 \"\203V\320\311w\210`\202hT\321\203h`ZX\204)\n-\207" [nxml-heading-element-name-regexp nxml-section-element-name-regexp found start section-regexp heading-regexp 0 "\\`\\(" "\\)\\'" nil xmltok-forward (end-tag partial-end-tag) string-match xmltok-end-tag-local-name (start-tag partial-start-tag) xmltok-start-tag-local-name " 	
\n" t depth xmltok-type nxml-heading-scan-distance] 5 (#$ . 26407)])
(defalias 'nxml-report-outline-error #[(msg err) "\302\303\304	A\"\"\207" [msg err error apply format] 5])
(defalias 'nxml-outline-error #[(&rest args) "\301\302\"\207" [args signal nxml-outline-error] 3])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put nxml-outline-error error-conditions (error nxml-error nxml-outline-error) error-message "Cannot create outline of buffer that is not well-formed"] 4)
(defalias 'nxml-debug-overlays #[nil "\302ed\"\237\303	\205.	@	A\304\305\"\203\306\307\304\310\"\311!\312!\304\313\"%\210\202*\207" [overlay overlays overlays-in nil overlay-get nxml-outline-display message "overlay %s: %s...%s (%s)" category overlay-start overlay-end display] 8 nil nil])
(provide 'nxml-outln)