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

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\312\305\312\322\323\324&    \210\314\325\316\317\326DD\327\312\305\323\330&\210\314\331\316\317\332DD\333\312\305\323\334\335\336&    \210\314\337\316\317\340DD\341\312\305\342\343\323\344\335\345& \210\314\346\316\317\347DD\350\312\305\323\351&\210\314\352\316\317\353DD\354\312\305\342\343\323\355&    \210\314\356\316\317\357DD\360\312\305\342\343\323\344&    \207" [require cl-lib org-macs org-compat custom-declare-group org-plain-lists nil "Options concerning plain lists in Org mode." :tag "Org Plain lists" :group org-structure custom-declare-variable org-cycle-include-plain-lists funcall function #[0 "\300\207" [t] 1] "When t, make TAB cycle visibility on plain list items.\nCycling plain lists works only when the cursor is on a plain list\nitem.  When the cursor is on an outline heading, plain lists are\ntreated as text.  This is the most stable way of handling this,\nwhich is why it is the default.\n\nWhen this is the symbol `integrate', then integrate plain list\nitems when cycling, as if they were children of outline headings.\n\nThis setting can lead to strange effects when switching visibility\nto `children', because the first \"child\" in a subtree decides\nwhat children should be listed.  If that first \"child\" is a\nplain list item with an implied large level number, all true\nchildren and grand children of the outline heading will be\nexposed in a children' view." org-cycle :type (choice (const :tag "Never" nil) (const :tag "With cursor in plain list (recommended)" t) (const :tag "As children of outline headings" integrate)) org-list-demote-modify-bullet #[0 "\300\207" [nil] 1] "Default bullet type installed when demoting an item.\nThis is an association list, for each bullet type, this alist will point\nto the bullet that should be used when this item is demoted.\nFor example,\n\n (setq org-list-demote-modify-bullet\n       \\='((\"+\" . \"-\") (\"-\" . \"+\") (\"*\" . \"+\")))\n\nwill make\n\n  + Movies\n    + Silence of the Lambs\n    + My Cousin Vinny\n  + Books\n    + The Hunt for Red October\n    + The Road to Omaha\n\ninto\n\n  + Movies\n    - Silence of the Lambs\n    - My Cousin Vinny\n  + Books\n    - The Hunt for Red October\n    - The Road to Omaha" (repeat (cons (choice :tag "If the current bullet is  " (const "-") (const "+") (const "*") (const "1.") (const "1)")) (choice :tag "demotion will change it to" (const "-") (const "+") (const "*") (const "1.") (const "1)")))) org-plain-list-ordered-item-terminator #[0 "\300\207" [t] 1] "The character that makes a line with leading number an ordered list item.\nValid values are ?. and ?).  To get both terminators, use t.\n\nThis variable needs to be set before org.el is loaded.  If you\nneed to make a change while Emacs is running, use the customize\ninterface or run the following code after updating it:\n\n  `\\[org-element-update-syntax]'" (choice (const :tag "dot like in \"2.\"" 46) (const :tag "paren like in \"2)\"" 41) (const :tag "both" t)) :set #[514 "L\210\300\301!\205\f\302 \207" [featurep org-element org-element-update-syntax] 4 "\n\n(fn VAR VAL)"] org-list-allow-alphabetical #[0 "\300\207" [nil] 1] "Non-nil means single character alphabetical bullets are allowed.\n\nBoth uppercase and lowercase are handled.  Lists with more than\n26 items will fallback to standard numbering.  Alphabetical\ncounters like \"[@c]\" will be recognized.\n\nThis variable needs to be set before org.el is loaded.  If you\nneed to make a change while Emacs is running, use the customize\ninterface or run the following code after updating it:\n\n  `\\[org-element-update-syntax]'" :version "24.1" boolean #[514 "L\210\300\301!\205\f\302 \207" [featurep org-element org-element-update-syntax] 4 "\n\n(fn VAR VAL)"] org-list-two-spaces-after-bullet-regexp #[0 "\300\207" [nil] 1] "A regular expression matching bullets that should have 2 spaces after them.\nWhen nil, no bullet will have two spaces after them.  When\na string, it will be used as a regular expression.  When the\nbullet type of a list is changed, the new bullet type will be\nmatched against this regexp.  If it matches, there will be two\nspaces instead of one after the bullet in each item of the list." (choice (const :tag "never" nil) (regexp)) org-list-automatic-rules #[0 "\300\207" [((checkbox . t) (indent . t))] 1] "Non-nil means apply set of rules when acting on lists.\n\\<org-mode-map>\nBy default, automatic actions are taken when using\n  `\\[org-meta-return]',\n  `\\[org-metaright]',\n  `\\[org-metaleft]',\n  `\\[org-shiftmetaright]',\n  `\\[org-shiftmetaleft]',\n  `\\[org-ctrl-c-minus]',\n  `\\[org-toggle-checkbox]',\n  `\\[org-insert-todo-heading]'.\n\nYou can disable individually these rules by setting them to nil.\nValid rules are:\n\ncheckbox  when non-nil, checkbox statistics is updated each time\n          you either insert a new checkbox or toggle a checkbox.\nindent    when non-nil, indenting or outdenting list top-item\n          with its subtree will move the whole list and\n          outdenting a list whose bullet is * to column 0 will\n          change that bullet to \"-\"." (alist :tag "Sets of rules" :key-type (choice (const :tag "Checkbox" checkbox) (const :tag "Indent" indent)) :value-type (boolean :tag "Activate" :value t)) org-list-use-circular-motion #[0 "\300\207" [nil] 1] "Non-nil means commands implying motion in lists should be cyclic.\n\\<org-mode-map>\nIn that case, the item following the last item is the first one,\nand the item preceding the first item is the last one.\n\nThis affects the behavior of\n  `\\[org-move-item-up]',\n  `\\[org-move-item-down]',\n  `\\[org-next-item]',\n  `\\[org-previous-item]'."] 12)
16 #@246 Hook that is run whenever Org thinks checkbox statistics should be updated.
17 This hook runs even if checkbox rule in
18 `org-list-automatic-rules' does not apply, so it can be used to
19 implement alternative ways of collecting statistics
20 information.
21 (defvar org-checkbox-statistics-hook nil (#$ . 6182))
22 (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\321\322\310\315&    \210\300\323\302\303\324DD\325\306\307\310\326&\207" [custom-declare-variable org-checkbox-hierarchical-statistics funcall function #[0 "\300\207" [t] 1] "Non-nil means checkbox statistics counts only the state of direct children.\nWhen nil, all boxes below the cookie are counted.\nThis can be set to nil on a per-node basis using a COOKIE_DATA property\nwith the word \"recursive\" in the value." :group org-plain-lists :type boolean org-list-description-max-indent #[0 "\300\207" [20] 1] "Maximum indentation for the second line of a description list.\nWhen the indentation would be larger than this, it will become\n5 characters instead." integer org-list-indent-offset #[0 "\300\207" [0] 1] "Additional indentation for sub-items in a list.\nBy setting this to a small number, usually 1 or 2, one can more\nclearly distinguish sub-items in a list." :version "24.1" org-list-radio-list-templates #[0 "\300\207" [((latex-mode "% BEGIN RECEIVE ORGLST %n\n% END RECEIVE ORGLST %n\n\\begin{comment}\n#+ORGLST: SEND %n org-list-to-latex\n-\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGLST %n\n@c END RECEIVE ORGLST %n\n@ignore\n#+ORGLST: SEND %n org-list-to-texinfo\n-\n@end ignore\n") (html-mode "<!-- BEGIN RECEIVE ORGLST %n -->\n<!-- END RECEIVE ORGLST %n -->\n<!--\n#+ORGLST: SEND %n org-list-to-html\n-\n-->\n"))] 1] "Templates for radio lists in different major modes.\nAll occurrences of %n in a template will be replaced with the name of the\nlist, obtained by prompting the user." (repeat (list (symbol :tag "Major mode") (string :tag "Format")))] 10)
23 #@75 Names of blocks where lists are not allowed.
24 Names must be in lower case.
25 (defvar org-list-forbidden-blocks '("example" "verse" "src" "export") (#$ . 8217))
26 #@207 Context types where lists will be interpreted during export.
27
28 Valid types are `drawer', `inlinetask' and `block'.  More
29 specifically, type `block' is determined by the variable
30 `org-list-forbidden-blocks'.
31 (defvar org-list-export-context '(block inlinetask) (#$ . 8381))
32 #@41 Regex matching the end of a plain list.
33 (defconst org-list-end-re "^[     ]*\n[     ]*\n" (#$ . 8658))
34 #@130 Matches a list item and puts everything into groups:
35 group 1: bullet
36 group 2: counter
37 group 3: checkbox
38 group 4: description tag
39 (defconst org-list-full-item-re "^[     ]*\\(\\(?:[-+*]\\|\\(?:[0-9]+\\|[A-Za-z]\\)[.)]\\)\\(?:[     ]+\\|$\\)\\)\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][     ]*\\)?\\(?:\\(\\[[ X-]\\]\\)\\(?:[     ]+\\|$\\)\\)?\\(?:\\(.*\\)[     ]+::\\(?:[     ]+\\|$\\)\\)?" (#$ . 8762))
40 #@56 Return the correct regular expression for plain lists.
41 (defalias 'org-item-re #[0 "\302=\203\n\303\202\304U\203\305\202\306U\203\307\202\303    \203'\310\202(\311\312\313\314\260\207" [org-plain-list-ordered-item-terminator org-list-allow-alphabetical t "[.)]" 41 ")" 46 "\\." "\\|[A-Za-z]" "" "\\([     ]*\\([-+]\\|\\(\\([0-9]+" "\\)" "\\)\\)\\|[     ]+\\*\\)\\([     ]+\\|$\\)"] 7 (#$ . 9162)])
42 #@53 Regexp matching the beginning of a plain list item.
43 (defalias 'org-item-beginning-re #[0 "\300\301 P\207" ["^" org-item-re] 2 (#$ . 9572)])
44 (put 'org-item-beginning-re 'byte-optimizer 'byte-compile-inline-expand)
45 #@64 Is point at a list item with REGEXP after bullet?
46
47 (fn REGEXP)
48 (defalias 'org-list-at-regexp-after-bullet-p #[257 "\301 \205%\212\302\225b\210\303\203\304\202\305\306Q\307!\203 \302\225b\210\210\307!)\207" [org-list-allow-alphabetical org-at-item-p 0 "\\(?:\\[@\\(?:start:\\)?" "\\([0-9]+\\|[A-Za-z]\\)" "[0-9]+" "\\][     ]*\\)" looking-at] 4 (#$ . 9791)])
49 #@48 Is point in a context where lists are allowed?
50 (defalias 'org-list-in-valid-context-p #[0 "\301!?\207" [org-list-forbidden-blocks org-in-block-p] 2 (#$ . 10161)])
51 #@69 Return item beginning position when in a plain list, nil otherwise.
52 (defalias 'org-in-item-p #[0 "\212\303 \210\304\305 \211@\306\307!\205\310 \311 \312\313!\204$\203(\312!\203(\314\202*\315 \3168\317=\2036\320\202\312!\203@`\202\321\322\320\323\324    T#\211\262\203VT\262\202C\325    \"\211\262\203u`@Y\203u`AW\203u\211@b\210\322y\210\266\3262\315 \312!\203\221\211W\203\221\327\326`\"\210\202`X\203\237\327\326\320\"\210\202\312    !\203\255\327\326\320\"\210\202\312\330!\203\274\331\332\304#\204\312\333!\203\321\331\n\304#\203\321\303 \210\202\203\344\312!\203\344\334 \210\322y\210\202\312\313!\203\360\322y\210\202\211\321U\203\376\327\326\320\"\210\202\211W\203 \211\262\322y\210\202\322y\210\210\202{)\266\205)\207" [case-fold-search org-list-end-re org-drawer-regexp beginning-of-line t org-list-context featurep org-inlinetask org-inlinetask-outline-regexp org-item-re looking-at "^[     ]*$" 10000 org-get-indentation 2 invalid nil 0 -1 string-match "[ \n]" org-in-regexp exit throw "^[     ]*#\\+end_" re-search-backward "^[     ]*#\\+begin_" "^[     ]*:END:" org-inlinetask-goto-beginning] 12 (#$ . 10331)])
53 #@52 Is point in a line starting a hand-formatted item?
54 (defalias 'org-at-item-p #[0 "\212\300 \210\301\302 !\205 \303 )\207" [beginning-of-line looking-at org-item-re org-list-in-valid-context-p] 2 (#$ . 11514)])
55 #@46 Is point at the bullet of a plain list item?
56 (defalias 'org-at-item-bullet-p #[0 "\300 \205\301f\302\235?\205`\303\225W\207" [org-at-item-p nil (32 9) 0] 2 (#$ . 11730)])
57 #@61 Is point at a line starting a plain list item with a timer?
58 (defalias 'org-at-item-timer-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\([0-9]+:[0-9]+:[0-9]+\\)[     ]+::[     ]+"] 2 (#$ . 11911)])
59 #@38 Is point at a description list item?
60 (defalias 'org-at-item-description-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\(\\S-.+\\)[     ]+::\\([     ]+\\|$\\)"] 2 (#$ . 12122)])
61 #@64 Is point at a line starting a plain-list item with a checklet?
62 (defalias 'org-at-item-checkbox-p #[0 "\300\301!\207" [org-list-at-regexp-after-bullet-p "\\(\\[[- X]\\]\\)[     ]+"] 2 (#$ . 12312)])
63 #@63 Is point at a line starting a plain-list item with a counter?
64 (defalias 'org-at-item-counter-p #[0 "\301 \205\302!\205\303\304!\207" [org-list-full-item-re org-at-item-p looking-at match-string 2] 2 (#$ . 12513)])
65 #@286 Determine context, and its boundaries, around point.
66
67 Context will be a cell like (MIN MAX CONTEXT) where MIN and MAX
68 are boundaries and CONTEXT is a symbol among `drawer', `block',
69 `invalid', `inlinetask' and nil.
70
71 Contexts `block' and `invalid' refer to `org-list-forbidden-blocks'.
72 (defalias 'org-list-context #[0 "\306 \307\310\311\312\313!\314\"\315$\216\212\316\317 \211\320    P\321 \210\316`\322\211\211\212\3231.\324\316!0\2023\210\322\2027\2057`)\206<e\212\325 )\206Dd\326 \212\327!?\205\202\327!?\205\202\330\316#\205c\331 T\211\262\205\202\332\316#\203w\310\224S\206x\211\262\205\202Y)\203\220\262\262\333\262\266\334\322\212\327!?\205\345\330\316#\205\247\331 T\211\262\205\345\327\335!\205\345\336\337!\227\211\262\205\345b\205\345\332\316#\203\321\340 S\206\322\211\262\205\345Y\205\345\336\337!\227\341\232)\203\376\262\262\211*\235\203\373\342\202\374\343\262\266\344\345!\203O\212\346 \211\347P\327\350!?\205@\330\316#\205\331 T\211\262\205@\327!?\205@\332\316#\2056\310\224S\211\262\205@`V\266\202)\203O\262\262\351\262E)\266\207.\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol case-fold-search org-drawer-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 t org-get-limited-outline-regexp "^" beginning-of-line nil (error) org-back-to-heading outline-next-heading "^[     ]*:END:" looking-at re-search-backward point-at-eol re-search-forward drawer "^[     ]*#\\+\\(begin\\|end\\)_" "^[     ]*#\\+begin_\\(\\S-+\\)" match-string 1 point-at-bol "end" invalid block featurep org-inlinetask org-inlinetask-outline-regexp "END[     ]*$" "^\\*+" inlinetask org-list-forbidden-blocks] 15 (#$ . 12739)])
73 #@905 Return structure of list at point.
74
75 A list structure is an alist where key is point at item, and
76 values are:
77 1. indentation,
78 2. bullet with trailing whitespace,
79 3. bullet counter, if any,
80 4. checkbox, if any,
81 5. description tag, if any,
82 6. position at item end.
83
84 Thus the following list, where numbers in parens are
85 point-at-bol:
86
87 - [X] first item                             (1)
88   1. sub-item 1                              (18)
89   5. [@5] sub-item 2                         (34)
90   some other text belonging to first item    (55)
91 - last item                                  (97)
92   + tag :: description                       (109)
93                                              (131)
94
95 will get the following structure:
96
97  ((1 0 "- "  nil "[X]" nil 97)
98   (18 2 "1. "  nil nil nil 34)
99   (34 2 "5. " "5" nil nil 55)
100   (97 0 "- "  nil nil nil 131)
101   (109 2 "+ " nil nil "tag" 131))
102
103 Assume point is at an item.
104 (defalias 'org-list-struct #[0 "\212\303 \210\304\305 \211@A@\306\307 \310\311!\205\312 `\313 B\314\211\211\211\211\315\316\212\3172\313 `X\203Y\320\317\321 !\204F\n@\n\236\n>\202Q`B\262 !\nB\211\262 \"\210\202\321    !\203r\320\317\n@\n\236\n>\211\262 \"\210\202\321 !\203\233!B\262\211`BB\262\211\fW\203\225`B\262    \322y\210\202\321\323!\203\252\324\325\304#\204\321\326!\203\277\324\n\304#\203\277\303 \210\202    \203\324\321\n!\203\324\327 \210\322y\210\202\321\330!\203\340\322y\210\202\211\331U\203\371\320\317\n@\n\236\n>\211\262 \"\210\202\211\fW\203\211\262\f\211`BB\262\322y\210\210\202(\210)\3172\323\313 ` Y\2034\320\317\331!BB\211\262\"\210\202\317\321    !\203J\320\317\331`BB\211\262\"\210\202\317\321 !\203f!B\262\211`BB\262\332y\210\202\317    \203x\321\n!\203x\333 \210\202\317\321\330!\203\204\332y\210\202\317\211    AX\203\237\320\317\331!BB\211\262\"\210\202\317\211@A@X\203\260\211`BB\262\321\325!\203\277\334\323\304#\204\314\321\n!\203\314\334\326\304#\210\332y\210\210\202\210\335\237A\"\262\335\237A\"\262\336\"\210)\266\216)\207" [case-fold-search org-list-end-re org-drawer-regexp beginning-of-line t org-list-context 10000 org-item-re featurep org-inlinetask org-inlinetask-outline-regexp org-get-indentation nil #[257 "\302!\210\303\304!`\303\305!\303\306!\307\310\311\312#)\266\203\205$\303\313!\257\207" [org-list-full-item-re inhibit-changing-match-data looking-at match-string-no-properties 1 2 3 "[-+*]" nil t string-match 4] 14 "\n\n(fn IND)"] #[257 "\300\301x\210\302 T^\207" ["      \n" nil point-at-eol] 3 "\n\n(fn LIM-DOWN)"] exit throw looking-at -1 "^[     ]*#\\+end_" re-search-backward "^[     ]*#\\+begin_" "^[     ]*:END:" org-inlinetask-goto-beginning "^[     ]*$" 0 1 org-inlinetask-goto-end re-search-forward append org-list-struct-assoc-end] 20 (#$ . 14547)])
105 #@186 Associate proper ending point to items in STRUCT.
106
107 END-LIST is a pseudo-alist where car is indentation and cdr is
108 ending position.
109
110 This function modifies STRUCT.
111
112 (fn STRUCT END-LIST)
113 (defalias 'org-list-struct-assoc-end #[514 "\211C\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapc make-byte-code 257 "\211@A@\300\242@AX\203\300\242\300\211\242A\240\266\202\301\233\302\300\242\303#\203-\240\2026\304AC\"\241\266\202\207" vconcat vector [6 assoc-default <= append] 9 "\n\n(fn ELT)"] 10 (#$ . 17393)])
114 #@69 Return alist between item and previous item in STRUCT.
115
116 (fn STRUCT)
117 (defalias 'org-list-prevs-alist #[257 "\300\301\"\300\302\303\304\305\306!\307\"\310\311%\"\207" [mapcar #[257 "\211@\3008B\207" [6] 4 "\n\n(fn E)"] make-byte-code 257 "\301@\300\"@@B\207" vconcat vector [rassq] 4 "\n\n(fn E)"] 9 (#$ . 17927)])
118 #@62 Return alist between item and parent in STRUCT.
119
120 (fn STRUCT)
121 (defalias 'org-list-parents-alist #[257 "\211@A@CCC\300!\211CC\211\242\301\302\303\304\305\306    \"\307\"\310\311%A\"B\207" [org-list-get-top-point mapcar make-byte-code 257 "\211@A@\300\242@@\301\301\242B\240\210\211V\203G\300\300\242\236\300\242\235\206<\3022<\303\304\305\306\307\310\300    \"\311\"\312\313%\300\242\"\210CC0\240\210\300\242@AB\202h\211W\203b\301\242A@\300B\300\242B\240\210B\262\202h\300\242@AB\207" vconcat vector [exit mapc make-byte-code 257 "\211@\301W\205\302\303\300\242\235\"\207" vconcat vector [throw exit] 5 "\n\n(fn E)"] 13 "\n\n(fn ITEM)"] 13 (#$ . 18254)])
122 #@59 Return the Nth value of KEY in STRUCT.
123
124 (fn N KEY STRUCT)
125 (defalias 'org-list-get-nth #[771 "\2368\207" [] 6 (#$ . 18936)])
126 (put 'org-list-get-nth 'byte-optimizer 'byte-compile-inline-expand)
127 #@99 Set the Nth value of KEY in STRUCT to NEW.
128
129 This function modifies STRUCT.
130
131 (fn N KEY STRUCT NEW)
132 (defalias 'org-list-set-nth #[1028 "\236\233\240\207" [] 7 (#$ . 19137)])
133 #@57 Return indentation of ITEM in STRUCT.
134
135 (fn ITEM STRUCT)
136 (defalias 'org-list-get-ind #[514 "\300\2368\207" [1] 8 (#$ . 19319)])
137 (put 'org-list-get-ind 'byte-optimizer 'byte-compile-inline-expand)
138 #@97 Set indentation of ITEM in STRUCT to IND.
139
140 This function modifies STRUCT.
141
142 (fn ITEM STRUCT IND)
143 (defalias 'org-list-set-ind #[771 "\300\301$\207" [org-list-set-nth 1] 8 (#$ . 19525)])
144 #@52 Return bullet of ITEM in STRUCT.
145
146 (fn ITEM STRUCT)
147 (defalias 'org-list-get-bullet #[514 "\300\2368\207" [2] 8 (#$ . 19718)])
148 (put 'org-list-get-bullet 'byte-optimizer 'byte-compile-inline-expand)
149 #@98 Set bullet of ITEM in STRUCT to BULLET.
150
151 This function modifies STRUCT.
152
153 (fn ITEM STRUCT BULLET)
154 (defalias 'org-list-set-bullet #[771 "\300\301$\207" [org-list-set-nth 2] 8 (#$ . 19925)])
155 #@53 Return counter of ITEM in STRUCT.
156
157 (fn ITEM STRUCT)
158 (defalias 'org-list-get-counter #[514 "\300\2368\207" [3] 8 (#$ . 20122)])
159 (put 'org-list-get-counter 'byte-optimizer 'byte-compile-inline-expand)
160 #@61 Return checkbox of ITEM in STRUCT or nil.
161
162 (fn ITEM STRUCT)
163 (defalias 'org-list-get-checkbox #[514 "\300\2368\207" [4] 8 (#$ . 20332)])
164 (put 'org-list-get-checkbox 'byte-optimizer 'byte-compile-inline-expand)
165 #@104 Set checkbox of ITEM in STRUCT to CHECKBOX.
166
167 This function modifies STRUCT.
168
169 (fn ITEM STRUCT CHECKBOX)
170 (defalias 'org-list-set-checkbox #[771 "\300\301$\207" [org-list-set-nth 4] 8 (#$ . 20553)])
171 #@58 Return end position of ITEM in STRUCT.
172
173 (fn ITEM STRUCT)
174 (defalias 'org-list-get-tag #[514 "\300\2368\207" [5] 8 (#$ . 20758)])
175 (put 'org-list-get-tag 'byte-optimizer 'byte-compile-inline-expand)
176 #@58 Return end position of ITEM in STRUCT.
177
178 (fn ITEM STRUCT)
179 (defalias 'org-list-get-item-end #[514 "\300\2368\207" [6] 8 (#$ . 20965)])
180 #@115 Return point at end of ITEM in STRUCT, before any blank line.
181 Point returned is at end of line.
182
183 (fn ITEM STRUCT)
184 (defalias 'org-list-get-item-end-before-blank #[514 "\212\300\"b\210\301\302x\210\303 )\207" [org-list-get-item-end "      \n" nil point-at-eol] 5 (#$ . 21110)])
185 #@162 Return parent of ITEM or nil.
186 STRUCT is the list structure.  PARENTS is the alist of parents,
187 as returned by `org-list-parents-alist'.
188
189 (fn ITEM STRUCT PARENTS)
190 (defalias 'org-list-get-parent #[771 "\211\206\300!\236A\207" [org-list-parents-alist] 6 (#$ . 21392)])
191 #@139 Non-nil if ITEM has a child.
192
193 STRUCT is the list structure.
194
195 Value returned is the position of the first child of ITEM.
196
197 (fn ITEM STRUCT)
198 (defalias 'org-list-has-child-p #[514 "\300\2368\266\205\236\235A@@\211\205*\300\2368\266\205W\205*\211\207" [1] 13 (#$ . 21669)])
199 #@184 Return next item in same sub-list as ITEM, or nil.
200 STRUCT is the list structure.  PREVS is the alist of previous
201 items, as returned by `org-list-prevs-alist'.
202
203 (fn ITEM STRUCT PREVS)
204 (defalias 'org-list-get-next-item #[771 "\300\"@\207" [rassq] 6 (#$ . 21965)])
205 #@188 Return previous item in same sub-list as ITEM, or nil.
206 STRUCT is the list structure.  PREVS is the alist of previous
207 items, as returned by `org-list-prevs-alist'.
208
209 (fn ITEM STRUCT PREVS)
210 (defalias 'org-list-get-prev-item #[771 "\236A\207" [] 5 (#$ . 22236)])
211 #@106 List all items having ITEM as a common ancestor, or nil.
212 STRUCT is the list structure.
213
214 (fn ITEM STRUCT)
215 (defalias 'org-list-get-subtree #[514 "\300\"\236\235A\301C\3022#\303\304\305\306\307\310\"\311\"\312\313%\"0\210\211\242\237\207" [org-list-get-item-end nil exit mapc make-byte-code 257 "\211@\211\300W\203\301\301\242B\240\202\302\303\304\"\207" vconcat vector [throw exit nil] 5 "\n\n(fn E)"] 13 (#$ . 22504)])
216 #@178 List all items in the same sub-list as ITEM.
217 STRUCT is the list structure.  PREVS is the alist of previous
218 items, as returned by `org-list-prevs-alist'.
219
220 (fn ITEM STRUCT PREVS)
221 (defalias 'org-list-get-all-items #[771 "\211\300\211\301#\211\262\203B\262\202\302#\211\262\203.B\262\202\303C\237#\207" [nil org-list-get-prev-item org-list-get-next-item append] 11 (#$ . 22945)])
222 #@167 List all children of ITEM, or nil.
223 STRUCT is the list structure.  PARENTS is the alist of parents,
224 as returned by `org-list-parents-alist'.
225
226 (fn ITEM STRUCT PARENTS)
227 (defalias 'org-list-get-children #[771 "\300\211\301\"@\211\262\203\211\236\235A\262\211B\262\202\237\207" [nil rassq] 8 (#$ . 23358)])
228 #@79 Return point at beginning of list.
229 STRUCT is the list structure.
230
231 (fn STRUCT)
232 (defalias 'org-list-get-top-point #[257 "\211@@\207" [] 2 (#$ . 23679)])
233 #@76 Return point at bottom of list.
234 STRUCT is the list structure.
235
236 (fn STRUCT)
237 (defalias 'org-list-get-bottom-point #[257 "\300\301\302\303\304\305\306\307!\310\"\311\312%\"\"\207" [apply max mapcar make-byte-code 257 "\301@\300\"\207" vconcat vector [org-list-get-item-end] 4 "\n\n(fn E)"] 10 (#$ . 23836)])
238 #@185 Return point at beginning of sub-list ITEM belongs.
239 STRUCT is the list structure.  PREVS is the alist of previous
240 items, as returned by `org-list-prevs-alist'.
241
242 (fn ITEM STRUCT PREVS)
243 (defalias 'org-list-get-list-begin #[771 "\300\301#\211\262\203\211\262\202\207" [nil org-list-get-prev-item] 9 (#$ . 24152)])
244 (defalias 'org-list-get-first-item 'org-list-get-list-begin)
245 #@185 Return point at last item of sub-list ITEM belongs.
246 STRUCT is the list structure.  PREVS is the alist of previous
247 items, as returned by `org-list-prevs-alist'.
248
249 (fn ITEM STRUCT PREVS)
250 (defalias 'org-list-get-last-item #[771 "\300\301#\211\262\203\211\262\202\207" [nil org-list-get-next-item] 9 (#$ . 24542)])
251 #@179 Return point at end of sub-list ITEM belongs.
252 STRUCT is the list structure.  PREVS is the alist of previous
253 items, as returned by `org-list-prevs-alist'.
254
255 (fn ITEM STRUCT PREVS)
256 (defalias 'org-list-get-list-end #[771 "\300\301#\"\207" [org-list-get-item-end org-list-get-last-item] 8 (#$ . 24870)])
257 #@309 Return the type of the list containing ITEM, as a symbol.
258
259 STRUCT is the list structure.  PREVS is the alist of previous
260 items, as returned by `org-list-prevs-alist'.
261
262 Possible types are `descriptive', `ordered' and `unordered'.  The
263 type is determined by the first item of the list.
264
265 (fn ITEM STRUCT PREVS)
266 (defalias 'org-list-get-list-type #[771 "\301#\302\303\2368\266\205\304\305\306#)\266\203\203$\307\2028\211\310\2368\266\205\2037\311\2028\312\207" [inhibit-changing-match-data org-list-get-list-begin "[[:alnum:]]" 2 nil t string-match ordered 5 descriptive unordered] 13 (#$ . 25180)])
267 #@327 Return ITEM's sequence number.
268
269 STRUCT is the list structure.  PREVS is the alist of previous
270 items, as returned by `org-list-prevs-alist'.  PARENTS is the
271 alist of ancestors, as returned by `org-list-parents-alist'.
272
273 Return value is a list of integers.  Counters have an impact on
274 that value.
275
276 (fn ITEM STRUCT PREVS PARENTS)
277 (defalias 'org-list-get-item-number #[1028 "\300\211#C\301#\211\262\203##B\262\202\266\202\207" [#[771 "\300\301\302\2368\266\205\211\262\204)\303#\211\262\203)T\262\202\211\2042T\202[\304\305\"\203G\306\307\300\"\226!\310Z\\\202[\304\311\"\203Y\312\307\300\"!\\\202[T\207" [0 nil 3 org-list-get-prev-item string-match "[A-Za-z]" string-to-char match-string 64 "[0-9]+" string-to-number] 14 "\n\n(fn ITEM STRUCT PREVS)"] org-list-get-parent] 11 (#$ . 25806)])
278 #@162 Search a string in valid contexts for lists.
279 Arguments SEARCH, RE, BOUND and NOERR are similar to those used
280 in `re-search-forward'.
281
282 (fn SEARCH RE BOUND NOERR)
283 (defalias 'org-list-search-generic #[1028 "\3002,`#\204\301\300\302>\203\202b\210\303\"\210\304 \203\301\300`\"\210\202\207" [exit throw (t nil) nil org-list-in-valid-context-p] 9 (#$ . 26656)])
284 #@193 Like `re-search-backward' but stop only where lists are recognized.
285 Arguments REGEXP, BOUND and NOERROR are similar to those used in
286 `re-search-backward'.
287
288 (fn REGEXP &optional BOUND NOERROR)
289 (defalias 'org-list-search-backward #[769 "\300\301\206e$\207" [org-list-search-generic re-search-backward] 8 (#$ . 27037)])
290 #@191 Like `re-search-forward' but stop only where lists are recognized.
291 Arguments REGEXP, BOUND and NOERROR are similar to those used in
292 `re-search-forward'.
293
294 (fn REGEXP &optional BOUND NOERROR)
295 (defalias 'org-list-search-forward #[769 "\300\301\206d$\207" [org-list-search-generic re-search-forward] 8 (#$ . 27366)])
296 #@175 Return BULLET with the correct number of whitespaces.
297 It determines the number of whitespaces to append by looking at
298 `org-list-two-spaces-after-bullet-regexp'.
299
300 (fn BULLET)
301 (defalias 'org-list-bullet-string #[257 "\301 \302\303\304\305\306!\307\"\310$\216\203\311\"\203\312\202\313\311\314\"\2030\315\316\211\317%\2021\262)\207" [org-list-two-spaces-after-bullet-regexp match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "  " " " "\\S-+\\([     ]*\\)" replace-match nil 1] 9 (#$ . 27691)])
302 (put 'org-list-bullet-string 'byte-optimizer 'byte-compile-inline-expand)
303 #@342 Swap item starting at BEG-A with item starting at BEG-B in STRUCT.
304
305 Blank lines at the end of items are left in place.  Item
306 visibility is preserved.  Return the new structure after the
307 changes.
308
309 Assume BEG-A is lesser than BEG-B and that BEG-A and BEG-B belong
310 to the same sub-list.
311
312 This function modifies STRUCT.
313
314 (fn BEG-A BEG-B STRUCT)
315 (defalias 'org-list-swap-items #[771 "\212\300\"\300\"\301\"\301\"ZZ{{\n{ \302 \f\"B \302  \"B\303\304\305\306\307\310\311\312\"\313\"\314\315%\316\"\"\"\303\304\305\306\307\310\311\312\"\317\"\314\315%\316\"\"\"Bb\210 |\210Qc\210\f\211\203&\211@\211@\211W\204\211>\203\303\3208Z\\\240\210\320\233Z\\\240\210\211U\203\277\320\233 \240\210\210\202\211>\203\375\3208\\Z\240\210\320\233Z\\\240\210\211 U\203\371\320\233\321 Z#\240\210\210\202\211W\203\3208\fZ\\\240\210\320\233\fZ\\\240\266\210A\266\202\202\202\210\322 \323\"\262 \211@\211\203`\211@\324@A@\fZ\\Z\\\3258 Z\\Z\\#\210A\266\202\2020\210\211A\211\203\207\211@\324@A@Z\\\3258Z\\#\210A\266\202\202c\210\f\266\214)\207" [org-list-get-item-end-before-blank org-list-get-item-end org-list-get-subtree delq nil mapcar make-byte-code 257 "\302!\300Y\205\303!\301X\205\211\302!\303!E\207" vconcat vector [overlay-start overlay-end] 5 "\n\n(fn O)" overlays-in [overlay-start overlay-end] 6 + sort car-less-than-car move-overlay 2] 25 (#$ . 28333)])
316 #@373 Return number of blank lines that should separate items in list.
317
318 POS is the position of point where `org-list-insert-item' was called.
319
320 STRUCT is the list structure.  PREVS is the alist of previous
321 items, as returned by `org-list-prevs-alist'.
322
323 Assume point is at item's beginning.  If the item is alone, apply
324 some heuristics to guess the result.
325
326 (fn POS STRUCT PREVS)
327 (defalias 'org-list-separating-blank-lines-number #[771 "\212`\301\236A\302\303\204\304\202x\305=\203\306\202x\307#\211\203-\211b\210 \202v\310#\203< \202v\311    \"V\203\\\212b\210 \211\262)\304V\203\\\202v\212\312!b\210\313\314\311\n\"\305#)\203u\306\202v\304\262\266\204)\207" [org-blank-before-new-entry plain-list-item nil #[0 "\212\300\301 b\302\303x\210\303y\210`\")\207" [count-lines point-at-bol "      \n" nil] 4] 0 t 1 org-list-get-next-item org-list-get-prev-item org-list-get-item-end-before-blank org-list-get-top-point re-search-forward "^[     ]*$"] 13 (#$ . 29855)])
328 #@510 Insert a new list item at POS and return the new structure.
329 If POS is before first character after bullet of the item, the
330 new item will be created before the current one.
331
332 STRUCT is the list structure.  PREVS is the alist of previous
333 items, as returned by `org-list-prevs-alist'.
334
335 Insert a checkbox if CHECKBOX is non-nil, and string AFTER-BULLET
336 after the bullet.  Cursor will be after this text once the
337 function ends.
338
339 This function modifies STRUCT.
340
341 (fn POS STRUCT PREVS &optional CHECKBOX AFTER-BULLET)
342 (defalias 'org-list-insert-item #[1283 "C\306\211\242b\210\307 b\310\"\311\"\312    !\210\242\313\224\204%\314\225\202O\315 \316\314\317\320\321!\322\"\323$\216\324\325\326\327!\")\262\203D\313\224\202O\212\313\225b\210\330\331w\210`)X\n\332\211\306=\203\\\306\202\210\306=\203f\306\202\210\333\"\203u\333\"A\202\210\334\236A\211<\203\205\335\331\"\202\206\211\262\266\202\336\242  # \327\2368\266\205 \203\257\211\f\245\337\f\"\\\202\260\211 \340\2368\266\205\315 \316\314\317\320\321!\341\"\323$\216 \203\333\324 \"\203\333\342\202\334\343\324\344\"\203\356\345\331\211\327%\202\357\262)\266\202 \205\372\346?\205)\205)\n\242b\210 \242W\203S\347 |\210\350\331x\210\n`\240\210\351 \242    \"\2051\343P\205I\324\352\"\203H\345\353\306\211$\202IR\354T\355\"\356GG#\211GZb\210j\210\261\210\357\316\360\361\320\321   &\362\"\363\364%\"\210    \331    \331\\\257B\262\365\366\"\262 \203\263b\210\202\312\367\211\\#\262\370\371!#b\210\266\217)\207" [case-fold-search org-list-full-item-re org-M-RET-may-split-line indent-tabs-mode tab-width org-list-two-spaces-after-bullet-regexp t org-list-get-item-begin org-list-get-item-end org-list-get-item-end-before-blank looking-at 4 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[.)]" match-string 1 "     " nil item assoc default delq org-list-separating-blank-lines-number mod 2 [set-match-data evaporate] "  " " " "\\S-+\\([     ]*\\)" replace-match "[ ]" point-at-eol "      \n" delete-and-extract-region "\\`[     ]+" "" make-string 10 + mapc 257 "\211@\3108\301W\203\211\301V\205\236\310\233\307\\\240\202\236\303\204#\304\2043\306\\\240\210\310\233\306\\\240\202\236\300\242W\203[\306\\\240\210\211\300\242W\203Q\310\233\306\\\240\202\236\310\233\307\\\240\202\236\302W\203\221\311\307\312\301\300\242\305G##\240\210\211\302U\203\310\233\301\306\\\240\202\236\310\233\311\307\312\301\300\242\305G##\240\202\236\307\\\240\210\310\233\307\\\240\207" [6 + -] 11 "\n\n(fn E)" sort #[514 "@@W\207" [] 4 "\n\n(fn E1 E2)"] org-list-swap-items org-list-get-next-item org-list-prevs-alist] 35 (#$ . 30855)])
343 #@106 Remove ITEM from the list and return the new structure.
344
345 STRUCT is the list structure.
346
347 (fn ITEM STRUCT)
348 (defalias 'org-list-delete-item #[514 "\300\"\301!U\203\212b\210\302\303x\210\304 Td^)\202\211|\210Z\305\303\306\307\310\311\312\313\f   $\314\"\315\316%\"\"\262\207" [org-list-get-item-end org-list-get-bottom-point "      \n" nil point-at-eol delq mapcar make-byte-code 257 "\211@\211\300W\2033\3048\211\300W\203\202.\211\300U\203%\305\306!\302C\"\202.\305\306!\303ZC\"\262\202M\211\301W\203=\307\202M\211\303Z\305\306A!\3048\303ZC\"B\207" vconcat vector [6 append butlast nil] 7 "\n\n(fn E)"] 17 (#$ . 33660)])
349 #@731 Send ITEM to destination DEST.
350
351 STRUCT is the list structure.
352
353 DEST can have various values.
354
355 If DEST is a buffer position, the function will assume it points
356 to another item in the same list as ITEM, and will move the
357 latter just before the former.
358
359 If DEST is `begin' (respectively `end'), ITEM will be moved at
360 the beginning (respectively end) of the list it belongs to.
361
362 If DEST is a string like "N", where N is an integer, ITEM will
363 be moved at the Nth position in the list.
364
365 If DEST is `kill', ITEM will be deleted and its body will be
366 added to the kill-ring.
367
368 If DEST is `delete', ITEM will be deleted.
369
370 Visibility of item is preserved.
371
372 This function returns, destructively, the new list structure.
373
374 (fn ITEM DEST STRUCT)
375 (defalias 'org-list-send-item #[771 "\211CC\302\242!\303\242\242\"\304\212\242b\210\305\306\307\242\242\310\2368\266\205!P!\210\311\225){!\312=\206\313\313=\206\313\314=\203T\315\242\242#\211\262\202\313\316=\203v\317\242\242#\262\212\320\242\242#b\210\321 )\202\313\322\323\324\325#)\266\203\203\311\326\242\242#\211G\327\330\n!\"\211\311U\204\250\211S8\211\262 \202\304\317\242    \242#\262\n\212\320\242    \242#b\210\321 )\266\203\202\313\323\331\332\333\334\335\336\n!\337\"\340\341%\342\242\"\"\313=\203\365\343\242\242\"\202\303\312=\203 \344!\210\343\242\242\"\202\303\250\203\300\242U\204\300\345\242!\240\210\346    \242\323%\240\210\347\242!\350\347\242!    \242\"B\303`    \242\"\303\347    \242!\n\242\"``\n\242Z \313\242\236\242\"\240\210 \351\352\242\353\332\333\354\335\336 $\355\"\356\357%\n\"\"\360\"\240\266\211\211\203\253\211@\361\362!` \242Z\\\363!`\f\242Z\\#\210A\266\202\202\210\210\343\347\242!\242\"\242\323\211\223\210\202\303\242)\266\205\207" [inhibit-changing-match-data org-M-RET-may-split-line org-list-prevs-alist org-list-get-item-end org-trim looking-at "[     ]*" regexp-quote 2 0 kill delete begin org-list-get-list-begin end org-list-get-list-end org-list-get-last-item point-at-eol "\\`[0-9]+\\'" nil t string-match org-list-get-all-items mod string-to-number cl-remove-if make-byte-code 257 "\301!\300\242W\206\302!\300\242V\207" vconcat vector [overlay-start overlay-end] 3 "\n\n(fn O)" overlays-in org-list-delete-item kill-new copy-marker org-list-insert-item marker-position org-list-get-subtree sort append mapcar "\211\300\242\236\211@\3048\303\\\305\306A!\302U\203\301\202\303\\C\"B\207" [6 append butlast] 9 "\n\n(fn E)" car-less-than-car move-overlay overlay-start overlay-end] 29 (#$ . 34319)])
376 #@226 Outdent items between positions START and END.
377
378 STRUCT is the list structure.  PARENTS is the alist of items'
379 parents, as returned by `org-list-parents-alist'.
380
381 START is included, END excluded.
382
383 (fn START END STRUCT PARENTS)
384 (defalias 'org-list-struct-outdent #[1028 "\300C\301\302\303\304\305                    %\306\"\307\310%\311\"\207" [nil make-byte-code 257 "\211@A\300W\203\202]\301Y\203-\211\205\211\304\242\236\211\203'AB\202(\262\202]\211\2047\305\306!\202]\211\300Y\203J\304B\304\242B\240\210\202]\307\302\303#\304B\304\242B\240\210B\262\207" vconcat vector [error "Cannot outdent top-level items" org-list-get-parent] 7 "\n\n(fn CELL)" mapcar] 15 (#$ . 36949)])
385 #@405 Indent items between positions START and END.
386
387 STRUCT is the list structure.  PARENTS is the alist of parents
388 and PREVS is the alist of previous items, returned by,
389 respectively, `org-list-parents-alist' and
390 `org-list-prevs-alist'.
391
392 START is included and END excluded.
393
394 STRUCT may be modified if `org-list-demote-modify-bullet' matches
395 bullets between START and END.
396
397 (fn START END STRUCT PARENTS PREVS)
398 (defalias 'org-list-struct-indent #[1285 "\300C\301\302\303\304\305!\306\"\307\310%\301\302\311\304\305    !\312\"\313\314%\301\302\315\304\305\f\f\f    &\316\"\317\310%\320\"\207" [nil make-byte-code 257 "\300\300\242B\240\210\207" vconcat vector [] 4 "\n\n(fn CELL)" "\302\303\300\304\2368\266\205!\305\306\"\203\307\202R\305\310\"\203%\311\202R\305\312\"\2030\313\202R\305\314\"\203;\315\202R\305\316\"\203F\317\202R\305\320\"\203Q\321\202R\211\262    \"A\211\205`\322\300#\207" [org-list-demote-modify-bullet assoc org-trim 2 string-match "[A-Z]\\." "A." "[A-Z])" "A)" "[a-z]\\." "a." "[a-z])" "a)" "[0-9]\\." "1." "[0-9])" "1)" org-list-set-bullet] 11 "\n\n(fn ITEM)" "\211@A\300W\203\202i\301Y\203)\211\304\242\236\211\203#AB\202$\262\202i\307\302\303#\306!\210\211\204F\203@\300W\203F\310\311!\202g\211\204P\305!\202g\211\300W\203^\305B!\202g\305\304\242\236AB!\262\207" [org-list-get-prev-item user-error "Cannot indent the first item of a list"] 8 mapcar] 20 (#$ . 37653)])
399 #@196 Non-nil if list starting at FIRST can have alphabetical bullets.
400
401 STRUCT is list structure.  PREVS is the alist of previous items,
402 as returned by `org-list-prevs-alist'.
403
404 (fn FIRST STRUCT PREVS)
405 (defalias 'org-list-use-alpha-bul-p #[771 "\205]\3032]\304\305\203X\306\2368\266\205\211\2039\307\305\310\311#)\266\203\2039\312\226!\262\202=T\262\313V\203K\314\303\305\"\210\202T\315#\262\210\202\f)\310\266\2020\207" [org-list-allow-alphabetical case-fold-search inhibit-changing-match-data exit 64 nil 3 "[a-zA-Z]" t string-match string-to-char 90 throw org-list-get-next-item] 13 (#$ . 39117)])
406 #@46 Increment BULLET if applicable.
407
408 (fn BULLET)
409 (defalias 'org-list-inc-bullet-maybe #[257 "\301\302\303\"\203\304\305\306\307\310\"!T!\301\211$\2023\302\311\"\2032\304\312\313\307\310\"!T!\301\211$\2023\211)\207" [case-fold-search nil string-match "[0-9]+" replace-match number-to-string string-to-number match-string 0 "[A-Za-z]" char-to-string string-to-char] 7 (#$ . 39753)])
410 #@167 Verify and correct bullets in STRUCT.
411 PREVS is the alist of previous items, as returned by
412 `org-list-prevs-alist'.
413
414 This function modifies STRUCT.
415
416 (fn STRUCT PREVS)
417 (defalias 'org-list-struct-fix-bul #[514 "\301\302\303\304\305\306\"\307\"\310\311%\312\313\314\"\")\207" [case-fold-search nil make-byte-code 257 "\303\300\301#\211\205\211\300\304\2368\266\205\300\305\2368\266\205\300\304\2368\266\205?\2057\306\300\301#\307\300\203w\203w\310\311\"\203w\310\311\"\203w\310\312\"\203a\227\202k\310\313\"\205k\226\314\315\211 $\262\202P\203\233\203\233\310\316\"\203\233\310\316\"\203\233\314\315\211\n$\202P\203\262\317\300\304\2368\266\205!\202P\203\362\306    \300\301#\203\362\310\320\"\203\362\310\320\"\203\362\310\312\"\203\334\227\202\346\310\313\"\205\346\226\314\315\211    $\262\202P\203\310\316\"\203\310\316\"\203\314\315\211$\202P\203'\310\313\"\203'\314\321\315\211$\202P\203=\310\312\"\203=\314\322\315\211$\202P\310\323\"\203O\314\324\315\211$\202P\325 \326\327\330\331\332!\333\"\305$\216\n\203m\310\n\"\203m\334\202n\335\310\336\"\203\200\314\315\211\337%\202\201\262)\266\202#\207" vconcat vector [org-list-two-spaces-after-bullet-regexp org-list-get-prev-item 2 3 org-list-use-alpha-bul-p org-list-set-bullet string-match "[a-zA-Z]" "[a-z]" "[A-Z]" replace-match nil "[0-9]+" org-list-inc-bullet-maybe "[A-Za-z]" "A" "a" "\\([0-9]+\\|[A-Za-z]\\)" "1" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] "  " " " "\\S-+\\([     ]*\\)" 1] 18 "\n\n(fn ITEM)" mapc mapcar car] 10 (#$ . 40149)])
418 #@317 Verify and correct indentation in STRUCT.
419
420 PARENTS is the alist of parents, as returned by
421 `org-list-parents-alist'.
422
423 If numeric optional argument BULLET-SIZE is set, assume all
424 bullets in list have this length to determine new indentation.
425
426 This function modifies STRUCT.
427
428 (fn STRUCT PARENTS &optional BULLET-SIZE)
429 (defalias 'org-list-struct-fix-ind #[770 "\300!\211\301\2368\266\205\302\303\304\305\306            $\307\"\310\311%\312\313\314    A\"\"\207" [org-list-get-top-point 1 make-byte-code 257 "\305\300\301#\211\2030\306\300\307\302\206\300\310\2368\266\205G\300\311\2368\266\205\f##\2025\306\300\303#\207" vconcat vector [org-list-indent-offset org-list-get-parent org-list-set-ind + 2 1] 15 "\n\n(fn ITEM)" mapc mapcar car] 14 (#$ . 41856)])
430 #@519 Verify and correct checkboxes in STRUCT.
431
432 PARENTS is the alist of parents and PREVS is the alist of
433 previous items, as returned by, respectively,
434 `org-list-parents-alist' and `org-list-prevs-alist'.
435
436 If ORDERED is non-nil, a checkbox can only be checked when every
437 checkbox before it is checked too.  If there was an attempt to
438 break this rule, the function will return the blocking item.  In
439 all others cases, the return value will be nil.
440
441 This function modifies STRUCT.
442
443 (fn STRUCT PARENTS PREVS &optional ORDERED)
444 (defalias 'org-list-struct-fix-box #[1027 "\300\301\"\302\303\304\305\306        \"\307\"\310\311%\312C\313\302\303\314\305\306\f\f#\315\"\316\317%\"\210\211\320\242\302\321\322\305\306!\323\"\324\325%\"\240\210\313\242\"\210\205\215\300\302\303\326\305\306\f!\327\"\330\317%\"\331\235\332\235\205\213GGZ\313\302\303\333\305\306!\334\"\330\317%\233\"\210\335\n\n\n\312$\210\2118\262\266\202\207" [mapcar car make-byte-code 257 "\302\303\304\305\306\307\300!\310\"\311\312%\313\300\301#\"\314\300\315\235\203&\316\235\203&\317\202P\317\235\2030\317\202P\316\235\203:\316\202P\315\235\203D\315\202P\300\320\2368\266\205#\207" vconcat vector [mapcar make-byte-code 257 "\211\300\301\2368\207" vconcat vector [4] 9 "\n\n(fn CHILD)" org-list-get-children org-list-set-checkbox "[ ]" "[X]" "[-]" 4] 13 "\n\n(fn ITEM)" nil mapc "\303\300\301#\211\300\304\2368\266\205\211\205#\302\242>?\205#\302\302\242B\240\207" [org-list-get-parent 4] 10 "\n\n(fn E)" sort 514 "\300\301\2368\266\205\300\301\2368\266\205V\207" [1] 11 "\n\n(fn E1 E2)" "\211\300\301\2368\207" [4] 9 "[ ]" "[X]" "\211\300\301\2368\266\205\205\302\300\303#\207" [4 org-list-set-checkbox "[ ]"] org-list-struct-fix-box] 17 (#$ . 42639)])
445 #@99 Verify and correct each item end position in STRUCT.
446
447 This function modifies STRUCT.
448
449 (fn STRUCT)
450 (defalias 'org-list-struct-fix-item-end #[257 "\300C\300C\301\302\303\304\305\306#\307\"\310\311%\"\210\312\242\313\"\240\210\314\242\"\207" [nil mapc make-byte-code 257 "\211@\211\300\303\2368\266\205\304\300\"\211\300\236\204=\305\302\242\306#\301\2034\300\303\2368\266\205\307\\\2025\310B\301\242B\240\266\301B\301\242B\240\210\302B\302\242B\240\207" vconcat vector [1 org-list-get-item-end assoc-default > 2 0] 14 "\n\n(fn E)" sort #[514 "AAW\207" [] 4 "\n\n(fn E1 E2)"] org-list-struct-assoc-end] 12 (#$ . 44449)])
451 #@314 Apply set difference between STRUCT and OLD-STRUCT to the buffer.
452
453 OLD-STRUCT is the structure before any modifications, and STRUCT
454 the structure to be applied.  The function will only modify parts
455 of the list which have changed.
456
457 Initial position of cursor is restored after the changes.
458
459 (fn STRUCT OLD-STRUCT)
460 (defalias 'org-list-struct-apply-struct #[514 "\303 \304\305!\205\n\306 \307 \310\311\312\211\211\211\211\n\211\203\221\211@\211@\211\313\2368\266\205\313\2368\266\205\314\2368\266\205\314\2368\266\205G\\G\\Z\315\"B\fB\262\f\211\236\204\316\317#BB\262\210\211B B\262 \266A\266\202\202\210\320\321\322\323\"\324\322\323\n\"!\"\325\"\262\237\262A\203-\211A\262\242@\236\211\203\306\236A\202\"\236A\211\313\2368\266\205\212b\210`W\203\326\327\330!)\262\204\331 ^\262\330\332!\203    \333\334\335\336\313!\"\327#\204\330\n!\203\333\337\327#\210\312y\210\202\335)Z\266\203EB\266\205\202\251\211\211\203l\211@\3148\340U\204F\341    \f\f$\210\211A@\211\236\211\203c\211\236\232\204c    #\210\266A\266\202\202.\266b\210\312\211\223\207" [most-positive-fixnum inhibit-changing-match-data org-drawer-regexp point-marker featurep org-inlinetask org-inlinetask-outline-regexp org-item-re #[1285 "b\210\301\302x\210\303 \210`V\204`U\205F\304!?\205F\203-\304!\203-\305 \210\202@\306\307\304!)\262\203@\310\311 \\!\210\312y\210\202\n\207" [inhibit-changing-match-data "      \n" nil beginning-of-line looking-at org-inlinetask-goto-beginning "^[     ]*\\S-" t indent-line-to org-get-indentation -1] 8 "\n\n(fn INLINETASK-RE ITEM-RE END BEG DELTA)"] #[771 "\211b\210\211\302\2368\266\205\303 \304\2368\266\205\305 \306\307\310\311\312!\313\"\314$\216\203:\315\"\203:\316\202;\317\315\320\"\203M\321\322\211\302%\202N\262)\266\202\304\2368\266\205\323\2368\266\205\324    !\210\232\204~\321\322\211\211\302%\210\325\314!\232\204\312\325\314!\203\233\211\203\233\321\322\211\211\314%\210\202\312\325\314!\203\260\324\326!\210\321\327\322\211\211\302%\210\202\312\304\225\211\203\273\211T\202\275\302\225b\210?\205\306\317Pc\266U?\205\335\330 b\331\322w\210`|\210j\207" [org-list-two-spaces-after-bullet-regexp org-list-full-item-re 1 org-get-indentation 2 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "  " " " "\\S-+\\([     ]*\\)" replace-match nil 4 looking-at match-string ".*?\\([     ]*\\[[ X-]\\]\\)" "" point-at-bol "     "] 15 "\n\n(fn STRUCT OLD-STRUCT ITEM)"] nil 1 2 org-list-get-item-end assoc-default > sort append mapcar car org-uniquify < "[     ]*$" t looking-at org-get-indentation "#\\+BEGIN\\(:\\|_\\S-+\\)" re-search-forward format "^[     ]*#\\+END%s[     ]*$" match-string "^[     ]*:END:[     ]*$" 0 apply] 26 (#$ . 45110)])
461 #@389 Correct bullets, checkboxes and indentation in list at point.
462
463 STRUCT is the list structure.  PARENTS is the alist of parents,
464 as returned by `org-list-parents-alist'.
465
466 When non-nil, optional argument OLD-STRUCT is the reference
467 structure of the list.  It should be provided whenever STRUCT
468 doesn't correspond anymore to the real list in buffer.
469
470 (fn STRUCT PARENTS &optional OLD-STRUCT)
471 (defalias 'org-list-write-struct #[770 "\211\206\300!\301\302#\210\303!\210\304!\305\"\210\301\"\210\306#\266\307\"\207" [copy-tree org-list-struct-fix-ind 2 org-list-struct-fix-item-end org-list-prevs-alist org-list-struct-fix-bul org-list-struct-fix-box org-list-struct-apply-struct] 9 (#$ . 48012)])
472 #@505 Call FUNCTION on each item of the list at point.
473 FUNCTION must be called with at least one argument: INIT-VALUE,
474 that will contain the value returned by the function at the
475 previous item, plus ARGS extra arguments.
476
477 FUNCTION is applied on items in reverse order.
478
479 As an example, (org-apply-on-list (lambda (result) (1+ result)) 0)
480 will return the number of items in the current list.
481
482 Sublists of the list are skipped.  Cursor is always at the
483 beginning of the item.
484
485 (fn FUNCTION INIT-VALUE &rest ARGS)
486 (defalias 'org-apply-on-list #[642 "\300 \301!\302\303 !\304\305!#C\306\307\310\311\312\313 \f#\314\"\315\316%\237\"\210b\210\317\211\223\210\211\242\207" [org-list-struct org-list-prevs-alist copy-marker point-at-bol org-list-get-all-items marker-position mapc make-byte-code 257 "\211b\210\302\303\300\302\242\301#\240\207" vconcat vector [apply] 6 "\n\n(fn E)" nil] 17 (#$ . 48727)])
487 #@162 Set visibility of ITEM in STRUCT to VIEW.
488
489 Possible values are: `folded', `children' or `subtree'.  See
490 `org-cycle' for more information.
491
492 (fn ITEM STRUCT VIEW)
493 (defalias 'org-list-set-item-visibility #[771 "\211\300\267\202?\301\"\302\212b\210\303 )\304#\207\305\306#\210\307!\310#\311\312\313\314\315\316    !\317\"\320\321%\"\207\322\"\302\323#\207\323\207" [#s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (folded 6 children 22 subtree 53)) org-list-get-item-end-before-blank outline-flag-region point-at-eol t org-list-set-item-visibility subtree org-list-parents-alist org-list-get-children mapc make-byte-code 257 "\301\300\302#\207" vconcat vector [org-list-set-item-visibility folded] 5 "\n\n(fn E)" org-list-get-item-end nil] 12 (#$ . 49637)])
494 #@62 Return column at which body of ITEM should start.
495
496 (fn ITEM)
497 (defalias 'org-list-item-body-column #[257 "\212\211b\210\212\303\210\304\305\306 \307#)\203.\310\224\306 ZT\311 \\V\203(\211\312\\\202)\266\202\202S\313\314!\210\310\225b\210i    \203Q    \315\310!\303\307\316#)\266\203\203Q\317\202R\310\\)\207" [org-list-description-max-indent org-list-two-spaces-after-bullet-regexp inhibit-changing-match-data nil re-search-backward "[     ]::\\([     ]\\|$\\)" line-beginning-position t 1 org-get-indentation 5 looking-at "[     ]*\\(\\S-+\\)" match-string string-match 2] 9 (#$ . 50449)])
498 (defalias 'org-list-get-item-begin 'org-in-item-p)
499 #@77 Go to the beginning of the current item.
500 Throw an error when not in a list.
501 (defalias 'org-beginning-of-item #[0 "\300 \211\203 \211b\202\301\302!\207" [org-in-item-p error "Not in an item"] 3 (#$ . 51097) nil])
502 #@93 Go to the beginning item of the current list or sublist.
503 Throw an error when not in a list.
504 (defalias 'org-beginning-of-item-list #[0 "\300 \211\204\f\301\302!\202\211b\210\303 \304!\305#b\266\202\207" [org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-list-begin] 7 (#$ . 51318) nil])
505 #@82 Go to the end of the current list or sublist.
506 Throw an error when not in a list.
507 (defalias 'org-end-of-item-list #[0 "\300 \211\204\f\301\302!\202\211b\210\303 \304!\305#b\266\202\207" [org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-list-end] 7 (#$ . 51654) nil])
508 #@71 Go to the end of the current item.
509 Throw an error when not in a list.
510 (defalias 'org-end-of-item #[0 "\300 \211\204\f\301\302!\202\211b\210\303 \304\"b\262\207" [org-in-item-p error "Not in an item" org-list-struct org-list-get-item-end] 5 (#$ . 51971) nil])
511 #@171 Move to the beginning of the previous item.
512 Throw an error when not in a list.  Also throw an error when at
513 first item, unless `org-list-use-circular-motion' is non-nil.
514 (defalias 'org-previous-item #[0 "\301 \211\204\f\302\303!\2024\211b\210\304 \305!\306#\211\203\"\211b\2022\203/\307#b\2022\302\310!\266\203\207" [org-list-use-circular-motion org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-prev-item org-list-get-last-item "On first item"] 8 (#$ . 52243) nil])
515 #@166 Move to the beginning of the next item.
516 Throw an error when not in a list.  Also throw an error when at
517 last item, unless `org-list-use-circular-motion' is non-nil.
518 (defalias 'org-next-item #[0 "\301 \211\204\f\302\303!\2024\211b\210\304 \305!\306#\211\203\"\211b\2022\203/\307#b\2022\302\310!\266\203\207" [org-list-use-circular-motion org-in-item-p error "Not in an item" org-list-struct org-list-prevs-alist org-list-get-next-item org-list-get-first-item "On last item"] 8 (#$ . 52768) nil])
519 #@169 Move the item at point down, i.e. swap with following item.
520 Sub-items (items with larger indentation) are considered part of
521 the item, so this really moves item trees.
522 (defalias 'org-move-item-down #[0 "\301 \204    \302\303!\210i\304 \305 \306!\307\304 #\211\204#\204#\310\311!\210\211\2041\312\313#\262\202B\314#\262\307\306!#b\210\315\316!\"\210\317!\207" [org-list-use-circular-motion org-at-item-p error "Not at an item" point-at-bol org-list-struct org-list-prevs-alist org-list-get-next-item user-error "Cannot move this item further down" org-list-send-item begin org-list-swap-items org-list-write-struct org-list-parents-alist org-move-to-column] 10 (#$ . 53284) nil])
523 #@166 Move the item at point up, i.e. swap with previous item.
524 Sub-items (items with larger indentation) are considered part of
525 the item, so this really moves item trees.
526 (defalias 'org-move-item-up #[0 "\301 \204    \302\303!\210i\304 \305 \306!\307\304 #\211\204#\204#\310\311!\210\211\2041\312\313#\262\2028\314#\262\315\316!\"\210\317!\207" [org-list-use-circular-motion org-at-item-p error "Not at an item" point-at-bol org-list-struct org-list-prevs-alist org-list-get-prev-item user-error "Cannot move this item further up" org-list-send-item end org-list-swap-items org-list-write-struct org-list-parents-alist org-move-to-column] 9 (#$ . 53990) nil])
527 #@325 Insert a new item at the current level.
528 If cursor is before first character after bullet of the item, the
529 new item will be created before the current one.
530
531 If CHECKBOX is non-nil, add a checkbox next to the bullet.
532
533 Return t when things worked, nil when we are not in an item, or
534 item is invisible.
535
536 (fn &optional CHECKBOX)
537 (defalias 'org-insert-item #[256 "\301 `?\206\212b\210\302 )?\205\207\212b\210\303 )\203$\304 \210\305\202\207\212b\210\306 )\307!\310#\311=\2059\312\313    %\262\314\315!\"\210\203Q\316 \210\317!\210\320\224\203y\321 \322\323\324\325\326!\327\"\330$\216\331\332\333\334!\")\262\203y\320\224\202{\323\225b\210\211\203\204\335u\210\305\266\203\207" [org-list-full-item-re org-in-item-p org-invisible-p org-at-item-timer-p org-timer-item t org-list-struct org-list-prevs-alist org-list-get-list-type descriptive " :: " org-list-insert-item org-list-write-struct org-list-parents-alist org-update-checkbox-count-maybe looking-at 4 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "[.)]" match-string 1 -1] 13 (#$ . 54667) "P"])
538 #@63 Fix indentation, bullets and checkboxes in the list at point.
539 (defalias 'org-list-repair #[0 "\300 \204    \301\302!\210\303 \304!\305\"\207" [org-at-item-p error "This is not a list" org-list-struct org-list-parents-alist org-list-write-struct] 5 (#$ . 55807) nil])
540 #@333 Cycle through the different itemize/enumerate bullets.
541 This cycle the entire list level through the sequence:
542
543    `-'  ->  `+'  ->  `*'  ->  `1.'  ->  `1)'
544
545 If WHICH is a valid string, use that as the new bullet.  If WHICH
546 is an integer, 0 means `-', 1 means `+' etc.  If WHICH is
547 `previous', cycle backwards.
548
549 (fn &optional WHICH)
550 (defalias 'org-cycle-list-bullet #[256 "\303 \204    \304\305!\210\212\306 \210\307 \310!\311!\312`#\211\313\2368\266\205\314#\315\316\317\"\2039\320\202s\316\321\"\203D\322\202s\316\323\"\203O\324\202s\316\325\"\203Z\326\202s\316\327\"\203e\330\202s\316\331\"\203p\332\202s\333!\334\335\336\337!?\205}\340    \341=\206\205\342 ?\205\212\343    \344=\206\222\342 ?\205\227\345?\206\245    \341=\206\245\342 ?\205\252\346?\206\270    \344=\206\270\342 ?\205\275\347&\211G\211\235GZ\350 \235\203\324 \202\371 \247\203\343\211#\202\371 \351=\203\363\211S#\202\371\211T#\352\f!\353\n\354 \355\356\357\360\361!\362\"\363$\216\n\203 \316\n\"\203 \364\202!\365\316\366\"\2033\367\315\211\370%\2024\262)\266\202#\210\371 \f\"\210\372  \"\210\373 \"\262)\266\214)\207" [case-fold-search org-plain-list-ordered-item-terminator org-list-two-spaces-after-bullet-regexp org-at-item-p error "Not at an item" beginning-of-line org-list-struct org-list-parents-alist org-list-prevs-alist org-list-get-first-item 2 org-list-use-alpha-bul-p nil string-match "[a-z]\\." "a." "[a-z])" "a)" "[A-Z]\\." "A." "[A-Z])" "A)" "\\." "1." ")" "1)" org-trim append ("-" "+") looking-at "\\S-" ("*") 41 org-at-item-description-p ("1.") 46 ("1)") ("a." "A.") ("a)" "A)") #[771 "\300\"8\207" [mod] 6 "\n\n(fn BULLET-LIST LEN INDEX)"] previous copy-tree org-list-set-bullet match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "  " " " "\\S-+\\([     ]*\\)" replace-match 1 org-list-struct-fix-bul org-list-struct-fix-ind org-list-struct-apply-struct] 26 (#$ . 56082) "P"])
551 #@551 Toggle the checkbox in the current line.
552
553 With prefix argument TOGGLE-PRESENCE, add or remove checkboxes.
554 With a double prefix argument, set the checkbox to "[-]".
555
556 When there is an active region, toggle status or presence of the
557 first checkbox there, and make every item inside have the same
558 status or presence, respectively.
559
560 If point is on a headline, apply this to all checkbox items in
561 the text below the heading, taking as reference the first item in
562 subtree, ignoring planning line and any drawer following it.
563
564 (fn &optional TOGGLE-PRESENCE)
565 (defalias 'org-toggle-checkbox #[256 "\212\300\211\211C\300C\301\300\302\"\303 \2037\304 \305 b\210\306\307\310 P\311#\203)\312 \240\210\202-\313\314!\210\315!\240\262\202\200\316 \203g\212\317 \210`)\320\311!\210\306\307\310 P\311#\203Y\312 \240\210\202]\313\321!\210\315!\240\262\202\200\322 \203}\311\262\312 \240\210\315\323 !\240\202\200\313\324!\242b\210\325 \205\214\326\327!\330\232\203\227\331\202\262\332\232\203\247\211?\205\262\333\202\262\211\334\232\203\261\333\202\262\334\262\242b\210`\242W\203|\306\307\310 P\242\335#\203|\336 \337!\340!\341!\315\342!!\343\344\345\346\347\350\"\351\"\352\353%\354\355\"\"\356\344\345\357\347\350  #\360\"\361\353%\"\210\362\f$\262\f\f\203E \203E\n\242\fV\203E\313\363 \212\211\203/\211b\210n\2037\327\2028\364\365\327`\"\\)\262\"\210\202i \203i\366\367 \212\211\203V\211b\210n\203^\327\202_\364\365\327`\"\\)\262\"\210b\210\300\211\223\210\370\"\266\202\270\242\300\211\223\266)\371 \207" [nil org-entry-get "ORDERED" org-region-active-p region-end region-beginning org-list-search-forward "^" org-item-re t point-at-bol error "No item in region" copy-marker org-at-heading-p outline-next-heading org-end-of-meta-data "No item in subtree" org-at-item-p point-at-eol "Not at an item or heading, and no active region" org-at-item-checkbox-p match-string 1 (16) "[-]" (4) "[ ]" "[X]" move org-list-struct copy-tree org-list-parents-alist org-list-prevs-alist org-list-get-bottom-point cl-remove-if make-byte-code 257 "\211\300\242W\206 \211\301\242V\207" vconcat vector [] 3 "\n\n(fn E)" mapcar car mapc "\303\302\302\304\2368\266\205\211\204\300\305\232\203\301\202\211\262#\207" [org-list-set-checkbox 4 (4)] 12 org-list-struct-fix-box "Checkbox blocked because of unchecked box at line %d" 0 count-lines message "Checkboxes were removed due to unchecked box at line %d" org-list-struct-apply-struct org-update-checkbox-count-maybe] 23 (#$ . 58086) "P"])
566 #@43 Reset all checkboxes in an entry subtree.
567 (defalias 'org-reset-checkbox-state-subtree #[0 "\300 \203    \301\302!\207\214\212\303 \210\304 \210eb\210d`W\203/\305 \203(\306\307\310\211\311\312%\210\313\314!\210\202\210\315\316!*\207" [org-before-first-heading-p error "Not inside a tree" org-narrow-to-subtree org-show-subtree org-at-item-checkbox-p replace-match "[ ]" t nil 1 beginning-of-line 2 org-update-checkbox-count-maybe all] 7 (#$ . 60654) "*"])
568 #@244 Update the checkbox statistics in the current section.
569
570 This will find all statistic cookies like [57%] and [6/12] and
571 update them with the current numbers.
572
573 With optional prefix argument ALL, do this for the whole buffer.
574
575 (fn &optional ALL)
576 (defalias 'org-update-checkbox-count #[256 "\212\214~\210\306\307?\206\310\311\312\313\314\"\206\315\"?\205#\316\317!\205#\320 \203+d\202J\211\2038\212\321 \210`)\202J\212\322\323 \211\324\nP\321 \210,`)\325\313\211\203Xeb\210\202r\203c\326\322!\210\202r\322\323 \211\324\nP\327 \210,\330\322#\203N\212\331u\210\332 \333\334\335\336\337!\340\"\341$\216\342 )\262)\343!\344=\203J\345\346\224\346\225\347\225E\350\351\"\211\203\262\352\353\"\202\304\212\322\323 \211\324\nP\327 \210,`)\211\236A\206C\212\211b\210\203\333\352\354\"\202\355\212\322\323 \211\324\nP\321 \210,`)\313\330\322#\203\"\355 \343!\356=\203\352\357\"B\262\350\360\"\211\262\203\352\361\"^b\210\202    \210\202\356    \343!\356=\2051\352\362\"#B    B\262    \211\262\266\202)\266\202\"B\262\210\202r\211\205\230\211@\211@A@\3478\3418\3638b\210\203x\364\365\366\367_\346]\"\"\202}\364\370#c\210``Z\\|\210 \203\217\371 \210\266A\266\202\202O\262\266\210*\207" [org-checkbox-hierarchical-statistics org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-auto-align-tags "\\(\\(\\[[0-9]*%\\]\\)\\|\\(\\[[0-9]*/[0-9]*\\]\\)\\)" "^[     ]*\\([-+*]\\|\\([0-9]+\\|[A-Za-z]\\)[.)]\\)[     ]+\\(?:\\[@\\(?:start:\\)?\\([0-9]+\\|[A-Za-z]\\)\\][     ]*\\)?\\(\\[[- X]\\]\\)" string-match "\\<recursive\\>" org-entry-get nil "COOKIE_DATA" "" featurep org-inlinetask org-inlinetask-in-task-p outline-next-heading t org-get-limited-outline-regexp "^" #[771 "\300\211\211\203p\211@\301!\302!\203!\203!\303    \"\202B\203-\304\305\"\202B\203;\306    #\202B\307\310!#\311\312\304\313\314\315\316\317 !\320\"\321\322%\"\"G\\\262\323\324\325\326$\\\262\266A\266\202\202D\262\207" [0 org-list-prevs-alist org-list-parents-alist org-list-get-subtree mapcar car org-list-get-children org-list-get-all-items org-list-get-top-point delq nil make-byte-code 257 "\211\300\301\2368\207" vconcat vector [4] 9 "\n\n(fn E)" cl-count "[X]" :test equal] 19 "\n\n(fn ITEM STRUCTS RECURSIVEP)"] org-back-to-heading outline-previous-heading re-search-forward -1 match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-element-context org-element-type statistics-cookie append 1 2 org-element-lineage (drawer center-block dynamic-block inlinetask item quote-block special-block verse-block) org-element-property :contents-begin :contents-end org-element-at-point item :structure (plain-list) :end :begin 4 format "[%d%%]" floor 100.0 "[%d/%d]" org-fix-tags-on-the-fly] 23 (#$ . 61119) "P"])
577 #@140 Select the face for checkbox statistics.
578 The face will be `org-done' when all relevant boxes are checked.
579 Otherwise it will be `org-todo'.
580 (defalias 'org-get-checkbox-statistics-face #[0 "\300\225\203\301\300!\302\232\203\303\207\304\207\305\225\305\224V\203%\301\305!\301\306!\232\203%\303\207\304\207" [1 match-string "100%" org-checkbox-statistics-done org-checkbox-statistics-todo 2 3] 3 (#$ . 64003)])
581 #@139 Update checkbox statistics unless turned off by user.
582 With an optional argument ALL, update them in the whole buffer.
583
584 (fn &optional ALL)
585 (defalias 'org-update-checkbox-count-maybe #[256 "\301\236A\203 \302!\210\303\304!\207" [org-list-automatic-rules checkbox org-update-checkbox-count run-hooks org-checkbox-statistics-hook] 3 (#$ . 64423)])
586 (defvar org-last-indent-begin-marker (make-marker))
587 (defvar org-last-indent-end-marker (make-marker))
588 #@350 Indent a local list item including its children.
589 When number ARG is a negative, item will be outdented, otherwise
590 it will be indented.
591
592 If a region is active, all items inside will be moved.
593
594 If NO-SUBTREE is non-nil, only indent the item itself, not its
595 children.
596
597 STRUCT is the list structure.
598
599 Return t if successful.
600
601 (fn ARG NO-SUBTREE STRUCT)
602 (defalias 'org-list-indent-item-generic #[771 "\212\306 \211\205    \307 \205\310 \311!\312!\313!?\2058\314 U\2058\315\236A\2058\2037\316\317!\2028\320    \321>\203D\n\322>\204}\203W \323\223\210\f\323\223\210\202} \314 \323\223\210\f\203i\324    !\202z    \203t\314 T\202z\325\314 \n\"\323\223\210\326 !\326\f!\2036\327 \f\330W\203\225\211[\202\226\211\f\331\2368\266\205\332 !\\\330W\203\266\333\334!\210\2021\\\330U\203\335\336\337\2368\266\205\"\203\340\341\342 \343\330\344\345\346!\347\"\350$\216 \203\365\335 \"\203\365\351\202\366\352\335\353\"\203\354\323\211\331%\202    \262)\266\202#\210\355\343\356\357\345\346    \"\360\"\361\362%\"\210\363    \"\210\364\"\210\266\202\233 \330W\203u\n\203O\204O\365 \"\204n\366\367\343\356\370\345\346!\371\"\350\362%\f\"!@@\365\f\"\262\203u\333\372!\210\202\233 \330W\203\207\373\f$\202\221\374\f%\375 \"\266\376 \210\266    )\320\207" [org-list-automatic-rules last-command this-command org-last-indent-begin-marker org-last-indent-end-marker org-list-two-spaces-after-bullet-regexp org-region-active-p region-beginning region-end org-list-get-top-point org-list-parents-alist org-list-prevs-alist point-at-bol indent user-error "At first item: use S-M-<left/right> to move the whole list" t (org-shiftmetaright org-shiftmetaleft) (org-shiftmetaright org-shiftmetaleft) nil org-list-get-bottom-point org-list-get-item-end marker-position org-level-increment 0 1 copy-tree error "Cannot outdent beyond margin" string-match "*" 2 org-list-set-bullet "-" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "  " " " "\\S-+\\([     ]*\\)" replace-match mapc 257 "\211@\300\302\2368\266\205\303@\300\301\\#\207" [1 org-list-set-ind] 9 "\n\n(fn E)" org-list-struct-fix-bul org-list-struct-apply-struct org-list-has-child-p reverse cl-remove-if "\211@\300Y\207" [] "Cannot outdent an item without its children" org-list-struct-outdent org-list-struct-indent org-list-write-struct org-update-checkbox-count-maybe] 28 (#$ . 64879)])
603 #@105 Outdent a local list item, but not its children.
604 If a region is active, all items inside will be moved.
605 (defalias 'org-outdent-item #[0 "\300 \301 \204\211\2031\212\302 b\210\301 )\2031\211\204\303 \202'\212\302 b\210\303 )\304\305\306#\262\202>\211\203;\307\310!\202>\307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic -1 t error "Region not starting at an item" "Not at an item"] 6 (#$ . 67362) nil])
606 #@104 Indent a local list item, but not its children.
607 If a region is active, all items inside will be moved.
608 (defalias 'org-indent-item #[0 "\300 \301 \204\211\2031\212\302 b\210\301 )\2031\211\204\303 \202'\212\302 b\210\303 )\304\305\306#\262\202>\211\203;\307\310!\202>\307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic 1 t error "Region not starting at an item" "Not at an item"] 6 (#$ . 67844) nil])
609 #@106 Outdent a local list item including its children.
610 If a region is active, all items inside will be moved.
611 (defalias 'org-outdent-item-tree #[0 "\300 \301 \204\211\2031\212\302 b\210\301 )\2031\211\204\303 \202'\212\302 b\210\303 )\304\305\306#\262\202>\211\203;\307\310!\202>\307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic -1 nil error "Region not starting at an item" "Not at an item"] 6 (#$ . 68323) nil])
612 #@105 Indent a local list item including its children.
613 If a region is active, all items inside will be moved.
614 (defalias 'org-indent-item-tree #[0 "\300 \301 \204\211\2031\212\302 b\210\301 )\2031\211\204\303 \202'\212\302 b\210\303 )\304\305\306#\262\202>\211\203;\307\310!\202>\307\311!\207" [org-region-active-p org-at-item-p region-beginning org-list-struct org-list-indent-item-generic 1 nil error "Region not starting at an item" "Not at an item"] 6 (#$ . 68813) nil])
615 #@271 Cycle levels of indentation of an empty item.
616 The first run indents the item, if applicable.  Subsequent runs
617 outdent it at meaningful levels in the list.  When done, item is
618 put back at its original position with its original bullet.
619
620 Return t at each successful move.
621 (defalias 'org-cycle-item-indentation #[0 "\305 \205\300\306\307 \310 \311\2368\266\205\312\310 \313 {!    \314=\204B\212\315 \210\316\n!)\205\275\317\225\212\320\310 \"b\210\321\306x\210`)Y\205\275\314    \314=\203\214\3221W\323\324\325#0\202[\210\202^\204\274\f@U\203w\3261r\323\311\325#0\202t\210\306\204\274\310 \313 |\210\f@j\210\fA\327\261\210\330\202\274B\3311\235\323\311\325#0\202\241\210\202\244\204\274\3321\261\323\324\325#0\202\265\210\202\270\204\274\333\334!\210\325)\266\203\207" [org-adapt-indentation last-command org-list-full-item-re this-command org-tab-ind-state org-at-item-p nil org-list-struct point-at-bol 1 org-trim point-at-eol org-cycle-item-indentation beginning-of-line looking-at 0 org-list-get-item-end "      \n" (error) org-list-indent-item-generic -1 t (error) " " identity (error) (error) user-error "Cannot move item"] 9 (#$ . 69300)])
622 #@1472 Sort list items.
623 The cursor may be at any item of the list that should be sorted.
624 Sublists are not sorted.  Checkboxes, if any, are ignored.
625
626 Sorting can be alphabetically, numerically, by date/time as given
627 by a time stamp, by a property or by priority.
628
629 Comparing entries ignores case by default.  However, with an
630 optional argument WITH-CASE, the sorting considers case as well.
631
632 The command prompts for the sorting type unless it has been given
633 to the function through the SORTING-TYPE argument, which needs to
634 be a character, (?n ?N ?a ?A ?t ?T ?f ?F ?x ?X).  Here is the
635 detailed meaning of each character:
636
637 n   Numerically, by converting the beginning of the item to a number.
638 a   Alphabetically.  Only the first line of item is checked.
639 t   By date/time, either the first active time stamp in the entry, if
640     any, or by the first inactive one.  In a timer list, sort the timers.
641 x   By "checked" status of a check list.
642
643 Capital letters will reverse the sort order.
644
645 If the SORTING-TYPE is ?f or ?F, then GETKEY-FUNC specifies
646 a function to be called with point at the beginning of the
647 record.  It must return a value that is compatible with COMPARE-FUNC,
648 the function used to compare entries.
649
650 Sorting is done against the visible part of the headlines, it
651 ignores hidden links.
652
653 A non-nil value for INTERACTIVE? is used to signal that this
654 function is being called interactively.
655
656 (fn &optional WITH-CASE SORTING-TYPE GETKEY-FUNC COMPARE-FUNC INTERACTIVE\=\?)
657 (defalias 'org-sort-list #[1280 "\203\301\202    \302\303 \304!\305\306 #\307\306 #\206%\310\311!\210\312 \211\227\211\313U\205@    \206@\203=\314\315!\206@\316\317!\320U\203J\321\202r\313U\203a    \206r\205r\314\322\323\"\202r\324U\203k\325\202r\326U\205r\321\310\327!\210\214}\210eb\210\330\331 \332\333\334\335\336\337!\340\"\341$\333\334\342\336\337\f\f\f %\343\"\344$\345    U?\330\n&\210\346 \210\347\350!\210\310\351!)\266\204)\207" [case-fold-search identity downcase org-list-struct org-list-prevs-alist org-list-get-list-begin point-at-bol org-list-get-list-end message "Sort plain list: [a]lpha  [n]umeric  [t]ime  [f]unc  [x]checked  A/N/T/F/X means reversed:" read-char-exclusive 102 org-read-function "Function for extracting keys: " error "Missing key extractor" 97 string< "Function for comparing keys (empty for default `sort-subr' predicate): " allow-empty 116 < 120 "Sorting items..." nil current-time #[0 "\300\301w\210m\206\n\302 \207" ["      \n" nil beginning-of-line] 2] make-byte-code 0 "\301`\300\"b\207" vconcat vector [org-list-get-item-end-before-blank] 3 "\306\307!\205\217\302\310U\203\311\312\313\225\314 {!!\207\302\315U\203&\300\312\313\225\314 {!!\207\302\316U\203X\317 \2037\320\321\322!!\207\212\323 \314 \324#)\204N\212\323\314 \324#)\203T\325\321\313!!\207\326\304!\207\302\327U\203m\321\322!;\203k\321\322!\206\217\330\207\302\331U\203\213\303\203\206\303 \211;\203\204\300!\202\205\211\207\332\333\303\"\207\332\334\301\"\207" [org-ts-regexp looking-at "[     ]*[-+*0-9.)]+\\([     ]+\\[[- X]\\]\\)?[     ]+" 110 string-to-number org-sort-remove-invisible 0 point-at-eol 97 116 org-at-item-timer-p org-timer-hms-to-secs match-string 1 re-search-forward t org-time-string-to-seconds float-time 120 "" 102 error "Invalid key function `%s'" "Invalid sorting type `%c'" org-ts-regexp-both] 4 sort-subr org-list-repair run-hooks org-after-sorting-entries-or-items-hook "Sorting items...done"] 27 (#$ . 70484) (byte-code "\301\211\211\302\257\207" [current-prefix-arg nil t] 5)])
658 #@438 Convert headings or normal lines to items, items to normal lines.
659 If there is no active region, only the current line is considered.
660
661 If the first non blank line in the region is a headline, convert
662 all headlines to items, shifting text accordingly.
663
664 If it is an item, convert all items to normal lines.
665
666 If it is normal text, change region into a list of items.
667 With a prefix argument ARG, change the region in a single item.
668
669 (fn ARG)
670 (defalias 'org-toggle-item #[257 "\306\307\310\211\311 \203\312 !\262\313\314 !\262\202$\315 !\262\313\316 !\262\317\320 \211\321    P\212b\210\322 \203R`W\205\361\322 \203L\323\310w\210`\324\225|\210\310y\210\2028\325 \203-\326\327 \330\324\331\332\333!\334\"\335$\216\f\203u\336\f\"\203u\337\202v\340\336\341\"\203\210\342\310\211\343%\202\211\262)\266\202\211G\212 \204\231\324\202\246\344 \204\242\324\202\246\345\324!G)\346\347 !`W\205(\346\347 !\324Z]\350 W\203\305\262\3109\351:!\210)`\335\224\206\326\352 |\210c\210\353_\\!\210\211\203    \354 \355!\356\357 ;\235\203\375\360\202\376\361#\210\362\363!#\266\212\364 \206`)\310y\210 T    _\\\n^\"\266\202\253\266\204\202\361\203\230\326\327 \330\324\331\332\333!\334\"\335$\216\f\203O\336\f\"\203O\337\202P\340\336\341\"\203b\342\310\211\343%\202c\262)\266\202\211G\365 \323\310w\210c\210\310y\210`W\205\223\\\212\364 \206\211`)^\"\210\310y\210\202v\266\203\202\361`W\205\361\325 \204\353\322 \204\353\351\366!\203\353\342\367\326\327 \330\324\331\332\333!\334\"\335$\216\f\203\316\336\f\"\203\316\337\202\317\340\336\341\"\203\341\342\310\211\343%\202\342\262)\266\202\370Q!\210\310y\210\202\230-\207" [org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol org-list-two-spaces-after-bullet-regexp org-adapt-indentation #[514 "\301\302!\212\3032?`W\205>\304 \305\306!\2047\305!\2047\211\307U\203.\310\303\307\211\262\"\210\2027\211W\2037\211\262\210\311y\210\202    0\210)Z`W\205c\305\306!\204]\305!\204]\312\304 \\!\210\311y\210\202D\262\207" [org-outline-regexp-bol 1000 copy-marker exit org-get-indentation looking-at "^[     ]*$" 0 throw nil indent-line-to] 9 "\n\n(fn IND END)"] #[257 "\212\211b\210\300\301w\210\302 )\207" ["      \n" nil point-at-bol] 3 "\n\n(fn POS)"] nil org-region-active-p region-beginning copy-marker region-end point-at-bol point-at-eol t org-get-limited-outline-regexp "^" org-at-item-p "     " 0 org-at-heading-p "-" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "  " " " "\\S-+\\([     ]*\\)" replace-match 1 outline-previous-heading match-string org-reduced-level org-outline-level org-get-todo-state looking-at line-end-position indent-line-to org-list-struct copy-tree org-list-set-checkbox line-beginning-position "[X]" "[ ]" org-list-write-struct org-list-parents-alist outline-next-heading org-get-indentation "\\([     ]*\\)\\(\\S-\\)" "\\1" "\\2" case-fold-search org-todo-line-regexp org-done-keywords] 20 (#$ . 74028) "P"])
671 #@555 Parse the list at point and maybe DELETE it.
672
673 Return a list whose car is a symbol of list type, among
674 `ordered', `unordered' and `descriptive'.  Then, each item is
675 a list of strings and other sub-lists.
676
677 For example, the following list:
678
679   1. first item
680      + sub-item one
681      + [X] sub-item two
682      more text in first item
683   2. [@3] last item
684
685 is parsed as
686
687  (ordered
688   ("first item"
689    (unordered
690     ("sub-item one")
691     ("[X] sub-item two"))
692    "more text in first item")
693   ("[@3] last item"))
694
695 Point is left at list's end.
696
697 (fn &optional DELETE)
698 (defalias 'org-list-to-lisp #[256 "\301C\301C\301C\301\211\211C\301C\301C\302 \240\210\303    \242!\240\210\304    \242!\240\210\305\242!\262\306\242!\262\307\240\210\310\311\312\313\314  #\315\"\316\317%\240\210\211\310\311\320\313\314     %\321\"\322\317%\240\210\242\323\n\242\n\242#!b\210    \203\214|\210\324\325!\204\214\324!\203\214\326\327!\210\207" [org-list-end-re nil org-list-struct org-list-prevs-alist org-list-parents-alist org-list-get-top-point org-list-get-bottom-point #[257 "\301\302\303\304\305#)\266\203\203\306\307O\202!\207" [inhibit-changing-match-data org-remove-indentation "\n\\'" nil t string-match 0 -1] 9 "\n\n(fn TEXT)"] make-byte-code 257 "\303@\300\242\301\242#\304\302\242\"B\207" vconcat vector [org-list-get-list-type mapcar] 5 "\n\n(fn E)" "\305\300\242\"\306\300\242\302\242#\212b\210\307\310!\210\303\242\311\312\313\314!!\315\"\316\314\225@\206'\"P!)C\203n@\317\300\242\301\242#\320!@\304\242!B\262\211>A\262\305\300\242\"@\206WU\204i\303\242\316\"!B\262\266\202,\211\237\207" [org-list-get-item-end org-list-get-children looking-at "[     ]*\\S-+[     ]*" make-string string-width match-string 0 32 buffer-substring-no-properties org-list-get-all-items last] 13 org-list-get-all-items looking-at "[     ]*$" replace-match ""] 20 (#$ . 77107)])
699 #@49 Convert the plain list at point into a subtree.
700 (defalias 'org-list-make-subtree #[0 "\3001 \301 b0\202 \210\302\204\303\304!\207\212\305\306!)\307!c\207" [(error) org-in-item-p nil error "Not in a list" org-list-to-lisp t org-list-to-subtree] 3 (#$ . 79016) nil])
701 #@63 Insert a radio list template appropriate for this major mode.
702 (defalias 'org-list-insert-radio-list #[0 "\302\303\"\211A@\304\211\204\305\306    \"\210\307\310!\262\311\312\"\203*\313\314\211$\262\202n\2041\315c\210`\262c\210\211b\207" [org-list-radio-list-templates major-mode cl-assoc-if derived-mode-p nil error "No radio list setup defined for %s" read-string "List name: " string-match "%n" replace-match t "\n"] 9 (#$ . 79292) nil])
703 #@170 Send a transformed version of this list to the receiver position.
704 With argument MAYBE, fail quietly if no transformation is defined
705 for this list.
706
707 (fn &optional MAYBE)
708 (defalias 'org-list-send-list #[256 "\3012\305\302 \204 \303\304!\210\212\305\306\307\310\305#\210\311\312!\204,\211\203(\313\301\310\"\210\202,\303\314!\210*\315\316\317!!\320\316\321!!\212\322\323\310\305#\210\324\224)\306\325\310\305#\210\322\326\327 P\305#\210\324\224\212\211b\210\330 )\331!\204d\303\332\"\210!\212eb\210\324\333\334\"\333\335    \"\322\310\305#\203\242T\262\336\321!\322\310\305#\204\222\337\340\"\210\341 \210\211`|\210\342\261\266\202v\317V\203\256\343\344!\202\275\317U\203\272\343\345!\202\275\337\346!\266\203)\262\266\2050\207" [case-fold-search exit org-at-item-p error "Not at a list item" t re-search-backward "^[     ]*#\\+ORGLST:" nil looking-at "[     ]*#\\+ORGLST:[     ]+SEND[     ]+\\(\\S-+\\)[     ]+\\([^     \n]+\\)" throw "Don't know how to transform this list" regexp-quote match-string 1 intern 2 re-search-forward "\\(\\\\end{comment}\\|@end ignore\\|-->\\)" 0 "#\\+ORGLST" "^" org-item-re org-list-to-lisp fboundp "No such transformation function %s" format "BEGIN +RECEIVE +ORGLST +%s\\([     ]\\|$\\)" "END +RECEIVE +ORGLST +%s\\([     ]\\|$\\)" line-beginning-position user-error "Cannot find end of receiver location at %d" beginning-of-line "\n" message "List converted and installed at receiver locations" "List converted and installed at receiver location" "No valid receiver location found"] 15 (#$ . 79751) nil])
709 #@2387 Convert a LIST parsed through `org-list-to-lisp' to a custom format.
710
711 LIST is a list as returned by `org-list-to-lisp', which see.
712 PARAMS is a property list of parameters used to tweak the output
713 format.
714
715 Valid parameters are:
716
717 :backend, :raw
718
719   Export back-end used as a basis to transcode elements of the
720   list, when no specific parameter applies to it.  It is also
721   used to translate its contents.  You can prevent this by
722   setting :raw property to a non-nil value.
723
724 :splice
725
726   When non-nil, only export the contents of the top most plain
727   list, effectively ignoring its opening and closing lines.
728
729 :ustart, :uend
730
731   Strings to start and end an unordered list.  They can also be
732   set to a function returning a string or nil, which will be
733   called with the depth of the list, counting from 1.
734
735 :ostart, :oend
736
737   Strings to start and end an ordered list.  They can also be set
738   to a function returning a string or nil, which will be called
739   with the depth of the list, counting from 1.
740
741 :dstart, :dend
742
743   Strings to start and end a descriptive list.  They can also be
744   set to a function returning a string or nil, which will be
745   called with the depth of the list, counting from 1.
746
747 :dtstart, :dtend, :ddstart, :ddend
748
749   Strings to start and end a descriptive term.
750
751 :istart, :iend
752
753   Strings to start or end a list item, and to start a list item
754   with a counter.  They can also be set to a function returning
755   a string or nil, which will be called with two arguments: the
756   type of list and the depth of the item, counting from 1.
757
758 :icount
759
760   Strings to start a list item with a counter.  It can also be
761   set to a function returning a string or nil, which will be
762   called with three arguments: the type of list, the depth of the
763   item, counting from 1, and the counter.  Its value, when
764   non-nil, has precedence over `:istart'.
765
766 :isep
767
768   String used to separate items.  It can also be set to
769   a function returning a string or nil, which will be called with
770   two arguments: the type of list and the depth of the item,
771   counting from 1.  It always start on a new line.
772
773 :ifmt
774
775   Function to be applied to the contents of every item.  It is
776   called with two arguments: the type of list and the contents.
777
778 :cbon, :cboff, :cbtrans
779
780   String to insert, respectively, an un-checked check-box,
781   a checked check-box and a check-box in transitional state.
782
783 (fn LIST PARAMS)
784 (defalias 'org-list-to-generic #[514 "\302\303!\210\304\305\"\306\307\206\310\311\312\313!B\314\315!B\316BB$\317\211\320\321!r\211q\210\322\323\324\325\326!\327\"\330$\216\331\332 \210)\317C\317C\322\333\334\325\326!\335\"\336\337%\240\210\211\322\340\341\325\326!\342\"\343\344%\240\210\242    !\266\345\346 \312\347\317\331%\262\350\317#\262*\210\203\2159\203\215\351!\204\215\352\353!\210\204\225\302\354!\210\203\246\304\355\"\203\246\345    \356#\210\357#\360!\203\271\361\323\362#\202\272\363\262\207" [org-inhibit-startup org-element-all-objects require ox plist-get :backend org-export-create-backend :parent org :transcoders plain-list org-list--to-generic-plain-list item org-list--to-generic-item ((macro lambda (m c i) (org-element-macro-interpreter m nil))) nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 t org-mode 257 "\211A\211\205\211@\300\242@\"\210A\266\202\202\207" [] 6 "\n\n(fn L)" 514 "`\302=\203 \303\202\f\304c\210\211\203/\211@\211:\203\"\300\242!\210\202(\211c\210\305c\210A\266\202\202\210\306 \210\212\302=\203>\307\202?\310`V\205Z\311\312\313!)\262\204T\211j\210\314y\210\202?\262)\207" [inhibit-changing-match-data ordered "1. " "- " "\n" beginning-of-line 3 2 "[     ]*$" t looking-at -1] 7 "\n\n(fn I TYPE)" org-element-map org-element-parse-buffer identity org-export-get-environment org-export-get-backend user-error "Unknown :backend value" ox-org :raw #[257 "\300\301!\"\207" [org-element-set-element org-element-interpret-data] 5 "\n\n(fn OBJECT)"] org-export-data-with-backend org-string-nw-p substring-no-properties -1 ""] 16 (#$ . 81302)])
785 #@113 Return the level of ELEMENT within current plain list.
786 ELEMENT is either an item or a plain list.
787
788 (fn ELEMENT)
789 (defalias 'org-list--depth #[257 "\300\301\302\303\304#\"\207" [cl-count-if #[257 "\300!\301=\207" [org-element-type plain-list] 3 "\n\n(fn ANCESTOR)"] org-element-lineage nil t] 7 (#$ . 85420)])
790 #@64 Return the number of trailing newlines in STRING.
791
792 (fn STRING)
793 (defalias 'org-list--trailing-newlines #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216c\210\311\312x\210\313\314\310!d\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "     \n" nil count-lines line-beginning-position] 8 (#$ . 85736)])
794 #@162 Evaluate VALUE according to its type.
795 VALUE is either nil, a string or a function.  In the latter case,
796 it is called with arguments ARGS.
797
798 (fn VALUE &rest ARGS)
799 (defalias 'org-list--generic-eval #[385 "\204\300\207;\203 \207\301!\203\302\"\207\303\304\"\207" [nil functionp apply error "Wrong value: %s"] 5 (#$ . 86137)])
800 #@125 Return a transcoder for `plain-list' elements.
801 PARAMS is a plist used to tweak the behavior of the transcoder.
802
803 (fn PARAMS)
804 (defalias 'org-list--to-generic-plain-list #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\311\312\313\314\315\f\f\f\f\f\f\f\f&\316\"\317\320%\207" [plist-get :ustart :uend :ostart :oend :dstart :dend :splice :backend make-byte-code 771 "\310\311\"\312!\306?\205\313\314\267\202\302\202\300\202\304\"\306?\2055\313\315\267\2022\303\2023\301\2023\305\"\211\203B\316\317\320!#\210\205I\321P\204Y\204Y\306\204Y\307\204^\202g\322\307            $Q\207" vconcat vector [org-element-property :type org-list--depth org-list--generic-eval #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 19 unordered 23)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ordered 42 unordered 46)) org-element-put-property :post-blank org-list--trailing-newlines "\n" org-export-with-backend] 13 "\n\n(fn PLAIN-LIST CONTENTS INFO)"] 22 (#$ . 86478)])
805 #@119 Return a transcoder for `item' elements.
806 PARAMS is a plist used to tweak the behavior of the transcoder.
807
808 (fn PARAMS)
809 (defalias 'org-list--to-generic-item #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\300\310\"\300    \311\"\300\n\312\"\300 \313\"\300\f\314\"\300 \315\"\316\317\320\321\322& \323\"\324\325%\207" [plist-get :backend :istart :iend :isep :icount :ifmt :cboff :cbon :cbtrans :dtstart :dtend :ddstart :ddend make-byte-code 771 "\315\316\315\317\"\"\315\320\"\321!\322\"\205\323\303#\323\302#\211\324\235\203+\325\202I\203E\211\211\326\327O\325\232\203=\211\202@\211\325P\262\202I\211\211\262\262\206P\211\211\203`\330    \331\332!S\333]#\210\210\315\334    \"\211\203y\304\203y\323\304$\202\200\323\301#\262\301\204\270\302\204\270\304\204\270\305\204\270\307\204\270\306\204\270\310\204\270\300\203\270\335=\203\311\204\270\312\204\270\313\204\270\314\203\315\336\n\"\211\337\267\202\317\307\202\320\306\202\320\310\202\320\327\262\205\353\311\300\203\345\340\300 #\202\351\341!\312Q\205\361\313\nG\333U\203\375\342\202\n\333\326O\305\203\323\305 #\202\211\262\205\314\260\202&\343\300\n\n\n$\211\342\232\2030\342\2026\344!\333\326O\262R\207" vconcat vector [org-element-property :type :parent :tag org-list--depth org-export-get-next-element org-list--generic-eval (#1="" nil) "\n" -1 nil org-element-put-property :post-blank org-list--trailing-newlines 0 :counter descriptive :checkbox #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (on 195 off 199 trans 203)) org-export-data-with-backend org-element-interpret-data #1# org-export-with-backend org-element-normalize-string] 17 "\n\n(fn ITEM CONTENTS INFO)"] 32 (#$ . 87606)])
810 #@241 Convert LIST into a LaTeX list.
811 LIST is a parsed plain list, as returned by `org-list-to-lisp'.
812 PARAMS is a property list with overruling parameters for
813 `org-list-to-generic'.  Return converted list as a string.
814
815 (fn LIST &optional PARAMS)
816 (defalias 'org-list-to-latex #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-latex org-list-to-generic org-combine-plists (:backend latex)] 7 (#$ . 89462)])
817 #@240 Convert LIST into a HTML list.
818 LIST is a parsed plain list, as returned by `org-list-to-lisp'.
819 PARAMS is a property list with overruling parameters for
820 `org-list-to-generic'.  Return converted list as a string.
821
822 (fn LIST &optional PARAMS)
823 (defalias 'org-list-to-html #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-html org-list-to-generic org-combine-plists (:backend html)] 7 (#$ . 89874)])
824 #@243 Convert LIST into a Texinfo list.
825 LIST is a parsed plain list, as returned by `org-list-to-lisp'.
826 PARAMS is a property list with overruling parameters for
827 `org-list-to-generic'.  Return converted list as a string.
828
829 (fn LIST &optional PARAMS)
830 (defalias 'org-list-to-texinfo #[513 "\300\301!\210\302\303\304\"\"\207" [require ox-texinfo org-list-to-generic org-combine-plists (:backend texinfo)] 7 (#$ . 90282)])
831 #@193 Convert LIST into an Org plain list.
832 LIST is as returned by `org-list-parse-list'.  PARAMS is a property list
833 with overruling parameters for `org-list-to-generic'.
834
835 (fn LIST &optional PARAMS)
836 (defalias 'org-list-to-org #[513 "\300\301\302\303\304\305\306\307\310\311\312\313\314\257\315\316\"\"\207" [#[770 "\300=\203\n\301\202 \302\205\303\304\"P\207" [ordered "1. " "- " format "[@%d] "] 7 "\n\n(fn TYPE DEPTH &optional C)"] :istart :icount :ifmt #[514 "\300\301\302#\207" [replace-regexp-in-string "\n" "\n  "] 6 "\n\n(fn TYPE CONTENTS)"] :dtend " :: " :cbon "[X] " :cboff "[ ] " :cbtrans "[-] " org-list-to-generic org-combine-plists] 17 (#$ . 90702)])
837 #@187 Convert LIST into an Org subtree.
838 LIST is as returned by `org-list-to-lisp'.  PARAMS is a property
839 list with overruling parameters for `org-list-to-generic'.
840
841 (fn LIST &optional PARAMS)
842 (defalias 'org-list-to-subtree #[513 "\305\236A\211\306\267\202$\307\202%\212\307\310 \211\311\nP\312 \210,\313 )\202%\314\262\315\316 \206.\317!\320\321\322\323\324!\325\"\326\327%\330\331\332\307\333\334\335\336\337\336\340\203T\341\202U\342\343\344\345\346\347\346\257\"\"\207" [org-blank-before-new-entry org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol heading #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 10 auto 14)) t org-get-limited-outline-regexp "^" outline-previous-heading org-previous-line-empty-p nil org-reduced-level org-current-level 0 make-byte-code 770 "\300\\\302    \203\303_S\202\304\"\305P\207" vconcat vector [org-odd-levels-only make-string 2 42 " "] 7 "\n\n(fn TYPE DEPTH &optional COUNT)" org-list-to-generic org-combine-plists :splice :istart :icount :dtstart " " :dtend :isep "\n\n" "\n" :cbon "DONE " :cboff "TODO " :cbtrans] 27 (#$ . 91381)])
843 (provide 'org-list)