mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require org avl-tree cl-lib] 2)
16 #@228 Regexp to separate paragraphs in an Org buffer.
17 In the case of lines starting with "#" and ":", this regexp
18 is not sufficient to know if point is at a paragraph ending.  See
19 `org-element-paragraph-parser' for more information.
20 (defvar org-element-paragraph-separate nil (#$ . 495))
21 #@282 Regexp possibly matching the beginning of an object.
22 This regexp allows false positives.  Dedicated parser (e.g.,
23 `org-export-bold-parser') will take care of further filtering.
24 Radio links are not matched by this regexp, as they are treated
25 specially in `org-element--object-lex'.
26 (defvar org-element--object-regexp nil (#$ . 784))
27 #@32 Build variable syntax regexps.
28 (defalias 'org-element--set-regexps #[0 "\306\307\310\307\311\307\312\313\307\314\307\315\307\316\317\307\320\307\321\307\322\307\323\307\324    !\307\n\325\267\202+\326\202,\327\202,\330 \2051\331\332\333\333\334\260\266\202\335\260\336\337\340\341 !\342\343\344\345\346 8\"P\347\350Q\351\352\353\354\333Q\355\356\357\257\n\262\307#\2110\207" [org-outline-regexp org-clock-string org-plain-list-ordered-item-terminator org-list-allow-alphabetical org-element-paragraph-separate org-emphasis-regexp-components "^\\(?:" "\\|" "\\[fn:[-_[:word:]]+\\]" "%%(" "[     ]*\\(?:" "$" "|" "\\+\\(?:-+\\+\\)+[     ]*$" "#\\(?: \\|$\\|\\+\\(?:" "BEGIN_\\S-+" "\\S-+\\(?:\\[.*\\]\\)?:[     ]*\\)\\)" ":\\(?: \\|$\\|[-_[:word:]]+:[     ]*$\\)" "-\\{5,\\}[     ]*$" "\\\\begin{\\([A-Za-z0-9*]+\\)}" regexp-quote #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (41 35 46 39)) ")" "\\." "[.)]" "\\|[A-Za-z]" "\\(?:[-+*]\\|\\(?:[0-9]+" "\\)" "\\(?:[     ]\\|$\\)" "\\)\\)" mapconcat identity regexp-opt org-link-types "\\(?:[_^][-{(*+.,[:alnum:]]\\)" "[*~=+_/]" format "[^%s]" 2 "\\<" ":" "\\[\\(?:fn:\\|\\[\\|[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\|[0-9]*\\(?:%\\|/[0-9]*\\)\\]\\)" "@@" "{{{" "<\\(?:%%\\|<\\|[0-9]\\|" "\\$" "\\\\\\(?:[a-zA-Z[(]\\|\\\\[     ]*$\\|_ +\\)" "\\(?:call\\|src\\)_" org-element--object-regexp] 35 (#$ . 1122)])
29 (org-element--set-regexps)
30 #@26 Update parser internals.
31 (defalias 'org-element-update-syntax #[0 "\300 \210\301\302!\207" [org-element--set-regexps org-element-cache-reset all] 2 (#$ . 2538) nil])
32 #@33 Complete list of element types.
33 (defconst org-element-all-elements '(babel-call center-block clock comment comment-block diary-sexp drawer dynamic-block example-block export-block fixed-width footnote-definition headline horizontal-rule inlinetask item keyword latex-environment node-property paragraph plain-list planning property-drawer quote-block section special-block src-block table table-row verse-block) (#$ . 2710))
34 #@55 List of recursive element types aka Greater Elements.
35 (defconst org-element-greater-elements '(center-block drawer dynamic-block footnote-definition headline inlinetask item plain-list property-drawer quote-block section special-block table) (#$ . 3141))
36 #@32 Complete list of object types.
37 (defconst org-element-all-objects '(bold code entity export-snippet footnote-reference inline-babel-call inline-src-block italic line-break latex-fragment link macro radio-target statistics-cookie strike-through subscript superscript table-cell target timestamp underline verbatim) (#$ . 3402))
38 #@33 List of recursive object types.
39 (defconst org-element-recursive-objects '(bold footnote-reference italic link subscript radio-target strike-through superscript table-cell underline) (#$ . 3734))
40 #@68 List of object or element types that can directly contain objects.
41 (defconst org-element-object-containers (append org-element-recursive-objects '(paragraph table-row verse-block)) (#$ . 3935))
42 #@163 List of affiliated keywords as strings.
43 By default, all keywords setting attributes (e.g., "ATTR_LATEX")
44 are affiliated keywords and need not to be in this list.
45 (defconst org-element-affiliated-keywords '("CAPTION" "DATA" "HEADER" "HEADERS" "LABEL" "NAME" "PLOT" "RESNAME" "RESULT" "RESULTS" "SOURCE" "SRCNAME" "TBLNAME") (#$ . 4136))
46 #@169 Alist of usual translations for keywords.
47 The key is the old name and the value the new one.  The property
48 holding their value will be named after the translated name.
49 (defconst org-element-keyword-translation-alist '(("DATA" . "NAME") ("LABEL" . "NAME") ("RESNAME" . "NAME") ("SOURCE" . "NAME") ("SRCNAME" . "NAME") ("TBLNAME" . "NAME") ("RESULT" . "RESULTS") ("HEADERS" . "HEADER")) (#$ . 4479))
50 #@411 List of affiliated keywords that can occur more than once in an element.
51
52 Their value will be consed into a list of strings, which will be
53 returned as the value of the property.
54
55 This list is checked after translations have been applied.  See
56 `org-element-keyword-translation-alist'.
57
58 By default, all keywords setting attributes (e.g., "ATTR_LATEX")
59 allow multiple occurrences and need not to be in this list.
60 (defconst org-element-multiple-keywords '("CAPTION" "HEADER") (#$ . 4884))
61 #@244 List of affiliated keywords whose value can be parsed.
62
63 Their value will be stored as a secondary string: a list of
64 strings and objects.
65
66 This list is checked after translations have been applied.  See
67 `org-element-keyword-translation-alist'.
68 (defconst org-element-parsed-keywords '("CAPTION") (#$ . 5376))
69 #@118 Alist of parsed keywords and associated properties.
70 This is generated from `org-element-parsed-keywords', which
71 see.
72 (defconst org-element--parsed-properties-alist (mapcar #[257 "\211\300\301\227P!B\207" [intern ":"] 5 "\n\n(fn K)"] org-element-parsed-keywords) (#$ . 5690))
73 #@377 List of affiliated keywords which can have a secondary value.
74
75 In Org syntax, they can be written with optional square brackets
76 before the colons.  For example, RESULTS keyword can be
77 associated to a hash value with the following:
78
79   #+RESULTS[hash-string]: some-source
80
81 This list is checked after translations have been applied.  See
82 `org-element-keyword-translation-alist'.
83 (defconst org-element-dual-keywords '("CAPTION" "RESULTS") (#$ . 5973))
84 #@244 Regexp matching any affiliated keyword.
85
86 Keyword name is put in match group 1.  Moreover, if keyword
87 belongs to `org-element-dual-keywords', put the dual value in
88 match group 2.
89
90 Don't modify it, set `org-element-affiliated-keywords' instead.
91 (defconst org-element--affiliated-re (byte-code "\302\303\302\304\305!\"\306\302\307\305\310\311    \"!\"\306\312\260\"\207" [org-element-dual-keywords org-element-affiliated-keywords format "[     ]*#\\+\\(?:%s\\):[     ]*" "\\(?1:%s\\)\\(?:\\[\\(.*\\)\\]\\)?" regexp-opt "\\|" "\\(?1:%s\\)" cl-remove-if #[257 "\211\235\207" [org-element-dual-keywords] 3 "\n\n(fn K)"] "\\(?1:ATTR_[-_A-Za-z0-9]+\\)"] 10) (#$ . 6428))
92 #@494 Alist of objects restrictions.
93
94 key is an element or object type containing objects and value is
95 a list of types that can be contained within an element or object
96 of such type.
97
98 For example, in a `radio-target' object, one can only find
99 entities, latex-fragments, subscript, superscript and text
100 markup.
101
102 This alist also applies to secondary string.  For example, an
103 `headline' type element doesn't directly contain objects, but
104 still has an entry since one of its properties (`:title') does.
105 (defconst org-element-object-restrictions (byte-code "\301\302\"\301\303\"\304B\305B\306B\307B\310B\311B\312\301\305\n\"B\313\314\nB\315\316\fB\317 B\320B\321\322\323B\324B\257\207" [org-element-all-objects remq table-cell line-break bold footnote-reference headline inlinetask italic item keyword (link bold code entity export-snippet inline-babel-call inline-src-block italic latex-fragment macro statistics-cookie strike-through subscript superscript underline verbatim) paragraph (radio-target bold code entity italic latex-fragment strike-through subscript superscript underline superscript) strike-through subscript superscript (table-cell bold code entity export-snippet footnote-reference italic latex-fragment link macro radio-target strike-through subscript superscript target timestamp underline verbatim) (table-row table-cell) underline verse-block] 20) (#$ . 7092))
106 #@64 Alist between element types and locations of secondary values.
107 (defconst org-element-secondary-value-alist '((headline :title) (inlinetask :title) (item :tag)) (#$ . 8492))
108 #@90 Table used internally to pair only round brackets.
109 Other brackets are treated as spaces.
110 (defconst org-element--pair-round-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\"\211@\301\307#\210A\266\202\202\262\207" [make-syntax-table modify-syntax-entry 40 "()" 41 ")(" (123 125 91 93 60 62) " "] 7) (#$ . 8671))
111 #@91 Table used internally to pair only square brackets.
112 Other brackets are treated as spaces.
113 (defconst org-element--pair-square-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\"\211@\301\307#\210A\266\202\202\262\207" [make-syntax-table modify-syntax-entry 91 "(]" 93 ")[" (123 125 40 41 60 62) " "] 7) (#$ . 9020))
114 #@90 Table used internally to pair only curly brackets.
115 Other brackets are treated as spaces.
116 (defconst org-element--pair-curly-table (byte-code "\300 \301\302\303#\210\301\304\305#\210\306\211\203\"\211@\301\307#\210A\266\202\202\262\207" [make-syntax-table modify-syntax-entry 123 "(}" 125 "){" (91 93 40 41 60 62) " "] 7) (#$ . 9371))
117 #@193 Parse paired brackets at point.
118 CHAR is the opening bracket to consider, as a character.  Return
119 contents between brackets, as a string, or nil.  Also move point
120 past the brackets.
121
122 (fn CHAR)
123 (defalias 'org-element--parse-paired-brackets #[257 "\211\303f=\205X\211\304\267\202\202    \202\n\202\303`\205V\305 p\306\307\310\311\312\"\313\"\314$\216\315!\210\3161B\317\320\307#0\202D\210\303\211\205Q\211b\210\321TS\"\262)\266\202\266\202\207" [org-element--pair-curly-table org-element--pair-square-table org-element--pair-round-table nil #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (123 13 91 17 40 21)) syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) scan-lists 1 buffer-substring-no-properties] 12 (#$ . 9721)])
124 #@272 Return type of ELEMENT.
125
126 The function returns the type of the element or object provided.
127 It can also return the following special value:
128   `plain-text'       for a string
129   `org-data'         for a complete document
130   nil                in any other case.
131
132 (fn ELEMENT)
133 (defalias 'org-element-type #[257 "\211:\204\f\211;\205\300\207\211@9\205\211@\207" [plain-text] 2 (#$ . 10574)])
134 (put 'org-element-type 'byte-optimizer 'byte-compile-inline-expand)
135 #@75 Extract the value from the PROPERTY of an ELEMENT.
136
137 (fn PROPERTY ELEMENT)
138 (defalias 'org-element-property #[514 "\211;\203 \300\301#\207\302A@\"\207" [get-text-property 0 plist-get] 6 (#$ . 11038)])
139 (put 'org-element-property 'byte-optimizer 'byte-compile-inline-expand)
140 #@49 Extract contents from an ELEMENT.
141
142 (fn ELEMENT)
143 (defalias 'org-element-contents #[257 "\211:\204\300\207\211@9\203\211AA\207\207" [nil] 2 (#$ . 11320)])
144 (put 'org-element-contents 'byte-optimizer 'byte-compile-inline-expand)
145 #@146 Return restriction associated to ELEMENT.
146 ELEMENT can be an element, an object or a symbol representing an
147 element or object type.
148
149 (fn ELEMENT)
150 (defalias 'org-element-restriction #[257 "\2119\203    \211\202$\211\211:\204\211;\205\"\301\262\202$\211@9\205\"\211@\262\236A\207" [org-element-object-restrictions plain-text] 3 (#$ . 11556)])
151 (put 'org-element-restriction 'byte-optimizer 'byte-compile-inline-expand)
152 #@89 In ELEMENT set PROPERTY to VALUE.
153 Return modified element.
154
155 (fn ELEMENT PROPERTY VALUE)
156 (defalias 'org-element-put-property #[771 ";\203\f\300\301$\207A\302A@#\240\210\207" [org-add-props nil plist-put] 8 (#$ . 11984)])
157 (put 'org-element-put-property 'byte-optimizer 'byte-compile-inline-expand)
158 #@82 Set ELEMENT's contents to CONTENTS.
159 Return ELEMENT.
160
161 (fn ELEMENT &rest CONTENTS)
162 (defalias 'org-element-set-contents #[385 "\204\207@9\204\f\207A\203A\241\210\207\244\207" [] 4 (#$ . 12296)])
163 (put 'org-element-set-contents 'byte-optimizer 'byte-compile-inline-expand)
164 #@131 Non-nil when OBJECT directly belongs to a secondary string.
165 Return value is the property name, as a keyword, or nil.
166
167 (fn OBJECT)
168 (defalias 'org-element-secondary-p #[257 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\211\211:\204*\211;\2052\305\262\2024\211@9\2052\211@\262\236A\3062o\211\211\205l\211@\211;\203T\302\303#\266\202\202\\\304A@\"\266\202>\203e\307\306\"\210A\266\202\202<\2620\207" [org-element-secondary-value-alist :parent get-text-property 0 plist-get plain-text exit throw] 12 (#$ . 12584)])
169 #@232 Return class for ELEMENT, as a symbol.
170 Class is either `element' or `object'.  Optional argument PARENT
171 is the element or object containing DATUM.  It defaults to the
172 value of DATUM `:parent' property.
173
174 (fn DATUM &optional PARENT)
175 (defalias 'org-element-class #[513 "\211:\204\211;\205\303\262\202\211@9\205\211@\262\2068\304\211;\2030\305\306#\266\202\2028\307A@\"\266\202>\203B\310\202\252    >\203L\311\202\252\312=\203V\311\202\252\303=\203`\310\202\252\204h\310\202\252\211\204p\311\202\252\211\211:\204\201\211;\205\211\303\262\202\213\211@9\205\211\211@\262\211\204\223\310\202\250\211\n>\203\235\310\202\250\313!\203\247\310\202\250\311\262\207" [org-element-all-objects org-element-all-elements org-element-object-containers plain-text :parent get-text-property 0 plist-get object element org-data org-element-secondary-p] 9 (#$ . 13139)])
176 (put 'org-element-class 'byte-optimizer 'byte-compile-inline-expand)
177 #@253 Append elements to the contents of another element.
178
179 PARENT is an element or object.  CHILDREN can be elements,
180 objects, or a strings.
181
182 The function takes care of setting `:parent' property for CHILD.
183 Return parent element.
184
185 (fn PARENT &rest CHILDREN)
186 (defalias 'org-element-adopt-elements #[385 "\211\204\207\211\211\203:\211@\211\300\206;\203$\301\302$\266\203\2022A\303A@#\240\210\266\203\210A\266\202\202\210\203]\304\305\211\211:\204N\302\262\202Y\211@9\203Y\211AA\262\244#\210\206b\211\207" [:parent org-add-props nil plist-put apply org-element-set-contents] 12 (#$ . 14113)])
187 (put 'org-element-adopt-elements 'byte-optimizer 'byte-compile-inline-expand)
188 #@155 Extract ELEMENT from parse tree.
189 Remove element from the parse tree by side-effect, and return it
190 with its `:parent' property stripped out.
191
192 (fn ELEMENT)
193 (defalias 'org-element-extract-element #[257 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304!\211\203a\305\211;\2036\301\302#\266\202\202>\303A@\"\266\202\";\203O\306\307$\266\203\202]A\310A@#\240\210\266\203\210\202\202\311\312\305\211:\204t\307\262\202\211@9\203\211AA\262\"#\210\300\307;\203\225\306\307$\266\203\202\243A\310A@#\240\210\266\203\207" [:parent get-text-property 0 plist-get org-element-secondary-p delq org-add-props nil plist-put apply org-element-set-contents] 13 (#$ . 14815)])
194 #@173 Insert ELEMENT before LOCATION in parse tree.
195 LOCATION is an element, object or string within the parse tree.
196 Parse tree is modified by side effect.
197
198 (fn ELEMENT LOCATION)
199 (defalias 'org-element-insert-before #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304!\211\203<\211\211;\2031\301\302#\266\202\202S\303A@\"\266\202\202S\211:\204H\305\262\202S\211@9\203S\211AA\262?\205b\211=\205b@=\211\204\237\203q@=\203yB\262\202\237\204\206C\244\210\202\237\306\"\211\204\222\307\310!\210\211S\233\211AB\241\266\211\203\261\311!\241\210\240\210\202\340\203\332;\203\310\312\305$\266\203\202\326A\313A@#\240\210\266\203\210\202\340\314\315#\210\300;\203\363\312\305$\266\203\202A\313A@#\240\210\266\203\207" [:parent get-text-property 0 plist-get org-element-secondary-p nil cl-position error "No location found to insert element" copy-sequence org-add-props plist-put apply org-element-set-contents] 14 (#$ . 15542)])
200 #@136 Replace element or object OLD with element or object NEW.
201 The function takes care of setting `:parent' property for NEW.
202
203 (fn OLD NEW)
204 (defalias 'org-element-set-element #[514 "\211\300\211\211;\203\301\302#\266\202\202\303A@\"\266\202;\203+\304\305$\266\203\2029A\306A@#\240\210\266\203\210\211:\204K\211;\205S\307\262\202U\211@9\205S\211@\262\310>\204z\211\211:\204k\211;\205s\307\262\202u\211@9\205s\211@\262\311>\203\203\312\"\210\313!\207\211\211:\204\217\305\262\202\232\211@9\203\232\211AA\262\211\203\311\211@\211\300;\203\263\304\305$\266\203\202\301A\306A@#\240\210\266\203\210A\266\202\202\232\210\314\315\211:\204\331\305\262\202\344\211@9\203\344\211AA\262#\210AA@\240\210@\240\207" [:parent get-text-property 0 plist-get org-add-props nil plist-put plain-text (plain-text nil) (plain-text nil) org-element-insert-before org-element-extract-element apply org-element-set-contents] 12 (#$ . 16566)])
205 #@215 Create a new element of type TYPE.
206 Optional argument PROPS, when non-nil, is a plist defining the
207 properties of the element.  CHILDREN can be elements, objects or
208 strings.
209
210 (fn TYPE &optional PROPS &rest CHILDREN)
211 (defalias 'org-element-create #[641 "\300\301D#\207" [apply org-element-adopt-elements] 7 (#$ . 17554)])
212 #@153 Return a copy of DATUM.
213 DATUM is an element, object, string or nil.  `:parent' property
214 is cleared and contents are removed in the process.
215
216 (fn DATUM)
217 (defalias 'org-element-copy #[257 "\211\205N\211\211:\204\211;\205\300\262\202\211@9\205\211@\262\211\301=\203+\301\302D\202L\211\300=\2037\303!\202L\211\204A\304!\202L\211\305\304A@!\306\302#D\262\207" [plain-text org-data nil substring-no-properties copy-sequence plist-put :parent] 7 (#$ . 17883)])
218 #@467 Parse a center block.
219
220 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
221 the buffer position at the beginning of the first affiliated
222 keyword and CDR is a plist of affiliated keywords along with
223 their value.
224
225 Return a list whose CAR is `center-block' and CDR is a plist
226 containing `:begin', `:end', `:contents-begin', `:contents-end',
227 `:post-blank' and `:post-affiliated' keywords.
228
229 Assume point is at the beginning of the block.
230
231 (fn LIMIT AFFILIATED)
232 (defalias 'org-element-center-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202`\305\224@`\306y\210`W\205\"`\211\205'b\210\306y\210`\212\307w\210m\203<`\202>\310 )\311\312\313\314    \315\n\316\317\f\f\"\320\257\f    A\244D\266\206\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_CENTER[     ]*$" org-element-paragraph-parser 0 nil "      \n" line-beginning-position center-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 22 (#$ . 18365)])
233 #@107 Interpret a center-block element as Org syntax.
234 CONTENTS is the contents of the element.
235
236 (fn _ CONTENTS)
237 (defalias 'org-element-center-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_CENTER\n%s#+END_CENTER"] 5 (#$ . 19358)])
238 #@464 Parse a drawer.
239
240 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
241 the buffer position at the beginning of the first affiliated
242 keyword and CDR is a plist of affiliated keywords along with
243 their value.
244
245 Return a list whose CAR is `drawer' and CDR is a plist containing
246 `:drawer-name', `:begin', `:end', `:contents-begin',
247 `:contents-end', `:post-blank' and `:post-affiliated' keywords.
248
249 Assume point is at beginning of drawer.
250
251 (fn LIMIT AFFILIATED)
252 (defalias 'org-element-drawer-parser #[514 "\302\212\303\304\302#)\204\305\"\202h\212\306\224\307    !\210\310\311!@`\312y\210`W\205*`\211\205/b\210\312y\210`\313    w\210m\203C`\202E\314 \315\316\317\320\f\321 \322\f\323\324\"\325\257\nA\244D\266\210))\207" [case-fold-search org-drawer-regexp t re-search-forward "^[     ]*:END:[     ]*$" org-element-paragraph-parser 0 looking-at match-string-no-properties 1 nil "      \n" line-beginning-position drawer :begin :end :drawer-name :contents-begin :contents-end :post-blank count-lines :post-affiliated] 25 (#$ . 19602)])
253 #@104 Interpret DRAWER element as Org syntax.
254 CONTENTS is the contents of the element.
255
256 (fn DRAWER CONTENTS)
257 (defalias 'org-element-drawer-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202#\207" [format ":%s:\n%s:END:" :drawer-name get-text-property 0 plist-get] 10 (#$ . 20660)])
258 #@498 Parse a dynamic block.
259
260 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
261 the buffer position at the beginning of the first affiliated
262 keyword and CDR is a plist of affiliated keywords along with
263 their value.
264
265 Return a list whose CAR is `dynamic-block' and CDR is a plist
266 containing `:block-name', `:begin', `:end', `:contents-begin',
267 `:contents-end', `:arguments', `:post-blank' and
268 `:post-affiliated' keywords.
269
270 Assume point is at beginning of dynamic block.
271
272 (fn LIMIT AFFILIATED)
273 (defalias 'org-element-dynamic-block-parser #[514 "\302\212\303\304\302#)\204\305\"\202q\306\224\212\307    !\210\310\311!\310\312!@`\313y\210`W\205-`\211\2052b\210\313y\210`\314\nw\210m\203G`\202I\315 \316\317\320\321 \322\323 \324\325\326\"\327\257 A\244D\266\210)\262)\207" [case-fold-search org-dblock-start-re t re-search-forward "^[     ]*#\\+END:?[     ]*$" org-element-paragraph-parser 0 looking-at match-string-no-properties 1 3 nil "      \n" line-beginning-position dynamic-block :begin :end :block-name :arguments :contents-begin :contents-end :post-blank count-lines :post-affiliated] 28 (#$ . 20980)])
274 #@118 Interpret DYNAMIC-BLOCK element as Org syntax.
275 CONTENTS is the contents of the element.
276
277 (fn DYNAMIC-BLOCK CONTENTS)
278 (defalias 'org-element-dynamic-block-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203,\303\304#\266\202\2024\305A@\"\266\202\211\203>\307P\202?\310\262$\207" [format "#+BEGIN: %s%s\n%s#+END:" :block-name get-text-property 0 plist-get :arguments " " ""] 11 (#$ . 22123)])
279 #@49 Regexp used as a footnote definition separator.
280 (defconst org-element--footnote-separator (concat org-outline-regexp-bol #1="\\|" org-footnote-definition-re #1# "^\\([     ]*\n\\)\\{2,\\}") (#$ . 22580))
281 #@504 Parse a footnote definition.
282
283 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
284 the buffer position at the beginning of the first affiliated
285 keyword and CDR is a plist of affiliated keywords along with
286 their value.
287
288 Return a list whose CAR is `footnote-definition' and CDR is
289 a plist containing `:label', `:begin' `:end', `:contents-begin',
290 `:contents-end', `:post-blank' and `:post-affiliated' keywords.
291
292 Assume point is at the beginning of the footnote definition.
293
294 (fn LIMIT AFFILIATED)
295 (defalias 'org-element-footnote-definition-parser #[514 "\212\304!\210\305\306!@`\212\307\210\310    \311#\204\202b\312\224f\313=\203E\314y\210`V\203?\n\311\304!)\262\203?\314y\210\202'\315\316!\202b\312\224f\317=\203R\312\224\202b\320w\210`U\203`\202b\315 )\321\322!\210\320w\210`U\203u\307\202\202\315 U\203\200`\202\202\315 b\210\320\307x\210\315\316!\323\324\325\326\327    \330 \205\241\n\331\332 \"\333\257A\244D\266\206)\207" [org-footnote-definition-re org-element--footnote-separator org-element--affiliated-re inhibit-changing-match-data looking-at match-string-no-properties 1 nil re-search-forward t 0 91 -1 line-beginning-position 2 42 "      \n" search-forward "]" footnote-definition :label :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 23 (#$ . 22788)])
296 #@142 Interpret FOOTNOTE-DEFINITION element as Org syntax.
297 CONTENTS is the contents of the footnote-definition.
298
299 (fn FOOTNOTE-DEFINITION CONTENTS)
300 (defalias 'org-element-footnote-definition-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\"\306Q\207" [format "[fn:%s]" :label get-text-property 0 plist-get " "] 10 (#$ . 24148)])
301 #@243 Return node properties associated to headline at point.
302 Upcase property names.  It avoids confusion between properties
303 obtained through property drawer and default properties from the
304 parser (e.g. `:end' and :END:).  Return value is a plist.
305 (defalias 'org-element--get-node-properties #[0 "\212\304y\210\305\306!)\262\203\304y\210\306\n!\205E\304y\210\307\225\304\310 W\203C\306 !\210\311\312!B\262\313\314\315\316!\226P!B\262\304y\210\202\262)\207" [org-planning-line-re inhibit-changing-match-data org-property-drawer-re org-property-re nil t looking-at 0 line-end-position match-string-no-properties 3 intern ":" match-string 2] 6 (#$ . 24517)])
306 #@82 Return time properties associated to headline at point.
307 Return value is a plist.
308 (defalias 'org-element--get-time-properties #[0 "\212\304y\210\305!\205P\306 \304\307    \310#\203N\311\225b\210\312\304w\210\313\311!\314 \n\232\2032\315\316#\262\202I \232\203B\315\317#\262\202I\315\320#\262\266\202 \262)\207" [org-planning-line-re org-keyword-time-not-clock-regexp org-scheduled-string org-deadline-string nil looking-at line-end-position re-search-forward t 1 "     " match-string org-element-timestamp-parser plist-put :scheduled :deadline :closed] 8 (#$ . 25189)])
309 #@790 Parse a headline.
310
311 Return a list whose CAR is `headline' and CDR is a plist
312 containing `:raw-value', `:title', `:begin', `:end',
313 `:pre-blank', `:contents-begin' and `:contents-end', `:level',
314 `:priority', `:tags', `:todo-keyword',`:todo-type', `:scheduled',
315 `:deadline', `:closed', `:archivedp', `:commentedp'
316 `:footnote-section-p', `:post-blank' and `:post-affiliated'
317 keywords.
318
319 The plist also contains any property set in the property drawer,
320 with its name in upper cases and colons added at the
321 beginning (e.g., `:CUSTOM_ID').
322
323 LIMIT is a buffer position bounding the search.
324
325 When RAW-SECONDARY-P is non-nil, headline's title will not be
326 parsed as a secondary string, but as a plain string instead.
327
328 Assume point is at beginning of the headline.
329
330 (fn LIMIT &optional RAW-SECONDARY-P)
331 (defalias 'org-element-headline-parser #[513 "\212`\306\307\310w!\311\310w\210\205%\310\312\313P!)\205%\314\225b\210\311\310w\210\315\316!\211\2054\211\n\235\2033\317\2024\320\312\321!\205C\314\225b\210\315\314!\322H\310\312 !)\205O\314\225b`\323\324\325 \326#\205c\314\224b\210\327\315\316!\330\"`\331\"\310\332\203r\333\202s\334\335\332\336\335##\266\202\f\235 \205\207 \230\337 \340 \212\341\342\211\")^\212\310y\210\343w\210`U?\205\245\344 )\211\205\264b\210\343\310x\210\344\322!\345\346    \347\350\351    \204\310\314\202\317\352 \"S\353 \354\f\355\356\357\360\"\361#\362\203\363\352\"\202\372\352)\"S\363\364\"\365)\3660\257 \244\244D\211\367\203\n\202\\\370b\210\311\310w\210` b\210\311\310x\210`\310\345\2119\2038\211\202S\211\211:\204I\211;\205Q\371\262\202S\211@9\205Q\211@\262<\236A\262%;\203l\372\310$\266\203\202zA\373A@#\240\210\266\203\262\266\221)\207" [org-todo-regexp case-fold-search org-done-keywords org-comment-string org-archive-tag org-footnote-section org-reduced-level "*" nil "     " looking-at " " 0 match-string 1 done todo "\\[#.\\][     ]*" 2 re-search-forward "[     ]+\\(:[[:alnum:]_@#%:]+:\\)[     ]*$" line-end-position move org-split-string ":" buffer-substring-no-properties replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" org-element--get-node-properties org-element--get-time-properties org-end-of-subtree t "      \n" line-beginning-position headline :raw-value :begin :end :pre-blank count-lines :contents-begin :contents-end :level :priority :tags :todo-keyword :todo-type :post-blank :footnote-section-p :archivedp :commentedp :post-affiliated :title org-element--parse-objects plain-text org-add-props plist-put org-element-object-restrictions] 52 (#$ . 25781)])
332 #@108 Interpret HEADLINE element as Org syntax.
333 CONTENTS is the contents of the element.
334
335 (fn HEADLINE CONTENTS)
336 (defalias 'org-element-headline-interpreter #[514 "\304\211;\203\305\306#\266\202\202\307A@\"\266\202\310\211;\203*\305\306#\266\202\2022\307A@\"\266\202\311\211;\203C\305\306#\266\202\202K\307A@\"\266\202\312\313\211;\203^\305\306#\266\202\202f\307A@\"\266\202!\314\211;\203y\305\306#\266\202\202\201\307A@\"\266\202\211\205\215\315\316\317\320\321#\"\262\322\211;\203\241\305\306#\266\202\202\251\307A@\"\266\202\323\211;\203\273\305\306#\266\202\202\303\307A@\"\266\202\206\307\306\324\203\324\325_S\202\326\326\"\205\341\327P\205\350\327    P\205\362\315\330    \"\327\n\203\331\211;\203    \305\306#\266\202\202\307A@\"\266\202\203\n\202\260\211\205S \306U\203/\315\332\"\202S \306W\203H\324\333 GG#[\334]\335\"P\202S\324 GZ\334]\335\"P\324T\336\" R\207" [org-odd-levels-only org-comment-string org-footnote-section org-tags-column :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :tags format ":%s:" mapconcat identity ":" :commentedp :pre-blank make-string 2 42 " " " [#%c]" :footnote-section-p " %s" + 1 32 10] 20 (#$ . 28395)])
337 #@721 Parse an inline task.
338
339 Return a list whose CAR is `inlinetask' and CDR is a plist
340 containing `:title', `:begin', `:end', `:pre-blank',
341 `:contents-begin' and `:contents-end', `:level', `:priority',
342 `:raw-value', `:tags', `:todo-keyword', `:todo-type',
343 `:scheduled', `:deadline', `:closed', `:post-blank' and
344 `:post-affiliated' keywords.
345
346 The plist also contains any property set in the property drawer,
347 with its name in upper cases and colons added at the
348 beginning (e.g., `:CUSTOM_ID').
349
350 When optional argument RAW-SECONDARY-P is non-nil, inline-task's
351 title will not be parsed as a secondary string, but as a plain
352 string instead.
353
354 Assume point is at beginning of the inline task.
355
356 (fn LIMIT &optional RAW-SECONDARY-P)
357 (defalias 'org-element-inlinetask-parser #[513 "\212`\306\307\310w!\311\310w\210\205#\310\312!)\205#\313\225b\210\311\310w\210\314\313!\211\2052\211\n\235\2031\315\2022\316\312\317!\205A\313\225b\210\314\313!\320H`\321\322\323 \324#\205U\313\224b\210\325\314\326!\327\"`\330\"\310\331\203d\332\202e\333\334\331\335\334##\266\202\212\310\210\321 \f\336#\205\212\337\336\312!)\262\205\212\340 )\211\205\221\341 \205\227\342 \205\252`W\205\252\310y\210\343\310w\210\340 \211\205\257\203\266b\210\310y\210\344w\210m\203\306`\202\310\340 \345\346\347\350\351\n\204\334\313\202\343\352\f\"S\353\f\354 \355\356\357\360 \361!\362\352\206'\"S\363(\257\244\244D\211\364\203    \202]\365 b\210\311\310w\210`\fb\210\311\310x\210`\310\345\2119\203:\211\202U\211\211:\204K\211;\205S\366\262\202U\211@9\205S\211@\262 \236A\262%;\203m\367\310$\266\203\202{A\370A@#\240\210\266\203\266\220)\207" [org-todo-regexp case-fold-search org-done-keywords org-outline-regexp-bol inhibit-changing-match-data org-element-object-restrictions org-reduced-level "*" nil "     " looking-at 0 match-string done todo "\\[#.\\][     ]*" 2 re-search-forward "[     ]+\\(:[[:alnum:]_@#%:]+:\\)[     ]*$" line-end-position move org-split-string 1 ":" buffer-substring-no-properties replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" t "[     ]*END[     ]*$" line-beginning-position org-element--get-node-properties org-element--get-time-properties "     \n" "      \n" inlinetask :raw-value :begin :end :pre-blank count-lines :contents-begin :contents-end :level :priority :tags :todo-keyword :todo-type :post-blank :post-affiliated :title org-element--parse-objects plain-text org-add-props plist-put] 44 (#$ . 29694)])
358 #@111 Interpret INLINETASK element as Org syntax.
359 CONTENTS is the contents of inlinetask.
360
361 (fn INLINETASK CONTENTS)
362 (defalias 'org-element-inlinetask-interpreter #[514 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\306\211;\203C\302\303#\266\202\202K\304A@\"\266\202\307\310\211;\203^\302\303#\266\202\202f\304A@\"\266\202!\311\211;\203y\302\303#\266\202\202\201\304A@\"\266\202\211\205\215\312\313\314\315\316#\"\262\317\320\"\205\232\321P\205\243\312\322\"\205\252\321PR\211\205\341\303U\203\275\312\323\"\202\341\303W\203\326\317\324GG#[\325]\326\"P\202\341\317GZ\325]\326\"P\205\360\327    \317\n\320\"\330RQ\207" [org-tags-column :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :tags format ":%s:" mapconcat identity ":" make-string 42 " " " [#%c]" " %s" + 1 32 "\n" " END"] 15 (#$ . 32207)])
363 #@517 Parse an item.
364
365 STRUCT is the structure of the plain list.
366
367 Return a list whose CAR is `item' and CDR is a plist containing
368 `:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
369 `:checkbox', `:counter', `:tag', `:structure', `:post-blank' and
370 `:post-affiliated' keywords.
371
372 When optional argument RAW-SECONDARY-P is non-nil, item's tag, if
373 any, will not be parsed as a secondary string, but as a plain
374 string instead.
375
376 Assume point is at the beginning of the item.
377
378 (fn _ STRUCT &optional RAW-SECONDARY-P)
379 (defalias 'org-element-item-parser #[770 "\212\302 \210\303!\210`\304\305!\306\307!\211\310\267\202!\311\202\"\312\202\"\313\202\"\314\262\306\315!\316 \317\320\321\322\323!\324\"\307$\216\204=\314\202]\325\326\"\203P\327\306\320\"\226!\330Z\202]\325\331\"\205]\332\306\320\"!)\262\262\333`\2368b\210n\203r`\202u\334\315!\335\224\203\230\316 \317\320\321\322\323!\336\"\307$\216\325\337\")\262\203\230\335\224\202\232\320\225b\210\340w\210`U\203\252\314\202\267\334 U\203\265`\202\267\334 \211\205\305b\210\340\314x\210\334\315!\341\342\343\n\344\345    \346\n\347\350\351\352\353\206\347\"\354\257D\211\355    \f\356\2368\266\203\266\202\211\205B \203\211\202B\357\335\224\335\225\314\341\2119\203\211\202:\211\211:\2040\211;\2058\360\262\202:\211@9\2058\211@\262    \236A\262%\262;\203T\361\314$\266\203\202bA\362A@#\240\210\266\203\266\210)\207" [org-list-full-item-re org-element-object-restrictions beginning-of-line looking-at match-string-no-properties 1 match-string 3 #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("[ ]" 21 "[X]" 25 "[-]" 29)) off on trans nil 2 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] string-match "[A-Za-z]" string-to-char 64 "[0-9]+" string-to-number 6 line-beginning-position 4 [set-match-data evaporate] "[.)]" "      \n" item :bullet :begin :end :contents-begin :contents-end :checkbox :counter :structure :post-blank count-lines :post-affiliated :tag 5 org-element--parse-objects plain-text org-add-props plist-put] 31 (#$ . 33182)])
380 #@100 Interpret ITEM element as Org syntax.
381 CONTENTS is the contents of the element.
382
383 (fn ITEM CONTENTS)
384 (defalias 'org-element-item-interpreter #[514 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\307\"\204$\310\202/\311=\203.\312\202/\313\314 \315\304\316\317\320!\321\"\322$\216    \203L\306    \"\203L\323\202M\324\306\325\"\203_\326\327\211\330%\202`\262)\262\262\262\331\211;\203z\303\304#\266\202\202\202\305A@\"\266\202\332\211;\203\223\303\304#\266\202\202\233\305A@\"\266\202\333\211;\203\254\303\304#\266\202\202\264\305A@\"\266\202\211\205\273\334!\262\335G\336\"\211:\204\317\327\262\202\332\211@9\203\332\211AA\262@\211:\204\353\211;\205\363\337\262\202\365\211@9\205\363\211@\262\340=\205\341\342\"\343\267\202\344\202\345\202\346\202\327\205\341\347\"\n\205P\350\351 \327\211\330&\203K\211\327\350\203=\352\202>\353\354\350\355\354##\266\202\202N\356P\262\260\207" [org-plain-list-ordered-item-terminator org-list-two-spaces-after-bullet-regexp :bullet get-text-property 0 plist-get string-match "[0-9a-zA-Z]" "- " 41 "1)" "1." match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "  " " " "\\S-+\\([     ]*\\)" replace-match nil 1 :checkbox :counter :tag org-element-interpret-data make-string 32 plain-text paragraph format "[@%d] " #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 264 off 268 trans 272)) "[X] " "[ ] " "[-] " "%s :: " replace-regexp-in-string "\\(^\\)[     ]*\\S-" "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" "\n"] 22 (#$ . 35351)])
385 #@14 
386
387 (fn LIMIT)
388 (defalias 'org-element--list-struct #[257 "\305\306 \307\310!\205 \311\312\211\212\3132}`Y\203E\314\312x\210\315\316!\211\2036\211@\317\233\240\210A\266\202\202#\266\320\313\321\244\322\"\"\210\202\323    !\203m\211\203_\211@\317\233`\240\210A\266\202\202L\210\320\313\321\244\322\"\"\210\202\323!\203\335\212\324\312w\210i)^\262\203\241\211@A@X\203\241\211A\262\242\317\233`\240\210\211B\262\210\202\323\n!\210\325\326!`\325\316!\325\327!\330 \331\332\333\334\335!\336\"\327$\216\337\340\")\262\205\315\325\341!\312\257\262B\262\210\312y\210\202\323\342!\203\351\312y\210\202\203\323!\203\312y\210`\343    \305#\203\344\305\323!)\262\203\312y\210\202\211b\210\210\202\212\324\312w\210i)\212\314\312x\210\315\316!)@A@X\203T\211A\262\242\317\233\240\210\211B\262\204P\320\313\321\322\"\"\210\210\202)\266\323\345!\203j\343\346\347\350\326!\"\305#\204w\323\f!\203w\343\351\305#\210\312y\210\202*\207" [case-fold-search org-list-end-re org-list-full-item-re inhibit-changing-match-data org-drawer-regexp t org-item-re featurep org-inlinetask "^\\*+ " nil :exit "      \n" line-beginning-position 2 6 throw sort car-less-than-car looking-at "     " match-string-no-properties 1 3 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] string-match "[-+*]" 4 "^[     ]*$" re-search-forward "END[     ]*$" "[     ]*#\\+BEGIN\\(:\\|_\\S-+\\)" format "^[     ]*#\\+END%s[     ]*$" match-string "^[     ]*:END:[     ]*$"] 21 (#$ . 37009)])
389 #@558 Parse a plain list.
390
391 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
392 the buffer position at the beginning of the first affiliated
393 keyword and CDR is a plist of affiliated keywords along with
394 their value.  STRUCTURE is the structure of the plain list being
395 parsed.
396
397 Return a list whose CAR is `plain-list' and CDR is a plist
398 containing `:type', `:begin', `:end', `:contents-begin' and
399 `:contents-end', `:structure', `:post-blank' and
400 `:post-affiliated' keywords.
401
402 Assume point is at the beginning of the list.
403
404 (fn LIMIT AFFILIATED STRUCTURE)
405 (defalias 'org-element-plain-list-parser #[771 "\212\211\206\301!\302\303\304!)\262\203\305\202%\306`\2368\203$\307\202%\310`@\236\211A@\3118\211\236\211\262\203KA@U\203K\3118\262\2021\266\202\211b\210\312w\210`U\203a\202c\313 \314\315\316\317\320 \321 \322\323\324\"\325\257    A\244D\266\206)\207" [inhibit-changing-match-data org-element--list-struct "[     ]*[A-Za-z0-9]" t looking-at ordered 5 descriptive unordered 6 "      \n" line-beginning-position plain-list :type :begin :end :contents-begin :contents-end :structure :post-blank count-lines :post-affiliated] 26 (#$ . 38567)])
406 #@103 Interpret plain-list element as Org syntax.
407 CONTENTS is the contents of the element.
408
409 (fn _ CONTENTS)
410 (defalias 'org-element-plain-list-interpreter #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210eb\210\311 \210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-list-repair buffer-string] 9 (#$ . 39762)])
411 #@299 Parse a property drawer.
412
413 LIMIT bounds the search.
414
415 Return a list whose car is `property-drawer' and cdr is a plist
416 containing `:begin', `:end', `:contents-begin', `:contents-end',
417 `:post-blank' and `:post-affiliated' keywords.
418
419 Assume point is at the beginning of the property drawer.
420
421 (fn LIMIT)
422 (defalias 'org-element-property-drawer-parser #[257 "\212\301`\302\303!\304\305\301#\210\306\224V\205\306\224\307y\210`\310w\210m\203(`\202*\302 \311\312\313\314\2058    \315\n\316\317\f\f\"\320\257\fD\266\203)\266\203)\207" [case-fold-search t line-beginning-position 2 re-search-forward "^[     ]*:END:[     ]*$" 0 nil "      \n" property-drawer :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 20 (#$ . 40183)])
423 #@113 Interpret property-drawer element as Org syntax.
424 CONTENTS is the properties within the drawer.
425
426 (fn _ CONTENTS)
427 (defalias 'org-element-property-drawer-interpreter #[514 "\300\301\"\207" [format ":PROPERTIES:\n%s:END:"] 5 (#$ . 40948)])
428 #@465 Parse a quote block.
429
430 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
431 the buffer position at the beginning of the first affiliated
432 keyword and CDR is a plist of affiliated keywords along with
433 their value.
434
435 Return a list whose CAR is `quote-block' and CDR is a plist
436 containing `:begin', `:end', `:contents-begin', `:contents-end',
437 `:post-blank' and `:post-affiliated' keywords.
438
439 Assume point is at the beginning of the block.
440
441 (fn LIMIT AFFILIATED)
442 (defalias 'org-element-quote-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202`\305\224\212@`\306y\210`W\205#`\211\205(b\210\306y\210`\307w\210m\203<`\202>\310 \311\312\313\314    \315\n\316\317\f\f\"\320\257\f    A\244D\266\206)\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_QUOTE[     ]*$" org-element-paragraph-parser 0 nil "      \n" line-beginning-position quote-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 22 (#$ . 41192)])
443 #@104 Interpret quote-block element as Org syntax.
444 CONTENTS is the contents of the element.
445
446 (fn _ CONTENTS)
447 (defalias 'org-element-quote-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_QUOTE\n%s#+END_QUOTE"] 5 (#$ . 42179)])
448 #@194 Parse a section.
449
450 Return a list whose CAR is `section' and CDR is a plist
451 containing `:begin', `:end', `:contents-begin', `contents-end',
452 `:post-blank' and `:post-affiliated' keywords.
453
454 (fn _)
455 (defalias 'org-element-section-parser #[257 "\212`\304\305 \211\306    P\307 \210,`\310\311x\210\312\313!\314\315\316\317\320\321\322  \"\323\257\fD\266\203)\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol t org-get-limited-outline-regexp "^" outline-next-heading "      \n" nil line-beginning-position 2 section :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 18 (#$ . 42417)])
456 #@100 Interpret section element as Org syntax.
457 CONTENTS is the contents of the element.
458
459 (fn _ CONTENTS)
460 (defalias 'org-element-section-interpreter #[514 "\207" [] 3 (#$ . 43086)])
461 #@478 Parse a special block.
462
463 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
464 the buffer position at the beginning of the first affiliated
465 keyword and CDR is a plist of affiliated keywords along with
466 their value.
467
468 Return a list whose CAR is `special-block' and CDR is a plist
469 containing `:type', `:begin', `:end', `:contents-begin',
470 `:contents-end', `:post-blank' and `:post-affiliated' keywords.
471
472 Assume point is at the beginning of the block.
473
474 (fn LIMIT AFFILIATED)
475 (defalias 'org-element-special-block-parser #[514 "\301\302\303!\210\304\305!\212\306\307\310\311!\"\301#)\204\312\"\202p\313\224\212@`\314y\210`W\205/`\211\2054b\210\314y\210`\315    w\210m\203H`\202J\316 \317\320    \321    \322\323 \324\f\325\326\"\327\257\nA\244D\266\206)\262)\207" [case-fold-search t looking-at "[     ]*#\\+BEGIN_\\(\\S-+\\)" match-string-no-properties 1 re-search-forward format "^[     ]*#\\+END_%s[     ]*$" regexp-quote org-element-paragraph-parser 0 nil "      \n" line-beginning-position special-block :type :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 25 (#$ . 43268)])
476 #@118 Interpret SPECIAL-BLOCK element as Org syntax.
477 CONTENTS is the contents of the element.
478
479 (fn SPECIAL-BLOCK CONTENTS)
480 (defalias 'org-element-special-block-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\305$\207" [:type get-text-property 0 plist-get format "#+BEGIN_%s\n%s#+END_%s"] 8 (#$ . 44403)])
481 #@448 Parse a babel call.
482
483 LIMIT bounds the search.  AFFILIATED is a list of which car is
484 the buffer position at the beginning of the first affiliated
485 keyword and cdr is a plist of affiliated keywords along with
486 their value.
487
488 Return a list whose car is `babel-call' and cdr is a plist
489 containing `:call', `:inside-header', `:arguments',
490 `:end-header', `:begin', `:end', `:value', `:post-blank' and
491 `:post-affiliated' as keywords.
492
493 (fn LIMIT AFFILIATED)
494 (defalias 'org-element-babel-call-parser #[514 "\212\211@`\300\301!\302\303\304#\210\305\306w\210\307`\310 \"\306\311\203 \312\202!\313\314\311\315\314##\266\202\316\307`\317w\210`\"!\320\321!\316\320\322!!\316\307`\310 \"\306\311\203M\312\202N\313\314\311\315\314##\266\202!\306y\210\323\nw\210m\203i`\202k\300 \324\325\326\327\330    \331\332\f\333\334\335\"\336\257 A\244D\266\211)\207" [line-beginning-position 2 search-forward ":" t "     " nil buffer-substring-no-properties line-end-position replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" org-string-nw-p "^[]()" org-element--parse-paired-brackets 91 40 "      \n" babel-call :call :inside-header :arguments :end-header :begin :end :value :post-blank count-lines :post-affiliated] 30 (#$ . 44747)])
495 #@64 Interpret BABEL-CALL element as Org syntax.
496
497 (fn BABEL-CALL _)
498 (defalias 'org-element-babel-call-interpreter #[514 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203+\302\303#\266\202\2023\304A@\"\266\202\211\205;\306\307\"\262\310\311\211;\203P\302\303#\266\202\202X\304A@\"\266\202\312Q\313\211;\203l\302\303#\266\202\202t\304A@\"\266\202\211\205{\314P\262\260\207" ["#+CALL: " :call get-text-property 0 plist-get :inside-header format "[%s]" "(" :arguments ")" :end-header " "] 12 (#$ . 46011)])
499 #@218 Parse a clock.
500
501 LIMIT bounds the search.
502
503 Return a list whose CAR is `clock' and CDR is a plist containing
504 `:status', `:value', `:time', `:begin', `:end', `:post-blank' and
505 `:post-affiliated' as keywords.
506
507 (fn LIMIT)
508 (defalias 'org-element-clock-parser #[257 "\212\302`\303    \304 \305#\210\306\302w\210\307 \303\310\304 \305#\205'\306\302w\210\311\312!\205'\313\314!\211\203/\315\2020\316\302y\210`\317w\210\306\302x\210n\204D\302\210\320`\"\262`\321\322\323\324    \325 \326\n\327 \330\257)D\266\206)\207" [case-fold-search org-clock-string nil search-forward line-end-position t "     " org-element-timestamp-parser " => " looking-at "\\(\\S-+\\)[     ]*$" match-string-no-properties 1 closed running "      \n" count-lines clock :status :value :duration :begin :end :post-blank :post-affiliated] 22 (#$ . 46574)])
509 #@54 Interpret CLOCK element as Org syntax.
510
511 (fn CLOCK _)
512 (defalias 'org-element-clock-interpreter #[514 "\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202\307\"\310\211;\203/\304\305#\266\202\2027\306A@\"\266\202\211\205E\311\312\313\314\315\316\"#P\262R\207" [org-clock-string " " org-element-timestamp-interpreter :value get-text-property 0 plist-get nil :duration " => " apply format "%2s:%02s" org-split-string ":"] 13 (#$ . 47405)])
513 #@419 Parse a comment.
514
515 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
516 the buffer position at the beginning of the first affiliated
517 keyword and CDR is a plist of affiliated keywords along with
518 their value.
519
520 Return a list whose CAR is `comment' and CDR is a plist
521 containing `:begin', `:end', `:value', `:post-blank',
522 `:post-affiliated' keywords.
523
524 Assume point is at comment beginning.
525
526 (fn LIMIT AFFILIATED)
527 (defalias 'org-element-comment-parser #[514 "\212\211@`\300\301!\210\302\303\225\304 \"\305y\210`W\203.\300\306!\203.\211\307\302\303\225\304 \"Q\262\305y\210\202`\211b\210\310w\210m\203?`\202A\311 \312\313\314\315\316\317\n\n\"\320 \257\nA\244D\266\205)\207" [looking-at "[     ]*# ?" buffer-substring-no-properties 0 line-end-position nil "[     ]*#\\( \\|$\\)" "\n" "      \n" line-beginning-position comment :begin :end :value :post-blank count-lines :post-affiliated] 18 (#$ . 47875)])
528 #@75 Interpret COMMENT element as Org syntax.
529 CONTENTS is nil.
530
531 (fn COMMENT _)
532 (defalias 'org-element-comment-interpreter #[514 "\300\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202#\207" [replace-regexp-in-string "^" "# " :value get-text-property 0 plist-get] 11 (#$ . 48801)])
533 #@440 Parse an export block.
534
535 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
536 the buffer position at the beginning of the first affiliated
537 keyword and CDR is a plist of affiliated keywords along with
538 their value.
539
540 Return a list whose CAR is `comment-block' and CDR is a plist
541 containing `:begin', `:end', `:value', `:post-blank' and
542 `:post-affiliated' keywords.
543
544 Assume point is at comment block beginning.
545
546 (fn LIMIT AFFILIATED)
547 (defalias 'org-element-comment-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202W\305\224\212@`\306y\210`b\210\306y\210`\307w\210m\2031`\2023\310 \311\"\312\313\314\315\316\317  \"\320\257\n    A\244D\266\206)\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_COMMENT[     ]*$" org-element-paragraph-parser 0 nil "      \n" line-beginning-position buffer-substring-no-properties comment-block :begin :end :value :post-blank count-lines :post-affiliated] 20 (#$ . 49101)])
548 #@70 Interpret COMMENT-BLOCK element as Org syntax.
549
550 (fn COMMENT-BLOCK _)
551 (defalias 'org-element-comment-block-interpreter #[514 "\300\301\302\303\304\211;\203\305\306#\266\202\202\307A@\"\266\202!!\"\207" [format "#+BEGIN_COMMENT\n%s#+END_COMMENT" org-element-normalize-string org-remove-indentation :value get-text-property 0 plist-get] 12 (#$ . 50056)])
552 #@389 Parse a diary sexp.
553
554 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
555 the buffer position at the beginning of the first affiliated
556 keyword and CDR is a plist of affiliated keywords along with
557 their value.
558
559 Return a list whose CAR is `diary-sexp' and CDR is a plist
560 containing `:begin', `:end', `:value', `:post-blank' and
561 `:post-affiliated' keywords.
562
563 (fn LIMIT AFFILIATED)
564 (defalias 'org-element-diary-sexp-parser #[514 "\212\211@`\300\301!\210\302\303!\304y\210`\305w\210m\203`\202\306 \307\310\311\312\313\314\n\n\"\315 \257\nA\244D\266\205)\207" [looking-at "\\(%%(.*\\)[     ]*$" match-string-no-properties 1 nil "      \n" line-beginning-position diary-sexp :value :begin :end :post-blank count-lines :post-affiliated] 18 (#$ . 50425)])
565 #@56 Interpret DIARY-SEXP as Org syntax.
566
567 (fn DIARY-SEXP _)
568 (defalias 'org-element-diary-sexp-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 51198)])
569 #@493 Parse an example block.
570
571 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
572 the buffer position at the beginning of the first affiliated
573 keyword and CDR is a plist of affiliated keywords along with
574 their value.
575
576 Return a list whose CAR is `example-block' and CDR is a plist
577 containing `:begin', `:end', `:number-lines', `:preserve-indent',
578 `:retain-labels', `:use-labels', `:label-fmt', `:switches',
579 `:value', `:post-blank' and `:post-affiliated' keywords.
580
581 (fn LIMIT AFFILIATED)
582 (defalias 'org-element-example-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202\331\305\224\212\306\307!\210\310\311!\211\205G\312\313\"\205G\314\311\"\315\232\2035\316\2026\317\320\225\204?\305\202F\321\314\320\"!SB\205O\312\322\"?\206d\312\323\"?\206d\205d\312\324\"?\206r\211\205r\312\324\"?\205\203\312\325\"\205\203\314\311\"@`\326\320!\327\330\f\"!\nb\210\331y\210`\332w\210m\203\246`\202\250\326 \333\334\335\336\337\340\341\342\343\344\345\346\"\347\257A\244D\266\214)\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_EXAMPLE[     ]*$" org-element-paragraph-parser 0 looking-at "^[     ]*#\\+BEGIN_EXAMPLE\\(?: +\\(.*\\)\\)?" match-string-no-properties 1 string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>" match-string "-" new continued 2 string-to-number "-i\\>" "-r\\>" "-k\\>" "-l +\"\\([^\"\n]+\\)\"" line-beginning-position org-unescape-code-in-string buffer-substring-no-properties nil "      \n" example-block :begin :end :value :switches :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :post-blank count-lines :post-affiliated] 38 (#$ . 51416)])
583 #@70 Interpret EXAMPLE-BLOCK element as Org syntax.
584
585 (fn EXAMPLE-BLOCK _)
586 (defalias 'org-element-example-block-interpreter #[514 "\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203*\302\303#\266\202\2022\304A@\"\266\202\306\205:\307P\310\311\312\204^\313    \211;\203S\302\303#\266\202\202[\304A@\"\266\202\203b\202f\314!!!\315\260\207" [org-src-preserve-indentation :switches get-text-property 0 plist-get :value "#+BEGIN_EXAMPLE" " " "\n" org-element-normalize-string org-escape-code-in-string :preserve-indent org-remove-indentation "#+END_EXAMPLE"] 15 (#$ . 53085)])
587 #@447 Parse an export block.
588
589 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
590 the buffer position at the beginning of the first affiliated
591 keyword and CDR is a plist of affiliated keywords along with
592 their value.
593
594 Return a list whose CAR is `export-block' and CDR is a plist
595 containing `:begin', `:end', `:type', `:value', `:post-blank' and
596 `:post-affiliated' keywords.
597
598 Assume point is at export-block beginning.
599
600 (fn LIMIT AFFILIATED)
601 (defalias 'org-element-export-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202h\212\305\224\306\307!\210\310\311!@`\312y\210`b\210\312y\210`\313w\210m\2038`\202:\314 \315\316    \"!\317\320\205K\226\321    \322\323\324\325  \"\326\257\f\nA\244D\266\210))\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_EXPORT[     ]*$" org-element-paragraph-parser 0 looking-at "[     ]*#\\+BEGIN_EXPORT\\(?:[     ]+\\(\\S-+\\)\\)?[     ]*$" match-string-no-properties 1 nil "      \n" line-beginning-position org-unescape-code-in-string buffer-substring-no-properties export-block :type :begin :end :value :post-blank count-lines :post-affiliated] 23 (#$ . 53702)])
602 #@68 Interpret EXPORT-BLOCK element as Org syntax.
603
604 (fn EXPORT-BLOCK _)
605 (defalias 'org-element-export-block-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203,\303\304#\266\202\2024\305A@\"\266\202#\207" [format "#+BEGIN_EXPORT %s\n%s#+END_EXPORT" :type get-text-property 0 plist-get :value] 11 (#$ . 54832)])
606 #@458 Parse a fixed-width section.
607
608 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
609 the buffer position at the beginning of the first affiliated
610 keyword and CDR is a plist of affiliated keywords along with
611 their value.
612
613 Return a list whose CAR is `fixed-width' and CDR is a plist
614 containing `:begin', `:end', `:value', `:post-blank' and
615 `:post-affiliated' keywords.
616
617 Assume point is at the beginning of the fixed-width area.
618
619 (fn LIMIT AFFILIATED)
620 (defalias 'org-element-fixed-width-parser #[514 "\212\211@`\300`W\203\"\301\302!\203\"\211\303\304\225\305 \"\306Q\262\300y\210\202`\307w\210m\2030`\2022\310 \311\312\313\314\315\316\n\n\"\317 \257\nA\244D\266\205)\207" [nil looking-at "[     ]*:\\( \\|$\\)" buffer-substring-no-properties 0 point-at-eol "\n" "      \n" line-beginning-position fixed-width :begin :end :value :post-blank count-lines :post-affiliated] 18 (#$ . 55200)])
621 #@66 Interpret FIXED-WIDTH element as Org syntax.
622
623 (fn FIXED-WIDTH _)
624 (defalias 'org-element-fixed-width-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\211\2050\304\305\306\307\310\"\203.\302\311O\202/#\207" [:value get-text-property 0 plist-get replace-regexp-in-string "^" ": " string-match "\n\\'" -1] 9 (#$ . 56113)])
625 #@390 Parse an horizontal rule.
626
627 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
628 the buffer position at the beginning of the first affiliated
629 keyword and CDR is a plist of affiliated keywords along with
630 their value.
631
632 Return a list whose CAR is `horizontal-rule' and CDR is a plist
633 containing `:begin', `:end', `:post-blank' and `:post-affiliated'
634 keywords.
635
636 (fn LIMIT AFFILIATED)
637 (defalias 'org-element-horizontal-rule-parser #[514 "\212\211@`\300y\210`\301w\210m\203`\202\302 \303\304\305\306\307\"\310\n\257A\244D\266\204)\207" [nil "      \n" line-beginning-position horizontal-rule :begin :end :post-blank count-lines :post-affiliated] 15 (#$ . 56475)])
638 #@64 Interpret HORIZONTAL-RULE element as Org syntax.
639
640 (fn &rest _)
641 (defalias 'org-element-horizontal-rule-interpreter #[128 "\300\207" ["-----"] 2 (#$ . 57160)])
642 #@400 Parse a keyword at point.
643
644 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
645 the buffer position at the beginning of the first affiliated
646 keyword and CDR is a plist of affiliated keywords along with
647 their value.
648
649 Return a list whose CAR is `keyword' and CDR is a plist
650 containing `:key', `:value', `:begin', `:end', `:post-blank' and
651 `:post-affiliated' keywords.
652
653 (fn LIMIT AFFILIATED)
654 (defalias 'org-element-keyword-parser #[514 "\212\211@\206``\300\301!\210\302\303!\226\304\305\225\306 \"\307\310\203 \311\202!\312\313\310\314\313##\266\202\307y\210`\315w\210m\203<`\202>\316 \317\320\321\322 \323\324\325\f\f\"\326\257\fA\244D\266\206)\207" [looking-at "[     ]*#\\+\\(\\S-+*\\):" match-string-no-properties 1 buffer-substring-no-properties 0 point-at-eol nil replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" "      \n" line-beginning-position keyword :key :value :begin :end :post-blank count-lines :post-affiliated] 21 (#$ . 57325)])
655 #@58 Interpret KEYWORD element as Org syntax.
656
657 (fn KEYWORD _)
658 (defalias 'org-element-keyword-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203,\303\304#\266\202\2024\305A@\"\266\202#\207" [format "#+%s: %s" :key get-text-property 0 plist-get :value] 11 (#$ . 58328)])
659 #@151 Regexp matching the beginning of a LaTeX environment.
660 The environment is captured by the first group.
661
662 See also `org-element--latex-end-environment'.
663 (defconst org-element--latex-begin-environment "^[     ]*\\\\begin{\\([A-Za-z0-9*]+\\)}" (#$ . 58655))
664 #@108 Format string matching the ending of a LaTeX environment.
665 See also `org-element--latex-begin-environment'.
666 (defconst org-element--latex-end-environment "\\\\end{%s}[     ]*$" (#$ . 58912))
667 #@463 Parse a LaTeX environment.
668
669 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
670 the buffer position at the beginning of the first affiliated
671 keyword and CDR is a plist of affiliated keywords along with
672 their value.
673
674 Return a list whose CAR is `latex-environment' and CDR is a plist
675 containing `:begin', `:end', `:value', `:post-blank' and
676 `:post-affiliated' keywords.
677
678 Assume point is at the beginning of the latex environment.
679
680 (fn LIMIT AFFILIATED)
681 (defalias 'org-element-latex-environment-parser #[514 "\212\303`\304    !\210\305\306\n\307\310\311!!\"\303#\204\312\"\202S\313y\210`@\314\"\315w\210m\2036`\2028\316 \317\320\321\322\323\324\f\n\"\325\257\nA\244D\266\204)\266\202)\207" [case-fold-search org-element--latex-begin-environment org-element--latex-end-environment t looking-at re-search-forward format regexp-quote match-string 1 org-element-paragraph-parser nil buffer-substring-no-properties "      \n" line-beginning-position latex-environment :begin :end :value :post-blank count-lines :post-affiliated] 19 (#$ . 59105)])
682 #@78 Interpret LATEX-ENVIRONMENT element as Org syntax.
683
684 (fn LATEX-ENVIRONMENT _)
685 (defalias 'org-element-latex-environment-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 60180)])
686 #@228 Parse a node-property at point.
687
688 LIMIT bounds the search.
689
690 Return a list whose CAR is `node-property' and CDR is a plist
691 containing `:key', `:value', `:begin', `:end', `:post-blank' and
692 `:post-affiliated' keywords.
693
694 (fn LIMIT)
695 (defalias 'org-element-node-property-parser #[257 "\302!\210\303`\304\305!\304\306!\212\307\210\310\303#\203\311 \202)\312\313\314\315    \316\317\320\321\257\f)D\207" [org-property-re case-fold-search looking-at t match-string-no-properties 2 3 nil re-search-forward line-beginning-position node-property :key :value :begin :end :post-blank 0 :post-affiliated] 19 (#$ . 60427)])
696 #@70 Interpret NODE-PROPERTY element as Org syntax.
697
698 (fn NODE-PROPERTY _)
699 (defalias 'org-element-node-property-interpreter #[514 "\301\301\302\303\211;\203\304\305#\266\202\202\306A@\"\266\202\"\307\211;\2030\304\305#\266\202\2028\306A@\"\266\202\206<\310#\207" [org-property-format format ":%s:" :key get-text-property 0 plist-get :value ""] 12 (#$ . 61056)])
700 #@468 Parse a paragraph.
701
702 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
703 the buffer position at the beginning of the first affiliated
704 keyword and CDR is a plist of affiliated keywords along with
705 their value.
706
707 Return a list whose CAR is `paragraph' and CDR is a plist
708 containing `:begin', `:end', `:contents-begin' and
709 `:contents-end', `:post-blank' and `:post-affiliated' keywords.
710
711 Assume point is at the beginning of the paragraph.
712
713 (fn LIMIT AFFILIATED)
714 (defalias 'org-element-paragraph-parser #[514 "\212\211@`\306\307\210\310    \311#\203k\312 \210\313\n!\203$\212\310\314\306#)\202b\313\315!\203;\212\310\316\317\320\321\322!!\"\306#)\202b\313 !\203R\212\310\316\f\320\321\322!!\"\306#)\202b\313\323!\203a\324\321\322! \"\202b\306\204k\307\210\202    `U\203u\202x\325 b)\212\326x\210\325\327!)\326w\210m\203\217`\202\221\325 \330\331\332\333    \334    \335\336 \f\"\337\257\fA\244D\266\205)\207" [case-fold-search org-element-paragraph-separate org-drawer-regexp org-element--latex-begin-environment org-element--latex-end-environment org-element-dual-keywords t nil re-search-forward move beginning-of-line looking-at "^[     ]*:END:[     ]*$" "[     ]*#\\+BEGIN_\\(\\S-+\\)" format "^[     ]*#\\+END_%s[     ]*$" regexp-quote match-string 1 "[     ]*#\\+\\(\\S-+\\)\\[.*\\]:" member-ignore-case line-beginning-position "      \n" 2 paragraph :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 20 (#$ . 61438)])
715 #@102 Interpret paragraph element as Org syntax.
716 CONTENTS is the contents of the element.
717
718 (fn _ CONTENTS)
719 (defalias 'org-element-paragraph-interpreter #[514 "\207" [] 3 (#$ . 62913)])
720 #@229 Parse a planning.
721
722 LIMIT bounds the search.
723
724 Return a list whose CAR is `planning' and CDR is a plist
725 containing `:closed', `:deadline', `:scheduled', `:begin',
726 `:end', `:post-blank' and `:post-affiliated' keywords.
727
728 (fn LIMIT)
729 (defalias 'org-element-planning-parser #[257 "\212\304`\304y\210`\305w\210\306\304x\210n\204\304\210\307`\"\262`\304\211\211b\210\310    \311#\203Y\312\225b\210\306w\210\313\312!\314 \n\232\203E\211\262\202T \232\203Q\211\262\202T\211\262\266\202$\315\316\317\320\321 \322 \323\324\257)D\266\206)\207" [case-fold-search org-keyword-time-not-clock-regexp org-closed-string org-deadline-string nil "      \n" "     " count-lines re-search-forward t 1 match-string org-element-timestamp-parser planning :closed :deadline :scheduled :begin :end :post-blank :post-affiliated] 22 (#$ . 63099)])
730 #@60 Interpret PLANNING element as Org syntax.
731
732 (fn PLANNING _)
733 (defalias 'org-element-planning-interpreter #[514 "\303\304\305\306\307\211;\203\310\311#\266\202\202\312A@\"\266\202\211\205)\313\314\306\"Q\262\315\211;\203=\310\311#\266\202\202E\312A@\"\266\202\211\205P    \313\314\306\"Q\262\316\211;\203d\310\311#\266\202\202l\312A@\"\266\202\211\205w\n\313\314\306\"Q\262E\"\313#\207" [org-deadline-string org-scheduled-string org-closed-string mapconcat identity delq nil :deadline get-text-property 0 plist-get " " org-element-timestamp-interpreter :scheduled :closed] 14 (#$ . 63946)])
734 #@560 Parse a src block.
735
736 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
737 the buffer position at the beginning of the first affiliated
738 keyword and CDR is a plist of affiliated keywords along with
739 their value.
740
741 Return a list whose CAR is `src-block' and CDR is a plist
742 containing `:language', `:switches', `:parameters', `:begin',
743 `:end', `:number-lines', `:retain-labels', `:use-labels',
744 `:label-fmt', `:preserve-indent', `:value', `:post-blank' and
745 `:post-affiliated' keywords.
746
747 Assume point is at the beginning of the block.
748
749 (fn LIMIT AFFILIATED)
750 (defalias 'org-element-src-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202\305\224\212@`\306\307!\210\310\311!\310\312!\310\313!\205P\314\315\"\205P\316\311\"\317\232\203>\320\202?\321\312\225\204H\305\202O\322\316\312\"!SB\205X\314\323\"\205g\314\324\"\205g\316\311\"?\206~\314\325\"?\206~\205~\314\326\"?\206\215\211\205\215\314\326\"?\327\330\331\312! \"! b\210\332y\210`\333w\210m\203\253`\202\255\331 \334\335\f\336\337!\205\320 \332\340\203\305\341\202\306\342\343\340\344\343##\266\202\345\337!\205\357\332\340\203\344\341\202\345\342\343\340\344\343##\266\202\346\347\n\350\351\352\353\354\355\356\357\"\360%\257A\244D\266\215)\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_SRC[     ]*$" org-element-paragraph-parser 0 looking-at "^[     ]*#\\+BEGIN_SRC\\(?: +\\(\\S-+\\)\\)?\\(\\(?: +\\(?:-\\(?:l \".+\"\\|[ikr]\\)\\|[-+]n\\(?: *[0-9]+\\)?\\)\\)+\\)?\\(.*\\)[     ]*$" match-string-no-properties 1 2 3 string-match "\\([-+]\\)n\\(?: *\\([0-9]+\\)\\)?\\>" match-string "-" new continued string-to-number "-i\\>" "-l +\"\\([^\"\n]+\\)\"" "-r\\>" "-k\\>" org-unescape-code-in-string buffer-substring-no-properties line-beginning-position nil "      \n" src-block :language :switches org-string-nw-p replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" :parameters :begin :end :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :value :post-blank count-lines :post-affiliated] 43 (#$ . 64574)])
751 #@62 Interpret SRC-BLOCK element as Org syntax.
752
753 (fn SRC-BLOCK _)
754 (defalias 'org-element-src-block-interpreter #[514 "\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203*\303\304#\266\202\2022\305A@\"\266\202\307\211;\203C\303\304#\266\202\202K\305A@\"\266\202\310\211;\203\\\303\304#\266\202\202d\305A@\"\266\202\204\205\311\211;\203z\303\304#\266\202\202\202\305A@\"\266\202\203\211\211\202\242    \304U\203\225\312!\202\242\313    \314\"\315\316\312!#\262\262\317\320\205\256\321P\205\266\321P\205\276\321PQ\"\322\323!!\324Q\207" [org-src-preserve-indentation org-edit-src-content-indentation :language get-text-property 0 plist-get :switches :parameters :value :preserve-indent org-remove-indentation make-string 32 replace-regexp-in-string "^" format "#+BEGIN_SRC%s\n" " " org-element-normalize-string org-escape-code-in-string "#+END_SRC"] 12 (#$ . 66685)])
755 #@491 Parse a table at point.
756
757 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
758 the buffer position at the beginning of the first affiliated
759 keyword and CDR is a plist of affiliated keywords along with
760 their value.
761
762 Return a list whose CAR is `table' and CDR is a plist containing
763 `:begin', `:end', `:tblfm', `:type', `:contents-begin',
764 `:contents-end', `:value', `:post-blank' and `:post-affiliated'
765 keywords.
766
767 Assume point is at the beginning of the table.
768
769 (fn LIMIT AFFILIATED)
770 (defalias 'org-element-table-parser #[514 "\212\301`\302\303!\203\304\202\305\306\307\304=\203\310\202\311\"@\312\313#\203.\314\224b\202/`\315\302\316!\203C\317\320!B\262\315y\210\2020\211\262`\321    w\210m\203T`\202V\322 \323\324\325\326\f\327\n\330\304=\205l\331\304=\205v\332\305=\205\204\333\"\334\335\"\336\257\nA\244)D\266\210)\207" [case-fold-search t looking-at "[     ]*|" org table\.el format "^[     ]*\\($\\|[^|     %s]\\)" "" "+" re-search-forward move 0 nil "[     ]*#\\+TBLFM: +\\(.*\\)[     ]*$" match-string-no-properties 1 "      \n" line-beginning-position table :begin :end :type :tblfm :contents-begin :contents-end :value buffer-substring-no-properties :post-blank count-lines :post-affiliated] 29 (#$ . 67619)])
771 #@117 Interpret TABLE element as Org syntax.
772 CONTENTS is a string, if table's type is `org', or nil.
773
774 (fn TABLE CONTENTS)
775 (defalias 'org-element-table-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304=\203:\305\306\211;\2030\301\302#\266\202\2028\303A@\"\266\202!\207\307\310!r\211q\210\311\302\312\313\314!\315\"\316$\216c\210\317 \210\320 *\262\321\322\323\324\211;\203m\301\302#\266\202\202u\303A@\"\266\202!\325#P\207" [:type get-text-property 0 plist-get table\.el org-remove-indentation :value generate-new-buffer " *temp*" make-byte-code "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 org-table-align buffer-string mapconcat #[257 "\300P\207" ["#+TBLFM: "] 3 "\n\n(fn FM)"] reverse :tblfm "\n"] 12 (#$ . 68885)])
776 #@215 Parse table row at point.
777
778 Return a list whose CAR is `table-row' and CDR is a plist
779 containing `:begin', `:end', `:contents-begin', `:contents-end',
780 `:type', `:post-blank' and `:post-affiliated' keywords.
781
782 (fn _)
783 (defalias 'org-element-table-row-parser #[257 "\212\300\301!\203 \302\202\f\303`\303=\205\304\305!\303=\205$\306\210\307\306x\210`\310\311!\312\313\314\315\316\n\317 \320\321\322\257D\266\205)\207" [looking-at "^[     ]*|-" rule standard search-forward "|" nil "     " line-beginning-position 2 table-row :type :begin :end :contents-begin :contents-end :post-blank 0 :post-affiliated] 21 (#$ . 69686)])
784 #@112 Interpret TABLE-ROW element as Org syntax.
785 CONTENTS is the contents of the table row.
786
787 (fn TABLE-ROW CONTENTS)
788 (defalias 'org-element-table-row-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304=\203 \305\207\306P\207" [:type get-text-property 0 plist-get rule "|-" "|"] 8 (#$ . 70323)])
789 #@461 Parse a verse block.
790
791 LIMIT bounds the search.  AFFILIATED is a list of which CAR is
792 the buffer position at the beginning of the first affiliated
793 keyword and CDR is a plist of affiliated keywords along with
794 their value.
795
796 Return a list whose CAR is `verse-block' and CDR is a plist
797 containing `:begin', `:end', `:contents-begin', `:contents-end',
798 `:post-blank' and `:post-affiliated' keywords.
799
800 Assume point is at beginning of the block.
801
802 (fn LIMIT AFFILIATED)
803 (defalias 'org-element-verse-block-parser #[514 "\301\212\302\303\301#)\204\304\"\202U\305\224\212@`\306y\210`b\210\306y\210`\307w\210m\2031`\2023\310 \311\312\313\314\315 \316\317\f\f\"\320\257\fA\244D\266\205)\262)\207" [case-fold-search t re-search-forward "^[     ]*#\\+END_VERSE[     ]*$" org-element-paragraph-parser 0 nil "      \n" line-beginning-position verse-block :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated] 21 (#$ . 70652)])
804 #@97 Interpret verse-block element as Org syntax.
805 CONTENTS is verse block contents.
806
807 (fn _ CONTENTS)
808 (defalias 'org-element-verse-block-interpreter #[514 "\300\301\"\207" [format "#+BEGIN_VERSE\n%s#+END_VERSE"] 5 (#$ . 71613)])
809 #@270 Parse bold object at point, if any.
810
811 When at a bold object, return a list whose car is `bold' and cdr
812 is a plist with `:begin', `:end', `:contents-begin' and
813 `:contents-end' and `:post-blank' keywords.  Otherwise, return
814 nil.
815
816 Assume point is at the first star marker.
817 (defalias 'org-element-bold-parser #[0 "\212n\204\301u\210\302!\2050\303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312    \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 "     " nil bold :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 71844)])
818 #@95 Interpret bold object as Org syntax.
819 CONTENTS is the contents of the object.
820
821 (fn _ CONTENTS)
822 (defalias 'org-element-bold-interpreter #[514 "\300\301\"\207" [format "*%s*"] 5 (#$ . 72412)])
823 #@242 Parse code object at point, if any.
824
825 When at a code object, return a list whose car is `code' and cdr
826 is a plist with `:value', `:begin', `:end' and `:post-blank'
827 keywords.  Otherwise, return nil.
828
829 Assume point is at the first tilde marker.
830 (defalias 'org-element-code-parser #[0 "\212n\204\301u\210\302!\205,\303\224\304\305!\303\225b\210\306\307w`\310\311\312\313\314    \257D\266\204)\207" [org-verbatim-re -1 looking-at 2 match-string-no-properties 4 "     " nil code :value :begin :end :post-blank] 13 (#$ . 72610)])
831 #@51 Interpret CODE object as Org syntax.
832
833 (fn CODE _)
834 (defalias 'org-element-code-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\"\207" [format "~%s~" :value get-text-property 0 plist-get] 10 (#$ . 73143)])
835 #@316 Parse entity at point, if any.
836
837 When at an entity, return a list whose car is `entity' and cdr
838 a plist with `:begin', `:end', `:latex', `:latex-math-p',
839 `:html', `:latin1', `:utf-8', `:ascii', `:use-brackets-p' and
840 `:post-blank' as keywords.  Otherwise, return nil.
841
842 Assume point is at the beginning of the entity.
843 (defalias 'org-element-entity-parser #[0 "\3022n\303\304!\205m\212\305\306!\307\"\206\307    \"\262\206\"\310\302\311\"\312\224\305\313!\314\230\306\225b\210\211\2034\313u\210\315\311w`\316\317@\320A@\321\313 8\322\323 8\324\3258\326\3278\330\3318\332\333\334\335\257D\266\205)0\207" [org-entities-user org-entities no-object looking-at "\\\\\\(?:\\(?1:_ +\\)\\|\\(?1:there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\(?2:$\\|{}\\|[^[:alpha:]]\\)\\)" match-string 1 assoc throw nil 0 2 "{}" "     " entity :name :latex :latex-math-p :html 3 :ascii 4 :latin1 5 :utf-8 6 :begin :end :use-brackets-p :post-blank] 28 (#$ . 73393)])
844 #@55 Interpret ENTITY object as Org syntax.
845
846 (fn ENTITY _)
847 (defalias 'org-element-entity-interpreter #[514 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203+\302\303#\266\202\2023\304A@\"\266\202\2057\306Q\207" ["\\" :name get-text-property 0 plist-get :use-brackets-p "{}"] 10 (#$ . 74366)])
848 #@270 Parse export snippet at point.
849
850 When at an export snippet, return a list whose car is
851 `export-snippet' and cdr a plist with `:begin', `:end',
852 `:back-end', `:value' and `:post-blank' as keywords.  Otherwise,
853 return nil.
854
855 Assume point is at the beginning of the snippet.
856 (defalias 'org-element-export-snippet-parser #[0 "\212\300\301\302!\205M\303 \304\305\306\307\310!\311\"\312$\216\305\225b\210\313\314\300\315#\210\305\224)\262\211\262\205M\305\224\316\317!\320\305\225\"\321\300w`\322\323\324\325\n\326\327 \257\nD\266\205\262)\207" [nil looking-at "@@\\([-A-Za-z0-9]+\\):" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 re-search-forward "@@" t match-string-no-properties 1 buffer-substring-no-properties "     " export-snippet :back-end :value :begin :end :post-blank] 17 (#$ . 74697)])
857 #@71 Interpret EXPORT-SNIPPET object as Org syntax.
858
859 (fn EXPORT-SNIPPET _)
860 (defalias 'org-element-export-snippet-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\306\211;\203,\303\304#\266\202\2024\305A@\"\266\202#\207" [format "@@%s:%s@@" :back-end get-text-property 0 plist-get :value] 11 (#$ . 75552)])
861 #@270 Parse footnote reference at point, if any.
862
863 When at a footnote reference, return a list whose car is
864 `footnote-reference' and cdr a plist with `:label', `:type',
865 `:begin', `:end', `:content-begin', `:contents-end' and
866 `:post-blank' as keywords.  Otherwise, return nil.
867 (defalias 'org-element-footnote-reference-parser #[0 "\302!\205x\303 p\304\305\306\307\310\"\311\"\312$\216\313    !\210\3141)\315`\316\305#0\202+\210\317)\266\202\211\205v\212`\320\316!\305\225S\312\225\203D\321\202E\322b\210\323\317w`\324\325\326\327\f\330\331\f\321=\205c\332\321=\205m\333\257D\266\207)\262\207" [org-footnote-re org-element--pair-square-table looking-at syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) scan-lists 1 nil match-string-no-properties inline standard "     " footnote-reference :label :type :begin :end :contents-begin :contents-end :post-blank] 23 (#$ . 75905)])
868 #@135 Interpret FOOTNOTE-REFERENCE object as Org syntax.
869 CONTENTS is its definition, when inline, or nil.
870
871 (fn FOOTNOTE-REFERENCE CONTENTS)
872 (defalias 'org-element-footnote-reference-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\206\306\203)\307P\202*\306#\207" [format "[fn:%s%s]" :label get-text-property 0 plist-get "" ":"] 10 (#$ . 76874)])
873 #@333 Parse inline babel call at point, if any.
874
875 When at an inline babel call, return a list whose car is
876 `inline-babel-call' and cdr a plist with `:call',
877 `:inside-header', `:arguments', `:end-header', `:begin', `:end',
878 `:value' and `:post-blank' as keywords.  Otherwise, return nil.
879
880 Assume point is at the beginning of the babel call.
881 (defalias 'org-element-inline-babel-call-parser #[0 "\212\3012\224\302\303\304!)\205\223\305\225b\210\306\224\307\305!\310\311!\312!\205:\313\314\315\302\313\203.\316\202/\317\320\313\321\320##\266\202#\262\312\310\322!\206G\323\301\302\"!\310\311!\312!\205k\313\314\315\302\313\203_\316\202`\317\320\313\321\320##\266\202#\262\324`\"\325\302w`\326\327\330    \331\n\332 \333\334\f\335\336\257D\266\2100)\207" [case-fold-search :no-object nil looking-at "\\<call_\\([^     \n[(]+\\)[([]" 1 0 match-string-no-properties org-element--parse-paired-brackets 91 org-string-nw-p replace-regexp-in-string "\n[     ]*" " " "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" 40 throw buffer-substring-no-properties "     " inline-babel-call :call :inside-header :arguments :end-header :begin :end :value :post-blank] 25 (#$ . 77266)])
882 #@77 Interpret INLINE-BABEL-CALL object as Org syntax.
883
884 (fn INLINE-BABEL-CALL _)
885 (defalias 'org-element-inline-babel-call-interpreter #[514 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\305\211;\203+\302\303#\266\202\2023\304A@\"\266\202\211\205;\306\307\"\262\310\311\211;\203P\302\303#\266\202\202X\304A@\"\266\202\312\313\211;\203k\302\303#\266\202\202s\304A@\"\266\202\211\205{\306\307\"\262\260\207" ["call_" :call get-text-property 0 plist-get :inside-header format "[%s]" "(" :arguments ")" :end-header] 14 (#$ . 78454)])
886 #@314 Parse inline source block at point, if any.
887
888 When at an inline source block, return a list whose car is
889 `inline-src-block' and cdr a plist with `:begin', `:end',
890 `:language', `:value', `:parameters' and `:post-blank' as
891 keywords.  Otherwise, return nil.
892
893 Assume point is at the beginning of the inline src block.
894 (defalias 'org-element-inline-src-block-parser #[0 "\212\3012_\302\303\304!)\205^\305\225b\210\306\224\307\305!\310\311!\312!\205:\313\314\315\302\313\203.\316\202/\317\320\313\321\320##\266\202#\262\310\322!\206F\323\301\302\"\324\302w\325\326\327\330\331\f\332`\333\f\257\fD\266\2050)\207" [case-fold-search :no-object nil looking-at "\\<src_\\([^     \n[{]+\\)[{[]" 1 0 match-string-no-properties org-element--parse-paired-brackets 91 org-string-nw-p replace-regexp-in-string "\n[     ]*" " " "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" 123 throw "     " inline-src-block :language :value :parameters :begin :end :post-blank] 18 (#$ . 79034)])
895 #@75 Interpret INLINE-SRC-BLOCK object as Org syntax.
896
897 (fn INLINE-SRC-BLOCK _)
898 (defalias 'org-element-inline-src-block-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\211;\203*\301\302#\266\202\2022\303A@\"\266\202\305\211;\203C\301\302#\266\202\202K\303A@\"\266\202\306\307\203Z\306\310\"\202[\311$\207" [:language get-text-property 0 plist-get :parameters :value format "src_%s%s{%s}" "[%s]" ""] 11 (#$ . 80017)])
899 #@278 Parse italic object at point, if any.
900
901 When at an italic object, return a list whose car is `italic' and
902 cdr is a plist with `:begin', `:end', `:contents-begin' and
903 `:contents-end' and `:post-blank' keywords.  Otherwise, return
904 nil.
905
906 Assume point is at the first slash marker.
907 (defalias 'org-element-italic-parser #[0 "\212n\204\301u\210\302!\2050\303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312    \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 "     " nil italic :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 80491)])
908 #@97 Interpret italic object as Org syntax.
909 CONTENTS is the contents of the object.
910
911 (fn _ CONTENTS)
912 (defalias 'org-element-italic-interpreter #[514 "\300\301\"\207" [format "/%s/"] 5 (#$ . 81071)])
913 #@272 Parse LaTeX fragment at point, if any.
914
915 When at a LaTeX fragment, return a list whose car is
916 `latex-fragment' and cdr a plist with `:value', `:begin', `:end',
917 and `:post-blank' as keywords.  Otherwise, return nil.
918
919 Assume point is at the beginning of the LaTeX fragment.
920 (defalias 'org-element-latex-fragment-parser #[0 "\3012\244\212`\302f\303=\2043`Tf\211\304\267\202&\305\306\302\307#\202.\305\310\302\307#\202.\311\312!\205.\313\225\262\202z`Tf\303=\203D\305\314\302\307\315$\202z`Sf\303=?\205z`Tf\316>?\205z\305\317\302\307\315$\205z\313\224\206e`Sf\320>?\205z\321\307\311!)\262\205z`\211\204\205\322\301\302\"\202\213\211b\210\323\302w`\324\325\326\"\327\330\331    \257D\266\204)0\207" [inhibit-changing-match-data no-object nil 36 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (40 22 91 30)) search-forward "\\)" t "\\]" looking-at "\\\\[a-zA-Z]+\\*?\\(\\(\\[[^][\n{}]*\\]\\)\\|\\({[^{}\n]*}\\)\\)*" 0 "$$" 2 (32 9 10 44 46 59) "$" (32 9 10 44 46) "\\(\\s.\\|\\s-\\|\\s(\\|\\s)\\|\\s\"\\|'\\|$\\)" throw "     " latex-fragment :value buffer-substring-no-properties :begin :end :post-blank] 13 (#$ . 81273)])
921 #@71 Interpret LATEX-FRAGMENT object as Org syntax.
922
923 (fn LATEX-FRAGMENT _)
924 (defalias 'org-element-latex-fragment-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 82459)])
925 #@242 Parse line break at point, if any.
926
927 When at a line break, return a list whose car is `line-break',
928 and cdr a plist with `:begin', `:end' and `:post-blank' keywords.
929 Otherwise, return nil.
930
931 Assume point is at the beginning of the line break.
932 (defalias 'org-element-line-break-parser #[0 "\301\302\303!)\262\205!`Sf\304=?\205!\305\306`\307\310\311!\312\313\257D\207" [inhibit-changing-match-data "\\\\\\\\[     ]*$" t looking-at 92 line-break :begin :end line-beginning-position 2 :post-blank 0] 7 (#$ . 82696)])
933 #@58 Interpret LINE-BREAK object as Org syntax.
934
935 (fn &rest _)
936 (defalias 'org-element-line-break-interpreter #[128 "\300\207" ["\\\\\n"] 2 (#$ . 83216)])
937 #@333 Parse link at point, if any.
938
939 When at a link, return a list whose car is `link' and cdr a plist
940 with `:type', `:path', `:format', `:raw-link', `:application',
941 `:search-option', `:begin', `:end', `:contents-begin',
942 `:contents-end' and `:post-blank' as keywords.  Otherwise, return
943 nil.
944
945 Assume point is at the beginning of the link.
946 (defalias 'org-element-link-parser #[0 "\3062\244`\307\211\211\211\211\211\211\211\211\211\211\203=\212n\204\310u\210\311!)\203=\312\262\313\262\314\225\262\315\314!\262\314\224\262\n\314\225\262    \202\311    !\203\323\316\262\317\224\262\n\317\225\262    \320\225\262\321\322\323\324\315\314!#!\262\325!\204j\326\327\"\203s\330\262\262\202\326\n\"\203\212\331\314\"\262\320\225\307O\262\202\332\307\333\326#)\266\203\203\266\334\307\333\326#)\266\203\203\266\335\262\314\310O\262\202\336!\337U\203\312\340\262\314\307O\262\202\341\262\262\202\311\f!\203\362\313\262\315\320!\262\315\314!\262\320\225\262\315\342!\262\202\311 !\203\343\262\315\314!\262\320\225\262\344\314\224\342\225\"\262\322\323\345\315\342!#\262\202\346\306\307\"\210\212b\210\347\307w\262`\262 )\326\350\"\203]\331\314\"\262\330\262\326\351\"\203U\331\314\"\262\352\345\307\211    $\262\322\353\354#\262\355:!\205j:\"\211\203v\211@\262\211A\262\210\356\357\360    \361    \362\n\206\211 \363\n\364 \365\366\367\370\371\257D\266\2140\207" [org-target-link-regexp org-bracket-link-regexp org-link-types-re inhibit-changing-match-data org-plain-link-re org-angle-link-re no-object nil -1 looking-at "radio" plain 1 match-string-no-properties bracket 3 0 org-link-expand-abbrev replace-regexp-in-string "[     ]*\n[     ]*" " " file-name-absolute-p string-match "\\`\\.\\.?/" "file" match-string "\\`(" t ")\\'" "coderef" string-to-char 35 "custom-id" "fuzzy" 2 angle buffer-substring-no-properties "" throw "     " "\\`file\\(?:\\+\\(.+\\)\\)?\\'" "::\\(.*\\)\\'" replace-match "\\`///*\\(.:\\)?/" "\\1/" functionp link :type :path :format :raw-link :application :search-option :begin :end :contents-begin :contents-end :post-blank org-link-translation-function] 35 (#$ . 83371)])
947 #@106 Interpret LINK object as Org syntax.
948 CONTENTS is the contents of the object, or nil.
949
950 (fn LINK CONTENTS)
951 (defalias 'org-element-link-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\304\211;\203*\301\302#\266\202\2022\303A@\"\266\202\305\230\203<\211\202\306\211;\203M\301\302#\266\202\202U\303A@\"\266\202\203e\307\310\311\312\313#\"\202\224\211\314>\203o\315\202\224\316\235\203y\315\202\224\211\317=\203\203\320\202\224\211\321=\203\215\322\202\224\211\323\324\"\262\262\307\325\267\202\375\307\326\"\202\327P\202\330\211;\203\275\301\302#\266\202\202\305\303A@\"\266\202\331\211;\203\327\301\302#\266\202\202\337\303A@\"\266\202\205\350\332P\333\205\362\334P\260\266\202\202\202\333Q\"\262\207" [:type get-text-property 0 plist-get :path "radio" :format format "[[%%s][%s]]" replace-regexp-in-string "%" "%%" (nil bracket) "[[%s]]" ("coderef" "custom-id" "fuzzy") angle "<%s>" plain "%s" error "Wrong `:format' value: %s" #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("coderef" 158 "custom-id" 165 "file" 171 "fuzzy" 249)) "(%s)" "#" :application :search-option "+" ":" "::"] 15 (#$ . 85565)])
952 #@235 Parse macro at point, if any.
953
954 When at a macro, return a list whose car is `macro' and cdr
955 a plist with `:key', `:args', `:begin', `:end', `:value' and
956 `:post-blank' as keywords.  Otherwise, return nil.
957
958 Assume point is at the macro.
959 (defalias 'org-element-macro-parser #[0 "\212\300\301!\205;`\302\303!\227\302\304!\304\225b\210\305\306w`\302\307!\211\205!\310!\262\311\312\313\314\315 \316 \317\257\fD\266\206)\207" [looking-at "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)\\(([     \n]*\\([^]*?\\))\\)?}}}" match-string-no-properties 1 0 "     " nil 3 org-macro-extract-arguments macro :key :value :args :begin :end :post-blank] 19 (#$ . 86822)])
960 #@53 Interpret MACRO object as Org syntax.
961
962 (fn MACRO _)
963 (defalias 'org-element-macro-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 87474)])
964 #@281 Parse radio target at point, if any.
965
966 When at a radio target, return a list whose car is `radio-target'
967 and cdr a plist with `:begin', `:end', `:contents-begin',
968 `:contents-end', `:value' and `:post-blank' as keywords.
969 Otherwise, return nil.
970
971 Assume point is at the radio target.
972 (defalias 'org-element-radio-target-parser #[0 "\212\301!\205.`\302\224\302\225\303\302!\304\225b\210\305\306w`\307\310\311\312\n\313 \314 \315\257\fD\266\206)\207" [org-radio-target-regexp looking-at 1 match-string-no-properties 0 "     " nil radio-target :begin :end :contents-begin :contents-end :post-blank :value] 19 (#$ . 87684)])
973 #@97 Interpret target object as Org syntax.
974 CONTENTS is the contents of the object.
975
976 (fn _ CONTENTS)
977 (defalias 'org-element-radio-target-interpreter #[514 "\300\301Q\207" ["<<<" ">>>"] 5 (#$ . 88314)])
978 #@281 Parse statistics cookie at point, if any.
979
980 When at a statistics cookie, return a list whose car is
981 `statistics-cookie', and cdr a plist with `:begin', `:end',
982 `:value' and `:post-blank' keywords.  Otherwise, return nil.
983
984 Assume point is at the beginning of the statistics-cookie.
985 (defalias 'org-element-statistics-cookie-parser #[0 "\212\300\301!\205&`\302\303\224\303\225\"\303\225b\210\304\305w`\306\307\310\311\312    \257D\266\204)\207" [looking-at "\\[[0-9]*\\(%\\|/[0-9]*\\)\\]" buffer-substring-no-properties 0 "     " nil statistics-cookie :begin :end :value :post-blank] 13 (#$ . 88519)])
986 #@77 Interpret STATISTICS-COOKIE object as Org syntax.
987
988 (fn STATISTICS-COOKIE _)
989 (defalias 'org-element-statistics-cookie-interpreter #[514 "\300\211;\203 \301\302#\207\303A@\"\207" [:value get-text-property 0 plist-get] 8 (#$ . 89124)])
990 #@304 Parse strike-through object at point, if any.
991
992 When at a strike-through object, return a list whose car is
993 `strike-through' and cdr is a plist with `:begin', `:end',
994 `:contents-begin' and `:contents-end' and `:post-blank' keywords.
995 Otherwise, return nil.
996
997 Assume point is at the first plus sign marker.
998 (defalias 'org-element-strike-through-parser #[0 "\212n\204\301u\210\302!\2050\303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312    \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 "     " nil strike-through :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 89370)])
999 #@105 Interpret strike-through object as Org syntax.
1000 CONTENTS is the contents of the object.
1001
1002 (fn _ CONTENTS)
1003 (defalias 'org-element-strike-through-interpreter #[514 "\300\301\"\207" [format "+%s+"] 5 (#$ . 89993)])
1004 #@287 Parse subscript at point, if any.
1005
1006 When at a subscript object, return a list whose car is
1007 `subscript' and cdr a plist with `:begin', `:end',
1008 `:contents-begin', `:contents-end', `:use-brackets-p' and
1009 `:post-blank' as keywords.  Otherwise, return nil.
1010
1011 Assume point is at the underscore.
1012 (defalias 'org-element-subscript-parser #[0 "\212n\204\301u\210\302!\205?\303\224\304\224\303\224\206\305\224\303\225\206 \305\225\306\225b\210\307\310w`\311\312\313\314 \315 \316\f\317 \257\fD\266\206)\207" [org-match-substring-regexp -1 looking-at 4 2 3 0 "     " nil subscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank] 19 (#$ . 90211)])
1013 #@108 Interpret SUBSCRIPT object as Org syntax.
1014 CONTENTS is the contents of the object.
1015
1016 (fn SUBSCRIPT CONTENTS)
1017 (defalias 'org-element-subscript-interpreter #[514 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\203!\305\202\"\306\"\207" [format :use-brackets-p get-text-property 0 plist-get "_{%s}" "_%s"] 9 (#$ . 90884)])
1018 #@288 Parse superscript at point, if any.
1019
1020 When at a superscript object, return a list whose car is
1021 `superscript' and cdr a plist with `:begin', `:end',
1022 `:contents-begin', `:contents-end', `:use-brackets-p' and
1023 `:post-blank' as keywords.  Otherwise, return nil.
1024
1025 Assume point is at the caret.
1026 (defalias 'org-element-superscript-parser #[0 "\212n\204\301u\210\302!\205?\303\224\304\224\303\224\206\305\224\303\225\206 \305\225\306\225b\210\307\310w`\311\312\313\314 \315 \316\f\317 \257\fD\266\206)\207" [org-match-substring-regexp -1 looking-at 4 2 3 0 "     " nil superscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank] 19 (#$ . 91229)])
1027 #@112 Interpret SUPERSCRIPT object as Org syntax.
1028 CONTENTS is the contents of the object.
1029
1030 (fn SUPERSCRIPT CONTENTS)
1031 (defalias 'org-element-superscript-interpreter #[514 "\300\301\211;\203\302\303#\266\202\202\304A@\"\266\202\203!\305\202\"\306\"\207" [format :use-brackets-p get-text-property 0 plist-get "^{%s}" "^%s"] 9 (#$ . 91907)])
1032 #@179 Parse table cell at point.
1033 Return a list whose car is `table-cell' and cdr is a plist
1034 containing `:begin', `:end', `:contents-begin', `:contents-end'
1035 and `:post-blank' keywords.
1036 (defalias 'org-element-table-cell-parser #[0 "\300\301!\210\302\224\302\225\303\224\303\225\304\305\306\307\310\311\302\257\nD\207" [looking-at "[     ]*\\(.*?\\)[     ]*\\(?:|\\|$\\)" 0 1 table-cell :begin :end :contents-begin :contents-end :post-blank] 15 (#$ . 92258)])
1037 #@108 Interpret table-cell element as Org syntax.
1038 CONTENTS is the contents of the cell, or nil.
1039
1040 (fn _ CONTENTS)
1041 (defalias 'org-element-table-cell-interpreter #[514 "\300\301Q\207" [" " " |"] 5 (#$ . 92717)])
1042 #@222 Parse target at point, if any.
1043
1044 When at a target, return a list whose car is `target' and cdr
1045 a plist with `:begin', `:end', `:value' and `:post-blank' as
1046 keywords.  Otherwise, return nil.
1047
1048 Assume point is at the target.
1049 (defalias 'org-element-target-parser #[0 "\212\301!\205#`\302\303!\304\225b\210\305\306w`\307\310\311\312\313    \257D\266\204)\207" [org-target-regexp looking-at match-string-no-properties 1 0 "     " nil target :begin :end :value :post-blank] 13 (#$ . 92928)])
1050 #@55 Interpret TARGET object as Org syntax.
1051
1052 (fn TARGET _)
1053 (defalias 'org-element-target-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\"\207" [format "<<%s>>" :value get-text-property 0 plist-get] 10 (#$ . 93420)])
1054 #@44 Regexp matching any timestamp type object.
1055 (defconst org-element--timestamp-regexp (concat org-ts-regexp-both #1="\\|" "\\(?:<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\\)" #1# "\\(?:<%%\\(?:([^>\n]+)\\)>\\)") (#$ . 93677))
1056 #@514 Parse time stamp at point, if any.
1057
1058 When at a time stamp, return a list whose car is `timestamp', and
1059 cdr a plist with `:type', `:raw-value', `:year-start',
1060 `:month-start', `:day-start', `:hour-start', `:minute-start',
1061 `:year-end', `:month-end', `:day-end', `:hour-end',
1062 `:minute-end', `:repeater-type', `:repeater-value',
1063 `:repeater-unit', `:warning-type', `:warning-value',
1064 `:warning-unit', `:begin', `:end' and `:post-blank' keywords.
1065 Otherwise, return nil.
1066
1067 Assume point is at the beginning of the timestamp.
1068 (defalias 'org-element-timestamp-parser #[0 "\302\303!)\262\205\276\212`\304f\305=\303\306!\210\307\310!\307\311!\312\313!\314\224\310\225b\210\315\304w`?\205E\316\317\"\205E\320\312\314\"!\320\312\313\"!B\203M\321\202t\203^\204Z\211\203^\322\202t\203g\323\202t\204o\211\203s\324\202t\325?\205\303\316\326    \"\205\303\327\312\311\n\"\211\330\267\202\225\331\202\226\332\202\226\333\262\334\320\312\314 \"!\335\336\312\313\"!\211\337\267\202\276\340\202\277\341\202\277\342\202\277\343\202\277\344\262\257?\205    \316\345\n\"\205    \346\312\311 \"\203\335\347\202\336\350\351\320\312\314\"!\352\336\312\313\"!\211\353\267\202\340\202\341\202\342\202\343\202\344\262\257\304\211\211\211\211\211\211\211\211\211\2047\354\302\"\3558\262 \3568\262\n\3138\262    \3148\262\211A@\262\210\204\204\205F\354\302\"\3558\206N\n\262\3568\206X    \262\3138\206b\262\3148\206r@\206r\262\211A@\206\202A\206\202\266\202\357\360\361\362\363\364\365\366\367\370\371\372\373\374/\375*\376-\257 \244\f\244D\266\226)\207" [org-element--timestamp-regexp inhibit-changing-match-data t looking-at nil 60 "\\([<[]\\(%%\\)?.*?\\)[]>]\\(?:--\\([<[].*?[]>]\\)\\)?" match-string-no-properties 0 1 match-string 3 2 "     " string-match "[012]?[0-9]:[0-5][0-9]\\(-\\([012]?[0-9]\\):\\([0-5][0-9]\\)\\)" string-to-number diary active-range active inactive-range inactive "\\([.+]?\\+\\)\\([0-9]+\\)\\([hdwmy]\\)" :repeater-type #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("++" 141 ".+" 145)) catch-up restart cumulate :repeater-value :repeater-unit string-to-char #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (104 174 100 178 119 182 109 186)) hour day week month year "\\(-\\)?-\\([0-9]+\\)\\([hdwmy]\\)" :warning-type first all :warning-value :warning-unit #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (104 244 100 248 119 252 109 256)) org-parse-time-string 5 4 timestamp :type :raw-value :year-start :month-start :day-start :hour-start :minute-start :year-end :month-end :day-end :hour-end :minute-end :begin :end :post-blank] 53 (#$ . 93910)])
1069 #@61 Interpret TIMESTAMP object as Org syntax.
1070
1071 (fn TIMESTAMP _)
1072 (defalias 'org-element-timestamp-interpreter #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\211\304\267\202+\305\202,\306\202,\307\202,\310\262\311\211;\203?\301\302#\266\202\202G\303A@\"\266\202\211\205N\312!\262\313\211;\203a\301\302#\266\202\202i\303A@\"\266\202\211\314\267\202\203\315\202\204\316\202\204\317\202\204\320\202\204\321\202\204\310\262Q\322\211;\203\230\301\302#\266\202\202\240\303A@\"\266\202\211\323\267\202\256\324\202\257\325\202\257\310\262\326\211;\203\302\301\302#\266\202\202\312\303A@\"\266\202\211\205\321\312!\262\327\211;\203\344\301\302#\266\202\202\354\303A@\"\266\202\211\330\267\202\315\202\316\202\317\202\320\202\321\202\310\262Q\331\332\333\334\335\"\336\"\337\340%\341\211;\203*\301\302#\266\202\2022\303A@\"\266\202\211\342>\2036\343\211;\203J\301\302#\266\202\202R\303A@\"\266\202\344\211;\203d\301\302#\266\202\202l\303A@\"\266\202\345\211;\203~\301\302#\266\202\202\206\303A@\"\266\202\346    \211;\203\230\301\302#\266\202\202\240\303A@\"\266\202\205\273\211\205\273\205\273\205\273U?\206\273U?\347\302\206\305\302\206\313\302\350\211;\203\335\301\302#\266\202\202\345\303A@\"\266\202\351\211;\203\367\301\302#\266\202\202\377\303A@\"\266\202\352\211;\203\301\302#\266\202\202\303A@\"\266\202&\353=\205%\205*\2050%\266\205\202\231\211\354>\203\343\211;\203N\301\302#\266\202\202V\303A@\"\266\202\344\211;\203h\301\302#\266\202\202p\303A@\"\266\202\345\211;\203\202\301\302#\266\202\202\212\303A@\"\266\202\346    \211;\203\234\301\302#\266\202\202\244\303A@\"\266\202\347\302\206\255\302\206\262\302\350\211;\203\304\301\302#\266\202\202\314\303A@\"\266\202\351\211;\203\336\301\302#\266\202\202\346\303A@\"\266\202\352\211;\203\370\301\302#\266\202\202\303A@\"\266\202&\355=\205\f#\324\347\302\206\302\206\302\356\211;\2030\301\302#\266\202\2028\303A@\"\266\202\357\211;\203J\301\302#\266\202\202R\303A@\"\266\202\360\211;\203d\301\302#\266\202\202l\303A@\"\266\202&\355=\205x#Q\266\204\202\231\361\211;\203\221\301\302#\266\202\202\231\303A@\"\266\202\207" [:repeater-type get-text-property 0 plist-get #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (cumulate 31 catch-up 35 restart 39)) "+" "++" ".+" nil :repeater-value number-to-string :repeater-unit #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hour 111 day 115 week 119 month 123 year 127)) "h" "d" "w" "m" "y" :warning-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (first 166 all 170)) "--" "-" :warning-value :warning-unit #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (hour 242 day 246 week 250 month 254 year 258)) make-byte-code 1282 "\303\203    \304\202\n\305\n!\"\203(\203(\306\307\"\210\310\311\312#\313\211$\262\2045\311\314\315\316O\"\262\300\301D\211\203X\211@\317!\203Q\320\316O\321\316\313OR\262A\266\202\2028\210\211\207" vconcat vector [org-time-stamp-formats format-time-string cdr car string-match "[012]?[0-9]:[0-5][0-9]" replace-match format "\\&-%02d:%02d" nil "[%s]" 1 -1 org-string-nw-p 0 " "] 14 "\n\n(fn TIME ACTIVEP &optional WITH-TIME-P HOUR-END MINUTE-END)" :type (inactive active) :minute-start :minute-end :hour-start :hour-end encode-time :day-start :month-start :year-start active (inactive-range active-range) active-range :day-end :month-end :year-end :raw-value] 25 (#$ . 96706)])
1073 #@291 Parse underline object at point, if any.
1074
1075 When at an underline object, return a list whose car is
1076 `underline' and cdr is a plist with `:begin', `:end',
1077 `:contents-begin' and `:contents-end' and `:post-blank' keywords.
1078 Otherwise, return nil.
1079
1080 Assume point is at the first underscore marker.
1081 (defalias 'org-element-underline-parser #[0 "\212n\204\301u\210\302!\2050\303\224\304\224\304\225\303\225b\210\305\306w`\307\310\311\312    \313\n\314 \257\nD\266\205)\207" [org-emph-re -1 looking-at 2 4 "     " nil underline :begin :end :contents-begin :contents-end :post-blank] 16 (#$ . 100485)])
1082 #@100 Interpret underline object as Org syntax.
1083 CONTENTS is the contents of the object.
1084
1085 (fn _ CONTENTS)
1086 (defalias 'org-element-underline-interpreter #[514 "\300\301\"\207" [format "_%s_"] 5 (#$ . 101086)])
1087 #@259 Parse verbatim object at point, if any.
1088
1089 When at a verbatim object, return a list whose car is `verbatim'
1090 and cdr is a plist with `:value', `:begin', `:end' and
1091 `:post-blank' keywords.  Otherwise, return nil.
1092
1093 Assume point is at the first equal sign marker.
1094 (defalias 'org-element-verbatim-parser #[0 "\212n\204\301u\210\302!\205,\303\224\304\305!\303\225b\210\306\307w`\310\311\312\313\314    \257D\266\204)\207" [org-verbatim-re -1 looking-at 2 match-string-no-properties 4 "     " nil verbatim :value :begin :end :post-blank] 13 (#$ . 101295)])
1095 #@59 Interpret VERBATIM object as Org syntax.
1096
1097 (fn VERBATIM _)
1098 (defalias 'org-element-verbatim-interpreter #[514 "\300\301\302\211;\203\303\304#\266\202\202\305A@\"\266\202\"\207" [format "=%s=" :value get-text-property 0 plist-get] 10 (#$ . 101854)])
1099 #@873 Parse the element starting at point.
1100
1101 Return value is a list like (TYPE PROPS) where TYPE is the type
1102 of the element and PROPS a plist of properties associated to the
1103 element.
1104
1105 Possible types are defined in `org-element-all-elements'.
1106
1107 LIMIT bounds the search.
1108
1109 Optional argument GRANULARITY determines the depth of the
1110 recursion.  Allowed values are `headline', `greater-element',
1111 `element', `object' or nil.  When it is broader than `object' (or
1112 nil), secondary values will not be parsed, since they only
1113 contain objects.
1114
1115 Optional argument MODE, when non-nil, can be either
1116 `first-section', `section', `planning', `item', `node-property'
1117 and `table-row'.
1118
1119 If STRUCTURE isn't provided but MODE is set to `item', it will be
1120 computed.
1121
1122 This function assumes point is always at the beginning of the
1123 element it has to parse.
1124
1125 (fn LIMIT &optional GRANULARITY MODE STRUCTURE)
1126 (defalias 'org-element--current-element #[1025 "\212\306\205\n\307=?\310=\203\311#\202'\312=\203(\313!\202'\314=\2035\315!\202'\306\316 \211\317\nP\320 ,\203N\321\"\202'\322=\203[\323!\202'\324=\203z\323\212\306\316 \211\317\nP\325 -\206v!\202'\326=\203\226\327\330!f\331=\203\226\332 !\203\226\333!\202'\334>\203\275\327\326=\203\247\330\202\250\335!f\331=\203\275\332@!\203\275\336!\202'n\204\312\337`C\"\202'\332A!\203\330\340!\202'\320 \203\345\341\"\202'\342!\211A\203`Y\203\211@b\210\343\344\"\202%\332B!\203\345\"\202%\332C!\203\346\"\202%\332\347!\203-\350\"\202%\332\351!\203\277\330\225b\210\332\352!\203H\353 \210\354\"\202%\332\355!\203\201\353 \210\356\357!\226\211\360\267\202w\361\202x\362\202x\363\202x\364\202x\365\202x\366\202x\367\202x\370\262\"\202%\332\371!\203\222\353 \210\372\"\202%\332\373!\203\243\353 \210\374\"\202%\332\375!\203\264\353 \210\343\"\202%\353 \210\337\"\202%\332D!\203\316\376\"\202%\332\377!\203\336\201E\"\202%\332\201F!\203\360\201G\"\202%\332\201H!\203\201I\"\202%\332\201J !\203 \201K\206\201L\n!#\202%\337\"\262)\266\202)\207" [case-fold-search org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-planning-line-re t object item org-element-item-parser table-row org-element-table-row-parser node-property org-element-node-property-parser org-get-limited-outline-regexp "^" org-at-heading-p org-element-headline-parser section org-element-section-parser first-section outline-next-heading planning line-beginning-position 0 42 looking-at org-element-planning-parser (planning property-drawer) -1 org-element-property-drawer-parser org-element-paragraph-parser org-element-clock-parser org-element-inlinetask-parser org-element--collect-affiliated-keywords org-element-keyword-parser nil org-element-latex-environment-parser org-element-drawer-parser "[     ]*:\\( \\|$\\)" org-element-fixed-width-parser "[     ]*#" "\\(?: \\|$\\)" beginning-of-line org-element-comment-parser "\\+BEGIN_\\(\\S-+\\)" match-string 1 #s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("CENTER" 347 "COMMENT" 351 "EXAMPLE" 355 "EXPORT" 359 "QUOTE" 363 "SRC" 367 "VERSE" 371)) org-element-center-block-parser org-element-comment-block-parser org-element-example-block-parser org-element-export-block-parser org-element-quote-block-parser org-element-src-block-parser org-element-verse-block-parser org-element-special-block-parser "\\+CALL:" org-element-babel-call-parser "\\+BEGIN:? " org-element-dynamic-block-parser "\\+\\S-+:" org-element-footnote-definition-parser "[     ]*-\\{5,\\}[     ]*$" org-property-drawer-re org-clock-line-re org-element--latex-begin-environment org-drawer-regexp org-footnote-definition-re org-element-horizontal-rule-parser "%%(" org-element-diary-sexp-parser "[     ]*\\(|\\|\\+\\(-+\\+\\)+[     ]*$\\)" org-element-table-parser org-item-re org-element-plain-list-parser org-element--list-struct] 13 (#$ . 102117)])
1127 #@391 Collect affiliated keywords from point down to LIMIT.
1128
1129 Return a list whose CAR is the position at the first of them and
1130 CDR a plist of keywords and values and move point to the
1131 beginning of the first line after them.
1132
1133 As a special case, if element doesn't start at the beginning of
1134 the line (e.g., a paragraph starting an item), CAR is current
1135 position of point and CDR is nil.
1136
1137 (fn LIMIT)
1138 (defalias 'org-element--collect-affiliated-keywords #[257 "n\204`C\207\306`\307\2119\203\211\202.\211\211:\204$\211;\205,\310\262\202.\211@9\205,\211@\262\236A\262\311`W\203    \312\n!\203    \313\314!\226\315 \"A\206O\211\316 \317\320\321\322\323!\324\"\325$\216\326\320\225\327 \"\311\330\203m\331\202n\332\333\330\334\333##\266\202)\262\f\235 \235\211\205\260\335\336!\211\203\220\204\224\211\202\256\316 \317\320\321\322\323!\337\"\325$\216\340\336\224\336\225\311\f$)\262\262\205\273\341\342\227P!\203\320\340\320\225\311\210\343\311x\210`\311\f$\262\203\341\204\334\205\337B\262)\235\204\360\344\345\"\203\371\346    \"B\262\347#\262\311y\266\2026\312\350!\203b\210\311\262)B\207" [org-element-object-restrictions case-fold-search org-element--affiliated-re org-element-keyword-translation-alist org-element-parsed-keywords org-element-dual-keywords t keyword plain-text nil looking-at match-string 1 assoc match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 buffer-substring-no-properties line-end-position replace-regexp-in-string "\\`\\([     ]*\n\\)+" "\\`[     \n ]+" "" "[     \n ]+\\'" match-string-no-properties 2 [set-match-data evaporate] org-element--parse-objects intern ":" "     " string-match "^ATTR_" plist-get plist-put "[     ]*$" org-element-multiple-keywords] 18 (#$ . 106124)])
1139 #@1876 Recursively parse the buffer and return structure.
1140 If narrowing is in effect, only parse the visible part of the
1141 buffer.
1142
1143 Optional argument GRANULARITY determines the depth of the
1144 recursion.  It can be set to the following symbols:
1145
1146 `headline'          Only parse headlines.
1147 `greater-element'   Don't recurse into greater elements except
1148             headlines and sections.  Thus, elements
1149             parsed are the top-level ones.
1150 `element'           Parse everything but objects and plain text.
1151 `object'            Parse the complete buffer (default).
1152
1153 When VISIBLE-ONLY is non-nil, don't parse contents of hidden
1154 elements.
1155
1156 An element or object is represented as a list with the
1157 pattern (TYPE PROPERTIES CONTENTS), where :
1158
1159   TYPE is a symbol describing the element or object.  See
1160   `org-element-all-elements' and `org-element-all-objects' for an
1161   exhaustive list of such symbols.  One can retrieve it with
1162   `org-element-type' function.
1163
1164   PROPERTIES is the list of attributes attached to the element or
1165   object, as a plist.  Although most of them are specific to the
1166   element or object type, all types share `:begin', `:end',
1167   `:post-blank' and `:parent' properties, which respectively
1168   refer to buffer position where the element or object starts,
1169   ends, the number of white spaces or blank lines after it, and
1170   the element or object containing it.  Properties values can be
1171   obtained by using `org-element-property' function.
1172
1173   CONTENTS is a list of elements, objects or raw strings
1174   contained in the current element or object, when applicable.
1175   One can access them with `org-element-contents' function.
1176
1177 The Org buffer has `org-data' as type and nil as properties.
1178 `org-element-map' function can be used to find specific elements
1179 or objects within the parse tree.
1180
1181 This function assumes that current major mode is `org-mode'.
1182
1183 (fn &optional GRANULARITY VISIBLE-ONLY)
1184 (defalias 'org-element-parse-buffer #[512 "\212eb\210\300 \210\301\302 d\303\304\305\304D&)\207" [org-skip-whitespace org-element--parse-elements point-at-bol first-section nil org-data] 11 (#$ . 107924)])
1185 #@396 Recursively parse objects in STRING and return structure.
1186
1187 RESTRICTION is a symbol limiting the object types that will be
1188 looked after.
1189
1190 Optional argument PARENT, when non-nil, is the element or object
1191 containing the secondary string.  It is used to set correctly
1192 `:parent' property within the string.
1193
1194 If STRING is the empty string or nil, return nil.
1195
1196 (fn STRING RESTRICTION &optional PARENT)
1197 (defalias 'org-element-parse-secondary-string #[770 "\204\300\207\301\232\203\300\207\302 \303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\211\203P\211@\3141D\2119\2039\315!\202@\316@!AL0\202H\210\202I\210A\266\202\202$\210c\210\317\300!\210\320ed\300%*\262\207" [nil "" buffer-local-variables generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) makunbound make-local-variable restore-buffer-modified-p org-element--parse-objects] 11 (#$ . 110017)])
1198 #@2362 Map a function on selected elements or objects.
1199
1200 DATA is a parse tree, an element, an object, a string, or a list
1201 of such constructs.  TYPES is a symbol or list of symbols of
1202 elements or objects types (see `org-element-all-elements' and
1203 `org-element-all-objects' for a complete list of types).  FUN is
1204 the function called on the matching element or object.  It has to
1205 accept one argument: the element or object itself.
1206
1207 When optional argument INFO is non-nil, it should be a plist
1208 holding export options.  In that case, parts of the parse tree
1209 not exportable according to that property list will be skipped.
1210
1211 When optional argument FIRST-MATCH is non-nil, stop at the first
1212 match for which FUN doesn't return nil, and return that value.
1213
1214 Optional argument NO-RECURSION is a symbol or a list of symbols
1215 representing elements or objects types.  `org-element-map' won't
1216 enter any recursive element or object whose type belongs to that
1217 list.  Though, FUN can still be applied on them.
1218
1219 When optional argument WITH-AFFILIATED is non-nil, FUN will also
1220 apply to matching objects within parsed affiliated keywords (see
1221 `org-element-parsed-keywords').
1222
1223 Nil values returned from FUN do not appear in the results.
1224
1225
1226 Examples:
1227 ---------
1228
1229 Assuming TREE is a variable containing an Org buffer parse tree,
1230 the following example will return a flat list of all `src-block'
1231 and `example-block' elements in it:
1232
1233   (org-element-map tree \='(example-block src-block) #\='identity)
1234
1235 The following snippet will find the first headline with a level
1236 of 1 and a "phone" tag, and will return its beginning position:
1237
1238   (org-element-map tree \='headline
1239    (lambda (hl)
1240      (and (= (org-element-property :level hl) 1)
1241           (member "phone" (org-element-property :tags hl))
1242           (org-element-property :begin hl)))
1243    nil t)
1244
1245 The next example will return a flat list of all `plain-list' type
1246 elements in TREE that are not a sub-list themselves:
1247
1248   (org-element-map tree \='plain-list #\='identity nil nil \='plain-list)
1249
1250 Eventually, this example will return a flat list of all `bold'
1251 type objects containing a `latex-snippet' type object, even
1252 looking into captions:
1253
1254   (org-element-map tree \='bold
1255    (lambda (b)
1256      (and (org-element-map b \='latex-snippet #\='identity nil t) b))
1257    nil nil nil t)
1258
1259 (fn DATA TYPES FUN &optional INFO FIRST-MATCH NO-RECURSION WITH-AFFILIATED)
1260 (defalias 'org-element-map #[1795 "<\203    \202 C<\203\202C\3022O\303\304B\211\203I\211@\211>\2033\305\302\306\"\210\202B\211    >\204B\307=\204B\307\262A\266\202\202\262\266\2020\310C\310C\211\311\312\313\314\315&    \316\"\317\320%\240\210\3212\202\211\242\f!\210\242\2370\262\207" [org-element-all-objects org-element-greater-elements :--found greater-elements plain-text throw objects elements nil make-byte-code 257 "\211\211:\204\211;\205\311\262\202\211@9\205\211@\262?\206\301\203-\312\301\313\">\206\211\2049\314\310\242\"\202\211\315=\203]\314\310\242\211:\204N\316\262\202Y\211@9\203Y\211AA\262\"\202\211\304>\203~\300!\211\203}\302\203v\317\320\"\210\202}\307\307\242B\240\210\210\306\321=\203\271;\204\271\211\236A\211\203\270\211@\310\242\211;\203\247\322\323#\266\202\202\257\312A@\"\266\202!\210A\266\202\202\216\210\303\203\377\306\321=\203\377\316\211:\204\326\211;\205\336\311\262\202\340\211@9\205\336\211@\262\206\375\324\211;\203\365\322\323#\266\202\202\375\312A@\"\266\202>\203\325\202r>\203\326\202r\315=\203\326\202r\311=\203'\325\202r\204/\325\202r\211\2047\326\202r\211\211:\204H\211;\205P\311\262\202R\211@9\205P\211@\262\211\204Z\325\202p\211>\203e\325\202p\327!\203o\325\202p\326\262\266\204\326=\203\377\211\203\376\211@\211@A\211;\203\225\322\323#\266\202\202\235\312A@\"\266\202\211\203\365 \235\203\336!\235\203\317\330!\211\203\313\211@\310\242A!\210\310\242@!\210A\266\202\202\262\210\202\365\310\242A!\210\310\242@!\210\202\365!\235\203\360\314\310\242\330!\"\210\202\365\310\242!\210\266A\266\202\202{\210\211\305>\206\211:\204\316\262\202\211@9\203\211AA\262?\206\306\331=\203.\211\">?\206\306\332=\203\352\316\211:\204G\211;\205O\311\262\202Q\211@9\205O\211@\262\206n\324\211;\203f\322\323#\266\202\202n\312A@\"\266\202>\203y\325\202\343>\203\204\326\202\343\315=\203\216\326\202\343\311=\203\230\325\202\343\204\240\325\202\343\211\204\250\326\202\343\211\211:\204\271\211;\205\301\311\262\202\303\211@9\205\301\211@\262\211\204\313\325\202\341\211>\203\326\325\202\341\327!\203\340\325\202\341\326\262\266\204\325=\206\314\310\242\211:\204\371\316\262\202\211@9\203\211AA\262\"\207" vconcat vector [plain-text plist-get :ignore-list mapc org-data nil throw :--map-first-match objects get-text-property 0 :parent object element org-element-secondary-p reverse greater-elements elements org-element-secondary-value-alist org-element-all-objects org-element-all-elements org-element-object-containers org-element--parsed-properties-alist org-element-dual-keywords org-element-multiple-keywords org-element-greater-elements] 11 "\n\n(fn --DATA)" :--map-first-match] 27 (#$ . 110979)])
1261 (put 'org-element-map 'lisp-indent-function 2)
1262 #@331 Return next special mode according to TYPE, or nil.
1263 TYPE is a symbol representing the type of an element or object
1264 containing next element if PARENTP is non-nil, or before it
1265 otherwise.  Modes can be either `first-section', `item',
1266 `node-property', `planning', `property-drawer', `section',
1267 `table-row' or nil.
1268
1269 (fn TYPE PARENTP)
1270 (defalias 'org-element--next-mode #[514 "\211\203\300\267\202\301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202&\303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 (#$ . 116292)])
1271 (put 'org-element--next-mode 'byte-optimizer 'byte-compile-inline-expand)
1272 #@543 Parse elements between BEG and END positions.
1273
1274 MODE prioritizes some elements over the others.  It can be set to
1275 `first-section', `section', `planning', `item', `node-property'
1276 or `table-row'.
1277
1278 When value is `item', STRUCTURE will be used as the current list
1279 structure.
1280
1281 GRANULARITY determines the depth of the recursion.  See
1282 `org-element-parse-buffer' for more information.
1283
1284 When VISIBLE-ONLY is non-nil, don't parse contents of hidden
1285 elements.
1286
1287 Elements are accumulated into ACC.
1288
1289 (fn BEG END MODE STRUCTURE GRANULARITY VISIBLE-ONLY ACC)
1290 (defalias 'org-element--parse-elements #[1799 "\212b\210\203\306 \203\307 T^b\210\310=\2030\311 \2040\312\313 \211\314    P\315 \210,\316`W\203\220\317$\211\211:\204R\211;\205Z\320\262\202\\\211@9\205Z\211@\262\321\211;\203m\322\323#\266\202\202u\324A@\"\266\202\325\211;\203\206\322\323#\266\202\202\216\324A@\"\266\202b\210\203\241\306 \203\241\307 T\n^b\210\211\203_\f>\203\326>\204\305\327=\203\277\330=\204\305\310=\203\331\332\211;\203\330\322\323#\266\202\202\340\324A@\"\266\202\333\312\"\334>\205\335\211;\203\374\322\323#\266\202\202\324A@\"\266\202      &\210\202_\336>\203_\337\332\211;\203*\322\323#\266\202\2022\324A@\"\266\202\2119\203=\211\202X\211\211:\204N\211;\205V\320\262\202X\211@9\205V\211@\262 \236A\262$\210\340;\203s\341\316$\266\203\202\201A\342A@#\240\210\266\203B\262\333\316\"\262    \266\2021\343\344\237#\262)\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-element-greater-elements org-element-object-restrictions org-invisible-p2 org-find-visible headline org-at-heading-p t org-get-limited-outline-regexp "^" outline-next-heading nil org-element--current-element plain-text :contents-begin get-text-property 0 plist-get :end (element object nil) greater-element section org-element--parse-elements :contents-end #[514 "\211\203\300\267\202\301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202&\303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 "Return next special mode according to TYPE, or nil.\nTYPE is a symbol representing the type of an element or object\ncontaining next element if PARENTP is non-nil, or before it\notherwise.  Modes can be either `first-section', `item',\n`node-property', `planning', `property-drawer', `section',\n`table-row' or nil.\n\n(fn TYPE PARENTP)"] (item plain-list) :structure (object nil) org-element--parse-objects :parent org-add-props plist-put apply org-element-set-contents] 22 (#$ . 117273)])
1291 #@244 Return next object in current buffer or nil.
1292 RESTRICTION is a list of object types, as symbols, that should be
1293 looked after.  This function assumes that the buffer is narrowed
1294 to an appropriate container (e.g., a paragraph).
1295
1296 (fn RESTRICTION)
1297 (defalias 'org-element--object-lex #[257 "\302>\203    \303 \207`\212\204\304\202P\305>\204\304\202Pn\204$\306u\210\307\304\310#\2040\304\202P\211\311 TU\203M\211\312\225U\203M\307\304\310#\205P\312\224T\202P\312\224T)\304\212\211\204\314\307    \313#\203\314\314\224b\210\315\314!\316\317\310#\203y\320>\205\277\321 \202\277\316\322\310#\203\214\323>\205\277\324 \202\277\304f\211\325\267\202\264\326>\205\275\327 \202\275\330>\203\254\331 \206\275\332>\205\275\333 \202\275\334>\205\275\335 \202\275\336>\205\275\337 \202\275\340>\205\275\341 \202\275\342>\205\275\343 \202\275\344>\205\275\345 \202\275\346>\205\275\347 \202\275\350>\205\275\351 \202\275\352>\205\275\353 \202\275\312H\354=\2038\355>\203,\356 \206\275\357>\205\275\360 \202\275\361>\203D\362 \206\275\305>\205\275\363 \202\275\312H\364=\203d\365>\205\275\366 \202\275\367>\203p\370 \206\275\352>\205\275\353 \202\275\312H\371=\203\220\305>\205\275\363 \202\275\372>\203\234\373 \206\275\361>\203\250\362 \206\275\374>\205\275\375 \202\275\305>\205\275\363 \262\262m\204\310\304u\210\210\202S\211\206\335\203\334\306u\210\363 \202\335\304)\207" [org-target-link-regexp org-element--object-regexp table-cell org-element-table-cell-parser nil link -1 re-search-forward t line-beginning-position 1 move 0 match-string string-prefix-p "call_" inline-babel-call org-element-inline-babel-call-parser "src_" inline-src-block org-element-inline-src-block-parser #s(hash-table size 13 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (94 148 95 160 42 184 47 196 126 208 61 220 43 232 64 244 123 256 36 268 60 280 92 336 91 380)) superscript org-element-superscript-parser subscript org-element-subscript-parser underline org-element-underline-parser bold org-element-bold-parser italic org-element-italic-parser code org-element-code-parser verbatim org-element-verbatim-parser strike-through org-element-strike-through-parser export-snippet org-element-export-snippet-parser macro org-element-macro-parser latex-fragment org-element-latex-fragment-parser 60 radio-target org-element-radio-target-parser target org-element-target-parser timestamp org-element-timestamp-parser org-element-link-parser 92 line-break org-element-line-break-parser entity org-element-entity-parser 91 footnote-reference org-element-footnote-reference-parser statistics-cookie org-element-statistics-cookie-parser] 9 (#$ . 120257)])
1298 #@519 Parse objects between BEG and END and return recursive structure.
1299
1300 Objects are accumulated in ACC.  RESTRICTION is a list of object
1301 successors which are allowed in the current object.
1302
1303 ACC becomes the parent for all parsed objects.  However, if ACC
1304 is nil (i.e., a secondary string is being parsed) and optional
1305 argument PARENT is non-nil, use it as the parent for all objects.
1306 Eventually, if both ACC and PARENT are nil, the common parent is
1307 the list of objects itself.
1308
1309 (fn BEG END ACC RESTRICTION &optional PARENT)
1310 (defalias 'org-element--parse-objects #[1284 "\212\214}\210eb\210\301\211m\204\"\302!\211\262\203\"\303\211;\203)\304\305#\266\202\2021\306A@\"\266\202`U\204k\307`\"\203e\211\310;\203T\311\301$\266\203\202fA\312A@#\240\210\266\203\202f\211B\262\210\210\313\211;\203}\304\305#\266\202\202\205\306A@\"\266\202\314\211;\203\226\304\305#\266\202\202\236\306A@\"\266\202\203\306\310;\203\267\311\301$\266\203\202\305A\312A@#\240\210\266\203\210\211\203\315\316\211;\203\336\304\305#\266\202\202\346\306A@\"\266\202\211\2119\203\362\211\202 \211\211:\204\211;\205 \317\262\202 \211@9\205 \211@\262\236A\262$\202B\262b\266\202 m\204Y\307`\"\203T\211\310;\203C\311\301$\266\203\202UA\312A@#\240\210\266\203\202U\211B\266\202\203g\320\321\237#\202\243\211\237\206n\211\211\203\236\211@\211\310;\203\210\311\301$\266\203\202\226A\312A@#\240\210\266\203\210A\266\202\202o\262\266\202\266\202*\207" [org-element-object-restrictions nil org-element--object-lex :begin get-text-property 0 plist-get buffer-substring-no-properties :parent org-add-props plist-put :end :contents-begin org-element--parse-objects :contents-end plain-text apply org-element-set-contents] 19 (#$ . 123026)])
1311 #@154 Interpret DATA as Org syntax.
1312 DATA is a parse tree, an element, an object or a secondary string
1313 to interpret.  Return Org syntax as a string.
1314
1315 (fn DATA)
1316 (defalias 'org-element-interpret-data #[257 "\300C\211\301\302\303\304\305!\306\"\307\310%\240\210\211\242\300\"\207" [nil make-byte-code 514 "\211:\204\211;\205\304\262\202\211@9\205\211@\262\305\306\307\"!\310!\203+\211\202,\311\262\204G\312\313\314\315\316\317\300    \"\320\"\321\322%\323#\202\324=\203x\312\313\314\315\316\317\300    \"\320\"\321\322%\211:\204h\325\262\202s\211@9\203s\211AA\262\323#\202;\203\201\202\211:\204\215\325\262\202\230\211@9\203\230\211AA\262\204\242\211\325\"\202\211\312\313\314\315\316\317\300\f\"\320\"\321\326%\327>\204\276\202\330\331=\205\211:\204\332\211;\205\342\304\262\202\344\211@9\205\342\211@\262\332>\205        \211:\204\370\325\262\202\211@9\203\211AA\262@=\"\211:\204\325\262\202\211@9\203\211AA\262\323#\"\333>\203)\211\202\334\211;\203:\335\336#\266\202\202B\337A@\"\266\202\206F\336\211:\204Y\211;\205a\304\262\202c\211@9\205a\211@\262\206\200\340\211;\203x\335\336#\266\202\202\200\337A@\"\266\202    >\203\212\341\202\362\n>\203\224\342\202\362\324=\203\236\342\202\362\304=\203\250\341\202\362\204\260\341\202\362\211\204\270\342\202\362\211\211:\204\311\211;\205\321\304\262\202\323\211@9\205\321\211@\262\211\204\333\341\202\360\211 >\203\345\341\202\360\343!\203\357\341\202\360\342\262\266\204\341=\203\344\345\"P\202\346!\347!\344\350\"Q\262\207" vconcat vector [org-element-all-objects org-element-all-elements org-element-object-containers plain-text intern format "org-element-%s-interpreter" fboundp #[514 "\207" #1=[] 3 "\n\n(fn _ CONTENTS)"] mapconcat make-byte-code 257 "\300\242\301\"\207" vconcat vector #1# 4 "\n\n(fn OBJ)" "" org-data nil "\n\n(fn DATUM)" (paragraph verse-block) org-element-normalize-contents paragraph (footnote-definition item) (org-data plain-text nil) :post-blank get-text-property 0 plist-get :parent object element org-element-secondary-p make-string 32 org-element--interpret-affiliated-keywords org-element-normalize-string 10] 15 "\n\n(fn DATA PARENT)"] 9 (#$ . 124867)])
1317 #@127 Return ELEMENT's affiliated keywords as Org syntax.
1318 If there is no affiliated keyword, return the empty string.
1319
1320 (fn ELEMENT)
1321 (defalias 'org-element--interpret-affiliated-keywords #[257 "\302\303\304\305\306\307\310\"\311\"\312\313%A@\314\211:\203J@\262\315!\316\314O\226\317\320\"\2068\211\235\2058\321    \"?\262\203BB\262AA\262\202\211\237\266\203\322#\207" [org-element-affiliated-keywords org-element-keyword-translation-alist #[514 "\302\235\203A\262@\262\303\205\304\305\306!\"\307    \235\203*\306!\202+\310\260\207" [org-element-dual-keywords org-element-parsed-keywords nil "#+" format "[%s]" org-element-interpret-data ": " "\n"] 9 "\n\n(fn KEY VALUE)"] mapconcat make-byte-code 257 "\211\300\211;\203\303\304#\266\202\202\305A@\"\266\202\306!\307\310O\226\205L\211\n\235\2041\311\312\"\203H\313\314\315\316\317\320\301\"\321\"\322\323%\324!\325#\202L\301\"\207" vconcat vector [org-element-multiple-keywords get-text-property 0 plist-get symbol-name 1 nil string-match "^ATTR_" mapconcat make-byte-code 257 "\300\301\"\207" vconcat vector [] 4 "\n\n(fn LINE)" reverse #1=""] 11 "\n\n(fn PROP)" nil symbol-name 1 string-match "^ATTR_" assoc #1#] 11 (#$ . 127149)])
1322 #@219 Ensure string S ends with a single newline character.
1323
1324 If S isn't a string return it unchanged.  If S is the empty
1325 string, return it.  Otherwise, return a new string with a single
1326 newline character at its end.
1327
1328 (fn S)
1329 (defalias 'org-element-normalize-string #[257 "\211;\204\207\211\300\230\203\300\207\301\302\"\205\303\304\305\211$\207" ["" string-match "\\(\n[     ]*\\)*\\'" replace-match "\n" nil] 6 (#$ . 128392)])
1330 #@349 Normalize plain text in ELEMENT's contents.
1331
1332 ELEMENT must only contain plain text and objects.
1333
1334 If optional argument IGNORE-FIRST is non-nil, ignore first line's
1335 indentation to compute maximal common indentation.
1336
1337 Return the normalized element that is element with global
1338 indentation removed from its contents.
1339
1340 (fn ELEMENT &optional IGNORE-FIRST)
1341 (defalias 'org-element-normalize-contents #[513 "\301C\301C\302\303\304\305\306!\307\"\310\311%\240\210\211\3122!\242?#0\240\210\211\242\313U\2041\211\242U\2035\202O\301C\211\302\314\315\305\306\"\316\"\317\320%\240\210\211\242!\262\207" [most-positive-fixnum nil make-byte-code 771 "\211:\204\f\302\262\202\211@9\203\211AA\262\211\203#\211@\203m\302\262\211;\2041\303\304\305\"\210\202m\306\307\"\204@\303\304\305\"\210\202m\310\311\"\312\232\203V\313\314\224\314\225\315\316%\210\202m\317\310\314\"!\313\314\224\314\225\315%\210\211^\262\210\211;\203\316\305\306\320#\203\312\314\225\262\310\314\"\321\232\203\231\310\311\"\322\235\204s\303\304\305\"\210\202s\310\311\"\312\232\203\260\313\314\224\314\225\315\316%\210\202s\317\310\314\"!\313\314\224\314\225\315%\210\211^\262\210\202s\210\202\211\211:\204\337\211;\205\347\323\262\202\351\211@9\205\347\211@\262\324=\203\364\325\262\202\211\211:\204\211;\205 \323\262\202\211@9\205 \211@\262    >\203\300\242#\262A\266\202\202\207" vconcat vector [org-element-recursive-objects nil throw :zero 0 string-match "\\`\\([     ]+\\)\\([^     \n]\\|\n\\|\\'\\)" match-string 2 "\n" put-text-property 1 org-ind empty string-width "\n\\([     ]*\\)\\([^     \n]\\|\n\\|\\'\\)" #1="" (#1# "\n") plain-text line-break t] 13 "\n\n(fn BLOB FIRST-FLAG MIN-IND)" :zero 0 257 "\211A\302\303\304\305\306\307\300\301\"\310\"\311\312%\211:\204\313\262\202'\211@9\203'\211AA\262\"\241\210\207" [mapcar make-byte-code 257 "\211;\203K\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216c\210e\314d\315\316$\211\262\203F\211b\210\317\315\"\320\316w\210`|\210\211\250\203B\211\300\242Zj\210\210\202\210\321 *\207\211\211:\204\\\211;\205d\322\262\202f\211@9\205d\211@\262\n>\203p\301\242!\207\207" vconcat vector [org-element-recursive-objects generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 text-property-not-all org-ind nil get-text-property "     " buffer-string plain-text] 8 "\n\n(fn OBJECT)" nil] 10 "\n\n(fn DATUM)"] 13 (#$ . 128825)])
1342 #@214 Non-nil when Org parser should cache its results.
1343
1344 WARNING: for the time being, using cache sometimes triggers
1345 freezes.  Therefore, it is disabled by default.  Activate it if
1346 you want to help debugging the issue.
1347 (defvar org-element-use-cache nil (#$ . 131334))
1348 #@56 Length, in seconds, of idle time before syncing cache.
1349 (defvar org-element-cache-sync-idle-time 0.6 (#$ . 131602))
1350 #@195 Maximum duration, as a time value, for a cache synchronization.
1351 If the synchronization is not over after this delay, the process
1352 pauses and resumes after `org-element-cache-sync-break'
1353 seconds.
1354 (defvar org-element-cache-sync-duration (seconds-to-time 0.04) (#$ . 131724))
1355 #@127 Duration, as a time value, of the pause between synchronizations.
1356 See `org-element-cache-sync-duration' for more information.
1357 (defvar org-element-cache-sync-break (seconds-to-time 0.3) (#$ . 132003))
1358 #@179 AVL tree used to cache elements.
1359 Each node of the tree contains an element.  Comparison is done
1360 with `org-element--cache-compare'.  This cache is used in
1361 `org-element-at-point'.
1362 (defvar org-element--cache nil (#$ . 132210))
1363 #@1184 List of pending synchronization requests.
1364
1365 A request is a vector with the following pattern:
1366
1367  [NEXT BEG END OFFSET PARENT PHASE]
1368
1369 Processing a synchronization request consists of three phases:
1370
1371   0. Delete modified elements,
1372   1. Fill missing area in cache,
1373   2. Shift positions and re-parent elements after the changes.
1374
1375 During phase 0, NEXT is the key of the first element to be
1376 removed, BEG and END is buffer position delimiting the
1377 modifications.  Elements starting between them (inclusive) are
1378 removed.  So are elements whose parent is removed.  PARENT, when
1379 non-nil, is the parent of the first element to be removed.
1380
1381 During phase 1, NEXT is the key of the next known element in
1382 cache and BEG its beginning position.  Parse buffer between that
1383 element and the one before it in order to determine the parent of
1384 the next element.  Set PARENT to the element containing NEXT.
1385
1386 During phase 2, NEXT is the key of the next element to shift in
1387 the parse tree.  All elements starting from this one have their
1388 properties relatives to buffer positions shifted by integer
1389 OFFSET and, if they belong to element PARENT, are adopted by it.
1390
1391 PHASE specifies the phase number, as an integer.
1392 (defvar org-element--cache-sync-requests nil (#$ . 132442))
1393 #@39 Timer used for cache synchronization.
1394 (defvar org-element--cache-sync-timer nil (#$ . 133691))
1395 #@106 Hash table used to store keys during synchronization.
1396 See `org-element--cache-key' for more information.
1397 (defvar org-element--cache-sync-keys nil (#$ . 133793))
1398 #@741 Return a unique key for ELEMENT in cache tree.
1399
1400 Keys are used to keep a total order among elements in the cache.
1401 Comparison is done with `org-element--cache-key-less-p'.
1402
1403 When no synchronization is taking place, a key is simply the
1404 beginning position of the element, or that position plus one in
1405 the case of an first item (respectively row) in
1406 a list (respectively a table).
1407
1408 During a synchronization, the key is the one the element had when
1409 the cache was synchronized for the last time.  Elements added to
1410 cache during the synchronization get a new key generated with
1411 `org-element--cache-generate-key'.
1412
1413 Such keys are stored in `org-element--cache-sync-keys'.  The hash
1414 table is cleared once the synchronization is complete.
1415
1416 (fn ELEMENT)
1417 (defalias 'org-element--cache-key #[257 "\302\"\206U\303\211;\203\304\305#\266\202\202 \306A@\"\266\202\211:\2041\211;\2059\307\262\202;\211@9\2059\211@\262\310>\203E\211T\202F\211    \203R\311#\202S\211\266\202\207" [org-element--cache-sync-keys org-element--cache-sync-requests gethash :begin get-text-property 0 plist-get plain-text (item table-row) puthash] 7 (#$ . 133961)])
1418 (put 'org-element--cache-key 'byte-optimizer 'byte-compile-inline-expand)
1419 #@1319 Generate a key between LOWER and UPPER.
1420
1421 LOWER and UPPER are integers or lists, possibly empty.
1422
1423 If LOWER and UPPER are equals, return LOWER.  Otherwise, return
1424 a unique key, as an integer or a list of integers, according to
1425 the following rules:
1426
1427   - LOWER and UPPER are compared level-wise until values differ.
1428
1429   - If, at a given level, LOWER and UPPER differ from more than
1430     2, the new key shares all the levels above with LOWER and
1431     gets a new level.  Its value is the mean between LOWER and
1432     UPPER:
1433
1434       (1 2) + (1 4) --> (1 3)
1435
1436   - If LOWER has no value to compare with, it is assumed that its
1437     value is `most-negative-fixnum'.  E.g.,
1438
1439       (1 1) + (1 1 2)
1440
1441     is equivalent to
1442
1443       (1 1 m) + (1 1 2)
1444
1445     where m is `most-negative-fixnum'.  Likewise, if UPPER is
1446     short of levels, the current value is `most-positive-fixnum'.
1447
1448   - If they differ from only one, the new key inherits from
1449     current LOWER level and fork it at the next level.  E.g.,
1450
1451       (2 1) + (3 3)
1452
1453     is equivalent to
1454
1455       (2 1) + (2 M)
1456
1457     where M is `most-positive-fixnum'.
1458
1459   - If the key is only one level long, it is returned as an
1460     integer:
1461
1462       (1 2) + (3 2) --> 2
1463
1464 When they are not equals, the function assumes that LOWER is
1465 lesser than UPPER, per `org-element--cache-key-less-p'.
1466
1467 (fn LOWER UPPER)
1468 (defalias 'org-element--cache-generate-key #[514 "\232\203\207\250\203C\202\250\203C\202\302\211\3032\202@\206*\2032    \2028@\2068    TW\203c\304\305\306\"\305\306\"\307\310##\311\303\203\\B\237\202]\"\266\202}W\203p\204p\312\262B\262A\262A\262\266\202$\207" [most-negative-fixnum most-positive-fixnum nil exit + ash -1 logand 1 throw t] 15 (#$ . 135185)])
1469 #@139 Non-nil if key A is less than key B.
1470 A and B are either integers or lists of integers, as returned by
1471 `org-element--cache-key'.
1472
1473 (fn A B)
1474 (defalias 'org-element--cache-key-less-p #[514 "\250\203\211\250\203W\207@X\207\211\250\203@W\207\3002Y\203R\211\203R\301\"\2038\302\300\303\"\210\202!\301\"\203G\302\300\304\"\210\202!A\262\211A\262\202!?\205X\2110\207" [exit car-less-than-car throw t nil] 5 (#$ . 136921)])
1475 (put 'org-element--cache-key-less-p 'byte-optimizer 'byte-compile-inline-expand)
1476 #@63 Non-nil when element A is located before element B.
1477
1478 (fn A B)
1479 (defalias 'org-element--cache-compare #[514 "\302\"\206V\303\211;\203\304\305#\266\202\202!\306A@\"\266\202\211:\2042\211;\205:\307\262\202<\211@9\205:\211@\262\310>\203F\211T\202G\211    \203S\311#\202T\211\266\202\262\302\"\206\256\303\211;\203q\304\305#\266\202\202y\306A@\"\266\202\211:\204\212\211;\205\222\307\262\202\224\211@9\205\222\211@\262\310>\203\236\211T\202\237\211    \203\253\311#\202\254\211\266\202\262\250\203\303\211\250\203\276W\207@X\207\211\250\203\315@W\207\3122    \203\211\203\313\"\203\350\314\312\315\"\210\202\321\313\"\203\367\314\312\316\"\210\202\321A\262\211A\262\202\321?\205\2110\207" [org-element--cache-sync-keys org-element--cache-sync-requests gethash :begin get-text-property 0 plist-get plain-text (item table-row) puthash exit car-less-than-car throw t nil] 10 (#$ . 137453)])
1480 #@93 Return root value in cache.
1481 This function assumes `org-element--cache' is a valid AVL tree.
1482 (defalias 'org-element--cache-root #[0 "\302!    >\204\303\304\305D\"\210\306H\307H\207" [org-element--cache cl-struct-avl-tree--tags type-of signal wrong-type-argument avl-tree- 1 0] 4 (#$ . 138416)])
1483 (put 'org-element--cache-root 'byte-optimizer 'byte-compile-inline-expand)
1484 #@49 Non-nil when cache is active in current buffer.
1485 (defalias 'org-element--cache-active-p #[0 "\205     \205 \302\303!\207" [org-element-use-cache org-element--cache derived-mode-p org-mode] 2 (#$ . 138793)])
1486 (put 'org-element--cache-active-p 'byte-optimizer 'byte-compile-inline-expand)
1487 #@448 Find element in cache starting at POS or before.
1488
1489 POS refers to a buffer position.
1490
1491 When optional argument SIDE is non-nil, the function checks for
1492 elements starting at or past POS instead.  If SIDE is `both', the
1493 function returns a cons cell where car is the first element
1494 starting at or before POS and cdr the first element starting
1495 after POS.
1496
1497 The function can only find elements in the synchronized part of
1498 the cache.
1499
1500 (fn POS &optional SIDE)
1501 (defalias 'org-element--cache-find #[513 "\205@\304H\305    !\n>\204\306\307\310    D\"\210    \311H\304H\312\211\203\320\313H\314\211;\2036\315\304#\266\202\202>\316A@\"\266\202\203\317 \"\206\230\314\211;\203[\315\304#\266\202\202c\316A@\"\266\202\211:\204t\211;\205|\320\262\202~\211@9\205|\211@\262\321>\203\210\211T\202\211\211\203\225\322 #\202\226\211\266\202\262\250\203\267\211\250\203\256W\266\202\202@X\266\202\202\211\250\203\305@W\266\202\202\3232\203\372\211\203\372\324\"\203\340\325\323\326\"\210\202\311\324\"\203\357\325\323\312\"\210\202\311A\262\211A\262\202\311?\205\2110\266\202\204\304H\262\202\313\211V\203 \262\304H\262\202\313\211W\2032\262\311H\262\202\313\327=\203D\262\311H\262\202\313\211:\204U\211;\205]\320\262\202_\211@9\205]\211@\262\330>\203\302\331\211;\203u\315\304#\266\202\202}\316A@\"\266\202\314\211;\203\216\315\304#\266\202\202\226\316A@\"\266\202\332\211;\203\247\315\304#\266\202\202\257\316A@\"\266\202U\205\275\312\262\211\262\211\211\262\262\204\313\312\262\262\262\266\202\327=\203\334B\202\345\204\344\202\345\211\207" [org-element--cache-sync-requests org-element--cache cl-struct-avl-tree--tags org-element--cache-sync-keys 0 type-of signal wrong-type-argument avl-tree- 1 nil 2 :begin get-text-property plist-get gethash plain-text (item table-row) puthash exit car-less-than-car throw t both (item table-row) :parent :contents-begin] 16 (#$ . 139085)])
1502 #@68 Store ELEMENT in current buffer's cache, if allowed.
1503
1504 (fn ELEMENT)
1505 (defalias 'org-element--cache-put #[257 "\205    \205\304\305!\205\n\203\375\306\307\211;\203$\310\311#\266\202\202,\312A@\"\266\202\313\"\314\315@\205\217@\316 \"\206\215\307\211;\203P\310\311#\266\202\202X\312A@\"\266\202\211:\204i\211;\205q\317\262\202s\211@9\205q\211@\262\320>\203}\211T\202~\211\n\203\212\314 #\202\213\211\266\202\262A\203\360A\316 \"\206\353\307\211;\203\256\310\311#\266\202\202\266\312A@\"\266\202\211:\204\307\211;\205\317\317\262\202\321\211@9\205\317\211@\262\320>\203\333\211T\202\334\211\n\203\350\314 #\202\351\211\266\202\262\202\370\n\205\370\n@\311H\" #\266\321    \"\207" [org-element-use-cache org-element--cache org-element--cache-sync-requests org-element--cache-sync-keys derived-mode-p org-mode org-element--cache-find :begin get-text-property 0 plist-get both puthash org-element--cache-generate-key gethash plain-text (item table-row) avl-tree-enter] 13 (#$ . 141099)])
1506 #@102 Remove ELEMENT from cache.
1507 Assume ELEMENT belongs to cache and that a cache is active.
1508
1509 (fn ELEMENT)
1510 (defalias 'org-element--cache-remove #[257 "\301\"\207" [org-element--cache avl-tree-delete] 4 (#$ . 142152)])
1511 (put 'org-element--cache-remove 'byte-optimizer 'byte-compile-inline-expand)
1512 #@66 Set idle timer for cache synchronization in BUFFER.
1513
1514 (fn BUFFER)
1515 (defalias 'org-element--cache-set-timer #[257 "\203\303!\210\304\305 \211\203\306    \"\202\n\262\307\310$\211\207" [org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time cancel-timer run-with-idle-timer current-idle-time time-add nil org-element--cache-sync] 6 (#$ . 142449)])
1516 (put 'org-element--cache-set-timer 'byte-optimizer 'byte-compile-inline-expand)
1517 #@113 Non-nil when synchronization process should be interrupted.
1518 TIME-LIMIT is a time value or nil.
1519
1520 (fn TIME-LIMIT)
1521 (defalias 'org-element--cache-interrupt-p #[257 "\211\205\300 \206\301\302 \"\207" [input-pending-p time-less-p current-time] 4 (#$ . 142926)])
1522 (put 'org-element--cache-interrupt-p 'byte-optimizer 'byte-compile-inline-expand)
1523 #@357 Shift ELEMENT properties relative to buffer positions by OFFSET.
1524
1525 Properties containing buffer positions are `:begin', `:end',
1526 `:contents-begin', `:contents-end' and `:structure'.  When
1527 optional argument PROPS is a list of keywords, only shift
1528 properties provided in that list.
1529
1530 Properties are modified by side-effect.
1531
1532 (fn ELEMENT OFFSET &optional PROPS)
1533 (defalias 'org-element--cache-shift-positions #[770 "A@\203 \300>\203x\211:\204\211;\205&\301\262\202(\211@9\205&\211@\262\302=\203x\303\304\"\211:\204A\211;\205I\301\262\202K\211@9\205I\211@\262\305=\204x\303\300\"\211\203w\211@\211\211@\\\240\266\306\233\211@\\\240\266A\266\202\202T\210\307\211\205\242\211@\203\211\211>\205\215\303\"\211\203\232\310\\#\210\210A\266\202\202y\262\207" [:structure plain-text plain-list plist-get :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put] 12 (#$ . 143276)])
1534 (put 'org-element--cache-shift-positions 'byte-optimizer 'byte-compile-inline-expand)
1535 #@600 Synchronize cache with recent modification in BUFFER.
1536
1537 When optional argument THRESHOLD is non-nil, do the
1538 synchronization for all elements starting before or at threshold,
1539 then exit.  Otherwise, synchronize cache for as long as
1540 `org-element-cache-sync-duration' or until Emacs leaves idle
1541 state.
1542
1543 FUTURE-CHANGE, when non-nil, is a buffer position where changes
1544 not registered yet in the cache are going to happen.  It is used
1545 in `org-element--cache-submit-request', where cache is partially
1546 updated before current modification are actually submitted.
1547
1548 (fn BUFFER &optional THRESHOLD FUTURE-CHANGE)
1549 (defalias 'org-element--cache-sync #[769 "\306!\205\224rq\210\307\310\211    \203\311    !\210\3122b\n\205a\n@\262\nA@\262\313\2051\314H\211?\205=\315\316  \"%\210\211\203Y\211\211\317\317H\317H\\I\266\211\320\320HI\210\nA\211\204\3100\210\n\203\214    \203p\311    !\210\321\322 \211\203~\315\f\"\202 \262\310\323$\211\262\202\220\324!)\266\203)\207" [inhibit-quit org-element--cache-sync-timer org-element--cache-sync-requests org-element-cache-sync-duration org-element-cache-sync-break org-element-cache-sync-idle-time buffer-live-p t nil cancel-timer interrupt org-element--cache-process-request 0 time-add current-time 3 2 run-with-idle-timer current-idle-time org-element--cache-sync clrhash org-element--cache-sync-keys] 14 (#$ . 144314)])
1550 #@728 Process synchronization REQUEST for all entries before NEXT.
1551
1552 REQUEST is a vector, built by `org-element--cache-submit-request'.
1553
1554 NEXT is a cache key, as returned by `org-element--cache-key'.
1555
1556 When non-nil, THRESHOLD is a buffer position.  Synchronization
1557 stops as soon as a shifted element begins after it.
1558
1559 When non-nil, TIME-LIMIT is a time value.  Synchronization stops
1560 after this time or when Emacs exits idle state.
1561
1562 When non-nil, FUTURE-CHANGE is a buffer position where changes
1563 not registered yet in the cache are going to happen.  See
1564 `org-element--cache-submit-request' for more information.
1565
1566 Throw `interrupt' if the process stops before completing the
1567 request.
1568
1569 (fn REQUEST NEXT THRESHOLD TIME-LIMIT FUTURE-CHANGE)
1570 (defalias 'org-element--cache-process-request #[1285 "\3042|\305H\306U\203\302\3072\301\211\205\310 \206\311\312 \"\262\203)\313\314\315\"\210\306H\316H\317!    >\204>\320\321\322D\"\210\323H\306H\315\211\211\203\243\316H\211\324\n\"\206\243\325\211;\203f\326\306#\266\202\202n\327A@\"\266\202\211:\204\211;\205\207\330\262\202\211\211@9\205\207\211@\262\331>\203\223\211T\202\224\211 \203\240\332\n#\202\241\211\266\202\262\211\250\203\303\211\250\203\272W\266\202\202@X\266\202\202\211\250\203\321@W\266\202\202\3332 \203\211\203\334\"\203\354\313\333\335\"\210\202\325\334\"\203\373\313\333\315\"\210\202\325A\262\211A\262\202\325?\205\f\2110\266\202\203\323H\262\202\236\250\2038\211\250\203/W\266\202\202\204@X\266\202\202\204\211\250\203F@W\266\202\202\204\3332\202\203{\211\203{\334\"\203a\313\333\335\"\210\202J\334\"\203p\313\333\315\"\210\202JA\262\211A\262\202J?\205\201\2110\266\202\203\225\262\211\262\306H\262\202\236\262\211\262\315\262\266\202F\203\267\325\211;\203\270\326\306#\266\202\202\300\327A@\"\266\202\n\2032 \250\203\343\211\250\203\332W\266\202\202/@X\266\202\202/\211\250\203\361@W\266\202\202/\3332-\203&\211\203&\334\"\203\f\313\333\335\"\210\202\365\334\"\203\313\333\315\"\210\202\365A\262\211A\262\202\365?\205,\2110\266\202\2039\211X\202i\203\234\211\203f\211=\204f\336\211;\203Y\326\306#\266\202\202a\327A@\"\266\202\262\202>\211\262\203\234\204\222\337\211;\203\201\326\306#\266\202\202\211\327A@\"\266\202V\203\222\262\340\"\266\202\263 \306I\210 \323I\210 \305\323I\210\313\307\315\"\210\210\202\274\313\304\335\"\210\266\202\210\305H\323U\203\227\306H\203X\211\250\203\356\211\250\203\345W\266\202\202:@X\266\202\202:\211\250\203\374@W\266\202\202:\33328\2031\211\2031\334\"\203\313\333\335\"\210\202\334\"\203&\313\333\315\"\210\202A\262\211A\262\202?\2057\2110\266\202\204X A@\211\306I\210\211\323\323HI\210\211\305\323I\266\313\304\335\"\210\210\323H\341H\\\203r\211V\203r\313\314\315\"\210\202\226\203\204\211Y\203\204\305\316I\210\202\226\342\335#\343I\210\305\316I\266\210\306H\341H\343H\317!    >\204\260\320\321\322D\"\210\323H\306H\315C\335\315\204\310\306U\203\310\313\304\335\"\210\203x\316H\211\324\n\"\206%\325\211;\203\350\326\306#\266\202\202\360\327A@\"\266\202\211:\204\211;\205    \330\262\202 \211@9\205    \211@\262\331>\203\211T\202\211 \203\"\332\n#\202#\211\266\202\262\203\253\306H\203\253\211    \250\203O\211\250\203FW\266\202\202\233@X\266\202\202\233\211\250\203]@W\266\202\202\233\3332\231\203\222\211\203\222\334\"\203x\313\333\335\"\210\202a\334\"\203\207\313\333\315\"\210\202aA\262\211A\262\202a?\205\230\2110\266\202\204\253B\262\306H\262\202s\211    \250\203\311\211\250\203\300W\266\202\202@X\266\202\202\211\250\203\327@W\266\202\202\3332\203\f\211\203\f\334\"\203\362\313\333\335\"\210\202\333\334\"\203\313\333\315\"\210\202\333A\262\211A\262\202\333?\205\2110\266\202\204\\\211 \232\203$\313\304\335\"\210\204=\n\211\2058\310 \2068\311\312 \"\262\203O \306I\210 \343I\210\313\314\315\"\210\306U\204\315A@\203g\344>\203\322\211:\204x\211;\205\200\330\262\202\202\211@9\205\200\211@\262\345=\203\322\327\336\"\211:\204\233\211;\205\243\330\262\202\245\211@9\205\243\211@\262\346=\204\322\327\344\"\211\203\321\211@\211\211@\\\240\266\347\233\211@\\\240\266A\266\202\202\256\210\350\211\205\374\211@\203\343\211>\205\347\327\"\211\203\364\351\\#\210\210A\266\202\202\323\262\266\325\211;\203\326\306#\266\202\202\327A@\"\266\202\203\\\337\211;\2030\326\306#\266\202\2028\327A@\"\266\202X\203\\\336\211;\203O\326\306#\266\202\202W\327A@\"\266\202\262\202\204p\306U\203p\313\304\315\"\210\202L\203L\336\211;\203\206\326\306#\266\202\202\216\327A@\"\266\202\211?\206\307\325\211;\203\244\326\306#\266\202\202\254\327A@\"\266\202\325\n\211;\203\276\326\306#\266\202\202\306\327A@\"\266\202W\262\203L\336    ;\203\340\352\315$\266\203\202\356A\351A@#\240\210\266\203\210\344\211;\203\326\306#\266\202\202    \327A@\"\266\202\211\203K\344\211;\203\326\306#\266\202\202&\327A@\"\266\202\203K\344;\203<\352\315$\266\203\202JA\351A@#\240\210\266\203\210\210\f\203[\211 V\203[\335\262\210\323H\211\262\203k\323H\202q\211A\262\242\262\266\202\310\335\266\2070\207" [org-element--cache cl-struct-avl-tree--tags org-element--cache-sync-keys org-element--cache-sync-requests quit 5 0 end-phase input-pending-p time-less-p current-time throw interrupt nil 2 type-of signal wrong-type-argument avl-tree- 1 gethash :begin get-text-property plist-get plain-text (item table-row) puthash exit car-less-than-car t :parent :end avl-tree-delete 3 org-element--parse-to 4 :structure plain-list item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put org-add-props] 26 (#$ . 145698)])
1571 #@534 Parse elements in current section, down to POS.
1572
1573 Start parsing from the closest between the last known element in
1574 cache or headline above.  Return the smallest element containing
1575 POS.
1576
1577 When optional argument SYNCP is non-nil, return the parent of the
1578 element containing POS instead.  In that case, it is also
1579 possible to provide TIME-LIMIT, which is a time value specifying
1580 when the parsing should stop.  The function throws `interrupt' if
1581 the process stopped before finding the expected result.
1582
1583 (fn POS &optional SYNCP TIME-LIMIT)
1584 (defalias 'org-element--parse-to #[769 "\3062\330\212\214~\210b\210\205    \205\307\310!\205\311\312\"\313\211;\203.\314\315#\266\202\2026\316A@\"\266\202\312\211\211\204^\317\320 \211\321 P\322 ,\203T\323\262\312y\210\324\312w\210\325 \210\202=U\203\220\326\306\203\211\327\211;\203~\314\315#\266\202\202\213\316A@\"\266\202\202\213\"\210\202=\330\317\320 \211\321 P+\317#\203\262\312y\210\324\312w\210\325 \210\323\262\202=d    U\203\300S\202\302\331\211;\203\324\314\315#\266\202\202\334\316A@\"\266\202\206\340b\210\332\211;\203\363\314\315#\266\202\202\373\316A@\"\266\202\211X\205\"\211b\205\"\327\211;\203\314\315#\266\202\202\316A@\"\266\202\211\262\262\204\342\203;m\2035\262\202;\262`\262\266\332\211;\203N\314\315#\266\202\202V\316A@\"\266\202\206k\212\317\320 \211\321 P\333 \210,`)\203\232`\nU\203\200\326\306\"\210\202\232\211\205\220\334 \206\220\335\336 \"\262\203\232\326\337\312\"\210\204\344\340\341\342\211;\203\263\314\315#\266\202\202\273\316A@\"\266\202$\262\327;\203\321\343\312$\266\203\202\337A\344A@#\240\210\266\203\210\345!\210\332\211;\203\365\314\315#\266\202\202\375\316A@\"\266\202\211:\204\211;\205\346\262\202\211@9\205\211@\262\fX\2031dU\2041b\210\347\312\"\262\202\320\211*>\204A\326\306\"\210\202\320\331\211;\203S\314\315#\266\202\202[\316A@\"\266\202\350\211;\203m\314\315#\266\202\202u\316A@\"\266\202\f\204\254\205\305\211\205\305W\204\227U\205\305\351>?\205\305\211V\204\254\211U\205\305dU\205\305\206\262b\210\312\262\347\317\"\262\262\211\211\262\266\202\204\320\326\306\"\210\266\312\262\202l\207" [org-element-use-cache org-element--cache org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol exit derived-mode-p org-mode org-element--cache-find nil :begin get-text-property 0 plist-get t org-get-limited-outline-regexp "^" outline-previous-heading planning "      \n" beginning-of-line throw :parent re-search-backward :contents-begin :end outline-next-heading input-pending-p time-less-p current-time interrupt org-element--current-element element :structure org-add-props plist-put org-element--cache-put plain-text #[514 "\211\203\300\267\202\301\207\302\207\303\207\304\207\302\207\305\207\306\207\307\267\202&\303\207\304\207\310\207\305\207\306\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (headline 10 inlinetask 12 plain-list 14 property-drawer 16 section 18 table 20)) section planning item node-property table-row nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (item 30 node-property 32 planning 34 table-row 36)) property-drawer] 4 "Return next special mode according to TYPE, or nil.\nTYPE is a symbol representing the type of an element or object\ncontaining next element if PARENTP is non-nil, or before it\notherwise.  Modes can be either `first-section', `item',\n`node-property', `planning', `property-drawer', `section',\n`table-row' or nil.\n\n(fn TYPE PARENTP)"] :contents-end (plain-list table) org-element-greater-elements] 21 (#$ . 151686)])
1585 #@273 Regexp matching a sensitive line, structure wise.
1586 A sensitive line is a headline, inlinetask, block, drawer, or
1587 latex-environment boundary.  When such a line is modified,
1588 structure changes in the document may propagate in the whole
1589 section, possibly making cache invalid.
1590 (defconst org-element--cache-sensitive-re (concat org-outline-regexp-bol #1="\\|" "\\\\end{[A-Za-z0-9*]+}[     ]*$" #1# "^[     ]*\\(?:" "#\\+\\(?:BEGIN[:_]\\|END\\(?:_\\|:?[     ]*$\\)\\)" #1# "\\\\begin{[A-Za-z0-9*]+}" #1# ":\\(?:\\w\\|[-_]\\)+:[     ]*$" "\\)") (#$ . 155503))
1591 #@99 Non-nil when a sensitive line is about to be changed.
1592 It is a symbol among nil, t and `headline'.
1593 (defvar org-element--cache-change-warning nil (#$ . 156049))
1594 #@194 Request extension of area going to be modified if needed.
1595 BEG and END are the beginning and end of the range of changed
1596 text.  See `before-change-functions' for more information.
1597
1598 (fn BEG END)
1599 (defalias 'org-element--cache-before-change #[514 "\205\\    \205\\\306\307!\205\\\212\214~\210b\210\310 \210\212\211b\210\311 )\312 \313\314\315\316\317!\320\"\321$\216\322\323 \211\324 P\325 ,\203I\311 U\203I\326\202S\322\327\322#))\262\211\262*\207" [org-element-use-cache org-element--cache org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol derived-mode-p org-mode beginning-of-line line-end-position match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t org-get-limited-outline-regexp "^" org-at-heading-p headline re-search-forward case-fold-search org-element--cache-sensitive-re org-element--cache-change-warning] 11 (#$ . 156215)])
1600 #@258 Update buffer modifications for current buffer.
1601 BEG and END are the beginning and end of the range of changed
1602 text, and the length in bytes of the pre-change text replaced by
1603 that range.  See `after-change-functions' for more information.
1604
1605 (fn BEG END PRE)
1606 (defalias 'org-element--cache-after-change #[771 "\205\303    \205\303\306\307!\205\303\212\214~\210b\210\310 \210\311 \312\313\314\315\316!\317\"\320$\216`\212b\210\321 )\n\322\267\202Q\202^\323\324 \211\325\fP\"\326 ,\205M\321 U?\202[\323#\327$\323#)\203\211\323\324 \211\325\fP\"b\210\330 \203u\331y\210`\262\211b\210\332 \203\205`S\202\206`\262,\333#\334Z#\266)\210*p%\203\247\335%!\210\336\337 \211\203\266\340&\"\202\270'\262\331\341$\211%\262\207" [org-element-use-cache org-element--cache org-element--cache-change-warning org-called-with-limited-levels org-outline-regexp outline-regexp derived-mode-p org-mode beginning-of-line match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 line-end-position #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 52 headline 55)) t org-get-limited-outline-regexp "^" org-at-heading-p re-search-forward outline-previous-heading nil outline-next-heading - org-element--cache-submit-request cancel-timer run-with-idle-timer current-idle-time time-add org-element--cache-sync org-outline-regexp-bol case-fold-search org-element--cache-sensitive-re org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time] 12 (#$ . 157155)])
1607 #@416 Return first element to remove from cache.
1608
1609 BEG and END are buffer positions delimiting buffer modifications.
1610 OFFSET is the size of the changes.
1611
1612 Returned element is usually the first element in cache containing
1613 any position between BEG and END.  As an exception, greater
1614 elements around the changes that are robust to contents
1615 modifications are preserved and updated according to the
1616 changes.
1617
1618 (fn BEG END OFFSET)
1619 (defalias 'org-element--cache-for-removal #[771 "\300S\301\"\211@A\204\211\202\243\302\203y\211:\204(\211;\2050\303\262\2022\211@9\2050\211@\262\211\304>\204]\211\305=\205\237\306\211;\203O\307\310#\266\202\202W\311A@\"\266\202\312\230?\205\237\313\211;\203n\307\310#\266\202\202v\311A@\"\266\202\211\205\235\211\nX\205\235\314\211;\203\222\307\310#\266\202\202\232\311A@\"\266\202    V\262\262\203Q\315A@\203\265\316>\203 \211:\204\306\211;\205\316\303\262\202\320\211@9\205\316\211@\262\317=\203 \311\320\"\211:\204\351\211;\205\361\303\262\202\363\211@9\205\361\211@\262\321=\204 \311\316\"\211\203\211@\211\211@\\\240\266\322\233\211@\\\240\266A\266\202\202\374\210\323\211\205J\211@\2031\211>\2055\311\"\211\203B\324\\#\210\210A\266\202\202!\262\266\202[\262\211\203[\325\262\320\211;\203l\307\310#\266\202\202t\311A@\"\266\202\262\202\326\211;\203\212\307\310#\266\202\202\222\311A@\"\266\202W\204\234\211\203\240\202\241\266\202\207" [org-element--cache-find both t plain-text (center-block dynamic-block quote-block special-block) drawer :drawer-name get-text-property 0 plist-get "PROPERTIES" :contents-begin :contents-end (:contents-end :end) :structure plain-list :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put nil :end] 20 (#$ . 158748)])
1620 #@232 Submit a new cache synchronization request for current buffer.
1621 BEG and END are buffer positions delimiting the minimal area
1622 where cache data should be removed.  OFFSET is the size of the
1623 change, as an integer.
1624
1625 (fn BEG END OFFSET)
1626 (defalias 'org-element--cache-submit-request #[771 "@\302\211\203\264\303H\304U\203\264\305H\306H\\\211\262V\203\264\307H\211\262X\203\264\211\306\306H\\I\266V\203\310H\211\205\n\211\311A@\203S\312>\203\276\211:\204d\211;\205l\313\262\202n\211@9\205l\211@\262\314=\203\276\315\316\"\211:\204\207\211;\205\217\313\262\202\221\211@9\205\217\211@\262\317=\204\276\315\312\"\211\203\275\211@\211\211@\\\240\266\320\233\211@\\\240\266A\266\202\202\232\210\321\211\205\350\211@\203\317\211>\205\323\315\"\211\203\340\322\\#\210\210A\266\202\202\277\262\266\316\211;\203\375\323\304#\266\202\202\315A@\"\266\202\262\202?\262\202'\324#\211\205\257\304\325    \"\206r\326\211;\2035\323\304#\266\202\202=\315A@\"\266\202\211:\204N\211;\205V\313\262\202X\211@9\205V\211@\262\327>\203b\211T\202c\211\203o\330    #\202p\211\266\202\262I\210\307\326\211;\203\211\323\304#\266\202\202\221\315A@\"\266\202I\210\310\316\211;\203\246\323\304#\266\202\202\256\315A@\"\266\202I\262\202'\203\300\331p#\210\324#\211\203\326\211;\203\335\323\304#\266\202\202\345\315A@\"\266\202\325    \"\206;\326\211;\203\376\323\304#\266\202\202\315A@\"\266\202\211:\204\211;\205\313\262\202!\211@9\205\211@\262\327>\203+\211T\202,\211\2038\330    #\2029\211\266\202\262V\203Q\332\302\n\302\307&\202 \333\211;\203b\323\304#\266\202\202j\315A@\"\266\202\211    V\205|\332 \304&\262\206 \334!\333\211;\203\226\323\304#\266\202\202\236\315A@\"\266\202\316\211;\203\260\323\304#\266\202\202\270\315A@\"\266\202\211\262\203\375\326\211;\203\317\323\304#\266\202\202\327\315A@\"\266\202Y\203\375\333\211;\203\355\323\304#\266\202\202\365\315A@\"\266\202\262\211\262\202\237\332 \304&\266\203\266\202B\211\202%\205%@\211\306\306H\\I\262\262\207" [org-element--cache-sync-requests org-element--cache-sync-keys nil 5 0 2 3 1 4 (:contents-end :end) :structure plain-text plain-list plist-get :parent item 6 (:begin :contents-begin :contents-end :end :post-affiliated) plist-put get-text-property org-element--cache-for-removal gethash :begin (item table-row) puthash org-element--cache-sync vector :end org-element--cache-find] 19 (#$ . 160588)])
1627 #@123 Reset cache in current buffer.
1628 When optional argument ALL is non-nil, reset cache in all Org
1629 buffers.
1630
1631 (fn &optional ALL)
1632 (defalias 'org-element-cache-reset #[256 "\211\203    \306 \202 pC\211\205a\211@r\211q\210\203Y\307\310!\203Y\311\301!\210\312\313\314\315\211\211\316$\317#\311\302!\210\320\321\322\323\324$\311\303!\210\315\311\304!\210\315\311\305!\210\315\325\326\327\315\330$\210\325\331\332\315\330$\210)A\266\202\202 \207" [org-element-use-cache org-element--cache org-element--cache-sync-keys org-element--cache-change-warning org-element--cache-sync-requests org-element--cache-sync-timer buffer-list derived-mode-p org-mode make-local-variable record avl-tree- vector nil 0 org-element--cache-compare make-hash-table :weakness key :test eq add-hook before-change-functions org-element--cache-before-change t after-change-functions org-element--cache-after-change] 10 (#$ . 163184) "P"])
1633 #@42 Refresh cache at position POS.
1634
1635 (fn POS)
1636 (defalias 'org-element-cache-refresh #[257 "\205;    \205;\305\306!\205;\307p\"\210\310\211\311#\210p\n\203\"\312\n!\210\313\314 \211\2030\315 \"\2021\f\262\316\307$\211\262\207" [org-element-use-cache org-element--cache org-element--cache-sync-timer org-element-cache-sync-break org-element-cache-sync-idle-time derived-mode-p org-mode org-element--cache-sync org-element--cache-submit-request 0 cancel-timer run-with-idle-timer current-idle-time time-add nil] 7 (#$ . 164101)])
1637 #@726 Determine closest element around point.
1638
1639 Return value is a list like (TYPE PROPS) where TYPE is the type
1640 of the element and PROPS a plist of properties associated to the
1641 element.
1642
1643 Possible types are defined in `org-element-all-elements'.
1644 Properties depend on element or object type, but always include
1645 `:begin', `:end', `:parent' and `:post-blank' properties.
1646
1647 As a special case, if point is at the very beginning of the first
1648 item in a list or sub-list, returned element will be that list
1649 instead of the item.  Likewise, if point is at the beginning of
1650 the first row of a table, returned element will be the table
1651 instead of the first row.
1652
1653 When point is at the end of the buffer, return the innermost
1654 element ending there.
1655 (defalias 'org-element-at-point #[0 "\212\214~\210`\306\210\307\306x\210o\203\306\202O\310\311 \211\312    P\313 ,\203/\314 \210\315d\310\"\202O\f\203L \203L\316\317!\203L \204G\320 \210\202L\321p\"\210\322!\262*\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-element-use-cache org-element--cache nil "      \n" t org-get-limited-outline-regexp "^" org-at-heading-p beginning-of-line org-element-headline-parser derived-mode-p org-mode org-element-cache-reset org-element--cache-sync org-element--parse-to] 5 (#$ . 164640)])
1656 #@701 Return smallest element or object around point.
1657
1658 Return value is a list like (TYPE PROPS) where TYPE is the type
1659 of the element or object and PROPS a plist of properties
1660 associated to it.
1661
1662 Possible types are defined in `org-element-all-elements' and
1663 `org-element-all-objects'.  Properties depend on element or
1664 object type, but always include `:begin', `:end', `:parent' and
1665 `:post-blank'.
1666
1667 As a special case, if point is right after an object and not at
1668 the beginning of any other object, return that object.
1669
1670 Optional argument ELEMENT, when non-nil, is the closest element
1671 containing point, as returned by `org-element-at-point'.
1672 Providing it allows for quicker computation.
1673
1674 (fn &optional ELEMENT)
1675 (defalias 'org-element-context #[256 "\30629\212\214~\210`\206\307 \211\211:\204 \211;\205(\310\262\202*\211@9\205(\211@\262\311\211;\203;\312\313#\266\202\202C\314A@\"\266\202\211\203\237W\203\237\315 \210\316\317    !\210)\320\321\322!\n\"\204h\323\306\"\210\202\231\313\225W\203x\313\225\324 }\210\202\231\325\224\203\224\325\224Y\203\224\325\225W\203\224\325\224\325\225}\210\202\231\323\306\"\210\326\262\202\303\327=\203\374\330\211;\203\266\312\313#\266\202\202\276\314A@\"\266\202\211\203\311\331 U\204\321\323\306\"\210\202\370\315 \210\332\324 \"\210\313\224b\210`Y\203\363\313\225W\203\363`\313\225}\210\202\370\323\306\"\210\210\202\303\333>\203V\334\335\211;\203\312\313#\266\202\202\314A@\"\266\202b\210\317 !\210\336\225\211\2041\323\306\"\210\202Q\336\224b\210\317\f!\203?\313\225b\210`Y\203M\323\306\"\210\202Q`}\210\210)\202\303\337>\203\276\340\211;\203m\312\313#\266\202\202u\314A@\"\266\202\341\211;\203\206\312\313#\266\202\202\216\314A@\"\266\202\203\263\211\203\263Y\203\263W\204\254U\203\263m\203\263}\210\202\271\323\306\"\210\266\202\303\323\306\"\210eb\210\2119\203\320\211\202\353\211\211:\204\341\211;\205\351\310\262\202\353\211@9\205\351\211@\262 \236A\262\334\34223\343!\211\203\211\344;\203\345\334$\266\203\202A\346A@#\240\210\266\203\210\211\203B\335\211;\2034\312\313#\266\202\202<\314A@\"\266\202V\203N\323\342\206I\"\210\202/\347\211;\203_\312\313#\266\202\202g\314A@\"\266\202\340\211;\203x\312\313#\266\202\202\200\314A@\"\266\202\341\211;\203\221\312\313#\266\202\202\231\314A@\"\266\202 X\203\276dU\204\276b\210 U\203-`Sf\350>\204-\262\202-\203(\211\203(\nY\203(\nW\204\357\nU\203(d U\204\357\n\206\350`Sf\351>\204(b\210`}\210\262\2119\203\211\202\211\211:\204\211;\205\310\262\202\211@9\205\211@\262 \236A\262\262\202-\323\342\"\210\266\210\202\366\266\203\266\204*0\207" [case-fold-search org-element--affiliated-re org-element-parsed-keywords org-complex-heading-regexp org-comment-string org-element-object-restrictions objects-forbidden org-element-at-point plain-text :post-affiliated get-text-property 0 plist-get beginning-of-line t looking-at member-ignore-case match-string 1 throw line-end-position 2 keyword item :tag line-beginning-position search-forward (headline inlinetask) nil :begin 4 (paragraph table-row verse-block) :contents-begin :contents-end exit org-element--object-lex :parent org-add-props plist-put :end (32 9) (32 9)] 17 (#$ . 165960)])
1676 #@587 List all ancestors of a given element or object.
1677
1678 BLOB is an object or element.
1679
1680 When optional argument TYPES is a list of symbols, return the
1681 first element or object in the lineage whose type belongs to that
1682 list.
1683
1684 When optional argument WITH-SELF is non-nil, lineage includes
1685 BLOB itself as the first element, and TYPES, if provided, also
1686 apply to it.
1687
1688 When BLOB is obtained through `org-element-context' or
1689 `org-element-at-point', only ancestors from its section can be
1690 found.  There is no such limitation when BLOB belongs to a full
1691 parse tree.
1692
1693 (fn BLOB &optional TYPES WITH-SELF)
1694 (defalias 'org-element-lineage #[769 "\211\203\202!\300\211;\203\301\302#\266\202\202!\303A@\"\266\202\304\203m\211:\2047\211;\205?\305\262\202A\211@9\205?\211@\262>\204m\204OB\262\300\211;\203`\301\302#\266\202\202h\303A@\"\266\202\262\202\"\203u\202w\211\237\207" [:parent get-text-property 0 plist-get nil plain-text] 11 (#$ . 169313)])
1695 #@73 Non-nil when elements ELEM-A and ELEM-B are nested.
1696
1697 (fn ELEM-A ELEM-B)
1698 (defalias 'org-element-nested-p #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202\300\211;\203*\301\302#\266\202\2022\303A@\"\266\202\304\211;\203C\301\302#\266\202\202K\303A@\"\266\202\304\211;\203\\\301\302#\266\202\202d\303A@\"\266\202Y\203pX\206yY\205y\211X\207" [:begin get-text-property 0 plist-get :end] 11 (#$ . 170286)])
1699 #@134 Swap elements ELEM-A and ELEM-B.
1700 Assume ELEM-B is after ELEM-A in the buffer.  Leave point at the
1701 end of ELEM-A.
1702
1703 (fn ELEM-A ELEM-B)
1704 (defalias 'org-element-swap-A-B #[514 "\300\211;\203\301\302#\266\202\202\303A@\"\266\202b\210n?\211\203{\211:\2042\211;\205:\304\262\202<\211@9\205:\211@\262\305=\203w\300\211;\203R\301\302#\266\202\202Z\303A@\"\266\202\306\211;\203k\301\302#\266\202\202s\303A@\"\266\202U\204{\307\310!\210\211\205\234\300\211;\203\220\301\302#\266\202\202\230\303A@\"\266\202b\210\311 \300\211;\203\255\301\302#\266\202\202\265\303A@\"\266\202\212\312\211;\203\307\301\302#\266\202\202\317\303A@\"\266\202b\210\313\314x\210\315 )\300\211;\203\351\301\302#\266\202\202\361\303A@\"\266\202\212\312\211;\203\301\302#\266\202\202\f\303A@\"\266\202b\210\313\314x\210\315 )\316\314\317\320\321\322\323\324  \"\325\"\326\327%\330\"\"\"\316\314\317\320\321\322\323\324\n\n\"\331\"\326\327%\330\"\"\"B{\332\"b\210\203d\333\334\335#\262j\210c\210Z@\211\203\212\211@\336@A@\\\3378\\#\210A\266\202\202m\210b\210|\210c\210A\211\203\267\211@\336@A@Z\3378Z#\210A\266\202\202\232\266\312\n\211;\203\313\301\302#\266\202\202\323\303A@\"\266\202b\266\210\207" [:begin get-text-property 0 plist-get plain-text paragraph :contents-begin error "Cannot swap elements" org-get-indentation :end "      \n" nil point-at-eol delq mapcar make-byte-code 257 "\302!\300Y\205\303!\301X\205\211\302!\303!E\207" vconcat vector [overlay-start overlay-end] 5 "\n\n(fn O)" overlays-in [overlay-start overlay-end] delete-and-extract-region replace-regexp-in-string "\\`[     ]*" "" move-overlay 2] 19 (#$ . 170743)])
1705 (provide 'org-element)