Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
nxml /
[ HOME SHELL ]
Name
Size
Permission
Action
nxml-enc.elc
3.29
KB
-rw-r--r--
nxml-maint.elc
1.15
KB
-rw-r--r--
nxml-mode.elc
63.75
KB
-rw-r--r--
nxml-ns.elc
4.01
KB
-rw-r--r--
nxml-outln.elc
26.76
KB
-rw-r--r--
nxml-parse.elc
8.73
KB
-rw-r--r--
nxml-rap.elc
6.69
KB
-rw-r--r--
nxml-util.elc
2.81
KB
-rw-r--r--
rng-cmpct.elc
25.08
KB
-rw-r--r--
rng-dt.elc
1.8
KB
-rw-r--r--
rng-loc.elc
13.94
KB
-rw-r--r--
rng-maint.elc
5.67
KB
-rw-r--r--
rng-match.elc
52.05
KB
-rw-r--r--
rng-nxml.elc
13.75
KB
-rw-r--r--
rng-parse.elc
2.57
KB
-rw-r--r--
rng-pttrn.elc
3.81
KB
-rw-r--r--
rng-uri.elc
7.82
KB
-rw-r--r--
rng-util.elc
1.98
KB
-rw-r--r--
rng-valid.elc
35.2
KB
-rw-r--r--
rng-xsd.elc
22.54
KB
-rw-r--r--
xmltok.elc
35.6
KB
-rw-r--r--
xsd-regexp.elc
40.45
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : nxml-outln.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\313\314\315&\210\304\321\306\307\322DD\323\312\313\314\324&\210\325\326\327\330\312\331%\210\325\332\333\334\312\331%\210\325\335\336\337\312\331%\210\325\340\341\342\312\331%\207" [require xmltok nxml-util nxml-rap custom-declare-variable nxml-section-element-name-regexp funcall function #[0 "\300\207" [#1="article\\|\\(sub\\)*section\\|chapter\\|div\\|appendix\\|part\\|preface\\|reference\\|simplesect\\|bibliography\\|bibliodiv\\|glossary\\|glossdiv"] 1 #1#] "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 #[0 "\300\207" [#2="title\\|head"] 1 #2#] "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 #[0 "\300\207" [2] 1] "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 (#$ . 2368)) (defvar nxml-outline-prefix-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\211\207" [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] 5)) #@43 Show all elements in the buffer normally. (defalias 'nxml-show-all #[0 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\314ed\315#\210,\210\316\317ed#\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (nxml-outline-state nil) nxml-outline-set-overlay nil] 8 (#$ . 3060) 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 #[0 "\300\301!\207" [nxml-transform-buffer-outline ((nil . t))] 2 (#$ . 3507) 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 #[0 "\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 (#$ . 3947) 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 #[0 "\300 \301!\302=\203 \303\304\"\210\210\305 \210\306 \207" [nxml-section-start-position nxml-get-outline-state hide-children nxml-set-outline-state t nxml-refresh-outline nxml-outline-adjust-point] 4 (#$ . 4617) 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 #[0 "\300 \301!\204 \302\303\"\210\210\304 \210\305 \207" [nxml-section-start-position nxml-get-outline-state nxml-set-outline-state t nxml-refresh-outline nxml-outline-adjust-point] 4 (#$ . 5198) 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 #[0 "\300\301!\207" [nxml-transform-subtree-outline ((nil . hide-children) (t . hide-children))] 2 (#$ . 5870) 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 #[0 "\300\301!\207" [nxml-transform-subtree-outline ((hide-children) (t))] 2 (#$ . 6599) 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 #[0 "\300\301!\207" [nxml-transform-subtree-outline ((nil . t))] 2 (#$ . 7091) 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 #[0 "\300\301!\207" [nxml-transform-subtree-outline ((hide-children . t))] 2 (#$ . 7527) 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) (defvar nxml-outline-display-section-tag-function 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 #[0 "\302\212\3031 \304 0\202 \305\306\"\262\2036 \203% \307`!\204% \310`\311\"\210`B `W\2036 `Sb\210\202 )\312\313!)\207" [nxml-outline-state-transform-exceptions nxml-prolog-end nil (nxml-outline-error) nxml-back-to-section-start nxml-report-outline-error "Couldn't find containing section: %s" nxml-get-outline-state nxml-set-outline-state t nxml-transform-buffer-outline ((nil . hide-children) (t . hide-children))] 4 (#$ . 8291) nil]) #@14 (fn ALIST) (defalias 'nxml-transform-buffer-outline #[257 "\304\305\306\307 \210,\310 \207" [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] 5 (#$ . 9188)]) #@14 (fn ALIST) (defalias 'nxml-transform-subtree-outline #[257 "\304 \305\306\307 \210,\310 \207" [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] 5 (#$ . 9535)]) (defalias 'nxml-outline-pre-adjust-point #[0 "e`W\203? \300`S\301\"\203? \300`\301\"\204? \300`\302\"\206 \300`\303\"\211;\2053 \211G\304Y\2053 \305\306\304#\307\230\262\203? \310`S\301\"b\207`dW\203[ \300`\303\"\203[ \300`T\301\"\203[ \311`T\301\"b\207`dW\205m \300`\301\"\205m \311`\301\"b\207" [get-char-property invisible before-string display 3 substring 0 "..." previous-single-char-property-change next-single-char-property-change] 5]) #@48 Adjust point after showing or hiding elements. (defalias 'nxml-outline-adjust-point #[0 "\301`\302\"\205 e`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 (#$ . 10356)]) #@26 (fn SECTION-START-POS) (defalias 'nxml-transform-outline-state #[257 "\301!\211\236\211\205 \302A\"\207" [nxml-outline-state-transform-alist nxml-get-outline-state nxml-set-outline-state] 6 (#$ . 10621)]) #@61 (fn STARTP SECTION-START-POS &optional HEADING-START-POS) (defalias 'nxml-section-tag-transform-outline-state #[770 "\204 \205 \303V\205 S\211\207\203 T\202% U\203% \303\2053 \n\235?\2053 \304!\207" [nxml-depth-in-target-section nxml-target-section-pos nxml-outline-state-transform-exceptions 0 nxml-transform-outline-state] 5 (#$ . 10839)]) #@12 (fn POS) (defalias 'nxml-get-outline-state #[257 "\300\301\"\207" [get-text-property nxml-outline-state] 4 (#$ . 11207)]) #@18 (fn POS STATE) (defalias 'nxml-set-outline-state #[514 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\203\" \314\211T\315$\202( \316\211T\317#,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 put-text-property nxml-outline-state remove-text-properties (nxml-outline-state nil)] 10 (#$ . 11338)]) #@81 Do the same as \[nxml-show-direct-text-content] from a mouse click. (fn EVENT) (defalias 'nxml-mouse-show-direct-text-content #[257 "\300!\205 \301 \207" [nxml-mouse-set-point nxml-show-direct-text-content] 3 (#$ . 11791) "e"]) #@81 Do the same as \[nxml-hide-direct-text-content] from a mouse click. (fn EVENT) (defalias 'nxml-mouse-hide-direct-text-content #[257 "\300!\205 \301 \207" [nxml-mouse-set-point nxml-hide-direct-text-content] 3 (#$ . 12028) "e"]) #@73 Do the same as \[nxml-hide-subheadings] from a mouse click. (fn EVENT) (defalias 'nxml-mouse-hide-subheadings #[257 "\300!\205 \301 \207" [nxml-mouse-set-point nxml-hide-subheadings] 3 (#$ . 12265) "e"]) #@80 Do the same as \[nxml-show-direct-subheadings] from a mouse click. (fn EVENT) (defalias 'nxml-mouse-show-direct-subheadings #[257 "\300!\205 \301 \207" [nxml-mouse-set-point nxml-show-direct-subheadings] 3 (#$ . 12478) "e"]) #@14 (fn EVENT) (defalias 'nxml-mouse-set-point #[257 "\301!\210\205 \302\207" [nxml-prolog-end mouse-set-point t] 3 (#$ . 12712)]) (defalias 'nxml-token-start-tag-p #[0 "\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 #[0 "\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 #[0 "\212eb\210\300\301!\210\302\301!\210\3031 \304\305\211\211#0\202 \306\307\"\262)\207" [kill-local-variable line-move-ignore-invisible make-local-variable (nxml-outline-error) nxml-outline-display-rest nil nxml-report-outline-error "Cannot display outline: %s"] 4 (#$ . 13208) nil]) #@472 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. (fn OUTLINE-STATE START-TAG-INDENT TAG-QNAMES) (defalias 'nxml-outline-display-rest #[771 "`\303?\304 \204 \203\341 \305\306@\"\202\336 \307=\204! \310=\203} \203* \311\n\"\210\312 \2045 \305\313\"\210@\230\204D \305\314@#\210\210\303V\203V S\262A\262\202 \204c \315\311`#\210\202\341 \211\203m \316=\203t \317!\210\202\341 \320\"\210\202\341 \321 \n \204\220 \322=\203\220 ?\205\227 \323 \205\227 \324 \203\241 \325#\210B\262\211\203\271 \316=\203\300 \325\211\262\203\300 T\262\202\333 \326 &\210\325\262A\262`\262\266\325\204 \207" [xmltok-type nxml-outline-display-section-tag-function xmltok-start 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 had-children nxml-token-starts-line-p nxml-heading-start-position t nxml-display-section] 17 (#$ . 13610)]) (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)) #@112 (fn LAST-POS SECTION-START-POS HEADING-START-POS PARENT-INDENT PARENT-OUTLINE-STATE HAD-CHILDREN TAG-QNAMES) (defalias 'nxml-display-section #[1799 "\212b\210\306\307x\210`)\310!\204 \203 \311\202# \211\203\" \312\202# \307\313\205* \314 S\307\315%\210\203\276 \203B \\\202I \212b\210i)\307\313S\315$\210\313\314 #\210\313\312\f\211T\315$\262\313\314\fT\f#\210 b\210\316 \210\313\317 `#\210\320#\321\322\323\324\" \204\224 \n\202\256 \325=\203\246 \321\326\327#\210 \202\256 \321\326\330#\210\f\331 @! \260#\262\266\202\202\333 b\210\316 \210\313S`\315$\210\320\205\330 \\#\207" [nxml-outline-child-indent nxml-highlighted-less-than nxml-highlighted-inactive-minus nxml-highlighted-active-plus nxml-highlighted-active-minus nxml-highlighted-greater-than " " 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] 22 (#$ . 15971)]) #@14 (fn QNAME) (defalias 'nxml-highlighted-qname #[257 "\301\302\"\211\203 \303\304\305#\306\307#\303\304T\"\306\310#Q\202$ \303\306\310#\207" [nxml-highlighted-colon string-match ":" propertize substring 0 face nxml-element-prefix nxml-element-local-name] 8 (#$ . 17176)]) #@17 (fn LAST-POS) (defalias 'nxml-outline-display-single-line-end-tag #[257 "\302\303\304\305%\210\306\302\307`\305$\310 #\207" [xmltok-start nxml-highlighted-empty-end-tag nxml-outline-set-overlay nxml-outline-display-hide nil t overlay-put nxml-outline-display-show display] 7 (#$ . 17462)]) #@34 (fn LAST-POS START-TAG-INDENT) (defalias 'nxml-outline-display-multi-line-end-tag #[514 "\212b\210\305\306w\210\306f\307=\205# `Tb\210\310\306`#\210`\262b\210\311 \210\312)\306\310\313\306\312%\210\310\314`\312$\262\315\316\203D \317\320\"\202E \321 \n \322\323 !\f\260#\207" [xmltok-start nxml-highlighted-less-than nxml-highlighted-slash nxml-highlighted-active-minus nxml-highlighted-greater-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] 13 (#$ . 17763)]) (defvar nxml-outline-show-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key " " nxml-show-direct-text-content [mouse-2] nxml-mouse-show-direct-text-content] 5)) (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 "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [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] 5)) (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 "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key [mouse-1] nxml-mouse-hide-subheadings [mouse-2] nxml-mouse-show-direct-text-content " " nxml-show-direct-text-content] 5)) (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) #@441 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. (fn CATEGORY START END &optional FRONT-ADVANCE REAR-ADVANCE) (defalias 'nxml-outline-set-overlay #[1283 "W\205> \301\"\302\203% @\262A\262\303\304\"\203 \305!\210\202 \266\205> \306\302%\307\310#\210\311\211\262\207" [line-move-ignore-invisible overlays-in nil overlay-get nxml-outline-display delete-overlay make-overlay overlay-put category t] 11 (#$ . 20551)]) #@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 #[0 "\3021 \303`\304\"\205\f 0\202 \210\305\305\210\306\305x\210\211\204- \307 \262 \310=\2036 \211b\210\2026 \211`W\2036 \211b\210\306\305x\210`\207" [xmltok-start xmltok-type (nxml-scan-error) nxml-scan-element-forward t nil " " nxml-token-before end-tag] 3 (#$ . 21325)]) (defalias 'nxml-token-starts-line-p #[0 "\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 #[0 " =\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 #[0 "\304\305 \306\n\307\260\n \207" [nxml-cached-section-element-name-regexp xmltok-ncname-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp nil "</?\\(\\(" ":\\)?" "\\)[ \n>]"] 5]) #@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 #[0 "\306 =\203 \n\202 \307 \306`\fW\203 \fb\210\310\306\311#\204& \306\202R \312\224b\210\312\225\262\313 \210\314`!\211\205< \211b\210\315\262\204 \316 \210 \317>\203 SU\203 )\266 \207" [nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp case-fold-search nxml-prolog-end xmltok-type 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) xmltok-name-end] 7 (#$ . 22485)]) #@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 #[0 "\306` =\203\f \n\202 \307 \306`\fW\203 eb\210\306\202h \310\f\311#\204. \306eb\210\202g \312\224b\210\312\225\262\313 \210\314`!\211\205D \211b\210\315\262\204 \316 \210`X\203` \317>\203` SU\204g b\210\202 )\207" [nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp case-fold-search nxml-prolog-end xmltok-type 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) xmltok-name-end xmltok-start] 8 (#$ . 23254)]) #@95 Return the position of the start of the section containing point. Signal an error on failure. (defalias 'nxml-section-start-position #[0 "\3001 \212\301 \203 `\202 \302\303!)0\207\304\305\"\207" [(nxml-outline-error) nxml-back-to-section-start error "Not in section" nxml-report-outline-error "Couldn't determine containing section: %s"] 4 (#$ . 24095)]) #@340 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'. (fn &optional INVISIBLE-OK) (defalias 'nxml-back-to-section-start #[256 "\302 \204\n \303 \205g \304\211\304\262 \305=\204 \306=\203% \307 B\262\202V \204D \310 \203V \2049 \311\312\"\204V \313 \203V \314\262\202V \315 @\230\204Q \316\317!\210A\262\210\211b\210?\205` \303 \262\204\f \262\207" [xmltok-start xmltok-type 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"] 7 (#$ . 24461)]) #@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 #[0 "\306 \307 \310>\205$ \212\nb\210\311 \f=\203 \202 \312 !)\205$ \211b\210 )\207" [case-fold-search xmltok-type xmltok-start nxml-cached-section-element-name-regexp nxml-section-element-name-regexp nxml-cached-section-tag-regexp nxml-token-after nil (start-tag partial-start-tag) looking-at nxml-make-section-tag-regexp-1] 4 (#$ . 25384)]) #@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 #[0 "\304\305\306Q\305 \306Q`\307\212\310 \203] \n\311>\203- \312\313 \"\204] \304V\203] S\211\262\202R \n\314>\203U \312\315 \"\204] \312\315 \"\203M \316\307w\210`\262\202] T\262\317\203] `Z X\204\f )\207" [nxml-heading-element-name-regexp nxml-section-element-name-regexp xmltok-type nxml-heading-scan-distance 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] 8 (#$ . 25935)]) #@16 (fn MSG ERR) (defalias 'nxml-report-outline-error #[514 "\300\301\302A\"\"\207" [error apply format-message] 7 (#$ . 26733)]) #@19 (fn &rest ARGS) (defalias 'nxml-outline-error #[128 "\300\301\"\207" [signal nxml-outline-error] 4 (#$ . 26869)]) (define-error 'nxml-outline-error "Cannot create outline of buffer that is not well-formed" 'nxml-error) (defalias 'nxml-debug-overlays #[0 "\300ed\"\237\301\205/ @\262A\262\302\303\"\203 \304\305\302\306\"\307!\310!\302\311\"%\210\202 \207" [overlays-in nil overlay-get nxml-outline-display message "overlay %s: %s...%s (%s)" category overlay-start overlay-end display] 10 nil nil]) (provide 'nxml-outln)
Close
