ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-element.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'org)
#@228 Regexp to separate paragraphs in an Org buffer.
In the case of lines starting with "#" and ":", this regexp
is not sufficient to know if point is at a paragraph ending. See
`org-element-paragraph-parser' for more information.
(defconst org-element-paragraph-separate (byte-code "\306\307\310\307\311\307\312\313\307\314\307\315\307\316\307\317\307\320\307\321 \n \fF!\307\322
\323\"\203' \324\2023 \322
\325\"\2032 \326\2023 \327 \2059 \330 \331 \332 \332\333\260*\334\260\207" [org-outline-regexp org-scheduled-string org-deadline-string org-closed-string org-clock-string org-plain-list-ordered-item-terminator "^\\(?:" "\\|" "\\[\\(?:[0-9]+\\|fn:[-_[:word:]]+\\)\\]" "%%(" "[ ]*\\(?:" "$" "\\(?:|\\|\\+-[-+]\\)" "#\\(?:[+ ]\\|$\\)" ":" "-\\{5,\\}[ ]*$" "\\\\begin{\\([A-Za-z0-9]+\\*?\\)}" regexp-opt eql 41 ")" 46 "\\." "[.)]" "\\|[A-Za-z]" "\\(?:[-+*]\\|\\(?:[0-9]+" "\\)" "\\(?:[ ]\\|$\\)" "\\)\\)" org-list-allow-alphabetical alpha term] 28) (#$ . 426))
#@33 Complete list of element types.
(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 quote-section section special-block src-block table table-row verse-block) (#$ . 1405))
#@55 List of recursive element types aka Greater Elements.
(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) (#$ . 1850))
#@30 Complete list of successors.
(defconst org-element-all-successors '(link export-snippet footnote-reference inline-babel-call inline-src-block latex-or-entity line-break macro plain-link radio-target statistics-cookie sub/superscript table-cell target text-markup timestamp) (#$ . 2111))
#@185 Alist of translations between object type and successor name.
Sharing the same successor comes handy when, for example, the
regexp matching one object can also match the other object.
(defconst org-element-object-successor-alist '((subscript . sub/superscript) (superscript . sub/superscript) (bold . text-markup) (code . text-markup) (italic . text-markup) (strike-through . text-markup) (underline . text-markup) (verbatim . text-markup) (entity . latex-or-entity) (latex-fragment . latex-or-entity)) (#$ . 2405))
#@32 Complete list of object types.
(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) (#$ . 2927))
#@33 List of recursive object types.
(defconst org-element-recursive-objects '(bold italic link subscript radio-target strike-through superscript table-cell underline) (#$ . 3259))
#@181 Alist between block names and the associated parsing function.
Names must be uppercase. Any block whose name has no association
is parsed with `org-element-special-block-parser'.
(defvar org-element-block-name-alist '(("CENTER" . org-element-center-block-parser) ("COMMENT" . org-element-comment-block-parser) ("EXAMPLE" . org-element-example-block-parser) ("QUOTE" . org-element-quote-block-parser) ("SRC" . org-element-src-block-parser) ("VERSE" . org-element-verse-block-parser)) (#$ . 3442))
#@127 List of link types equivalent to "file".
Only these types can accept search options and an explicit
application to open them.
(defconst org-element-link-type-is-file '("file" "file+emacs" "file+sys" "docview") (#$ . 3946))
#@163 List of affiliated keywords as strings.
By default, all keywords setting attributes (e.g., "ATTR_LATEX")
are affiliated keywords and need not to be in this list.
(defconst org-element-affiliated-keywords '("CAPTION" "DATA" "HEADER" "HEADERS" "LABEL" "NAME" "PLOT" "RESNAME" "RESULT" "RESULTS" "SOURCE" "SRCNAME" "TBLNAME") (#$ . 4176))
#@169 Alist of usual translations for keywords.
The key is the old name and the value the new one. The property
holding their value will be named after the translated name.
(defconst org-element-keyword-translation-alist '(("DATA" . "NAME") ("LABEL" . "NAME") ("RESNAME" . "NAME") ("SOURCE" . "NAME") ("SRCNAME" . "NAME") ("TBLNAME" . "NAME") ("RESULT" . "RESULTS") ("HEADERS" . "HEADER")) (#$ . 4519))
#@411 List of affiliated keywords that can occur more than once in an element.
Their value will be consed into a list of strings, which will be
returned as the value of the property.
This list is checked after translations have been applied. See
`org-element-keyword-translation-alist'.
By default, all keywords setting attributes (e.g., "ATTR_LATEX")
allow multiple occurrences and need not to be in this list.
(defconst org-element-multiple-keywords '("CAPTION" "HEADER") (#$ . 4924))
#@244 List of affiliated keywords whose value can be parsed.
Their value will be stored as a secondary string: a list of
strings and objects.
This list is checked after translations have been applied. See
`org-element-keyword-translation-alist'.
(defconst org-element-parsed-keywords '("CAPTION") (#$ . 5416))
#@377 List of affiliated keywords which can have a secondary value.
In Org syntax, they can be written with optional square brackets
before the colons. For example, RESULTS keyword can be
associated to a hash value with the following:
#+RESULTS[hash-string]: some-source
This list is checked after translations have been applied. See
`org-element-keyword-translation-alist'.
(defconst org-element-dual-keywords '("CAPTION" "RESULTS") (#$ . 5730))
#@140 List of properties associated to the whole document.
Any keyword in this list will have its value parsed and stored as
a secondary string.
(defconst org-element-document-properties '("AUTHOR" "DATE" "TITLE") (#$ . 6185))
#@244 Regexp matching any affiliated keyword.
Keyword name is put in match group 1. Moreover, if keyword
belongs to `org-element-dual-keywords', put the dual value in
match group 2.
Don't modify it, set `org-element-affiliated-keywords' instead.
(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\\)" org-remove-if #[(keyword) " \235\207" [keyword org-element-dual-keywords] 2] "\\(?1:ATTR_[-_A-Za-z0-9]+\\)"] 10) (#$ . 6413))
#@495 Alist of objects restrictions.
CAR is an element or object type containing objects and CDR is
a list of successors that will be called within an element or
object of such type.
For example, in a `radio-target' object, one can only find
entities, latex-fragments, subscript, superscript and text
markup.
This alist also applies to secondary string. For example, an
`headline' type element doesn't directly contain objects, but
still has an entry since one of its properties (`:title') does.
(defconst org-element-object-restrictions (byte-code "\303\304\303\305\"\"\303\306 \"\307 B\310 B\311\nB\312\nB\313 B\314\nB\315 B\316\317 B\320\321 B\322 B\323 B\324\325\326 B\327 B\257*\207" [org-element-all-successors standard-set standard-set-no-line-break remq plain-link table-cell line-break bold footnote-reference headline inlinetask italic item keyword (link export-snippet inline-babel-call inline-src-block latex-or-entity macro plain-link statistics-cookie sub/superscript text-markup) paragraph (radio-target latex-or-entity sub/superscript text-markup) strike-through subscript superscript (table-cell link export-snippet footnote-reference latex-or-entity macro radio-target sub/superscript target text-markup timestamp) (table-row table-cell) underline verse-block] 18) (#$ . 7084))
#@62 Alist between element types and location of secondary value.
(defconst org-element-secondary-value-alist '((headline . :title) (inlinetask . :title) (item . :tag) (footnote-reference . :inline-definition)) (#$ . 8388))
#@258 Return type of ELEMENT.
The function returns the type of the element or object provided.
It can also return the following special value:
`plain-text' for a string
`org-data' for a complete document
nil in any other case.
(defalias 'org-element-type #[(element) ":\204\f ;\205 \301\207@9\205 @\207" [element plain-text] 1 (#$ . 8614)])
(put 'org-element-type 'byte-optimizer 'byte-compile-inline-expand)
#@52 Extract the value from the PROPERTY of an ELEMENT.
(defalias 'org-element-property #[(property element) ";\203 \302\303 #\207\304A@ \"\207" [element property get-text-property 0 plist-get] 4 (#$ . 9065)])
(put 'org-element-property 'byte-optimizer 'byte-compile-inline-expand)
#@35 Extract contents from an ELEMENT.
(defalias 'org-element-contents #[(element) ":\204 \301\207@9\203 AA\207\207" [element nil] 1 (#$ . 9352)])
(put 'org-element-contents 'byte-optimizer 'byte-compile-inline-expand)
#@132 Return restriction associated to ELEMENT.
ELEMENT can be an element, an object or a symbol representing an
element or object type.
(defalias 'org-element-restriction #[(element) "9\203 \202\" \211:\204 ;\205! \302\202! @9\205! @) \236A\207" [element org-element-object-restrictions plain-text] 3 (#$ . 9579)])
(put 'org-element-restriction 'byte-optimizer 'byte-compile-inline-expand)
#@60 In ELEMENT set PROPERTY to VALUE.
Return modified element.
(defalias 'org-element-put-property #[(element property value) ";\203\f \303\304 \n$\207A\305A@ \n#\240\210\207" [element property value org-add-props nil plist-put] 5 (#$ . 9979)])
(put 'org-element-put-property 'byte-optimizer 'byte-compile-inline-expand)
#@60 Set ELEMENT contents to CONTENTS.
Return modified element.
(defalias 'org-element-set-contents #[(element &rest contents) "\204 C\207@9\204 \207A\203 A \241\207 \244\207" [element contents] 2 (#$ . 10307)])
(put 'org-element-set-contents 'byte-optimizer 'byte-compile-inline-expand)
#@122 Replace element or object OLD with element or object NEW.
The function takes care of setting `:parent' property for NEW.
(defalias 'org-element-set-element #[(old new) "\305\306\211:\204
\307\202 @9\203 AA\202 )\"\210\310\311\n\211:\204+ \307\2028 @9\2037 AA\2028 )#\210\312\211\n ;\203N \313\314 #\202T \315 A@ \"* \211;\203f \316 \307 \f$\202r A\317 A@ \f#\240\210 +\210\nAA@\240\210\n@\240\207" [new element old property value mapc #[(blob) "\305 \211 ;\203 \306\f\307 \n$\202 \fA\310\fA@ \n#\240\210\f+\207" [blob old value property element :parent org-add-props nil plist-put] 6] nil apply org-element-set-contents :parent get-text-property 0 plist-get org-add-props plist-put] 7 (#$ . 10607)])
(put 'org-element-set-element 'byte-optimizer 'byte-compile-inline-expand)
#@225 Append elements to the contents of another element.
PARENT is an element or object. CHILDREN can be elements,
objects, or a strings.
The function takes care of setting `:parent' property for CHILD.
Return parent element.
(defalias 'org-element-adopt-elements #[(parent &rest children) "\303\304\"\210 \203) \305\306 \211\211:\204 \307\202$ \n@9\203# \nAA\202$ \n)\244#\210 \206. \207" [children parent element mapc #[(child) "\306 \206 \n \211 ;\203 \307
\310\f $\202$
A\311
A@\f #\240\210
+\207" [child parent children value property element :parent org-add-props nil plist-put] 6] apply org-element-set-contents nil] 5 (#$ . 11417)])
(put 'org-element-adopt-elements 'byte-optimizer 'byte-compile-inline-expand)
#@456 Parse a center block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `center-block' and CDR is a plist
containing `:begin', `:end', `:hiddenp', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the block.
(defalias 'org-element-center-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202m \312\224\n@ ` \313y\210` W\205% `\211 \205, \314 b\210\313y\210` \212\315 w\210m\203H `\202J \316 ) \317\320\f\321 \322\323\324\325\326 \"\327
\257\nA\244.D)\207" [case-fold-search limit affiliated block-end-line begin post-affiliated t re-search-forward "^[ ]*#\\+END_CENTER[ ]*$" org-element-paragraph-parser 0 nil org-invisible-p2 "
\n" line-beginning-position center-block :begin :end :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated contents-begin contents-end hidden pos-before-blank end] 16 (#$ . 12151)])
#@88 Interpret CENTER-BLOCK element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-center-block-interpreter #[(center-block contents) "\301\302\"\207" [contents format "#+BEGIN_CENTER\n%s#+END_CENTER"] 3 (#$ . 13292)])
#@453 Parse a drawer.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `drawer' and CDR is a plist containing
`:drawer-name', `:begin', `:end', `:hiddenp', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at beginning of drawer.
(defalias 'org-element-drawer-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202\204 \212\312\224\313\f!\210\314\315 \316
\"* \n@ ` \315y\210` W\2059 `\211 \205@ !\317 \" b\210\315y\210` #\320 w\210m\203[ `\202] \321 $\322\323 \324$\325 \326\"\327 \330!\331\332#$\"\333 \257\nA\244.\nD)\207" [case-fold-search limit affiliated drawer-end-line org-drawer-regexp string t re-search-forward "^[ ]*:END:[ ]*$" org-element-paragraph-parser 0 looking-at 1 nil match-string-no-properties org-invisible-p2 "
\n" line-beginning-position drawer :begin :end :drawer-name :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated num name begin post-affiliated contents-begin contents-end hidden pos-before-blank end] 18 (#$ . 13546)])
#@82 Interpret DRAWER element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-drawer-interpreter #[(drawer contents) "\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"* #\207" [drawer element property contents format ":%s:\n%s:END:" :drawer-name get-text-property 0 plist-get] 6 (#$ . 14799)])
#@487 Parse a dynamic block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `dynamic-block' and CDR is a plist
containing `:block-name', `:begin', `:end', `:hiddenp',
`:contents-begin', `:contents-end', `:arguments', `:post-blank'
and `:post-affiliated' keywords.
Assume point is at beginning of dynamic block.
(defalias 'org-element-dynamic-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202\224 \312\224\212\313\f!\210\314\315 \316
\"* \317\315 \316
\"* \n@ !` \"\315y\210` W\205F `\211 #\205M $\320 % b\210\315y\210` &\321 w\210m\203h `\202j \322 '\323\324!\325'\326 \327 \330%\331#\332$\333\334&'\"\335\"\257\nA\244. D)\207" [case-fold-search limit affiliated block-end-line org-dblock-start-re string t re-search-forward "^[ ]*#\\+END:?[ ]*$" org-element-paragraph-parser 0 looking-at 1 nil match-string-no-properties 3 org-invisible-p2 "
\n" line-beginning-position dynamic-block :begin :end :block-name :arguments :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated num name arguments begin post-affiliated contents-begin contents-end hidden pos-before-blank end] 20 (#$ . 15129)])
#@89 Interpret DYNAMIC-BLOCK element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-dynamic-block-interpreter #[(dynamic-block contents) "\305\306\307 ;\203 \310\311\n #\202 \312 A@\n\"*\313 ;\203+ \310\311\n #\2021 \312 A@\n\"*\211\205: \314 P)\f$\207" [dynamic-block element property args contents format "#+BEGIN: %s%s\n%s#+END:" :block-name get-text-property 0 plist-get :arguments " "] 8 (#$ . 16485)])
#@481 Parse a footnote definition.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `footnote-definition' and CDR is
a plist containing `:label', `:begin' `:end', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the footnote definition.
(defalias 'org-element-footnote-definition-parser #[(limit affiliated) "\212\306!\210\307\310\311\n \"*\f@ ` \212\310\210\312 \313\313\314\260 \315#\203. \316\224\202/ `) \317\320!\210\321 w\210` U\203F \310\202S \322
U\203Q `\202S \322 \211 \205[ ! b\210\321 w\210m\203n `\202p \322 \"\323\324 \325
\326\"\327 \330!\331\332 \"\"\333 \257\fA\244.D\207" [org-footnote-definition-re string num label affiliated begin looking-at 1 nil match-string-no-properties re-search-forward "\\|" "^\\([ ]*\n\\)\\{2,\\}" move 0 search-forward "]" "
\n" line-beginning-position footnote-definition :label :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated post-affiliated org-outline-regexp-bol limit ending contents-begin contents-end end] 16 (#$ . 16936)])
#@107 Interpret FOOTNOTE-DEFINITION element as Org syntax.
CONTENTS is the contents of the footnote-definition.
(defalias 'org-element-footnote-definition-interpreter #[(footnote-definition contents) "\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*\"\312 Q\207" [footnote-definition element property contents format "[%s]" :label get-text-property 0 plist-get " "] 6 (#$ . 18231)])
#@768 Parse a headline.
Return a list whose CAR is `headline' and CDR is a plist
containing `:raw-value', `:title', `:alt-title', `:begin',
`:end', `:pre-blank', `:hiddenp', `:contents-begin',
`:contents-end', `:level', `:priority', `:tags',
`:todo-keyword',`:todo-type', `:scheduled', `:deadline',
`:closed', `:quotedp', `:archivedp', `:commentedp',
`:footnote-section-p' and `:post-blank' keywords.
The plist also contains any property set in the property drawer,
with its name in upper cases and colons added at the
beginning (e.g., `:CUSTOM_ID').
LIMIT is a buffer position bounding the search.
When RAW-SECONDARY-P is non-nil, headline's title will not be
parsed as a secondary string, but as a plain string instead.
Assume point is at beginning of the headline.
(defalias 'org-element-headline-parser #[(limit &optional raw-secondary-p) "\212\306 \211A@\3078\211\205 \n \235\203 \310\202 \302 \3118\211 \205( \312
\313\") @\3148\2062 \315 A\316 B\317\320\321C\"A\") D\316 B\317\320\321E\"A\") FG@\235 HI\205c IA\230 J\316 K\322\323\324\316\325\"\"\210K) L\212\316y\210\326M!\205\331 \327 \316 K N\330ON\331#\203\326 \332\225b\210\333\316w\210\334\332!\335 P\211 QR\232\203\265 \336K\337P#K\202\322 QS\232\203\311 \336K\340P#K\202\322 \336K\341P#K*\202\207 K*) T` U\212\342\331\211\")V^ N\316y\210` W\212\343Nw\210`NU?\205 \344 ) X\345 YX\205Nb\210\343\316x\210\316y\210` ZD\204$F\2038\316 B\346\347CED!\350P\315A#A)H\203E\351G@\"@\352\353A\354U\355N\356X\204Y\357\202_\360WX\"\361Y\362X\363Z\364 \365\3668\367@\370\n\371\f\372\360Z\206~WN\"\373J\374H\375F\376D\257\"T\244L\244D *\377* [ \\[;\203\261\201a \357\\[#\202\273\201b [A@\\\"*\211 ]\2037*\201c ^\203\321]\202 \201d ]\352\211 [9\203\343[\202[\211 [:\204\370[;\205\201e \202[@9\205[@)_\236A)*# ` \\\211 [;\203$\201f [\316\\`$\2025[A\336[A@\\`#\240\210[+\210)*\201g ^\203GA\202\201\201d A\352\211 [9\203Y[\202y[\211 [:\204n[;\205x\201e \202x[@9\205x[@)_\236A)*# ` \\\211 [;\203\232\201f [\316\\`$\202\253[A\336[A@\\`#\240\210[.\207" [components level todo org-done-keywords todo-type raw-tags org-heading-components 2 done 5 org-split-string ":" 4 "" nil string-match format "^%s\\( \\|$\\)" mapc #[(p) "\302\303\304 @\226P! A#\211\207" [plist p plist-put intern ":"] 5] org-entry-properties standard looking-at line-end-position re-search-forward t 1 " " match-string org-element-timestamp-parser plist-put :scheduled :deadline :closed org-end-of-subtree "
\n" line-beginning-position org-invisible-p2 replace-regexp-in-string regexp-opt "\\(?: \\|$\\)" delete headline :raw-value :begin :end :pre-blank 0 count-lines :hiddenp :contents-begin :contents-end :level :priority 3 :tags :todo-keyword :todo-type :post-blank :footnote-section-p :archivedp :commentedp :quotedp :ALT_TITLE tags raw-value case-fold-search org-quote-string quotedp org-comment-string commentedp org-archive-tag archivedp org-footnote-section footnote-section-p plist standard-props org-planning-or-clock-line-re end org-keyword-time-not-clock-regexp time keyword org-scheduled-string org-deadline-string time-props begin limit pos-after-head contents-begin hidden contents-end element property alt-title raw-secondary-p org-element-object-restrictions value get-text-property plist-get :alt-title org-element-parse-secondary-string plain-text org-add-props :title] 36 (#$ . 18620)])
#@84 Interpret HEADLINE element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-headline-interpreter #[(headline contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"* \313 ;\203C \307\310\n #\202I \311 A@\n\"* \314\315 ;\203] \307\310\n #\202c \311 A@\n\"*! $\316 ;\203x \307\310\n #\202~ \311 A@\n\"*\203\240 %\317 ;\203\225 \307\310\n #\202\233 \311 A@\n\"*B\202\270 \317 ;\203\261 \307\310\n #\202\267 \311 A@\n\"*\211 &\205\307 \320\321\322\323&\324#\") '\325 ;\203\333 \307\310\n #\202\341 \311 A@\n\"* (\326 ;\203\365 \307\310\n #\202\373 \311 A@\n\"* )\327 ;\203\307\310\n #\202\311 A@\n\"*\206\310 *\330+\203) \331_S\202* \332\"\f\2053\333\fP)\205<\333,P(\205E\333-P
\205O\320\334\335
!\"\333.\203u\336 ;\203f\307\310\n #\202l\311 A@\n\"*\203u.\202w$\260\211 /'\205\2730\310U\203\220\320\337'\"\202\2730\310W\203\255\330\3400/G'G#[\341]\342\"'P\202\273\3300/GZ\341]\342\"'P\330*T\343\"1R. \207" [headline element property level todo priority :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :archivedp :tags format ":%s:" mapconcat identity ":" :commentedp :quotedp :pre-blank make-string 2 42 " " " [#%s]" char-to-string :footnote-section-p " %s" + 1 32 10 title org-archive-tag tag-list tags commentedp quotedp pre-blank org-odd-levels-only org-quote-string org-comment-string org-footnote-section heading org-tags-column contents] 11 (#$ . 22103)])
#@661 Parse an inline task.
Return a list whose CAR is `inlinetask' and CDR is a plist
containing `:title', `:begin', `:end', `:hiddenp',
`:contents-begin' and `:contents-end', `:level', `:priority',
`:raw-value', `:tags', `:todo-keyword', `:todo-type',
`:scheduled', `:deadline', `:closed' and `:post-blank' keywords.
The plist also contains any property set in the property drawer,
with its name in upper cases and colons added at the
beginning (e.g., `:CUSTOM_ID').
When optional argument RAW-SECONDARY-P is non-nil, inline-task's
title will not be parsed as a secondary string, but as a plain
string instead.
Assume point is at beginning of the inline task.
(defalias 'org-element-inlinetask-parser #[(limit &optional raw-secondary-p) "\212`\306 \307 8\211\205 \n \235\203 \310\202 \302 \311 8\211 \205& \312
\313\") 6\314 8\2060 \315 7\316 8\317\320\321\316\322\"\"\2108) 9\212\316y\210\323:!\205\246 \324 \316 8 ;\325<;\326#\203\243 \327\225b\210\330\316w\210\331\327!\332 =\211 >?\232\203\202 \3338\334=#8\202\237 >@\232\203\226 \3338\335=#8\202\237 \3338\336=#8*\202T 8*) A\212\316\210\325BC\326#\205\306 \337\326 D\323!)\262\205\306 \340 ) E\316y\210E\205\331 `EW\205\331 `\211 F\205\341 \341 GF\205\352 E HE\204\365 `\202\375 Eb\210\316y\210` I\342Cw\210m\203\f`\202\340 ;\343\3447\345\346;\347G\350F\351H\352 A@\353\354 8\3556\356\n\357\f\360\361I;\"\257A\2449\244D\211 #\362J\203O7\202\205\3637\343\211 K9\203_K\202}K\211 K:\204rK;\205|\364\202|K@9\205|K@)L\236A)## M N\211 K;\203\234\365K\316NM$\202\255KA\333KA@NM#\240\210K.\207" [begin components todo org-done-keywords todo-type raw-tags org-heading-components 2 done 5 org-split-string ":" 4 "" nil mapc #[(p) "\302\303\304 @\226P! A#\211\207" [plist p plist-put intern ":"] 5] org-entry-properties standard looking-at line-end-position re-search-forward t 1 " " match-string org-element-timestamp-parser plist-put :scheduled :deadline :closed "END[ ]*$" line-beginning-position org-invisible-p2 "
\n" inlinetask :raw-value :begin :end :hiddenp :contents-begin :contents-end :level :priority 3 :tags :todo-keyword :todo-type :post-blank count-lines :title org-element-parse-secondary-string plain-text org-add-props tags raw-value plist standard-props org-planning-or-clock-line-re end org-keyword-time-not-clock-regexp time keyword org-scheduled-string org-deadline-string time-props org-outline-regexp-bol limit inhibit-changing-match-data task-end contents-begin hidden contents-end before-blank raw-secondary-p element org-element-object-restrictions value property] 28 (#$ . 23664)])
#@85 Interpret INLINETASK element as Org syntax.
CONTENTS is the contents of inlinetask.
(defalias 'org-element-inlinetask-interpreter #[(inlinetask contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203* \307\310\n #\2020 \311 A@\n\"* \313 ;\203C \307\310\n #\202I \311 A@\n\"* \314\315 ;\203] \307\310\n #\202c \311 A@\n\"*! \316 ;\203x \307\310\n #\202~ \311 A@\n\"*\211 \205\216 \317\320\321\322 \323#\") !\324 \325\"\f\205\234 \326\fP
\205\246 \317\327\330
!\" \205\257 \326 PR\211 \"!\205\362 #\310U\203\307 \317\331!\"\202\362 #\310W\203\344 \324\332#\"G!G#[\333]\334\"!P\202\362 \324#\"GZ\333]\334\"!P$\205 \335$\324 \325\"\336RQ.\207" [inlinetask element property level todo priority :level get-text-property 0 plist-get :todo-keyword :priority org-element-interpret-data :title :tags format ":%s:" mapconcat identity ":" make-string 42 " " " [#%s]" char-to-string " %s" + 1 32 "\n" " END" title tag-list tags task org-tags-column contents] 8 (#$ . 26312)])
#@468 Parse an item.
STRUCT is the structure of the plain list.
Return a list whose CAR is `item' and CDR is a plist containing
`:bullet', `:begin', `:end', `:contents-begin', `:contents-end',
`:checkbox', `:counter', `:tag', `:structure', `:hiddenp' and
`:post-blank' keywords.
When optional argument RAW-SECONDARY-P is non-nil, item's tag, if
any, will not be parsed as a secondary string, but as a plain
string instead.
Assume point is at the beginning of the item.
(defalias 'org-element-item-parser #[(limit struct &optional raw-secondary-p) "\212\306 \210\307!\210`\310\311\312 \n\"* \313\311\312 \n\"*\211 \314\232\203( \315\2029
\316\232\2032 \317\2029
\320\232\2059 \321) 6\322\311\312 \n\"* 7\323 8\324\2167\204V \311\202z \325\3267\"\203k \327\330\3317\"\226!\332Z\202z \325\3337\"\205z \334\330\3317\"!+ 9\212\335 :\"b\210n\204\214 \311y\210`) ;\336\224\203\250 \323 8\337\216\325\340\f\"*\203\250 \336\224\202\252 \331\225b\210\341<w\210\342 U\203\274 `\202\276 \342 =\311y\210`;U?\205\315 \343 >;b\210\341\311x\210\311y\210` ?\344\345\f\346 \347;\350=?^\351=?]\3526\3539\354>\355:\356\357?;\"\257D\211 $\360 : : $\361$: : @\211 A@:\2368-\211 B\205kC\2035B\202k\362B\344\211 D9\203ED\202cD\211 D:\204XD;\205b\363\202bD@9\205bD@)E\236A)$#) F G\211 D;\203\203\364D\311GF$\202\224DA\365DA@GF#\240\210D.
\207" [org-list-full-item-re begin string num bullet box beginning-of-line looking-at 1 nil match-string-no-properties 3 "[ ]" off "[X]" on "[-]" trans 2 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[A-Za-z]" string-to-char match-string 0 64 "[0-9]+" string-to-number org-list-get-item-end 4 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "[.)]" "
\n" point-at-bol org-invisible-p2 item :bullet :begin :end :contents-begin :contents-end :checkbox :counter :hiddenp :structure :post-blank count-lines :tag 5 org-element-parse-secondary-string plain-text org-add-props plist-put checkbox c save-match-data-internal counter struct end limit contents-begin hidden contents-end key n raw-tag raw-secondary-p element org-element-object-restrictions value property] 24 (#$ . 27326)])
#@80 Interpret ITEM element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-item-interpreter #[(item contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312\313 \"\204$ \314\202/ \f\315=\203. \316\202/ \317\320 \321\216.\203F \312. \"\203F \322\202G \323 /\312\324 \"\203[ \325/\326\211 \327%\202\\ -\330 ;\203o \307\310\n #\202u \311 A@\n\"* 0\331 ;\203\211 \307\310\n #\202\217 \311 A@\n\"* 1\332 ;\203\243 \307\310\n #\202\251 \311 A@\n\"*\211 2\205\264 \3332!) 2\334 G\335\" 3\211:\204\311 \326\202\326 @9\203\325 AA\202\326 )@\211:\204\347 ;\205\357 \336\202\357 @9\205\357 @)\337= 4 1\205\377 \340\3411\"\3420\343\"\203 \344\202 \3420\345\"\203\346\202 \3420\347\"\205 \3502\205*\340\3512\"5\205M\352\35335\326\211\327& 54\203H\3545!\202L\3555P)\260.\207" [item element property bullet org-plain-list-ordered-item-terminator save-match-data-internal :bullet get-text-property 0 plist-get string-match "[0-9a-zA-Z]" "- " 41 "1)" "1." match-data #[nil "\301\302\"\207" [save-match-data-internal 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] " eql on "[X] " off "[ ] " trans "[-] " "%s :: " replace-regexp-in-string "\\(^\\)[ ]*\\S-" org-trim "\n" org-list-two-spaces-after-bullet-regexp spaces checkbox counter tag ind item-starts-with-par-p contents] 12 (#$ . 29583)])
(defalias 'org-element--list-struct #[(limit) "\306\307 \310\311\312 \313#\314Q\315\316!\205 \317\320\211 * + ,\212\3212\277`Y\203e \322\321\323\320x\210\320y\210` - \320 .\211 /\203V /@.\324.\233-\240\210/A\211/\204@ \320.\325 \n\244\326\"+\"\210\202$ \3270!\203\234 \322\321 \320 .\211 /\203\215 /@.\324.\233`\240\210/A\211/\204x \320.\325 \n\244\326\"*\"\210\202$ \327*!\203
\212\330\320w\210i) 1+1^+ \203\330 1 @A@X\203\330 \211A\242 .\324.\233`\240\210.\nB)\202\263 \3272!\210\331\332! 3`13\331\333!\331\334!\335 4\336\216\337\3403\"*\205\377 \331\341!\320\257) B)\332y\210\202$ \327\342!\203\320y\210\202$ \f\203L\327\f!\203L\320y\210` 5\343\f\306#\203H\344\306 6\327!)\262\203D\320y\210\202H5b\210)\202$ \330\320w\210i\211 1+X\203a\323\320x\210\320y\2101 @A@X\203\217 \211A\242 .\324.\233\345 \240\210.\nB \204\213\322\321\325\n\326\"\"\210)\202a)\327\346!\203\255\343\347\350\332\320 7 8\33187\"*\"\306#\204\271\327
!\203\271\343\351\306#\210\320y\210\202$ .\207" [limit org-drawers struct items inlinetask-re drawers-re t org-item-re ":\\(" mapconcat regexp-quote "\\|" "\\):[ ]*$" featurep org-inlinetask "^\\*+ " nil exit throw "
\n" 6 sort car-less-than-car looking-at " " match-string-no-properties 1 2 3 match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "[-+*]" 4 "^[ ]*$" re-search-forward "END[ ]*$" line-beginning-position "#\\+BEGIN\\(:\\|_\\S-+\\)" format "^[ ]*#\\+END%s[ ]*$" "^[ ]*:END:[ ]*$" item-re top-ind case-fold-search end item --dolist-tail-- org-list-end-re ind org-list-full-item-re bullet save-match-data-internal origin inhibit-changing-match-data string num] 9])
#@525 Parse a plain list.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value. STRUCTURE is the structure of the plain list being
parsed.
Return a list whose CAR is `plain-list' and CDR is a plist
containing `:type', `:begin', `:end', `:contents-begin' and
`:contents-end', `:structure', `:post-blank' and
`:post-affiliated' keywords.
Assume point is at the beginning of the list.
(defalias 'org-element-plain-list-parser #[(limit affiliated structure) "\212\206 \306 !\307\n!\310`\n # ` @ \311`\n #b\210n\204( \312y\210` \313 w\210` U\2039 \202; \314 \315\316\f\317\320\321
\322\323\n\324\325\"\326
\257A\244.D\207" [structure limit struct prevs type contents-begin org-element--list-struct org-list-prevs-alist org-list-get-list-type org-list-get-list-end nil "
\n" line-beginning-position plain-list :type :begin :end :contents-begin :contents-end :structure :post-blank count-lines :post-affiliated affiliated begin contents-end end] 17 (#$ . 32812)])
#@86 Interpret PLAIN-LIST element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-plain-list-interpreter #[(plain-list contents) "\302\303!rq\210\304\216 c\210eb\210\305 \210\306 +\207" [#1=#:temp-buffer contents generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-list-repair buffer-string] 2 (#$ . 33944)])
#@472 Parse a property drawer.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `property-drawer' and CDR is a plist
containing `:begin', `:end', `:hiddenp', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the property drawer.
(defalias 'org-element-property-drawer-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202p \212\312\224\n@ ` \313y\210\307 \306#\205* \314 \211 \2051 \315 b\210\313y\210` \316 w\210m\203L `\202N \314 \317\320\f\321 \322\323\324\325\326 \"\327
\257\nA\244. D)\207" [case-fold-search limit affiliated drawer-end-line begin post-affiliated t re-search-forward "^[ ]*:END:[ ]*$" org-element-paragraph-parser 0 nil line-beginning-position org-invisible-p2 "
\n" property-drawer :begin :end :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated org-property-re contents-begin contents-end hidden pos-before-blank end] 16 (#$ . 34334)])
#@96 Interpret PROPERTY-DRAWER element as Org syntax.
CONTENTS is the properties within the drawer.
(defalias 'org-element-property-drawer-interpreter #[(property-drawer contents) "\301\302\"\207" [contents format ":PROPERTIES:\n%s:END:"] 3 (#$ . 35517)])
#@454 Parse a quote block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `quote-block' and CDR is a plist
containing `:begin', `:end', `:hiddenp', `:contents-begin',
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the block.
(defalias 'org-element-quote-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202l \312\224\212\n@ ` \313y\210` W\205& `\211 \205- \314 b\210\313y\210` \315 w\210m\203H `\202J \316 \317\320\f\321 \322\323\324\325\326 \"\327
\257\nA\244. D)\207" [case-fold-search limit affiliated block-end-line begin post-affiliated t re-search-forward "^[ ]*#\\+END_QUOTE[ ]*$" org-element-paragraph-parser 0 nil org-invisible-p2 "
\n" line-beginning-position quote-block :begin :end :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated contents-begin contents-end hidden pos-before-blank end] 16 (#$ . 35776)])
#@87 Interpret QUOTE-BLOCK element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-quote-block-interpreter #[(quote-block contents) "\301\302\"\207" [contents format "#+BEGIN_QUOTE\n%s#+END_QUOTE"] 3 (#$ . 36911)])
#@192 Parse a section.
LIMIT bounds the search.
Return a list whose CAR is `section' and CDR is a plist
containing `:begin', `:end', `:contents-begin', `contents-end'
and `:post-blank' keywords.
(defalias 'org-element-section-parser #[(limit) "\212`\306\307 \211\310 P\311 \210,`\312\313x\210\313y\210` \314\315\316
\317\320\f\321\322\f
\"\257\n,D\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol pos-before-blank end t org-get-limited-outline-regexp "^" outline-next-heading "
\n" nil section :begin :end :contents-begin :contents-end :post-blank count-lines begin] 14 (#$ . 37160)])
#@83 Interpret SECTION element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-section-interpreter #[(section contents) "\207" [contents] 1 (#$ . 37805)])
#@467 Parse a special block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `special-block' and CDR is a plist
containing `:type', `:begin', `:end', `:hiddenp',
`:contents-begin', `:contents-end', `:post-blank' and
`:post-affiliated' keywords.
Assume point is at the beginning of the block.
(defalias 'org-element-special-block-parser #[(limit affiliated) "\306\307\310!\210\311\312!\226\212\313\314\315\316 !\"\n\306#)\204! \317\n \"\202~ \320\224 \212 @ ` \321y\210`\fW\2055 `\211 \205< \f !\322 \"\fb\210\321y\210` #\323\nw\210m\203W `\202Y \324 $\325\326 \327
\330$\331\"\332 \333!\334\335#$\"\336 \257 A\244. D*\207" [case-fold-search type limit affiliated block-end-line begin t looking-at "[ ]*#\\+BEGIN_\\(\\S-+\\)" match-string-no-properties 1 re-search-forward format "^[ ]*#\\+END_%s[ ]*$" regexp-quote org-element-paragraph-parser 0 nil org-invisible-p2 "
\n" line-beginning-position special-block :type :begin :end :hiddenp :contents-begin :contents-end :post-blank count-lines :post-affiliated post-affiliated contents-begin contents-end hidden pos-before-blank end] 18 (#$ . 37994)])
#@89 Interpret SPECIAL-BLOCK element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-special-block-interpreter #[(special-block contents) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311\312 \f $)\207" [special-block element property block-type contents :type get-text-property 0 plist-get format "#+BEGIN_%s\n%s#+END_%s"] 5 (#$ . 39293)])
#@368 Parse a babel call.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `babel-call' and CDR is a plist
containing `:begin', `:end', `:info', `:post-blank' and
`:post-affiliated' as keywords.
(defalias 'org-element-babel-call-parser #[(limit affiliated) "\212\306\307!\210\310 @`\311y\210`\312\nw\210m\203 `\202 \313 \314\315\316 \317\320\321\f \"\322
\257\n A\244.D\207" [org-babel-block-lob-one-liner-regexp affiliated limit end pos-before-blank post-affiliated t looking-at org-babel-lob-get-info nil "
\n" line-beginning-position babel-call :begin :end :info :post-blank count-lines :post-affiliated begin info case-fold-search] 11 (#$ . 39669)])
#@62 Interpret BABEL-CALL element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-babel-call-interpreter #[(babel-call contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\211@ A@ \312\313\314\f\"\204, \f\2025 \315\316\317\f\"\320\211\f$
\205= \321\322
\"Q+\207" [babel-call element property babel-info main post-options :info get-text-property 0 plist-get "#+CALL: " string-match "\\[\\(\\[.*?\\]\\)\\]" replace-match match-string 1 nil format "[%s]"] 7 (#$ . 40521)])
#@186 Parse a clock.
LIMIT bounds the search.
Return a list whose CAR is `clock' and CDR is a plist containing
`:status', `:value', `:time', `:begin', `:end' and `:post-blank'
as keywords.
(defalias 'org-element-clock-parser #[(limit) "\212\306`\307\n\310 \311#\210\312\306w\210\313 \307\314\310 \311#\205/ \312\306w\210\315\316!\205/ \317\306 \320
\f\"*\211 \2039 \321\202: \322 \306y\210` \323 w\210\312\306x\210n\204R \306\210\324 `\") ` !\325\326 \327 \330 \331 \332!\333 \257\f.D\207" [case-fold-search begin org-clock-string value string num nil search-forward line-end-position t " " org-element-timestamp-parser " => " looking-at "\\(\\S-+\\)[ ]*$" 1 match-string-no-properties closed running "
\n" count-lines clock :status :value :duration :begin :end :post-blank duration status before-blank limit post-blank end] 14 (#$ . 41006)])
#@57 Interpret CLOCK element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-clock-interpreter #[(clock contents) "\305\306\307 \n;\203 \310\311 \n#\202 \312\nA@ \"*\313\"\314 \n;\203. \310\311 \n#\2024 \312\nA@ \"*\211 \205D \315\316\317\320\321\f\322\"#P)R\207" [org-clock-string clock element property duration " " org-element-timestamp-interpreter :value get-text-property 0 plist-get nil :duration " => " apply format "%2s:%02s" org-split-string ":"] 11 (#$ . 41871)])
#@396 Parse a comment.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `comment' and CDR is a plist
containing `:begin', `:end', `:value', `:post-blank',
`:post-affiliated' keywords.
Assume point is at comment beginning.
(defalias 'org-element-comment-parser #[(limit affiliated) "\212@`\306\307!\210\310\311\225\312 \"\313y\210`\fW\2030 \306\314!\2030 \315\310\311\225\312 \"Q\313y\210\202 `\211 b\210\316\fw\210m\203A `\202C \317 \320\321 \322\323 \324\325
\"\326\n\257\nA\244.D\207" [affiliated begin post-affiliated value limit com-end 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 end] 12 (#$ . 42361)])
#@59 Interpret COMMENT element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-comment-interpreter #[(comment contents) "\303\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*#\207" [comment element property replace-regexp-in-string "^" "# " :value get-text-property 0 plist-get] 7 (#$ . 43321)])
#@429 Parse an export block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `comment-block' and CDR is a plist
containing `:begin', `:end', `:hiddenp', `:value', `:post-blank'
and `:post-affiliated' keywords.
Assume point is at comment block beginning.
(defalias 'org-element-comment-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202c \312\224\212\n@ ` \313y\210` \314 b\210\313y\210` \315 w\210m\203; `\202= \316 \317 \" \320\321\f\322\323 \324\325\326\"\327
\257\f\nA\244. D)\207" [case-fold-search limit affiliated contents-end begin post-affiliated t re-search-forward "^[ ]*#\\+END_COMMENT[ ]*$" org-element-paragraph-parser 0 nil org-invisible-p2 "
\n" line-beginning-position buffer-substring-no-properties comment-block :begin :end :value :hiddenp :post-blank count-lines :post-affiliated contents-begin hidden pos-before-blank end value] 13 (#$ . 43630)])
#@65 Interpret COMMENT-BLOCK element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-comment-block-interpreter #[(comment-block contents) "\303\304\305\306 ;\203 \307\310\n #\202 \311 A@\n\"*!\"\207" [comment-block element property format "#+BEGIN_COMMENT\n%s#+END_COMMENT" org-remove-indentation :value get-text-property 0 plist-get] 7 (#$ . 44729)])
#@366 Parse a diary sexp.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `diary-sexp' and CDR is a plist
containing `:begin', `:end', `:value', `:post-blank' and
`:post-affiliated' keywords.
(defalias 'org-element-diary-sexp-parser #[(limit affiliated) "\212@`\306\307!\210\310\311\312\n \"*\311y\210`\313 w\210m\203! `\202# \314 \315\316\317\320\f\321\322
\f\"\323\257\nA\244.D\207" [affiliated string num limit end pos-before-blank looking-at "\\(%%(.*\\)[ ]*$" 1 nil match-string-no-properties "
\n" line-beginning-position diary-sexp :value :begin :end :post-blank count-lines :post-affiliated value post-affiliated begin] 11 (#$ . 45095)])
#@54 Interpret DIARY-SEXP as Org syntax.
CONTENTS is nil.
(defalias 'org-element-diary-sexp-interpreter #[(diary-sexp contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [diary-sexp element property :value get-text-property 0 plist-get] 4 (#$ . 45942)])
#@287 Remove maximum common indentation in string S and return it.
When optional argument N is a positive integer, remove exactly
that much characters from indentation, if possible, or return
S as-is otherwise. Unlike to `org-remove-indentation', this
function doesn't call `untabify' on S.
(defalias 'org-element--remove-indentation #[(s &optional n) "\3052 \306\307!rq\210\310\216 c\210eb\210\n\206? d\212\311\312\313\314#\203< iS\211 \315U\2034 \316\305 \"\210\2028 \f^)\202 ) )\211\315U\203J \202} m\204{ \317\313w\210i l\203` \320 `|\210\202t \f\nW\203n \316\305 \"\210\202t \321\f\nZ!\210\313y\210)\202J \322 +0\207" [#1=#:temp-buffer s n min-ind ind exit generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] re-search-forward "^[ ]*\\S-" nil t 0 throw " " line-beginning-position org-indent-line-to buffer-string] 5 (#$ . 46208)])
#@482 Parse an example block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `example-block' and CDR is a plist
containing `:begin', `:end', `:number-lines', `:preserve-indent',
`:retain-labels', `:use-labels', `:label-fmt', `:hiddenp',
`:switches', `:value', `:post-blank' and `:post-affiliated'
keywords.
(defalias 'org-element-example-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202\f\312\224\212\313\314!\210\315\316 \317
\f\"*\211 /\204. \316\202C \320\321/\"\203: \322\202C \320\323/\"\205C \324 01\206T /\205T \320\325/\" 2/?\206o \320\326/\"?\206o 0\205o \320\327/\" 3/?\206\202 3\205\202 \320\327/\"? 4/\205\226 \320\330/\"\205\226 \331\315/\" 5\n@ 6` 7\332\316w\210i 8\316y\210` 9\333 :\334\335\3369 \"!2\205\277 8\" ; b\210\316y\210` <\337 w\210m\203\327 `\202\331 \340 =\341\3426\343=\344;\345/\3460\3472\3503\3514\3525\353:\354\355<=\"\3567\257\nA\244.D)\207" [case-fold-search limit affiliated contents-end string num t re-search-forward "^[ ]*#\\+END_EXAMPLE[ ]*$" org-element-paragraph-parser 0 looking-at "^[ ]*#\\+BEGIN_EXAMPLE\\(?: +\\(.*\\)\\)?" 1 nil match-string-no-properties string-match "-n\\>" new "+n\\>" continued "-i\\>" "-r\\>" "-k\\>" "-l +\"\\([^\"\n]+\\)\"" match-string " " org-invisible-p2 org-element--remove-indentation org-unescape-code-in-string buffer-substring-no-properties "
\n" line-beginning-position example-block :begin :end :value :switches :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :hiddenp :post-blank count-lines :post-affiliated switches number-lines org-src-preserve-indentation preserve-indent retain-labels use-labels label-fmt begin post-affiliated block-ind contents-begin hidden value pos-before-blank end] 26 (#$ . 47100)])
#@65 Interpret EXAMPLE-BLOCK element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-example-block-interpreter #[(example-block contents) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310 \205! \311 P\312\313\314 ;\2034 \305\306\n #\202: \307 A@\n\"*!\315\260)\207" [example-block element property switches :switches get-text-property 0 plist-get "#+BEGIN_EXAMPLE" " " "\n" org-escape-code-in-string :value "#+END_EXAMPLE"] 8 (#$ . 49065)])
#@436 Parse an export block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `export-block' and CDR is a plist
containing `:begin', `:end', `:type', `:hiddenp', `:value',
`:post-blank' and `:post-affiliated' keywords.
Assume point is at export-block beginning.
(defalias 'org-element-export-block-parser #[(limit affiliated) "\306\307\310!\210\311\312\313\n \"*\226\212\314\315\316 \"\f\306#)\204% \317\f
\"\202~ \320\224 \212
@ ` \312y\210` !\321 \" b\210\312y\210` #\322\fw\210m\203Q `\202S \323 $\324! \" %\325\326 \327$\330 \331%\332\"\333\334#$\"\335 \257
A\244. D*\207" [case-fold-search string num type limit affiliated t looking-at "[ ]*#\\+BEGIN_\\(\\S-+\\)" 1 nil match-string-no-properties re-search-forward format "^[ ]*#\\+END_%s[ ]*$" org-element-paragraph-parser 0 org-invisible-p2 "
\n" line-beginning-position buffer-substring-no-properties export-block :begin :end :type :value :hiddenp :post-blank count-lines :post-affiliated contents-end begin post-affiliated contents-begin hidden pos-before-blank end value] 15 (#$ . 49521)])
#@64 Interpret EXPORT-BLOCK element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-export-block-interpreter #[(export-block contents) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310\311 \"\312 ;\203. \305\306\n #\2024 \307 A@\n\"*\310\313 \"Q)\207" [export-block element property type :type get-text-property 0 plist-get format "#+BEGIN_%s\n" :value "#+END_%s"] 5 (#$ . 50775)])
#@435 Parse a fixed-width section.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `fixed-width' and CDR is a plist
containing `:begin', `:end', `:value', `:post-blank' and
`:post-affiliated' keywords.
Assume point is at the beginning of the fixed-width area.
(defalias 'org-element-fixed-width-parser #[(limit affiliated) "\212@`\306`\fW\203$ \307\310!\203$ \311\312\225\313 \"\314Q\306y\210\202 ` \315\fw\210m\2032 `\2024 \316 \317\320 \321\322 \323\324
\"\325\n\257\nA\244.D\207" [affiliated begin post-affiliated value limit end-area 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 end] 11 (#$ . 51171)])
#@63 Interpret FIXED-WIDTH element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-fixed-width-interpreter #[(fixed-width contents) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\211\2050 \310\311\312\313\314 \"\203. \306\315O\202/ #)\207" [fixed-width element property value :value get-text-property 0 plist-get replace-regexp-in-string "^" ": " string-match "\n\\'" -1] 7 (#$ . 52117)])
#@367 Parse an horizontal rule.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `horizontal-rule' and CDR is a plist
containing `:begin', `:end', `:post-blank' and `:post-affiliated'
keywords.
(defalias 'org-element-horizontal-rule-parser #[(limit affiliated) "\212@`\306y\210`\307 w\210m\203 `\202 \310 \311\312
\313\n\314\315 \n\"\316\f\257A\244-D\207" [affiliated limit end post-hr post-affiliated begin nil "
\n" line-beginning-position horizontal-rule :begin :end :post-blank count-lines :post-affiliated] 9 (#$ . 52518)])
#@67 Interpret HORIZONTAL-RULE element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-horizontal-rule-interpreter #[(horizontal-rule contents) "\300\207" ["-----"] 1 (#$ . 53236)])
#@377 Parse a keyword at point.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `keyword' and CDR is a plist
containing `:key', `:value', `:begin', `:end', `:post-blank' and
`:post-affiliated' keywords.
(defalias 'org-element-keyword-parser #[(limit affiliated) "\212@`\306\307!\210\310\311\312\n \"*\226\313\314\315\225\316 \"!\311y\210`\317 w\210m\203* `\202, \320 \321\322\323\324 \325\f\326\327
\f\"\330\257\fA\244.D\207" [affiliated string num limit end pos-before-blank looking-at "[ ]*#\\+\\(\\S-+*\\):" 1 nil match-string-no-properties org-trim buffer-substring-no-properties 0 point-at-eol "
\n" line-beginning-position keyword :key :value :begin :end :post-blank count-lines :post-affiliated value key post-affiliated begin] 13 (#$ . 53427)])
#@59 Interpret KEYWORD element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-keyword-interpreter #[(keyword contents) "\303\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311 ;\203+ \306\307\n #\2021 \310 A@\n\"*#\207" [keyword element property format "#+%s: %s" :key get-text-property 0 plist-get :value] 7 (#$ . 54384)])
#@440 Parse a LaTeX environment.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `latex-environment' and CDR is a plist
containing `:begin', `:end', `:value', `:post-blank' and
`:post-affiliated' keywords.
Assume point is at the beginning of the latex environment.
(defalias 'org-element-latex-environment-parser #[(limit affiliated) "\212\306`\307\310!\210\311\312\313\314\315\316!!\"\n\306#\204 \317\n \"\202U \320y\210` @ \321\f\" \322\nw\210m\2039 `\202; \323 \324\325
\326 \327\330\331\f \"\332\257\n A\244,D+\207" [code-begin case-fold-search limit affiliated code-end begin t looking-at "[ ]*\\\\begin{\\([A-Za-z0-9]+\\*?\\)}" re-search-forward format "^[ ]*\\\\end{%s}[ ]*$" 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 value end] 11 (#$ . 54723)])
#@69 Interpret LATEX-ENVIRONMENT element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-latex-environment-interpreter #[(latex-environment contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [latex-environment element property :value get-text-property 0 plist-get] 4 (#$ . 55833)])
#@196 Parse a node-property at point.
LIMIT bounds the search.
Return a list whose CAR is `node-property' and CDR is a plist
containing `:key', `:value', `:begin', `:end' and `:post-blank'
keywords.
(defalias 'org-element-node-property-parser #[(limit) "\306!\210`\307\310\311\n \"*\312\310\311\n \"*\212\310\210\313 \314#\203( \315 \202) ) \316\317\320
\321\322\f\323\324\257\n,D\207" [org-property-re string num limit end value looking-at 2 nil match-string-no-properties 3 re-search-forward t line-beginning-position node-property :key :value :begin :end :post-blank 0 key begin] 11 (#$ . 56135)])
#@65 Interpret NODE-PROPERTY element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-node-property-interpreter #[(node-property contents) "\304\304\305\306 \n;\203 \307\310 \n#\202 \311\nA@ \"*\"\312 \n;\203. \307\310 \n#\2024 \311\nA@ \"*\2069 \313#\207" [org-property-format node-property element property format ":%s:" :key get-text-property 0 plist-get :value ""] 8 (#$ . 56755)])
#@445 Parse a paragraph.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `paragraph' and CDR is a plist
containing `:begin', `:end', `:contents-begin' and
`:contents-end', `:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the paragraph.
(defalias 'org-element-paragraph-parser #[(limit affiliated) "\212@`\306\307\210\310\f
\311#\204
\210\202\250 \312 \210\313\314!\204\250 \313\315!\204\250 \313$!\2038 \212\310\316
\306#)\204\250 \313\317!\204\250 \313%!\203O \212\310\320
\306#)\204\250 \313\321!\203p \212\310\322\323\324\325\307 & '\326'&\"*!\"
\306#)\204\250 \313\327!\203\221 \212\310\322\330\324\325\307 & '\326'&\"*!\"
\306#)\204\250 \313\331!\204\250 \307\210\310\f
\311#\203\250 \312 \210\202 `
U\203\262
\202\265 \332 b) (\333\nx\210\307y\210` )\333
w\210m\203\316 `\202\320 \332 *\334\335 \336*\337\n\340)\341\342(*\"\343\n\257\fA\244.D\207" [affiliated begin contents-begin case-fold-search org-element-paragraph-separate limit t nil re-search-forward m beginning-of-line looking-at "[ ]*\\(?:[^:#]\\|$\\)" "[ ]*:\\(?: \\|$\\)" "^[ ]*:END:[ ]*$" "[ ]*#\\(?: \\|$\\)" "^[ ]*#\\+END:?[ ]*$" "[ ]*#\\+BEGIN_\\(\\S-+\\)" format "^[ ]*#\\+END_%s[ ]*$" regexp-quote 1 match-string-no-properties "[ ]*\\\\begin{\\([A-Za-z0-9]+\\*?\\)}" "^[ ]*\\\\end{%s}[ ]*$" "[ ]*#\\+\\S-+:" line-beginning-position "
\n" paragraph :begin :end :contents-begin :contents-end :post-blank count-lines :post-affiliated org-drawer-regexp org-dblock-start-re string num before-blank contents-end end] 13 (#$ . 57156)])
#@85 Interpret PARAGRAPH element as Org syntax.
CONTENTS is the contents of the element.
(defalias 'org-element-paragraph-interpreter #[(paragraph contents) "\207" [contents] 1 (#$ . 58913)])
#@197 Parse a planning.
LIMIT bounds the search.
Return a list whose CAR is `planning' and CDR is a plist
containing `:closed', `:deadline', `:scheduled', `:begin', `:end'
and `:post-blank' keywords.
(defalias 'org-element-planning-parser #[(limit) "\212\306`\306y\210`\307 w\210\310\306x\210n\204 \306\210\311\n`\") ` \306\211 \306 b\210\312
\313#\203l \314\225b\210\310
w\210\315\314!\316 \211 \232\203U \202h \232\203d \202h *\202- \317\320\321\322\323 \324
\325\f\257\f.D\207" [case-fold-search begin before-blank limit post-blank end nil "
\n" " " count-lines re-search-forward t 1 match-string org-element-timestamp-parser planning :closed :deadline :scheduled :begin :end :post-blank closed deadline scheduled org-keyword-time-not-clock-regexp time keyword org-closed-string org-deadline-string] 14 (#$ . 59108)])
#@60 Interpret PLANNING element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-planning-interpreter #[(planning contents) "\306\307\310\311\312 ;\203 \313\314\n #\202 \315 A@\n\"*\211\205( \f\316\317 \311\"Q)\320 ;\203: \313\314\n #\202@ \315 A@\n\"*\211 \205N \316\317
\311\"Q)\321 ;\203` \313\314\n #\202f \315 A@\n\"*\211 \205v \316\317\311\"Q)E\"\316#\207" [planning element property deadline org-deadline-string scheduled mapconcat identity delq nil :deadline get-text-property 0 plist-get " " org-element-timestamp-interpreter :scheduled :closed org-scheduled-string closed org-closed-string] 12 (#$ . 59974)])
#@225 Parse a quote section.
LIMIT bounds the search.
Return a list whose CAR is `quote-section' and CDR is a plist
containing `:begin', `:end', `:value' and `:post-blank' keywords.
Assume point is at beginning of the section.
(defalias 'org-element-quote-section-parser #[(limit) "\212`\306\307 \211\310\nP \311 \210,` \312\313x\210\313y\210` \314\" \315\316\317
\320\321\322
\"\257-D\207" [begin org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol end t org-get-limited-outline-regexp "^" outline-next-heading "
\n" nil buffer-substring-no-properties quote-section :begin :end :value :post-blank count-lines pos-before-blank value] 12 (#$ . 60620)])
#@65 Interpret QUOTE-SECTION element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-quote-section-interpreter #[(quote-section contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [quote-section element property :value get-text-property 0 plist-get] 4 (#$ . 61328)])
#@549 Parse a src block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `src-block' and CDR is a plist
containing `:language', `:switches', `:parameters', `:begin',
`:end', `:hiddenp', `:number-lines', `:retain-labels',
`:use-labels', `:label-fmt', `:preserve-indent', `:value',
`:post-blank' and `:post-affiliated' keywords.
Assume point is at the beginning of the block.
(defalias 'org-element-src-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202?\312\224\212\n@ ` \313\314!\210\315\316 5 6\31765\"* 7\320\316 5 6\31765\"* 8\321\316 5 6\31765\"* 98\204V \316\202k \322\3238\"\203b \324\202k \322\3258\"\205k \326 :;\206| 8\205| \322\3278\" <8\205\220 \322\3308\"\205\220 \331\3158\" =8?\206\253 \322\3328\"?\206\253 :\205\253 \322\3338\" >8?\206\276 >\205\276 \322\3338\"? ?\334\316w\210i @\316y\210\335 A\336\337\340` \"!<\205\334 @\" B b\210\316y\210` C\341 w\210m\203\364 `\202\366 \342 D\343\3447\345\3468!\205\3478!\350\3469!\205\3479!\351\f\352D\353:\354<\355>\356?\357=\360A\361B\362\363CD\"\364
\257 \nA\244.D)\207" [case-fold-search limit affiliated contents-end begin post-affiliated t re-search-forward "^[ ]*#\\+END_SRC[ ]*$" org-element-paragraph-parser 0 looking-at "^[ ]*#\\+BEGIN_SRC\\(?: +\\(\\S-+\\)\\)?\\(\\(?: +\\(?:-l \".*?\"\\|[-+][A-Za-z]\\)\\)+\\)?\\(.*\\)[ ]*$" 1 nil match-string-no-properties 2 3 string-match "-n\\>" new "+n\\>" continued "-i\\>" "-l +\"\\([^\"\n]+\\)\"" match-string "-r\\>" "-k\\>" " " org-invisible-p2 org-element--remove-indentation org-unescape-code-in-string buffer-substring-no-properties "
\n" line-beginning-position src-block :language :switches org-string-nw-p org-trim :parameters :begin :end :number-lines :preserve-indent :retain-labels :use-labels :label-fmt :hiddenp :value :post-blank count-lines :post-affiliated string num language switches parameters number-lines org-src-preserve-indentation preserve-indent label-fmt retain-labels use-labels block-ind hidden value pos-before-blank end] 29 (#$ . 61614)])
#@61 Interpret SRC-BLOCK element as Org syntax.
CONTENTS is nil.
(defalias 'org-element-src-block-interpreter #[(src-block contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\313 ;\203A \307\310\n #\202G \311 A@\n\"*\314 ;\203Y \307\310\n #\202_ \311 A@\n\"*\315 ;\203r \307\310\n #\202x \311 A@\n\"*\203\200 \202\231 \f\310U\203\212 \202\231 \316\f\317\" \320\321
\322\211\323&)) \324\325 \205\255 \326 P\205\266 \326P\205\277 \326PQ\"\327!\330Q,\207" [src-block element property val org-edit-src-content-indentation ind :language get-text-property 0 plist-get :switches :parameters :value :preserve-indent make-string 32 replace-regexp-in-string "\\(^\\)[ ]*\\S-" nil 1 format "#+BEGIN_SRC%s\n" " " org-escape-code-in-string "#+END_SRC" value params switches lang] 10 (#$ . 63854)])
#@468 Parse a table at point.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `table' and CDR is a plist containing
`:begin', `:end', `:tblfm', `:type', `:contents-begin',
`:contents-end', `:value', `:post-blank' and `:post-affiliated'
keywords.
Assume point is at the beginning of the table.
(defalias 'org-element-table-parser #[(limit affiliated) "\212\306`\307 \203 \310\202 \311 @ \312
\313#\203\" \314\224b\202# ` !\315 \"\316\317!\203F \320\315 # $\321$#\"*\"B\"\315y\210\202( \") %` &\322 w\210m\203[ `\202] \323 '\324\325\f\326'\327\n\330%\331\n\311=\205r \332\n\311=\205{ !\333\n\310=\205\207 \334 !\"\335\336&'\"\337 \257 A\244. D\207" [case-fold-search table-begin type affiliated begin org-table-any-border-regexp t org-at-table\.el-p table\.el org re-search-forward m 0 nil looking-at "[ ]*#\\+TBLFM: +\\(.*\\)[ ]*$" 1 match-string-no-properties "
\n" line-beginning-position table :begin :end :type :tblfm :contents-begin :contents-end :value buffer-substring-no-properties :post-blank count-lines :post-affiliated limit table-end acc string num tblfm pos-before-blank end] 19 (#$ . 64725)])
#@96 Interpret TABLE element as Org syntax.
CONTENTS is a string, if table's type is `org', or nil.
(defalias 'org-element-table-interpreter #[(table contents) "\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311=\2038 \312\313 ;\203/ \306\307\n #\2025 \310 A@\n\"*!\207\314\315!r q\210\316\216\fc\210\317 \210\320 +\321\322\323\324 ;\203_ \306\307\n #\202e \310 A@\n\"*!\325#P\207" [table element property #1=#:temp-buffer contents :type get-text-property 0 plist-get table\.el org-remove-indentation :value generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] org-table-align buffer-string mapconcat #[(fm) "\301P\207" [fm "#+TBLFM: "] 2] reverse :tblfm "\n"] 8 (#$ . 66038)])
#@213 Parse table row at point.
LIMIT bounds the search.
Return a list whose CAR is `table-row' and CDR is a plist
containing `:begin', `:end', `:contents-begin', `:contents-end',
`:type' and `:post-blank' keywords.
(defalias 'org-element-table-row-parser #[(limit) "\212\305\306!\203 \307\202\f \310`\310=\205 \311\312!\205 `\310=\205+ \313\210\314\313x\210`\313y\210` \315\316\317 \320\f\321\n\322 \323\324\257\f.D\207" [type begin contents-begin contents-end end looking-at "^[ ]*|-" rule standard search-forward "|" nil " " table-row :type :begin :end :contents-begin :contents-end :post-blank 0] 13 (#$ . 66766)])
#@87 Interpret TABLE-ROW element as Org syntax.
CONTENTS is the contents of the table row.
(defalias 'org-element-table-row-interpreter #[(table-row contents) "\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310=\203 \311\207\312 P\207" [table-row element property contents :type get-text-property 0 plist-get rule "|-" "| "] 4 (#$ . 67401)])
#@450 Parse a verse block.
LIMIT bounds the search. AFFILIATED is a list of which CAR is
the buffer position at the beginning of the first affiliated
keyword and CDR is a plist of affiliated keywords along with
their value.
Return a list whose CAR is `verse-block' and CDR is a plist
containing `:begin', `:end', `:contents-begin', `:contents-end',
`:hiddenp', `:post-blank' and `:post-affiliated' keywords.
Assume point is at beginning of the block.
(defalias 'org-element-verse-block-parser #[(limit affiliated) "\306\212\307\310 \306#)\204 \311 \n\"\202^ \312\224\212\n@ ` \313y\210\314 ` b\210\313y\210` \315 w\210m\203; `\202= \316 \317\320\f\321\322\323 \324\325\326\"\327
\257\nA\244.D)\207" [case-fold-search limit affiliated contents-end begin post-affiliated t re-search-forward "^[ ]*#\\+END_VERSE[ ]*$" org-element-paragraph-parser 0 nil org-invisible-p2 "
\n" line-beginning-position verse-block :begin :end :contents-begin :contents-end :hiddenp :post-blank count-lines :post-affiliated hidden contents-begin pos-before-blank end] 15 (#$ . 67745)])
#@80 Interpret VERSE-BLOCK element as Org syntax.
CONTENTS is verse block contents.
(defalias 'org-element-verse-block-interpreter #[(verse-block contents) "\301\302\"\207" [contents format "#+BEGIN_VERSE\n%s#+END_VERSE"] 3 (#$ . 68838)])
#@215 Parse bold object at point.
Return a list whose CAR is `bold' and CDR is a plist with
`:begin', `:end', `:contents-begin' and `:contents-end' and
`:post-blank' keywords.
Assume point is at the first star marker.
(defalias 'org-element-bold-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\224\311\225\310\225b\210\312\313w` \314\315
\316 \317\f\320 \321\n\257\n.D\207" [org-emph-re end post-blank contents-end contents-begin begin -1 looking-at 2 4 " " nil bold :begin :end :contents-begin :contents-end :post-blank] 11 (#$ . 69080)])
#@78 Interpret BOLD object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-bold-interpreter #[(bold contents) "\301\302\"\207" [contents format "*%s*"] 3 (#$ . 69637)])
#@200 Search for the next text-markup object.
Return value is a cons cell whose CAR is a symbol among `bold',
`italic', `underline', `strike-through', `code' and `verbatim'
and CDR is beginning position.
(defalias 'org-element-text-markup-successor #[nil "\212n\204 \302u\210\303\304\305#\205Y \306\307!\211\310\232\203 \311\202U \312\232\203( \313\202U \314\232\2032 \315\202U \316\232\203< \317\202U \320\232\203F \321\202U \322\232\203P \323\202U \324\325\307\224\"\326\224)B)\207" [org-emph-re marker -1 re-search-forward nil t match-string 3 "*" bold "/" italic "_" underline "+" strike-through "~" code "=" verbatim error "Unknown marker at %d" 2] 5 (#$ . 69839)])
#@187 Parse code object at point.
Return a list whose CAR is `code' and CDR is a plist with
`:value', `:begin', `:end' and `:post-blank' keywords.
Assume point is at the first tilde marker.
(defalias 'org-element-code-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\312\313\n \"*\310\225b\210\314\312w` \315\316
\317\320 \321\f\257-D\207" [org-emph-re string num end post-blank value -1 looking-at 2 4 nil match-string-no-properties " " code :value :begin :end :post-blank begin] 9 (#$ . 70521)])
#@55 Interpret CODE object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-code-interpreter #[(code contents) "\303\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\"\207" [code element property format "~%s~" :value get-text-property 0 plist-get] 6 (#$ . 71039)])
#@265 Parse entity at point.
Return a list whose CAR is `entity' and CDR a plist with
`:begin', `:end', `:latex', `:latex-math-p', `:html', `:latin1',
`:utf-8', `:ascii', `:use-brackets-p' and `:post-blank' as
keywords.
Assume point is at the beginning of the entity.
(defalias 'org-element-entity-parser #[nil "\212\306\307!\210\310\311!\312 \"\206 \312\n\")\313\224 \310\314!\315\230 \311\225b\210
\203* \314u\210\316\317w ` !\320\321 @\322 A@\323\314 8\324\325 8\326\327 8\330\331 8\332\333 8\334\f\335!\336
\337 \257.D\207" [name org-entities-user org-entities value begin bracketsp looking-at "\\\\\\(there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\($\\|{}\\|[^[:alpha:]]\\)" match-string 1 assoc 0 2 "{}" " " nil entity :name :latex :latex-math-p :html 3 :ascii 4 :latin1 5 :utf-8 6 :begin :end :use-brackets-p :post-blank post-blank end] 23 (#$ . 71312)])
#@57 Interpret ENTITY object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-entity-interpreter #[(entity contents) "\303\304 ;\203 \305\306\n #\202 \307 A@\n\"*\310 ;\203* \305\306\n #\2020 \307 A@\n\"*\2055 \311Q\207" [entity element property "\\" :name get-text-property 0 plist-get :use-brackets-p "{}"] 6 (#$ . 72189)])
#@156 Search for the next latex-fragment or entity object.
Return value is a cons cell whose CAR is `entity' or
`latex-fragment' and CDR is beginning position.
(defalias 'org-element-latex-or-entity-successor #[nil "\212n\204 \306u\210A\307\310\311\312\n\313#\313 Q\314\315#\205w \316\224b\210\317 !\203D \320\321!\322 \f\"\2065 \322
\")\203= \323\202> \324\316\224B\202w \324\3252v \n\314 \211 \203s @\317A@!\203j \326\325\3278\224\"\210A\211\204S *`0B+\207" [org-latex-regexps entity-re matchers name org-entities-user org-entities -1 "\\\\\\(there4\\|sup[123]\\|frac[13][24]\\|[a-zA-Z]+\\)\\($\\|{}\\|[^[:alpha:]]\\)" re-search-forward mapconcat cadr "\\|" nil t 0 looking-at match-string 1 assoc entity latex-fragment return throw 2 e --dolist-tail--] 6 (#$ . 72531)])
#@219 Parse export snippet at point.
Return a list whose CAR is `export-snippet' and CDR a plist with
`:begin', `:end', `:back-end', `:value' and `:post-blank' as
keywords.
Assume point is at the beginning of the snippet.
(defalias 'org-element-export-snippet-parser #[nil "\212\306\307\310\311#\210\312\224\313\310\314\n \"*\315`\306\316\310\311#\210\312\224\" \317\310w ` \320\321 \322\f\323\324\325
\257\n.D\207" [begin string num back-end value post-blank re-search-forward "@@\\([-A-Za-z0-9]+\\):" nil t 0 1 match-string-no-properties buffer-substring-no-properties "@@" " " export-snippet :back-end :value :begin :end :post-blank end] 11 (#$ . 73326)])
#@65 Interpret EXPORT-SNIPPET object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-export-snippet-interpreter #[(export-snippet contents) "\303\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\311 ;\203+ \306\307\n #\2021 \310 A@\n\"*#\207" [export-snippet element property format "@@%s:%s@@" :back-end get-text-property 0 plist-get :value] 7 (#$ . 73997)])
#@135 Search for the next export-snippet object.
Return value is a cons cell whose CAR is `export-snippet' and CDR
its beginning position.
(defalias 'org-element-export-snippet-successor #[nil "\212\301\302\303\301\304#\205 \305\224\211\205 \306\307\301\304#\205 \310B*\207" [beg nil re-search-forward "@@[-A-Za-z0-9]+:" t 0 search-forward "@@" export-snippet] 4 (#$ . 74369)])
#@195 Parse footnote reference at point.
Return a list whose CAR is `footnote-reference' and CDR a plist
with `:label', `:type', `:inline-definition', `:begin', `:end'
and `:post-blank' as keywords.
(defalias 'org-element-footnote-reference-parser #[nil "\212\306!\210`\307\310\311 \n\"*\2060 \312\310\311 \n\"*\2060 \313\314!\2050 \315\314\310\311 \n\"*P\211 \203; \313\314!\203? \316\202@ \317 \320\225 !\314 \"\310u\210\"\320V\203t \321\322\310\323#\203t \313\320!\324\232\203k \"T\211\"\202M \"S\211\"\202M `S)\211 #Tb\210\325\310w $` %\326\327\f\330
\331 \332%\333$\257\nD\211 \334
\316=\205\330 \335!#{\326\211 &9\203\262 &\202\320 &\211 &:\204\305 &;\205\317 \336\202\317 &@9\205\317 &@)'\236A)# ( )\211 &;\203\357 \337&\310)($\202 &A\340&A@)(#\240\210&.\f\207" [org-footnote-re begin string num label type looking-at 2 nil match-string-no-properties 3 match-string 1 "fn:" inline standard 0 re-search-forward "[][]" t "[" " " footnote-reference :label :type :begin :end :post-blank :inline-definition org-element-parse-secondary-string plain-text org-add-props plist-put inner-begin count inner-end post-blank end element org-element-object-restrictions value property] 12 (#$ . 74755)])
#@69 Interpret FOOTNOTE-REFERENCE object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-footnote-reference-interpreter #[(footnote-reference contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\206 \312\313 ;\203- \307\310\n #\2023 \311 A@\n\"*\211\204= \314\202B \315\316 !P) \317\320
\fP\"*\207" [footnote-reference element property inline-def def label :label get-text-property 0 plist-get "fn:" :inline-definition "" ":" org-element-interpret-data format "[%s]"] 6 (#$ . 75988)])
#@142 Search for the next footnote-reference object.
Return value is a cons cell whose CAR is `footnote-reference' and
CDR is beginning position.
(defalias 'org-element-footnote-reference-successor #[nil "\212\3032D \304\305\306#\205C \212\307\224\310\311u\210\304\312\305\306#\203? \313\307!\314\232\203, T\202/ S \307U\203 \315\303\316\nB\"\210\202 +\202 0)\207" [org-footnote-re count beg exit re-search-forward nil t 0 1 -1 "[][]" match-string "[" throw footnote-reference] 4 (#$ . 76492)])
#@214 Parse inline babel call at point.
Return a list whose CAR is `inline-babel-call' and CDR a plist
with `:begin', `:end', `:info' and `:post-blank' as keywords.
Assume point is at the beginning of the babel call.
(defalias 'org-element-inline-babel-call-parser #[nil "\212n\204 \306u\210\307!\210\310 \311\216\312 *\313\225\314\225b\210\315\316w` \317\320\f\321\n\322
\323 \257-D\207" [org-babel-inline-lob-one-liner-regexp save-match-data-internal end post-blank begin info -1 looking-at match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-babel-lob-get-info 1 0 " " nil inline-babel-call :begin :end :info :post-blank] 9 (#$ . 76999)])
#@68 Interpret INLINE-BABEL-CALL object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-inline-babel-call-interpreter #[(inline-babel-call contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\211@ A@ \312\313\314\f\"\2034 \315\316\317\f\"\320\211\f$\2025 \f
\205= \321\322
\"Q+\207" [inline-babel-call element property babel-info main-source post-options :info get-text-property 0 plist-get "call_" string-match "\\[\\(\\[.*?\\]\\)\\]" replace-match match-string 1 nil format "[%s]"] 7 (#$ . 77693)])
#@140 Search for the next inline-babel-call object.
Return value is a cons cell whose CAR is `inline-babel-call' and
CDR is beginning position.
(defalias 'org-element-inline-babel-call-successor #[nil "\212\301\302\303#\205
\304\305\225B)\207" [org-babel-inline-lob-one-liner-regexp re-search-forward nil t inline-babel-call 1] 4 (#$ . 78209)])
#@250 Parse inline source block at point.
Return a list whose CAR is `inline-src-block' and CDR a plist
with `:begin', `:end', `:language', `:value', `:parameters' and
`:post-blank' as keywords.
Assume point is at the beginning of the inline src block.
(defalias 'org-element-inline-src-block-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\312\313\n \"*\314\312\313\n \"*\315\312\313\n \"*\316\225b\210\317\312w` \320\321\322
\323\324\325 \326\f\257\f.D\207" [org-babel-inline-src-block-regexp string num end post-blank value -1 looking-at 1 2 nil match-string-no-properties 4 5 0 " " inline-src-block :language :value :parameters :begin :end :post-blank parameters language begin] 13 (#$ . 78558)])
#@67 Interpret INLINE-SRC-BLOCK object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-inline-src-block-interpreter #[(inline-src-block contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\313 ;\203A \307\310\n #\202G \311 A@\n\"* \314\315
\f\203Y \314\316\f\"\202Z \317 $+\207" [inline-src-block element property body arguments language :language get-text-property 0 plist-get :parameters :value format "src_%s%s{%s}" "[%s]" ""] 6 (#$ . 79292)])
#@141 Search for the next inline-babel-call element.
Return value is a cons cell whose CAR is `inline-babel-call' and
CDR is beginning position.
(defalias 'org-element-inline-src-block-successor #[nil "\212n\204 \301u\210\302\303\304#\205 \305\306\224B)\207" [org-babel-inline-src-block-regexp -1 re-search-forward nil t inline-src-block 1] 4 (#$ . 79802)])
#@220 Parse italic object at point.
Return a list whose CAR is `italic' and CDR is a plist with
`:begin', `:end', `:contents-begin' and `:contents-end' and
`:post-blank' keywords.
Assume point is at the first slash marker.
(defalias 'org-element-italic-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\224\311\225\310\225b\210\312\313w` \314\315
\316 \317\f\320 \321\n\257\n.D\207" [org-emph-re end post-blank contents-end contents-begin begin -1 looking-at 2 4 " " nil italic :begin :end :contents-begin :contents-end :post-blank] 11 (#$ . 80165)])
#@80 Interpret ITALIC object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-italic-interpreter #[(italic contents) "\301\302\"\207" [contents format "/%s/"] 3 (#$ . 80731)])
#@214 Parse LaTeX fragment at point.
Return a list whose CAR is `latex-fragment' and CDR a plist with
`:value', `:begin', `:end', and `:post-blank' as keywords.
Assume point is at the beginning of the LaTeX fragment.
(defalias 'org-element-latex-fragment-parser #[nil "\212`\3062B A\307\211\203; @\211A@ \310\f!\204, o\2043 \212\311u\210\310\f!)\2033 \312\306\313\n8\"\210) A\211\204 *\310\314!\210\3150\211 \307 \316\"*
\225b\210\317\307w ` \320\321\322\323\324\257.D\207" [begin org-latex-regexps e --dolist-tail-- latex-regexp substring-match exit nil looking-at -1 throw 2 "\\\\[a-zA-Z]+\\*?\\(\\(\\[[^][\n{}]*\\]\\)\\|\\({[^{}\n]*}\\)\\)*" 0 match-string-no-properties " " latex-fragment :value :begin :end :post-blank string num value post-blank end] 10 (#$ . 80939)])
#@65 Interpret LATEX-FRAGMENT object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-latex-fragment-interpreter #[(latex-fragment contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [latex-fragment element property :value get-text-property 0 plist-get] 4 (#$ . 81745)])
#@189 Parse line break at point.
Return a list whose CAR is `line-break', and CDR a plist with
`:begin', `:end' and `:post-blank' keywords.
Assume point is at the beginning of the line break.
(defalias 'org-element-line-break-parser #[nil "\300\301`\302\303y\210`\304\305\257D\207" [line-break :begin :end nil :post-blank 0] 7 (#$ . 82034)])
#@61 Interpret LINE-BREAK object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-line-break-interpreter #[(line-break contents) "\300\207" ["\\\\\n"] 1 (#$ . 82379)])
#@126 Search for the next line-break object.
Return value is a cons cell whose CAR is `line-break' and CDR is
beginning position.
(defalias 'org-element-line-break-successor #[nil "\212\301\302\303\304#\205\f \305\224b\211\205 \306\307\310 \304#\205 \311B*\207" [beg re-search-forward "[^\\\\]\\(\\\\\\\\\\)[ ]*$" nil t 1 re-search-backward "\\S-" point-at-bol line-break] 5 (#$ . 82555)])
#@274 Parse link at point.
Return a list whose CAR is `link' and CDR a plist with `:type',
`:path', `:raw-link', `:application', `:search-option', `:begin',
`:end', `:contents-begin', `:contents-end' and `:post-blank' as
keywords.
Assume point is at the beginning of the link.
(defalias 'org-element-link-parser #[nil "\212`\306\211\211\211\211\211\211\211\211\211\211 3 4 5 6 7 89\203J \3079!\203J \310\311\2254\311\306 : ;\312;:\"*\311\2246\311\2255\202>\307<!\203\330 \313\2246\313\2255\311\2254\314\315\316\306 : ;\312;:\"*!!\317 !\204| \320\321 \"\203\203 \322 \202>\320= \"\203\235 \323\316 \"\324\325\326 \311\225\306O#\202>\320\327 \"\203\256 \330\323\316 \"\202>\320\331 \"\203\277 \332\323\316 \"\202> \311H\333U\203\321 \334 \316\306O\202>\335 \202>\307>!\203\311\306 : ;\312;:\"*\316\306 : ;\312;:\"*\311\2254\336\306 : ;\312;:\"*\202>\307?!\203>\337\316\224\336\225\"\316\306 : ;\312;:\"*\311\2254\336\306 : ;\312;:\"*4b\210\340\306w3`7\f@\235\203\233\320\341\f\"\203`\323\316\f\"\202i\320\342\f\"\204i\f\320\343
\"\203|\323\316
\"\344\326\306\211
$\345
\306\346 A\320#)\266\203\204\231\317
!\203\231\347\350
!P\322\302\351\f\352
\353 \206\246
\354\355 \3568\3577\3606\3615\3623\257.
D\207" [application search-option link raw-link type path nil looking-at "radio" 0 match-string-no-properties 3 org-translate-link org-link-expand-abbrev 1 file-name-absolute-p string-match "\\`\\.\\.?/" "file" match-string replace-regexp-in-string "[ ]*\n[ ]*" "" "\\`id:\\([-a-f0-9]+\\)" "id" "\\`(\\(.*\\))\\'" "coderef" 35 "custom-id" "fuzzy" 2 buffer-substring-no-properties " " "^file\\+\\(.*\\)$" "^file" "::\\(.*\\)\\'" replace-match "\\`//" t "//" expand-file-name :type :path :raw-link :application :search-option :begin :end :contents-begin :contents-end :post-blank post-blank link-end contents-end contents-begin end begin org-target-link-regexp string num org-bracket-link-regexp org-link-types-re org-plain-link-re org-angle-link-re org-element-link-type-is-file inhibit-changing-match-data] 21 (#$ . 82952)])
#@86 Interpret LINK object as Org syntax.
CONTENTS is the contents of the object, or nil.
(defalias 'org-element-link-interpreter #[(link contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\312 ;\203) \307\310\n #\202/ \311 A@\n\"*\211 \313\230\203< \202L \314\315
\203J \314\316
\"\202K \317#*\207" [link element property raw-link type contents :type get-text-property 0 plist-get :raw-link "radio" format "[[%s]%s]" "[%s]" ""] 7 (#$ . 85073)])
#@114 Search for the next link object.
Return value is a cons cell whose CAR is `link' and CDR is
beginning position.
(defalias 'org-element-link-successor #[nil "\212\204 \202
\303Q\304\n\305\306#\205 \307\310\224B*\207" [org-target-link-regexp org-any-link-re link-regexp "\\|" re-search-forward nil t link 0] 4 (#$ . 85532)])
#@120 Search for the next plain link object.
Return value is a cons cell whose CAR is `link' and CDR is
beginning position.
(defalias 'org-element-plain-link-successor #[nil "\212\301\302\303#)\205 \304\305\224B\207" [org-plain-link-re re-search-forward nil t link 0] 4 (#$ . 85871)])
#@186 Parse macro at point.
Return a list whose CAR is `macro' and CDR a plist with `:key',
`:args', `:begin', `:end', `:value' and `:post-blank' as
keywords.
Assume point is at the macro.
(defalias 'org-element-macro-parser #[nil "\212\306\307!\210`\310\311\312 \"*\227\313\311\312 \"*\313\225b\210\314\311w`\315\311\312 \"*\211\2059 \316\317\320\321\n\311\322%\323\") \324\325\326
\327\n\330 \331 \332\f\257\f.D\207" [string num args end post-blank value looking-at "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)\\(([ \n]*\\([^ ]*?\\))\\)?}}}" 1 nil match-string-no-properties 0 " " 3 split-string replace-regexp-in-string "\\(\\\\*\\)\\(,\\)" #[(str) "\302\303\"G\304 \305\245\306\"\307 \305\"\310U\203 \311\202 \312P)\207" [str len match-string 1 make-string 2 92 mod 0 " " ","] 4] t " " macro :key :value :args :begin :end :post-blank key begin] 14 (#$ . 86160)])
#@56 Interpret MACRO object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-macro-interpreter #[(macro contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [macro element property :value get-text-property 0 plist-get] 4 (#$ . 87044)])
#@114 Search for the next macro object.
Return value is cons cell whose CAR is `macro' and CDR is
beginning position.
(defalias 'org-element-macro-successor #[nil "\212\300\301\302\303#\205
\304\305\224B)\207" [re-search-forward "{{{\\([a-zA-Z][-a-zA-Z0-9_]*\\)\\(([ \n]*\\([^ ]*?\\))\\)?}}}" nil t macro 0] 4 (#$ . 87297)])
#@226 Parse radio target at point.
Return a list whose CAR is `radio-target' and CDR a plist with
`:begin', `:end', `:contents-begin', `:contents-end', `:value'
and `:post-blank' as keywords.
Assume point is at the radio target.
(defalias 'org-element-radio-target-parser #[nil "\212\306!\210`\307\224\307\225\307\310\311\n \"*\312\225b\210\313\310w` \314\315\316 \317\320\321\f\322
\257\f.D\207" [org-radio-target-regexp string num end post-blank value looking-at 1 nil match-string-no-properties 0 " " radio-target :begin :end :contents-begin :contents-end :post-blank :value contents-end contents-begin begin] 13 (#$ . 87626)])
#@80 Interpret TARGET object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-radio-target-interpreter #[(target contents) "\301\302Q\207" [contents "<<<" ">>>"] 3 (#$ . 88278)])
#@130 Search for the next radio-target object.
Return value is a cons cell whose CAR is `radio-target' and CDR
is beginning position.
(defalias 'org-element-radio-target-successor #[nil "\212\301\302\303#\205
\304\305\224B)\207" [org-radio-target-regexp re-search-forward nil t radio-target 0] 4 (#$ . 88489)])
#@220 Parse statistics cookie at point.
Return a list whose CAR is `statistics-cookie', and CDR a plist
with `:begin', `:end', `:value' and `:post-blank' keywords.
Assume point is at the beginning of the statistics-cookie.
(defalias 'org-element-statistics-cookie-parser #[nil "\212\304\305!\210`\306\307\224\307\225\"\307\225b\210\310\311w`\312\313\314 \315 \316\n\257-D\207" [begin value post-blank end looking-at "\\[[0-9]*\\(%\\|/[0-9]*\\)\\]" buffer-substring-no-properties 0 " " nil statistics-cookie :begin :end :value :post-blank] 9 (#$ . 88804)])
#@68 Interpret STATISTICS-COOKIE object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-statistics-cookie-interpreter #[(statistics-cookie contents) "\303 ;\203 \304\305\n #\202 \306 A@\n\"*\207" [statistics-cookie element property :value get-text-property 0 plist-get] 4 (#$ . 89369)])
#@140 Search for the next statistics cookie object.
Return value is a cons cell whose CAR is `statistics-cookie' and
CDR is beginning position.
(defalias 'org-element-statistics-cookie-successor #[nil "\212\300\301\302\303#\205
\304\305\224B)\207" [re-search-forward "\\[[0-9]*\\(%\\|/[0-9]*\\)\\]" nil t statistics-cookie 0] 4 (#$ . 89670)])
#@240 Parse strike-through object at point.
Return a list whose CAR is `strike-through' and CDR is a plist
with `:begin', `:end', `:contents-begin' and `:contents-end' and
`:post-blank' keywords.
Assume point is at the first plus sign marker.
(defalias 'org-element-strike-through-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\224\311\225\310\225b\210\312\313w` \314\315
\316 \317\f\320 \321\n\257\n.D\207" [org-emph-re end post-blank contents-end contents-begin begin -1 looking-at 2 4 " " nil strike-through :begin :end :contents-begin :contents-end :post-blank] 11 (#$ . 90016)])
#@88 Interpret STRIKE-THROUGH object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-strike-through-interpreter #[(strike-through contents) "\301\302\"\207" [contents format "+%s+"] 3 (#$ . 90618)])
#@227 Parse subscript at point.
Return a list whose CAR is `subscript' and CDR a plist with
`:begin', `:end', `:contents-begin', `:contents-end',
`:use-brackets-p' and `:post-blank' as keywords.
Assume point is at the underscore.
(defalias 'org-element-subscript-parser #[nil "\212n\204 \306u\210\307!\203 \310\202 \307 !?\311\224\312\224\206 \313\224\312\225\206& \313\225\314\225b\210\315\316w` \317\320\321\n\322\323
\324\f\325 \257\f.D\207" [org-match-substring-with-braces-regexp org-match-substring-regexp end post-blank contents-end contents-begin -1 looking-at t 2 5 3 0 " " nil subscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank begin bracketsp] 13 (#$ . 90850)])
#@83 Interpret SUBSCRIPT object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-subscript-interpreter #[(subscript contents) "\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\203 \311\202! \312 \"\207" [subscript element property contents format :use-brackets-p get-text-property 0 plist-get "_{%s}" "_%s"] 5 (#$ . 91572)])
#@154 Search for the next sub/superscript object.
Return value is a cons cell whose CAR is either `subscript' or
`superscript' and CDR is beginning position.
(defalias 'org-element-sub/superscript-successor #[nil "\212n\204 \301u\210\302\303\304#\205 \305\306!\307\230\203 \310\202 \311\306\224B)\207" [org-match-substring-regexp -1 re-search-forward nil t match-string 2 "_" subscript superscript] 4 (#$ . 91930)])
#@226 Parse superscript at point.
Return a list whose CAR is `superscript' and CDR a plist with
`:begin', `:end', `:contents-begin', `:contents-end',
`:use-brackets-p' and `:post-blank' as keywords.
Assume point is at the caret.
(defalias 'org-element-superscript-parser #[nil "\212n\204 \306u\210\307!\203 \310\202 \307 !?\311\224\312\224\206 \313\224\312\225\206& \313\225\314\225b\210\315\316w` \317\320\321\n\322\323
\324\f\325 \257\f.D\207" [org-match-substring-with-braces-regexp org-match-substring-regexp end post-blank contents-end contents-begin -1 looking-at t 2 5 3 0 " " nil superscript :begin :end :use-brackets-p :contents-begin :contents-end :post-blank begin bracketsp] 13 (#$ . 92353)])
#@85 Interpret SUPERSCRIPT object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-superscript-interpreter #[(superscript contents) "\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\203 \311\202! \312 \"\207" [superscript element property contents format :use-brackets-p get-text-property 0 plist-get "^{%s}" "^%s"] 5 (#$ . 93078)])
#@180 Parse table cell at point.
Return a list whose CAR is `table-cell' and CDR is a plist
containing `:begin', `:end', `:contents-begin', `:contents-end'
and `:post-blank' keywords.
(defalias 'org-element-table-cell-parser #[nil "\304\305!\210\306\224\306\225\307\224\307\225\310\311\312 \313\n\314 \315\306\257\n,D\207" [begin end contents-begin contents-end looking-at "[ ]*\\(.*?\\)[ ]*\\(?:|\\|$\\)" 0 1 table-cell :begin :end :contents-begin :contents-end :post-blank] 11 (#$ . 93444)])
#@91 Interpret TABLE-CELL element as Org syntax.
CONTENTS is the contents of the cell, or nil.
(defalias 'org-element-table-cell-interpreter #[(table-cell contents) "\301\302Q\207" [contents " " " |"] 3 (#$ . 93946)])
#@126 Search for the next table-cell object.
Return value is a cons cell whose CAR is `table-cell' and CDR is
beginning position.
(defalias 'org-element-table-cell-successor #[nil "\300\301!\205 \302`B\207" [looking-at "[ ]*.*?[ ]*\\(|\\|$\\)" table-cell] 2 (#$ . 94167)])
#@172 Parse target at point.
Return a list whose CAR is `target' and CDR a plist with
`:begin', `:end', `:value' and `:post-blank' as keywords.
Assume point is at the target.
(defalias 'org-element-target-parser #[nil "\212\306!\210`\307\310\311\n \"*\312\225b\210\313\310w` \314\315\316 \317
\320\f\257-D\207" [org-target-regexp string num end post-blank value looking-at 1 nil match-string-no-properties 0 " " target :begin :end :value :post-blank begin] 9 (#$ . 94445)])
#@57 Interpret TARGET object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-target-interpreter #[(target contents) "\303\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\"\207" [target element property format "<<%s>>" :value get-text-property 0 plist-get] 6 (#$ . 94932)])
#@118 Search for the next target object.
Return value is a cons cell whose CAR is `target' and CDR is
beginning position.
(defalias 'org-element-target-successor #[nil "\212\301\302\303#\205
\304\305\224B)\207" [org-target-regexp re-search-forward nil t target 0] 4 (#$ . 95215)])
#@461 Parse time stamp at point.
Return a list whose CAR is `timestamp', and CDR a plist with
`:type', `:raw-value', `:year-start', `:month-start',
`:day-start', `:hour-start', `:minute-start', `:year-end',
`:month-end', `:day-end', `:hour-end', `:minute-end',
`:repeater-type', `:repeater-value', `:repeater-unit',
`:warning-type', `:warning-value', `:warning-unit', `:begin',
`:end' and `:post-blank' keywords.
Assume point is at the beginning of the timestamp.
(defalias 'org-element-timestamp-parser #[nil "\212`\306f\307=\310\311!\210\312\313!\312\314!\315\316! \317\224 \313\225b\210\320\306w @` A
?\205@ \321\322 \"\205@ \323\315\317 \"!\323\315\316 \"!B B
\203J \324\202q \203[ \f\204W B\203[ \325\202q \203c \326\202q \f\204l B\203p \327\202q \330 C
?\205\341 \321\331\n\"\205\341 \332\315\314\n\"\211 C\333\232\203\220 \334\202\234 C\335\232\203\233 \336\202\234 \337)\340\323\315\317\n\"!\341\342\315\316\n\"! D\343D\344\"\203\271 \345\202\336 \343D\346\"\203\305 \347\202\336 \343D\350\"\203\321 \351\202\336 \343D\352\"\203\335 \353\202\336 \354)\257 E
?\205@\321\355\n\"\205@\356\315\314\n\"\203\373 \357\202\374 \360\361\323\315\317\n\"!\362\342\315\316\n\"! F\343F\344\"\203\345\202=\343F\346\"\203$\347\202=\343F\350\"\2030\351\202=\343F\352\"\203<\353\202=\354)\257 G\306\211 H I\306\211 J K\306\211 L M\306\211 N O\306\211 P Q
\204\211\363 \364\" R\365R8H\366R8I\316R8J\317R8KRA@L)
\204\333\f\205\225\363\f\364\" R\365R8\206\240HM\366R8\206\253IN\316R8\206\266JO\317R8\206\307B@\206\307KPRA@\206\330BA\206\330LQ)\367\370C\371\n\372H\373I\374J\375K\376L\377M\201S N\201T O\201U P\201V Q\201W \201X A\201Y @\257 E\244G\244.D\207" [begin activep raw-value date-start date-end diaryp nil 60 looking-at "\\([<[]\\(%%\\)?.*?\\)[]>]\\(?:--\\([<[].*?[]>]\\)\\)?" 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 "++" catch-up ".+" restart cumulate :repeater-value :repeater-unit string-to-char eql 104 hour 100 day 119 week 109 month year "\\(-\\)?-\\([0-9]+\\)\\([hdwmy]\\)" :warning-type first all :warning-value :warning-unit org-parse-time-string t 5 4 timestamp :type :raw-value :year-start :month-start :day-start :hour-start :minute-start :year-end post-blank end time-range type #1=#:temp repeater-props #2=#:temp warning-props year-start month-start day-start hour-start minute-start year-end month-end day-end hour-end minute-end date :month-end :day-end :hour-end :minute-end :begin :end :post-blank] 32 (#$ . 95500)])
#@60 Interpret TIMESTAMP object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-timestamp-interpreter #[(timestamp contents) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\206\327\312 ;\203, \307\310\n #\2022 \311 A@\n\"*\313 \314\"\203? \315\202R \313 \316\"\203J \317\202R \313 \320\"\205R \321)\322 ;\203d \307\310\n #\202j \311 A@\n\"*\211 \205s \323\f!)\324 ;\203\205 \307\310\n #\202\213 \311 A@\n\"* \313
\325\"\203\230 \326\202\301 \313
\327\"\203\243 \330\202\301 \313
\331\"\203\256 \332\202\301 \313
\333\"\203\271 \334\202\301 \313
\335\"\205\301 \336)Q 8\337 ;\203\326 \307\310\n #\202\334 \311 A@\n\"* 9\3139\340\"\203\353 \341\202\364 \3139\342\"\205\364 \343)\344 ;\203\307\310\n #\202\f\311 A@\n\"*\211 \205\323\f!)\345 ;\203'\307\310\n #\202-\311 A@\n\"* :\313:\325\"\203<\326\202i\313:\327\"\203H\330\202i\313:\331\"\203T\332\202i\313:\333\"\203`\334\202i\313:\335\"\205i\336)Q ;\346 <\347 ;\203\201\307\310\n #\202\207\311 A@\n\"* =\350=\351\"\203\227\352 ;\203\243\307\310\n #\202\251\311 A@\n\"* >\353 ;\203\275\307\310\n #\202\303\311 A@\n\"* ?\354 ;\203\327\307\310\n #\202\335\311 A@\n\"* @\355 ;\203\361\307\310\n #\202\367\311 A@\n\"* A@\205 A\205 >\205 ?\205 @AU?\206 >?U? B<\356\310>\206)\310@\206/\310\357 ;\203@\307\310\n #\202F\311 A@\n\"*\360 ;\203X\307\310\n #\202^\311 A@\n\"*\361 ;\203p\307\310\n #\202v\311 A@\n\"*&=\362=@\205\204>B\205\213AB\205\222?%-\202\326\350=\363\"\205\326\352 ;\203\260\307\310\n #\202\266\311 A@\n\"*\353 ;\203\310\307\310\n #\202\316\311 A@\n\"*\354 ;\203\340\307\310\n #\202\346\311 A@\n\"*\355 ;\203\370\307\310\n #\202\376\311 A@\n\"* A @ ? ><\356\310>\206\310@\206\310\357 ;\203(\307\310\n #\202.\311 A@\n\"*\360 ;\203@\307\310\n #\202F\311 A@\n\"*\361 ;\203X\307\310\n #\202^\311 A@\n\"*&=\364=@\205l>#\341<\356\310?\206x\310A\206~\310\365 ;\203\217\307\310\n #\202\225\311 A@\n\"*\366 ;\203\247\307\310\n #\202\255\311 A@\n\"*\367 ;\203\277\307\310\n #\202\305\311 A@\n\"*&=\364=A\205\323?#Q,,\207" [timestamp element property #1=#:temp val #2=#:temp :raw-value get-text-property 0 plist-get :repeater-type eql cumulate "+" catch-up "++" restart ".+" :repeater-value number-to-string :repeater-unit hour "h" day "d" week "w" month "m" year "y" :warning-type first "--" all "-" :warning-value :warning-unit #[(time activep &optional with-time-p hour-end minute-end) "\306\203 \307\202\n \310 !\n\"\f\203'
\203' \311\312 \"\210\313\314\315\f
#\316\211 $\2044 \314\317 \320\321O\"D\316 \211 \203d @\322!\203[ \323\321O\324 \321\316ORA\211\204B * )\207" [with-time-p org-time-stamp-formats time ts hour-end minute-end 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 " " activep repeat-string warning-string s --dolist-tail--] 7] :type memql (active inactive) :minute-start :minute-end :hour-start :hour-end encode-time :day-start :month-start :year-start active (active-range inactive-range) active-range :day-end :month-end :year-end repeat-string #3=#:temp #4=#:temp warning-string build-ts-string type minute-start minute-end hour-start hour-end time-range-p] 14 (#$ . 98234)])
#@124 Search for the next timestamp object.
Return value is a cons cell whose CAR is `timestamp' and CDR is
beginning position.
(defalias 'org-element-timestamp-successor #[nil "\212\301\302\303\302\304\260\305\306#\205 \307\310\224B)\207" [org-ts-regexp-both re-search-forward "\\|" "\\(?:<[0-9]+-[0-9]+-[0-9]+[^>\n]+?\\+[0-9]+[dwmy]>\\)" "\\(?:<%%\\(?:([^>\n]+)\\)>\\)" nil t timestamp 0] 6 (#$ . 101595)])
#@231 Parse underline object at point.
Return a list whose CAR is `underline' and CDR is a plist with
`:begin', `:end', `:contents-begin' and `:contents-end' and
`:post-blank' keywords.
Assume point is at the first underscore marker.
(defalias 'org-element-underline-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\224\311\225\310\225b\210\312\313w` \314\315
\316 \317\f\320 \321\n\257\n.D\207" [org-emph-re end post-blank contents-end contents-begin begin -1 looking-at 2 4 " " nil underline :begin :end :contents-begin :contents-end :post-blank] 11 (#$ . 102009)])
#@83 Interpret UNDERLINE object as Org syntax.
CONTENTS is the contents of the object.
(defalias 'org-element-underline-interpreter #[(underline contents) "\301\302\"\207" [contents format "_%s_"] 3 (#$ . 102593)])
#@200 Parse verbatim object at point.
Return a list whose CAR is `verbatim' and CDR is a plist with
`:value', `:begin', `:end' and `:post-blank' keywords.
Assume point is at the first equal sign marker.
(defalias 'org-element-verbatim-parser #[nil "\212n\204 \306u\210\307!\210\310\224\311\312\313\n \"*\310\225b\210\314\312w` \315\316
\317\320 \321\f\257-D\207" [org-emph-re string num end post-blank value -1 looking-at 2 4 nil match-string-no-properties " " verbatim :value :begin :end :post-blank begin] 9 (#$ . 102811)])
#@59 Interpret VERBATIM object as Org syntax.
CONTENTS is nil.
(defalias 'org-element-verbatim-interpreter #[(verbatim contents) "\303\304\305 ;\203 \306\307\n #\202 \310 A@\n\"*\"\207" [verbatim element property format "=%s=" :value get-text-property 0 plist-get] 6 (#$ . 103351)])
#@836 Parse the element starting at point.
Return value is a list like (TYPE PROPS) where TYPE is the type
of the element and PROPS a plist of properties associated to the
element.
Possible types are defined in `org-element-all-elements'.
LIMIT bounds the search.
Optional argument GRANULARITY determines the depth of the
recursion. Allowed values are `headline', `greater-element',
`element', `object' or nil. When it is broader than `object' (or
nil), secondary values will not be parsed, since they only
contain objects.
Optional argument SPECIAL, when non-nil, can be either
`first-section', `item', `node-property', `quote-section',
`section', and `table-row'.
If STRUCTURE isn't provided but SPECIAL is set to `item', it will
be computed.
This function assumes point is always at the beginning of the
element it has to parse.
(defalias 'org-element--current-element #[(limit &optional granularity special structure) "\212\306\205\n \307=? \310=\203 \311\f
#\202\355 \312=\203& \313\f!\202\355 \314=\2032 \315\f!\202\355\306 @\316 \211 A B\317AP C\320 ,\203O \321\f \"\202\355 \322=\203[ \323\f!\202\355 \324=\203g \325\f!\202\355 \326=\203\212 \323\212\306 @\316 \211 A B\317AP C\327 -\206\206 \f!\202\355n\204\226 \330\f`C\"\202\355\331D!\203\262 \332\333!E\232\203\254 \334\f!\202\355\335\f!\202\355\320 \203\276 \336\f \"\202\355\337\f!\211 FA\203\332 `\fY\203\332 F@b\210\340\f\341\"\202\354\331\342!\203\350 \343\fF\"\202\354\331G!\203\332\333!\344\232\203\377 \345\fF\"\202\354\346\fF\"\202\354\331\347!\203\350\fF\"\202\354\331\351!\203\230\352\225b\210\331\353!\2030\354 \210\355\fF\"\202\354\331\356!\203Z\354 \210\357\332\333!\226H\"\211 I\203QIA\fF\"\202V\360\fF\")\202\354\331\361!\203k\354 \210\362\fF\"\202\354\331\363!\203|\354 \210\364\fF\"\202\354\331\365!\203\215\354 \210\340\fF\"\202\354\354 \210\330\fF\"\202\354\331J!\203\247\366\fF\"\202\354\331\367!\203\265\370\fF\"\202\354\331\371!\203\303\372\fF\"\202\354\373\306!\203\321\374\fF\"\202\354\331\375 !\203\347\376\fF
\206\343\377\f!#\202\354\330\fF\")+\207" [granularity raw-secondary-p case-fold-search special limit structure 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 quote-section org-element-quote-section-parser first-section outline-next-heading org-element-paragraph-parser looking-at match-string 1 org-element-clock-parser org-element-planning-parser org-element-inlinetask-parser org-element--collect-affiliated-keywords org-element-keyword-parser nil "[ ]*\\\\begin{\\([A-Za-z0-9]+\\*?\\)}\\(\\[.*?\\]\\|{.*?}\\)*[ ]*$" org-element-latex-environment-parser "PROPERTIES" org-element-property-drawer-parser org-element-drawer-parser "[ ]*:\\( \\|$\\)" org-element-fixed-width-parser "[ ]*#" 0 "\\(?: \\|$\\)" beginning-of-line org-element-comment-parser "\\+BEGIN_\\(\\S-+\\)" assoc 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-element-horizontal-rule-parser "%%(" org-element-diary-sexp-parser org-at-table-p org-element-table-parser org-item-re org-element-plain-list-parser org-element--list-struct org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-planning-or-clock-line-re org-clock-string affiliated org-drawer-regexp org-element-block-name-alist parser org-footnote-definition-re] 6 (#$ . 103641)])
#@379 Collect affiliated keywords from point down to LIMIT.
Return a list whose CAR is the position at the first of them and
CDR a plist of keywords and values and move point to the
beginning of the first line after them.
As a special case, if element doesn't start at the beginning of
the line (e.g., a paragraph starting an item), CAR is current
position of point and CDR is nil.
(defalias 'org-element--collect-affiliated-keywords #[(limit) "n\204 `C\207\306`\307\2119\203 \202- \211:\204$ ;\205, \310\202, @9\205, @) \236A)\311 ` W\203\372 \312 !\203\372 \313\314!\226 \315 !\"A\206V \"\316 #\317\216\320\321\322\225\323 \"!* $\"%\235 &\"'\235\211 (\205\236 \324\311 ) *\325*)\"*\211 +\203\223 &\204\230 +\202\235 \326+ \") ,\"\205\254 \327\330\"\227P! -&\203\272 \326$ \"$(\203\320 $\204\311 ,\205\316 $,B$\".\235\204\340 \331\332\"\"\203\352 $\333\n-\"B$\334\n-$#\311y\210.\2026 \312\335!\203\fb\210\311\f\n,B\207" [element org-element-object-restrictions output restrict origin case-fold-search t keyword plain-text nil looking-at match-string 1 assoc match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-trim buffer-substring-no-properties 0 point-at-eol 2 match-string-no-properties org-element-parse-secondary-string intern ":" string-match "^ATTR_" plist-get plist-put "[ ]*$" limit org-element--affiliated-re raw-kwd org-element-keyword-translation-alist kwd save-match-data-internal value org-element-parsed-keywords parsedp org-element-dual-keywords dualp string num sec dual-value kwd-sym org-element-multiple-keywords] 5 (#$ . 107321)])
#@1841 Recursively parse the buffer and return structure.
If narrowing is in effect, only parse the visible part of the
buffer.
Optional argument GRANULARITY determines the depth of the
recursion. It can be set to the following symbols:
`headline' Only parse headlines.
`greater-element' Don't recurse into greater elements excepted
headlines and sections. Thus, elements
parsed are the top-level ones.
`element' Parse everything but objects and plain text.
`object' Parse the complete buffer (default).
When VISIBLE-ONLY is non-nil, don't parse contents of hidden
elements.
An element or an objects is represented as a list with the
pattern (TYPE PROPERTIES CONTENTS), where :
TYPE is a symbol describing the element or object. See
`org-element-all-elements' and `org-element-all-objects' for an
exhaustive list of such symbols. One can retrieve it with
`org-element-type' function.
PROPERTIES is the list of attributes attached to the element or
object, as a plist. Although most of them are specific to the
element or object type, all types share `:begin', `:end',
`:post-blank' and `:parent' properties, which respectively
refer to buffer position where the element or object starts,
ends, the number of white spaces or blank lines after it, and
the element or object containing it. Properties values can be
obtained by using `org-element-property' function.
CONTENTS is a list of elements, objects or raw strings
contained in the current element or object, when applicable.
One can access them with `org-element-contents' function.
The Org buffer has `org-data' as type and nil as properties.
`org-element-map' function can be used to find specific elements
or objects within the parse tree.
This function assumes that current major mode is `org-mode'.
(defalias 'org-element-parse-buffer #[(&optional granularity visible-only) "\212eb\210\302 \210\303\304 d\305\306 \307\306D&)\207" [granularity visible-only org-skip-whitespace org-element--parse-elements point-at-bol first-section nil org-data] 9 (#$ . 108974)])
#@303 Recursively parse objects in STRING and return structure.
RESTRICTION is a symbol limiting the object types that will be
looked after.
Optional argument PARENT, when non-nil, is the element or object
containing the secondary string. It is used to set correctly
`:parent' property within the string.
(defalias 'org-element-parse-secondary-string #[(string restriction &optional parent) "\306 \307\310!r q\210\311\216\312\211\203C @\31317 \n9\203' \314\n!\2023 \n@\nA \315
!\fL*0\202; \210\202< \210 A\211\204 *c\210\316\312!\210\317ed\312$ \203\233 \312 \211\203\232 @\211\320 \211 ;\203\201 \321\312\f$\202\221 A\322A@\f#\240\210+\210 A\211\204d *-\207" [local-variables #1=#:temp-buffer v --dolist-tail-- value var buffer-local-variables generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil (error) makunbound make-local-variable restore-buffer-modified-p org-element--parse-objects :parent org-add-props plist-put string restriction secondary parent o property element] 6 (#$ . 111087)])
#@2282 Map a function on selected elements or objects.
DATA is a parse tree, an element, an object, a string, or a list
of such constructs. TYPES is a symbol or list of symbols of
elements or objects types (see `org-element-all-elements' and
`org-element-all-objects' for a complete list of types). FUN is
the function called on the matching element or object. It has to
accept one argument: the element or object itself.
When optional argument INFO is non-nil, it should be a plist
holding export options. In that case, parts of the parse tree
not exportable according to that property list will be skipped.
When optional argument FIRST-MATCH is non-nil, stop at the first
match for which FUN doesn't return nil, and return that value.
Optional argument NO-RECURSION is a symbol or a list of symbols
representing elements or objects types. `org-element-map' won't
enter any recursive element or object whose type belongs to that
list. Though, FUN can still be applied on them.
When optional argument WITH-AFFILIATED is non-nil, FUN will also
apply to matching objects within parsed affiliated keywords (see
`org-element-parsed-keywords').
Nil values returned from FUN do not appear in the results.
Examples:
---------
Assuming TREE is a variable containing an Org buffer parse tree,
the following example will return a flat list of all `src-block'
and `example-block' elements in it:
(org-element-map tree \='(example-block src-block) \='identity)
The following snippet will find the first headline with a level
of 1 and a "phone" tag, and will return its beginning position:
(org-element-map tree \='headline
(lambda (hl)
(and (= (org-element-property :level hl) 1)
(member "phone" (org-element-property :tags hl))
(org-element-property :begin hl)))
nil t)
The next example will return a flat list of all `plain-list' type
elements in TREE that are not a sub-list themselves:
(org-element-map tree \='plain-list \='identity nil nil \='plain-list)
Eventually, this example will return a flat list of all `bold'
type objects containing a `latex-snippet' type object, even
looking into captions:
(org-element-map tree \='bold
(lambda (b)
(and (org-element-map b \='latex-snippet \='identity nil t) b))
nil nil nil t)
(defalias 'org-element-map #[(data types fun &optional info first-match no-recursion with-affiliated) "<\204 C <\204 C\3062 \307\310\311\"\210\n)0\f\205' \312\313
\" \314\211 \315 \3162@ !\210\2370-\207" [types no-recursion category --category with-affiliated org-element-affiliated-keywords found greater-elements mapc #[(type) " >\204\f \304=\203 \305\306\307\"\207\n>?\205\" \310=?\205\" \310\211\207" [type org-element-all-objects org-element-greater-elements category plain-text throw found objects elements] 3] mapcar #[(kwd) "\301\302\227P!B\207" [kwd intern ":"] 4] nil #[(--data) "\211:\204 ;\205 \306\202 @9\205 @)?\206/ \203, \307 \310\">\206/\n\2047 \311\f\"\202/\n\312=\203\\ \311\f\211:\204J \313\202W @9\203V AA\202W )\"\202/\n
>\203\202 !\211 \203\201 \203z \314\315\"\210\202\201 B)\316=\203\271 ;\204\271 \n\236\211 \203\270 \fA ;\203\256 \317\320 #\202\265 \307 A@\"*!\210) \203\322 \316=\203\322 \n >\203\322 \311\321 \"\210\n >\206/\211:\204\344 \313\202\361 @9\203\360 AA\202\361 )?\206/\322=\203\n >?\206/\323=\203\n!>\206/\311\f\211:\204 \313\202- @9\203, AA\202- )\")\207" [--data element --type info --walk-tree types plain-text plist-get :ignore-list mapc org-data nil throw --map-first-match objects get-text-property 0 #[(kwd-pair) "@A \n;\203 \306\307 \n#\202 \310\nA@ \"* \f?\206b
\235\2039
\235\2039 \311\312\313\f!\"\202b
\235\203I \311\314\313\f!\"\202b
\235\203^ \fA!\210\f@!\202b \f!*\207" [kwd-pair --data element property value kwd get-text-property 0 plist-get mapc #[(line) " A!\210 @!\207" [--walk-tree line] 2] reverse #[(line) " !\207" [--walk-tree line] 2] org-element-multiple-keywords org-element-dual-keywords --walk-tree] 5] greater-elements elements fun result first-match --acc --category org-element-secondary-value-alist sec-prop property with-affiliated org-element-all-elements --affiliated-alist no-recursion org-element-greater-elements org-element-all-objects] 6] --map-first-match --affiliated-alist --acc --walk-tree data] 4 (#$ . 112177)])
(put 'org-element-map 'lisp-indent-function 2)
#@474 Parse elements between BEG and END positions.
SPECIAL prioritize some elements over the others. It can be set
to `first-section', `quote-section', `section' `item' or
`table-row'.
When value is `item', STRUCTURE will be used as the current list
structure.
GRANULARITY determines the depth of the recursion. See
`org-element-parse-buffer' for more information.
When VISIBLE-ONLY is non-nil, don't parse contents of hidden
elements.
Elements are accumulated into ACC.
(defalias 'org-element--parse-elements #[(beg end special structure granularity visible-only acc) "\212b\210 \203 \306 \203 \307 T\n^b\210 \310=\2030 \311 \2040 \312 \313 \211 ,\314
P -\315 \210,`\nW\203'\316\n ./$\211 0\211 0:\204R 0;\205\\ \317\202\\ 0@9\205\\ 0@) 1\3200 0 20;\203v \321\32220#\202~ \3230A@2\"* 3\3240 0 20;\203\230 \321\32220#\202\240 \3230A@2\"*b\210 \203\263 \306 \203\263 \307 T\n^b\2103\203\34014>\203\202 \325>\204\332 \326=\203\323 1\327=\204\332 1\310=\203\202\3303\3310 0 20;\203\364 \321\32220#\202\374 \3230A@2\"*\3321\310\"\2030\3330 0 20;\203 \321\32220#\202$\3230A@2\"*\203,\334\202Q\327\202Q\3321\335\"\203<\336\202Q\3321\337\"\203H\340\202Q\3321\341\"\205Q\3421\343>\205x\3440 0 20;\203o\321\32220#\202w\3230A@2\"* 0&\210\202\340 \345>\203\340\3463\3310 0 20;\203\242\321\32220#\202\252\3230A@2\"*01\211 09\203\2730\202\3310\211 0:\204\3160;\205\330\317\202\3300@9\205\3300@)5\236A)$\21060C 7 8\347\3507\"\2108\203\351\3528\211 0\211:\204\353\2020@9\2030AA\2020)7\244#\2108\206!7*\210+\2020 6)\207" [beg visible-only end granularity org-called-with-limited-levels org-outline-regexp org-invisible-p2 org-find-visible headline org-at-heading-p t org-get-limited-outline-regexp "^" outline-next-heading 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 eql :quotedp quote-section plain-list item property-drawer node-property table table-row (item plain-list) :structure (object nil) org-element--parse-objects mapc #[(child) "\306 \206 \n \211 ;\203 \307
\310\f $\202$
A\311
A@\f #\240\210
+\207" [child parent children value property element :parent org-add-props nil plist-put] 6] apply org-element-set-contents nil outline-regexp org-outline-regexp-bol special structure element type property cbeg org-element-greater-elements org-element-object-restrictions acc children parent] 9 (#$ . 116653)])
#@185 Parse objects between BEG and END and return recursive structure.
Objects are accumulated in ACC.
RESTRICTION is a list of object successors which are allowed in
the current object.
(defalias 'org-element--parse-objects #[(beg end acc restriction) "\306\212\214 \n}\210eb\210m\204\230\307 \"\211\203\230\310\311\312\313\"\" \212\fb\210\314\315\316\317\f\"@\"! * \320
\" #\";\203G \321\322#\"#\202O \323\"A@#\"* $`$U\204\250 %\324\325\326&\327\"\330`$\"#C ' (\331\332'\"\210(\203\236 \310\333(\211 \"\211:\204\210 \334\202\230 \"@9\203\226 \"AA\202\230 \")'\244#\210(\206\245 '*%)\335
\" #\";\203\277 \321\322#\"#\202\307 \323\"A@#\"*\336
\" #\";\203\336 \321\322#\"#\202\346 \323\"A@#\"* ) *)\203M
@+>\203M\337)\340
\" #\";\203\321\322#\"#\202\323\"A@#\"*
\211 \"\2119\203(\"\202F\"\211 \":\204;\";\205E\341\202E\"@9\205E\"@),\236A)$\210%
C ' (\331\332'\"\210(\203\206\310\333(\211 \"\211:\204p\334\202\200\"@9\203~\"AA\202\200\")'\244#\210(\206\215'*%*b\210+\202 m\204\352%\324\325\326&\327\"\330`\n\"#C ' (\331\332'\"\210(\203\340\310\333(\211 \"\211:\204\312\334\202\332\"@9\203\330\"AA\202\332\")'\244#\210(\206\347'*%%+\207" [candidates beg end restriction pos next-object initial org-element--get-next-object-candidates apply min mapcar cdr intern format "org-element-%s-parser" rassq :begin get-text-property 0 plist-get replace-regexp-in-string " " make-string 32 buffer-substring-no-properties mapc #[(child) "\306 \206 \n \211 ;\203 \307
\310\f $\202$
A\311
A@\f #\240\210
+\207" [child parent children value property element :parent org-add-props nil plist-put] 6] org-element-set-contents nil :end :contents-begin org-element--parse-objects :contents-end plain-text element property obj-beg acc tab-width children parent cont-beg obj-end org-element-recursive-objects org-element-object-restrictions] 7 (#$ . 119221)])
#@400 Return an alist of candidates for the next object.
RESTRICTION is a list of object types, as symbols. Only
candidates with such types are looked after.
OBJECTS is the previous candidates alist. If it is set to
`initial', no search has been done before, and all symbols in
RESTRICTION should be looked after.
Return value is an alist whose CAR is the object type and CDR its
beginning position.
(defalias 'org-element--get-next-object-candidates #[(restriction objects) "\302\303\304=\203 \305\306 \"\202 \305\307\"\"\207" [objects restriction delq nil initial mapcar #[(res) "\301\302\303\"! \207" [res intern format "org-element-%s-successor"] 4] #[(obj) "A`Y\203 \207@\211\n\236A\206 \211\205 \304\305\306 \"! *\207" [obj type org-element-object-successor-alist succ intern format "org-element-%s-successor"] 5]] 5 (#$ . 121171)])
#@259 Interpret DATA as Org syntax.
DATA is a parse tree, an element, an object or a secondary string
to interpret.
Optional argument PARENT is used for recursive calls. It contains
the element or object containing data, or nil.
Return Org syntax as a string.
(defalias 'org-element-interpret-data #[(data &optional parent) "\211:\204 ;\205 \306\202 @9\205 @)\211\204& \307\310\311#\202\n\312=\203L \307\313\211:\2049 \314\202F @9\203E AA\202F )\311#\202;\203U \202\211:\204` \314\202m @9\203l AA\202m )\204} \315\316\317\n\"!\314\"\202\n >\211 ?\205\211 \n
> \307\320\f\204\226 \203\232 \202\337 \321\n\322=\205\336 \211:\204\257 \314\202\274 @9\203\273 AA\202\274 )@\232\205\336 \211:\204\323 ;\205\333 \306\202\333 @9\205\333 @)\323>\"\211:\204\351 \314\202\366 @9\203\365 AA\202\366 )\311# \315\316\317\n\"!\f\203
\321 !\202 \"+ !\n\324>\203 !\202_\325 \" ;\2031\326\327\" #\2028\330 A@\"\"*\206=\327 #\n$>\203Q!\331#\332\"P\202^\333!\334!!\331#\335\"Q)*\207" [data element type org-element-greater-elements greaterp org-element-recursive-objects plain-text mapconcat #[(obj) "\302 \"\207" [obj parent org-element-interpret-data] 3] "" org-data #[(obj) "\302 \"\207" [obj parent org-element-interpret-data] 3] nil intern format "org-element-%s-interpreter" #[(obj) "\302 \"\207" [obj data org-element-interpret-data] 3] org-element-normalize-contents paragraph (footnote-definition item) (org-data plain-text nil) :post-blank get-text-property 0 plist-get make-string 32 org-element--interpret-affiliated-keywords org-element-normalize-string 10 objectp parent contents results property post-blank org-element-all-objects] 7 (#$ . 122030)])
#@113 Return ELEMENT's affiliated keywords as Org syntax.
If there is no affiliated keyword, return the empty string.
(defalias 'org-element--interpret-affiliated-keywords #[(element) "\306\307\310 A@\311\211 \n:\203@ \n@\312 !\313\311O\226 \314\315
\"\2060
\235\2050 \316
\"?)\2038 \fB\nAA\211\202
\f\237+\317#)\207" [keyword-to-org element #1=#:--cl-var-- prop #2=#:--cl-var-- keyword #[(key value) "\305 \n\235\203 A @\306 \205 \307\310\311!\"\312 \f\235\203' \311 !\202( \313\260)\207" [dual key org-element-dual-keywords value org-element-parsed-keywords nil "#+" format "[%s]" org-element-interpret-data ": " "\n"] 6] mapconcat #[(prop) " ;\203 \306\307\n #\202 \310 A@\n\"*\311!\312\313O\226\211 \205A
\235\2042 \314\315 \"\203< \316\317\320\f!\321#\202A \f\"*\207" [prop element property keyword value org-element-multiple-keywords get-text-property 0 plist-get symbol-name 1 nil string-match "^ATTR_" mapconcat #[(line) " \n\"\207" [keyword-to-org keyword line] 3] reverse #3="" keyword-to-org] 5] nil symbol-name 1 string-match "^ATTR_" assoc #3# org-element-affiliated-keywords org-element-keyword-translation-alist] 6 (#$ . 123762)])
#@211 Ensure string S ends with a single newline character.
If S isn't a string return it unchanged. If S is the empty
string, return it. Otherwise, return a new string with a single
newline character at its end.
(defalias 'org-element-normalize-string #[(s) ";\204 \207\301\230\203 \301\207\302\303\"\205 \304\305\306\211$\207" [s "" string-match "\\(\n[ ]*\\)*\\'" replace-match "\n" nil] 5 (#$ . 124946)])
#@384 Normalize plain text in ELEMENT's contents.
ELEMENT must only contain plain text and objects.
If optional argument IGNORE-FIRST is non-nil, ignore first line's
indentation to compute maximal common indentation.
Return the normalized element that is element with global
indentation removed from its contents. The function assumes that
indentation is not done with TAB characters.
(defalias 'org-element-normalize-contents #[(element &optional ignore-first) "\306\307\3102 \n \f?\"0\210 \311U\204 U\203! \202+ \306 \312\211 \f?\"*+\207" [most-positive-fixnum min-ind find-min-ind element ignore-first build nil #[(blob first-flag) "\211:\204 \306\202 @9\203 AA\202 )\306\211\205\253 @\f\203N \n;\203N \306\307\310\n\"\210\311\225\211 \311U\203G \312\313\311\211\"\210\202M
^)\n;\203~ \314\n\315\"A\306 \211\203z @\211\316\230\204s \317!^ A\211\204` *\202\243 \n\211:\204\216 ;\205\226 \320\202\226 @9\205\226 @)>\203\243 \n\f\"\210 A\211\204 \306*\207" [blob element object --dolist-tail-- first-flag len nil string-match "\\` *" 0 throw zero org-split-string " *\n" #1="" org-get-indentation plain-text min-ind line org-element-recursive-objects find-min-ind] 5] zero 0 #[(blob first-flag) "A\302\303\211:\204 \304\202 @9\203 AA\202 )\"\241\210\207" [blob element mapcar #[(object) "\203 ;\203 \306\307\310\311\n\"\312 # ;\203\" \307\310\313\n\"\314 #\207 \211:\2042 ;\205: \315\202: @9\205: @)\f>\203E
\"\207 \207" [first-flag object min-ind element org-element-recursive-objects build nil replace-regexp-in-string format "\\` \\{%d\\}" #1# "\n \\{%d\\}" "\n" plain-text] 5] nil] 5]] 4 (#$ . 125368)])
#@931 Determine closest element around point.
Return value is a list like (TYPE PROPS) where TYPE is the type
of the element and PROPS a plist of properties associated to the
element.
Possible types are defined in `org-element-all-elements'.
Properties depend on element or object type, but always include
`:begin', `:end', `:parent' and `:post-blank' properties.
As a special case, if point is at the very beginning of a list or
sub-list, returned element will be that list instead of the first
item. In the same way, if point is at the beginning of the first
row of a table, returned element will be the table instead of the
first row.
If optional argument KEEP-TRAIL is non-nil, the function returns
a list of elements leading to element at point. The list's CAR
is always the element at point. The following positions contain
element's siblings, then parents, siblings of parents, until the
first element of current section.
(defalias 'org-element-at-point #[(&optional keep-trail) "\212\214~\210\306\307 \211\310 P\311 ,\203+ \312 \210\f\204# \313d\306\"\202p\313d\306\"C\202p\3142p`\212\306\307 \211\310 P\315 \210,`)\316\211\211\211\211\211\211 + , - . / 0 1\306\307 \211\310 P\317 \203\204 eb\210\320 \210m\204| \321 1V\203\264 \322\314\316\"\210\202\264 \323 \210\316y\210\320 \210m\204\231 \321 1V\203\264 \322\314\324\316x\210\312 \210\f\204\255 \313d\306\"\202\262 \313d\306\"C\"\210,\312 \210\3250\326.,$\211@/\327
2 3\211 ;\203\342 \330\31632$\202\363 A\331A@32#\240\210+\210\f\203 -B-\332 3;\203\333\3343#\202 \335A@3\"*\211 41W\204:41U\205=40U?\205=4b)\204\270 /5>\204[\322\314\f\203T-\202V\"\210\202\270 \336 3;\203r\333\3343#\202z\335A@3\"*\337 3;\203\222\333\3343#\202\232\335A@3\"* 6\211 7\203\3516\203\35171V\204\35161W\204\35171U\203\307/\340>\204\35161U\203\373/\341>\204\351/\342>\203\3736b\210n\204\351m\204\373\322\314\f\203\364-\202\366\"\210\202l\343/\344\"\203.\345.\346 3;\203 \333\3343#\202(\335A@3\"*,\202d\343/\345\"\203<\316.\202d\343/\347\"\203M\350.\316,\202d\343/\351\"\203^\352.\316,\202d\316\211.,607b\210*\202\270 *\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol keep-trail parent t org-get-limited-outline-regexp "^" org-at-heading-p beginning-of-line org-element-headline-parser exit outline-next-heading nil org-before-first-heading-p org-skip-whitespace line-beginning-position throw org-back-to-heading "
\n" org-element--current-element element :parent org-add-props plist-put :end get-text-property 0 plist-get :contents-begin :contents-end (plain-list table) (center-block drawer dynamic-block inlinetask property-drawer quote-block special-block) (item plain-list) eql plain-list item :structure property-drawer node-property table table-row prevs struct trail special-flag type end origin value property elem-end org-element-greater-elements cend cbeg] 10 (#$ . 127058)])
#@556 Return closest element or object around point.
Return value is a list like (TYPE PROPS) where TYPE is the type
of the element or object and PROPS a plist of properties
associated to it.
Possible types are defined in `org-element-all-elements' and
`org-element-all-objects'. Properties depend on element or
object type, but always include `:begin', `:end', `:parent' and
`:post-blank'.
Optional argument ELEMENT, when non-nil, is the closest element
containing point, as returned by `org-element-at-point'.
Providing it allows for quicker computation.
(defalias 'org-element-context #[(&optional element) "\3062\374\212\214~\210` \206 \307 \211\211:\204! ;\205) \310\202) @9\205) @)\311\312 ;\203> \313\314\f #\202D \315 A@\f\"*\211 \205M
W)\203\245 \316 \210\317 4\3205!\210)\321\322\323!6\"\204o \324\306 \"\210\202\240 \314\225W\203 \314\225\325 }\210\202\240 \326\224\203\233 \326\224Y\203\233 \326\225W\203\233 \326\224\326\225}\210\202\240 \324\306 \"\210\327\202~\n\330=\203\375 \331 ;\203\274 \313\314\f #\202\302 \315 A@\f\"*\211 7\204\321 \324\306 \"\210\202\371 \316 \210\3327\325 \"\210\314\224b\210`Y\203\364 \314\225W\203\364 `\314\225}\210\202\371 \324\306 \"\210)\202~\n\333>\203>\334 ;\203\313\314\f #\202\315 A@\f\"*b\210\335\311w\210`V\2036\325 W\2036`\325 }\210\202~\324\306 \"\210\202~\n\336>\203\241\337 ;\203U\313\314\f #\202[\315 A@\f\"*\340 ;\203m\313\314\f #\202s\315 A@\f\"* 8\211 9\203\2308\203\2309Y\203\2308W\203\23098}\210\202\235\324\306 \"\210*\202~\n\327=\203\361\341 ;\203\270\313\314\f #\202\276\315 A@\f\"*:\235\204\315\324\306 \"\210\202~\316 \210\332\342!\210`Y\203\351\325 W\203\351`\325 }\210\202~\324\306 \"\210\202~\n\343=\203y\344\311 ;\211 <\203p<@\211; ;\203\313\314\f #\202 \315 A@\f\"*\211 =\203f\334= ;\2036\313\314\f #\202<\315 A@\f\"*X\203f\345= ;\203T\313\314\f #\202Z\315 A@\f\"*V\203f\324\306=\"\210)<A\211<\204*\324\306 \"\210\202~\324\306 \"\210eb\210\n\2119\203\214 \202\245 \211:\204\234 ;\205\244\310\202\244 @9\205\244 @)>\236A) \346 ? @ A\3472\371\350A?\"\211?\203\366\351\352\353\354\355?\"\"?\"\211 BAV\203\340\324\347@\"\210\202\362BAb\210\356\357\360B@\"! C\337C ;\203\313\314\f #\202\315 A@\f\"* 9\340C ;\203 \313\314\f #\202#\315 A@\f\"* 8\345C ;\2038\313\314\f #\202>\315 A@\f\"*\211 DX\203NDb\210\202\3619\203a9W\204a8Y\203\216\324\347C\361@ E \211;\203{\362 \311\fE$\202\210 A\363 A@\fE#\240\210 +\"\210\202\3619b\210`8}\210C\361@ E \211;\203\257\362 \311\fE$\202\274 A\363 A@\fE#\240\210 +\210C@C\2119\203\316 \202\347 \211:\204\336 ;\205\346\310\202\346 @9\205\346 @)>\236A)A\346?,)\202\266@0. 0\207" [origin element type context property post objects-forbidden org-element-at-point plain-text nil :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 search-forward (headline inlinetask) :begin "*" (paragraph table-row verse-block) :contents-begin :contents-end :key ":" planning (:closed :deadline :scheduled) :end initial exit org-element--get-next-object-candidates rassq apply min mapcar cdr intern format "org-element-%s-parser" :parent org-add-props plist-put case-fold-search org-element--affiliated-re org-element-parsed-keywords tag cend cbeg org-element-document-properties p --dolist-tail-- timestamp org-element-object-restrictions candidates parent restriction closest-cand object obj-end value] 8 (#$ . 130115)])
#@53 Non-nil when elements ELEM-A and ELEM-B are nested.
(defalias 'org-element-nested-p #[(elem-A elem-B) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*\306 ;\203) \307\310\n #\202/ \311 A@\n\"*\312 ;\203A \307\310\n #\202G \311 A@\n\"*\312 ;\203Y \307\310\n #\202_ \311 A@\n\"* \211 \f Y\203s
\fX\206~ \fY\205~ \f
X,\207" [elem-A element property elem-B end-B end-A :begin get-text-property 0 plist-get :end beg-B beg-A] 8 (#$ . 133726)])
#@114 Swap elements ELEM-A and ELEM-B.
Assume ELEM-B is after ELEM-A in the buffer. Leave point at the
end of ELEM-A.
(defalias 'org-element-swap-A-B #[(elem-A elem-B) "\306 ;\203 \307\310\n #\202 \311 A@\n\"*b\210n?\211\203w \f\211:\2041 ;\2059 \312\2029 @9\2059 @)\313=\203s \306\f ;\203P \307\310\n #\202V \311 A@\n\"*\314\f ;\203h \307\310\n #\202n \311 A@\n\"*U\204w \315\316!\210 \205\227 \306\f ;\203\214 \307\310\n #\202\222 \311 A@\n\"*b\210\317 \306 ;\203\251 \307\310\n #\202\257 \311 A@\n\"* \212\320 ;\203\304 \307\310\n #\202\312 \311 A@\n\"*b\210\321\322x\210\323 ) !\306\f ;\203\347 \307\310\n #\202\355 \311 A@\n\"* \"\212\320\f ;\203\307\310\n #\202\311 A@\n\"*b\210\321\322x\210\323 ) #\324\325\326 !\"\"\324\327\326\"#\"\"B $ !{ %\330\"#\" &\"b\210 \203L\331\332\333&#&\334
!\210%c\210\" Z '\335\336$@\"\210 b\210 !|\210&c\210\335\337$A\"\210)\320\f ;\203\205\307\310\n #\202\213\311 A@\n\"*b. \207" [elem-A element property specialp elem-B ind-B :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 mapcar #[(ov) "\301!\302!E\207" [ov overlay-start overlay-end] 4] overlays-in #[(ov) "\301!\302!E\207" [ov overlay-start overlay-end] 4] delete-and-extract-region replace-regexp-in-string "\\`[ ]*" "" org-indent-to-column mapc #[(ov) "\302@A@ \\\3038 \\#\207" [ov offset move-overlay 2] 5] #[(ov) "\302@A@ Z\3038 Z#\207" [ov offset move-overlay 2] 5] beg-A end-A beg-B end-B overlays body-A body-B offset] 7 (#$ . 134186)])
(provide 'org-element)
Kontol Shell Bypass