On Mon, Nov 1, 2021 at 10:25 PM Ihor Radchenko <yantar92@gmail.com> wrote:

> The profile shows that bottleneck is undo-fu-session. Even if
> org-element-cache is the cause, it should be some strange interaction
> with other external packages. org-element-cache itself does not change
> buffer text. If anything, the new code should change buffer text
> properties less than before because some of the older cache logic is
> moved from using text properties to using org-element-cache.
>

I uninstalled undo-fu and re-ran the profiler. It takes even longer to save
org files now. Here's the profiler report now, does it look like helm-M-x
is
now the bottleneck?

[profiler-profile "24.3" cpu #s(hash-table size 730 test equal rehash-size
1.5 rehash-threshold 0.8125 data ([profiler-start funcall-interactively
call-interactively command-execute helm-M-x-execute-command
helm-execute-selection-action-1 helm-execute-selection-action helm-internal
apply helm apply helm helm-M-x-read-extended-command helm-M-x
funcall-interactively call-interactively] 1 [nil nil nil nil nil nil nil
nil nil nil nil nil nil nil nil nil] 388 [file-truename "#<compiled
0x1ff1205bba71>" cl-some projectile-project-root let doom-project-root or
cond let +doom-dashboard--get-pwd let if +doom-dashboard-update-pwd-h cond
+doom-dashboard-reload-maybe-h funcall] 1
[doom-modeline-segment--major-mode eval format-mode-line
doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil
nil nil nil nil nil nil nil nil] 1 [doom-modeline--get-buffers
doom-modeline-segment--irc eval redisplay_internal\ \(C\ function\) nil nil
nil nil nil nil nil nil nil nil nil nil] 1 [let cond let* save-restriction
save-excursion catch org-element-context org-roam-link-replace-at-point
org-roam-link-replace-all funcall condition-case doom-run-hook
run-hook-wrapped condition-case let while] 1 [org-in-regexp
org-roam-link-replace-at-point org-roam-link-replace-all funcall
condition-case doom-run-hook run-hook-wrapped condition-case let while let
doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [let* while
let save-current-buffer org-element--cache-find and if setq let
org-element-at-point or org-element-at-point-no-context or let*
save-restriction save-excursion] 1 ["#<compiled 0x1ff11f7247a9>" apply
prog1 let +org-inhibit-scrolling-a apply toc-org-insert-toc funcall
condition-case doom-run-hook run-hook-wrapped condition-case let while let
doom-run-hooks] 1 [abbreviate-file-name org-scan-tags org-encrypt-entries
funcall condition-case doom-run-hook run-hook-wrapped condition-case let
while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1
[if org-element-property car eq if or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction]
151 [let* while let save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if] 4141 [if let* or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let progn] 81 [org-element-type eq if
if if let* or org-element--cache-key org-element--cache-key-less-p not or
and if while if let*] 33 [setq progn if if if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map]
134 [progn setq cond let* while let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch] 15 [or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction save-excursion let] 1695 [progn if org-element--cache-sync
if if progn if let org-element-at-point progn if if if if while if] 4
[symbolp cond org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while] 13 [if while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 243
[org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point progn] 1 [if org-element-property car eq if or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while] 26 [let let if save-current-buffer progn if
org-element--cache-sync if if progn if let org-element-at-point progn if
if] 1409 [car eq if or org-element--cache-key org-element--cache-key-less-p
and or and if setq if if while if let*] 1788 [cond let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let] 460 [let* or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let progn progn] 7139 [let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while if] 938
[org-element--cache-key-less-p not or and if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let] 3605 [while
let save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq] 3962 [< and or if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let] 1302 [while
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point
progn] 433 [eq if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction
save-excursion] 3529 [cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if if while] 439 [memq if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction
save-excursion let] 3527 [or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction
save-excursion let progn progn let*] 7245 [apply derived-mode-p and
org-element--cache-active-p and if let org-element--cache-verify-element
and if let org-element-at-point progn if if if] 232 [car eq if or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let] 7090 [> not or and if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map let] 3108 [and if let org-element-at-point progn if
if if if while if let* save-restriction save-excursion let progn] 457 [eq
if if if let* or org-element--cache-key org-element--cache-key-less-p not
or and if while if let* save-restriction] 3602 [not or and if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if] 3557 [org-element-type memq if if if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map]
743 [and org-element--cache-active-p and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while] 220 [nconc list let let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let] 158 [and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while] 691 [car eq
if or org-element--cache-key org-element--cache-key-less-p not and or if if
while if let* save-restriction save-excursion] 937 [save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn] 150 [cond org-element-type memq if let* or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction] 42 [save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point progn if if if] 1363 [let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction save-excursion] 1824 [if while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let org-element-at-point] 245 [let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq] 4069 [if save-current-buffer progn if
org-element--cache-sync if if progn if let org-element-at-point progn if if
if if] 454 [eq and if let org-element--cache-verify-element and if let
org-element-at-point progn if if if if while if] 204 [if if progn if let
org-element-at-point progn if if if if while if let* save-restriction
save-excursion] 662 [let catch org-element--parse-to condition-case if setq
let org-element-at-point progn if if if if while if let*] 1265 [memq if
let* or org-element--cache-key org-element--cache-key-less-p and or and if
setq if if while if let*] 862 [setcar if org-element-put-property let let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect] 12 [cond let while
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if] 472 [while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if] 3890 [not and or if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let] 432 [let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point] 635 [eq if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction] 454 [or if if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let if] 15 [let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if if] 869 [or let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if if] 479 [eq if if if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while] 859 [setcar
if org-element-put-property if while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let
let] 8 [and or and if setq if if while if let* save-restriction
save-excursion let progn progn let*] 889 [let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion let progn] 904 [catch org-element--parse-to
org-element-type memq if if if if while if let* save-restriction
save-excursion let progn progn] 230 [apply derived-mode-p and
org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if]
116 [or org-element--cache-key org-element--cache-key-less-p not and or if
if while if let* save-restriction save-excursion let progn progn] 942
[save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while if let*] 1320
[memq if if if if while if let* save-restriction save-excursion let progn
progn let* org-element-cache-map let] 243 [eq if let org-element-at-point
progn if if if if while if let* save-restriction save-excursion let progn]
258 [let cond let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if]
900 [and let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to condition-case if setq let org-element-at-point
progn if] 632 [save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 950 [let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if] 418 [setq progn if while if let* save-restriction save-excursion let
progn progn let* org-element-cache-map let if if] 697 [let cond let while
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq] 894
[org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction save-excursion let progn progn] 885 [setq if if while let
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn] 48 [eq if if let* or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while if] 950 [<= and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq] 443 [progn if let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn unwind-protect let] 41 [progn if if if if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map let] 493 [rx--translate mapcar rx--translate-seq
rx--translate-counted-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-backward if progn unwind-protect] 17
[save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let org-element-at-point] 911 [while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if] 451 [= or if if if
while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map let] 457 [and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while if let*] 983 [org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if] 64 [<= and while let cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if] 458 [or let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let
org-element--cache-verify-element] 25 [save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let
let] 177 [if setq let org-element-at-point progn if if if if while if let*
save-restriction save-excursion let progn] 120 [nconc list let let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let] 187 [progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point progn if if if if while] 499 [save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn if let org-element--cache-verify-element save-restriction
save-excursion save-excursion] 3 [replace-regexp-in-string org-trim let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let*] 377 [let progn if
let org-element--cache-verify-element and if let org-element-at-point progn
if if if if while if] 50 [eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*] 452
[condition-case if setq let org-element-at-point progn if if if if while if
let* save-restriction save-excursion let] 665 [or let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let org-element-at-point progn] 485
[org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map]
457 [if if while if let* save-restriction save-excursion let progn progn
let* org-element-cache-map let if if let*] 22 [< and or and if setq if if
while if let* save-restriction save-excursion let progn progn] 894
[org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn] 84 [progn unwind-protect let*
save-excursion let* save-excursion org-element-headline-parser cond setq
let save-excursion org-element--current-element setq if if while] 12 [let
if save-current-buffer progn if org-element--cache-sync if if progn if let
org-element-at-point progn if if if] 246 [if if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if] 8 [cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point progn if] 433 [let progn if cond let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let] 69 [let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn if let] 47 [let save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if] 20 [let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 691 [let catch
org-element--parse-to org-element-type memq if if if if while if let*
save-restriction save-excursion let progn] 1554 [eq and if let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if] 132 [apply rx-to-string re-search-backward if progn unwind-protect
let progn if cond let while let let* save-restriction save-excursion] 20
[let* save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let] 113 [progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while if let*
save-restriction save-excursion] 459 [if let org-element-at-point progn if
if if if while if let* save-restriction save-excursion let progn progn] 205
[rx--sequence rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if progn unwind-protect let progn if
cond let] 18 [org-element-at-point progn if if if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map]
252 [progn and let* save-excursion org-element-headline-parser setq progn
if cond let* save-restriction save-excursion progn unwind-protect let
catch] 43 [catch org-element--parse-to condition-case if setq let
org-element-at-point progn if if if if while if let* save-restriction] 215
[memq if org-element--parse-to let let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if] 8 [< and if let org-element--cache-verify-element and if let
org-element-at-point progn if if if if while if] 113 [1- cons cons cons
cons cons cons rx-to-string re-search-forward and if if progn
unwind-protect let progn] 17 [memq if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion] 468 [save-excursion let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 15
[let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while] 447 [progn
unwind-protect let* save-excursion let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect] 24 [apply derived-mode-p and
org-element--cache-active-p if let org-element-at-point progn if if if if
while if let* save-restriction] 116 [or and if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if] 68 [org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn unwind-protect] 51 [and org-element--cache-active-p
and if let org-element-at-point progn if if if if while if let*
save-restriction save-excursion] 105 [rx--translate mapcar
rx--translate-seq rx--translate-form rx--translate rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond] 14
[cond org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if] 44 [apply
replace-regexp-in-string org-trim let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let] 71 [fset progn
unwind-protect let* save-excursion let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn] 1 [apply derived-mode-p and
org-element--cache-active-p and if let org-element-at-point progn if if if
if while if let*] 117 [if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction] 17 [and or if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let if] 12 [memq
not and if let org-element--cache-verify-element and if let
org-element-at-point progn if if if if while] 216 [eq not if if if let
org-element-at-point progn if if if if while if let* save-restriction] 201
[progn and if while if let* save-restriction save-excursion let progn progn
let* org-element-cache-map let if if] 7 [org-at-heading-p
org-back-to-heading org-up-heading-safe org-up-heading-or-point-min progn
unwind-protect let* save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and] 23 [save-excursion
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if if] 26 [save-excursion let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while] 22 [if if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction] 7 [if org-element-property car eq if or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let*] 14 [and org-element--cache-active-p if let org-element-at-point
progn if if if if while if let* save-restriction save-excursion let] 110
[while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let progn if let
org-element--cache-verify-element] 38 [progn and let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let*] 47 [cond let* while
let save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case] 68 [save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and if let
org-element-at-point progn if if if] 21 [let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn if let org-element--cache-verify-element and] 20 [if while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let] 37 [and or and
org-element--cache-active-p and if let org-element--cache-verify-element
and if let org-element-at-point progn if if if] 8 [if setq if if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if] 5 [let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn if let
org-element--cache-verify-element and if] 36 [setcar if
org-element-put-property progn if let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion] 18 [and org-element--cache-active-p and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 116 [cond
org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let*] 30
[replace-regexp-in-string org-trim let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch] 346 [rx--enclose rx--bracket
rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect
let progn if cond let while let let*] 28 [org-end-of-subtree progn
unwind-protect let* save-excursion let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if] 78 [if org-element-property let*
or org-element--cache-key org-element--cache-key-less-p not or and if while
if let* save-restriction save-excursion let] 57 [cons cons rx-to-string
re-search-backward if progn unwind-protect let progn if cond let while let
let* save-restriction] 10 [save-excursion org-element--current-element setq
if if while let let* save-restriction save-excursion progn unwind-protect
let catch org-element--parse-to let] 30 [rx--translate-seq
rx--translate-form rx--translate rx-to-string re-search-backward if progn
unwind-protect let progn if cond let while let let*] 32 [if
org-element-property let* while let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to] 52 [apply derived-mode-p
and if let org-element--cache-verify-element and if let
org-element-at-point progn if if if if while] 112 [or progn aref progn
progn org-element--headline-cache-root if setq progn if if if if while if
let*] 4 [if let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if if let* save-restriction save-excursion let]
28 [apply replace-regexp-in-string org-trim let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let] 62 [and or and
org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if] 9
[plist-get if org-element-property let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction
save-excursion] 14 [eq and if let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element] 7 [progn
if let org-element--cache-verify-element and if let org-element-at-point
progn if if if if while if let*] 18 [org-at-heading-p let* progn cond setq
let save-excursion org-element--current-element setq if if while let let*
save-restriction save-excursion] 48 [if org-element-property < and or if if
while if let* save-restriction save-excursion let progn progn let*] 12 [let
let* save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to] 40 [re-search-forward if let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch] 14 [if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if let* save-restriction] 53 [apply derived-mode-p and
org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq] 131
[looking-at let and let* save-excursion org-element-headline-parser cond
setq let save-excursion org-element--current-element setq if if while let]
22 [if let* save-excursion org-element-headline-parser cond setq let
save-excursion org-element--current-element setq if if while let let*
save-restriction] 2 [let catch org-element--parse-to let let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if] 31 [save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let
org-element--cache-verify-element and if let] 42 [let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion] 104 [org-trim let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction] 35
[and if let org-element--cache-verify-element save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let org-element-at-point] 28 [eq
and if let org-element--cache-verify-element save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let] 6 [1- if list nconc list let
let* save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion] 55 [rx--translate-repeat
rx--translate-form rx--translate mapcar rx--translate-seq
rx--translate-form rx--translate rx-to-string re-search-backward if progn
unwind-protect let progn if cond] 13 [org-up-heading-or-point-min progn
unwind-protect let* save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and if let
org-element-at-point] 38 [org-element--get-time-properties let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to] 42 [let* save-excursion let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch] 11 [rx--bracket
rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect
let progn if cond let while let let* save-restriction] 8 [/= and if if
progn unwind-protect let progn if cond let while let let* save-restriction
save-excursion] 19 [let let* save-excursion org-element-headline-parser
cond setq let save-excursion org-element--current-element setq if if while
let let* save-restriction] 42 [org-get-limited-outline-regexp
org-before-first-heading-p org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element] 16 [apply derived-mode-p and
org-element--cache-active-p and if let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element] 9 [let* progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if] 42 [let let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while] 18 [if org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map] 26 [org-trim let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 39 [if
if let* or org-element--cache-key org-element--cache-key-less-p and or and
if setq if if while if let*] 18 [org-element-property car eq if or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let* save-restriction] 4 [< and if let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let] 3 [save-excursion
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while if] 74 [and
org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point] 122 [looking-at let and let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let] 17 [org-element-property let* or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let progn] 28
[org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if
let org-element-at-point progn if if] 8 [= or if save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let org-element-at-point progn] 14
[let save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let] 24 [setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn if] 14 [mapcar rx--translate-seq rx--translate-counted-repetition
rx--translate-bounded-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if] 6 [if if let* or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let] 55 [cons cons cons cons cons
rx-to-string re-search-backward if progn unwind-protect let progn if cond
let while] 21 [org-at-heading-p org-back-to-heading
org-up-heading-or-point-min progn unwind-protect let* save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if] 20 [apply rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond let
while let let*] 18 [org-at-heading-p org-back-to-heading
org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect
let* save-excursion let* save-excursion org-element-headline-parser setq
progn if cond let*] 55 [cond org-element-type eq if let
org-element-at-point progn if if if if while if let* save-restriction
save-excursion] 4 [org-element--parse-to org-element-type memq if if if if
while if let* save-restriction save-excursion let progn progn let*] 9
[rx--translate-seq rx--translate-form rx--translate rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond let
while] 19 [setq cond let while let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to let let progn] 25
[org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let* save-restriction]
40 [symbolp cond org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let*] 13 [mapcar
rx--translate-seq rx--translate-form rx--translate rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond let] 6
[progn setq if if setq if if while if let* save-restriction save-excursion
let progn progn let*] 2 [progn if cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let
let] 9 [let* progn cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn] 9 [org-element--get-node-properties let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to] 33 [org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion] 68 [if org-element-at-point progn if if if
if while if let* save-restriction save-excursion let progn progn let*] 4
[let org-element--cache-verify-element and if let org-element-at-point
progn if if if if while if let* save-restriction save-excursion] 14
[rx--translate-bounded-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if progn unwind-protect let] 23
[apply derived-mode-p org-end-of-subtree progn unwind-protect let*
save-excursion let* save-excursion org-element-headline-parser cond setq
let save-excursion org-element--current-element setq] 7 [progn progn setq
while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if if] 19 [rx--translate-counted-repetition
rx--translate-bounded-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if progn unwind-protect] 20 [and or
and org-element--cache-active-p and let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to condition-case if
setq] 10 [and org-element--cache-active-p and if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if]
11 [not cond org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if let*] 16 [or cond let*
while let save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to] 22 [or if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let if if] 9
[org-element--get-time-properties let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction] 31
[cond let* while let save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type] 61 [if if let* or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let* save-restriction save-excursion] 6 [catch let let if
save-current-buffer progn if org-element--cache-sync if if progn if let
org-element-at-point progn if] 7 [org-before-first-heading-p
org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect
let* save-excursion let* save-excursion org-element-headline-parser cond
setq let save-excursion org-element--current-element setq] 2 [not cond let
while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to condition-case if setq] 6 [while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if let* save-restriction save-excursion] 51 [org-element-property
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if] 1 [org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if] 13
[org-element-property and if let org-element--cache-verify-element and if
let org-element-at-point progn if if if if while if] 2
[org-element-property = or if save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if
let org-element-at-point] 18 [org-at-heading-p org-back-to-heading
org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect
let* save-excursion let* save-excursion org-element-headline-parser cond
setq let save-excursion org-element--current-element] 44 [cond
org-element-type let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if] 5
[org-element--current-element setq if if while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let
let] 62 [org-element--cache-key org-element--cache-key-less-p not or and if
while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map] 37 [setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn unwind-protect let catch] 1 [setq cond let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 16
[rx--translate-counted-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-backward if progn unwind-protect let progn if] 13
[if org-element--parse-to let let progn if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if] 14 [set-buffer save-current-buffer progn if org-element--cache-sync
if if progn if let org-element-at-point progn if if if if] 2 [or set-buffer
save-current-buffer progn if org-element--cache-sync if if progn if let
org-element-at-point progn if if if] 2 [cons cons cons cons rx-to-string
re-search-backward if progn unwind-protect let progn if cond let while let]
5 [plist-get if org-element-property car eq if or org-element--cache-key
org-element--cache-key-less-p not and or if if while if] 2 [if let cond
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point] 7
[org-get-limited-outline-regexp let* progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn] 36 [rx--translate mapcar rx--translate-seq
rx--translate-counted-repetition rx--translate-bounded-repetition
rx--translate-repeat rx--translate-form rx--translate mapcar
rx--translate-seq rx--translate-form rx--translate rx-to-string
re-search-forward and if] 26 [let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if] 1 [not cond org-element-type let while let
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq] 2 [setq if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if] 5 [progn unwind-protect let* save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if
let org-element-at-point progn] 1 [cond org-element-type memq if let* or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while] 13 [eq if or org-element--cache-key org-element--cache-key-less-p
not and or if if while if let* save-restriction save-excursion let] 3
[plist-get if org-element-property car eq if or org-element--cache-key
org-element--cache-key-less-p not or and if while if let*] 29 [if
org-element-property let while let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to org-element-type memq
if] 6 [or progn aref progn progn org-element--cache-root let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let] 6 [org-element-headline-parser
setq progn if cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn] 20
[org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if] 3 [let and let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let*] 3 [if or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion let progn progn] 40 [unwind-protect
let catch org-element--parse-to org-element-type memq if if if if while if
let* save-restriction save-excursion let] 5 [org-element--cache-interrupt-p
if while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to condition-case if setq let] 3 [and if setq if
if while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map let] 11 [if org-element-property let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if] 4 [plist-get if
org-element-property let* while let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch] 21 [org-element-property let* or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let* save-restriction save-excursion let] 3 [org-element-type memq if
let* or org-element--cache-key org-element--cache-key-less-p not or and if
while if let* save-restriction save-excursion] 31 [plist-get if
org-element-property let cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 5 [eq
if or org-element--cache-key org-element--cache-key-less-p not or and if
while if let* save-restriction save-excursion let progn] 25
[re-search-forward if let* save-excursion org-element-headline-parser cond
setq let save-excursion org-element--current-element setq if if while let
let*] 9 [not cond org-element-type eq if if if let* or
org-element--cache-key org-element--cache-key-less-p not or and if while]
14 [plist-get if org-element-property let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to org-element-type memq
if if if] 3 [progn progn setq progn if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let] 15 [memq and
or progn aref progn progn org-element--headline-cache-root if setq progn if
if if if while] 6 [if org-element-property > not or and if while if let*
save-restriction save-excursion let progn progn let*] 22 [if
org-element-property and if let org-element--cache-verify-element and if
let org-element-at-point progn if if if if while] 7 [/= if
save-current-buffer progn if org-element--cache-sync if if progn if let
org-element-at-point progn if if if] 4 [and if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map
let if if let*] 35 [progn if while if let* save-restriction save-excursion
let progn progn let* org-element-cache-map let if if let*] 27
[org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while if let* save-restriction save-excursion let progn] 13 [if
org-element-property let while let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to condition-case if
setq] 3 [if org-element-property = or if if if while if let*
save-restriction save-excursion let progn progn let*] 3 [or and if setq if
if while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map] 13 [plist-get if org-element-property < and or if if
while if let* save-restriction save-excursion let progn progn] 4 [if setq
progn if if if if while if let* save-restriction save-excursion let progn
progn let*] 16 [progn setq while if let* save-restriction save-excursion
let progn progn let* org-element-cache-map let if if let*] 9 [plist-get if
org-element-property <= and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 2 [if
or org-element--cache-key org-element--cache-key-less-p not and or if if
while if let* save-restriction save-excursion let progn] 7 [progn progn and
if while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if] 19 [if save-excursion save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if if if if while] 1 [if if if let* or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while if] 3 [setq while if let* save-restriction save-excursion let
progn progn let* org-element-cache-map let if if let* save-restriction] 9
[if if if let* or org-element--cache-key org-element--cache-key-less-p not
or and if while if let* save-restriction save-excursion] 20
[rx--translate-seq rx--translate-counted-repetition
rx--translate-bounded-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if progn] 6
[org-element--cache-active-p and if let org-element--cache-verify-element
and if let org-element-at-point progn if if if if while if] 8 [plist-get if
org-element-property > not or and if while if let* save-restriction
save-excursion let progn progn] 8 [cons rx-to-string re-search-forward and
if if progn unwind-protect let progn if cond let while let let*] 6
[rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-forward
and if if progn unwind-protect let progn if cond let while] 27
[rx--sequence rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-backward if progn unwind-protect let progn if cond
let while let] 22 [if let if save-current-buffer progn if
org-element--cache-sync if if progn if let org-element-at-point progn if
if] 8 [not or and if let progn if let org-element--cache-verify-element and
if let org-element-at-point progn if if] 9 [memq and or and
org-element--cache-active-p if let org-element-at-point progn if if if if
while if let*] 2 [if if setq if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map let] 7
[outline-on-heading-p org-at-heading-p let* progn cond setq let
save-excursion org-element--current-element setq if if while let let*
save-restriction] 3 [org-element-property car eq if or
org-element--cache-key org-element--cache-key-less-p not or and if while if
let* save-restriction save-excursion] 32 [progn aref progn progn
org-element--cache-root let save-current-buffer org-element--cache-find and
let* save-restriction save-excursion progn unwind-protect let catch] 10
[rx-to-string re-search-forward and if if progn unwind-protect let progn if
cond let while let let* save-restriction] 6 [if org-element-property < and
or and if setq if if while if let* save-restriction save-excursion let] 6
[apply derived-mode-p org-get-limited-outline-regexp
org-before-first-heading-p org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if] 3 [save-excursion
let* save-excursion org-element-headline-parser cond setq let
save-excursion org-element--current-element setq if if while let let*
save-restriction] 19 [let cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn] 38 [org-element--get-node-properties let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction] 36
[and or and org-element--cache-active-p if let org-element-at-point progn
if if if if while if let* save-restriction] 6 [mapcar rx--translate-seq
rx--translate-form rx--translate rx-to-string re-search-backward if progn
unwind-protect let progn if cond let while let] 10 [progn progn
org-element--headline-cache-root if setq progn if if if if while if let*
save-restriction save-excursion let] 3 [catch org-element--parse-to let let
progn if let org-element--cache-verify-element and if let
org-element-at-point progn if if if] 1 [org-element-property or let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let] 1 [cond org-element-type eq if
if if let* or org-element--cache-key org-element--cache-key-less-p and or
and if setq if] 9 [cond org-element-type eq if if let* or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if] 8 [org-back-to-heading org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element setq] 8 [not cond org-element-type eq if if if
let* or org-element--cache-key org-element--cache-key-less-p and or and if
setq] 3 [org-element-property let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let] 3 [aref progn progn org-element--cache-root let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 5 [or
and org-element--cache-active-p and if let org-element-at-point progn if if
if if while if let* save-restriction] 3 [symbolp cond org-element-type eq
if if let* or org-element--cache-key org-element--cache-key-less-p not or
and if while if] 9 [org-up-heading-safe org-up-heading-or-point-min progn
unwind-protect let* save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and if let] 11 [cond let
while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let progn if] 21 [memq and or progn aref
progn progn org-element--cache-root let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn] 9
[org-element-property car eq if or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if] 5 [and
cond let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn] 1 [apply
derived-mode-p org-get-limited-outline-regexp let* progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let] 3 [apply derived-mode-p and if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if] 5
[1- if list nconc list let let* save-excursion org-element-headline-parser
cond setq let save-excursion org-element--current-element setq if] 33
[progn if let if save-current-buffer progn if org-element--cache-sync if if
progn if let org-element-at-point progn if] 11 [progn progn let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 20
[not cond org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p not or and if while if] 14 [if
org-element-property let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point] 11 [progn unwind-protect let catch
org-element--parse-to let let progn if let
org-element--cache-verify-element and if let org-element-at-point progn] 12
[or and org-element--cache-active-p and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let] 3 [if progn if let org-element-at-point progn
if if if if while if let* save-restriction save-excursion let] 9 [symbolp
cond org-element-type let while let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to condition-case if] 2
[org-element-property <= and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if] 2 [plist-get if org-element-property let* or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let* save-restriction] 4 [org-element-property > not or and if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map] 10 [if org-element-property let* or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while if let*] 12 [progn if save-excursion
org-element--get-time-properties let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while] 1 [org-element-type eq if if
let* or org-element--cache-key org-element--cache-key-less-p and or and if
setq if if while] 12 [let cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point progn] 8 [if org-element--cache-key-less-p and or and
if setq if if while if let* save-restriction save-excursion let progn] 8
[not cond let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if] 5
[if if org-element--cache-key-less-p not or and if while if let*
save-restriction save-excursion let progn progn let*] 31
[org-element-property let* while let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type] 12 [not
cond org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if] 2 [progn if if setq if
if while if let* save-restriction save-excursion let progn progn let*
org-element-cache-map] 5 [org-get-limited-outline-regexp let* progn cond
setq let save-excursion org-element--current-element setq if if while let
let* save-restriction save-excursion] 12 [progn if save-excursion
org-element--get-time-properties let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect] 2 [let org-element-at-point progn if
if if if while if let* save-restriction save-excursion let progn progn
let*] 5 [plist-get if org-element-property car eq if or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if] 4 [org-before-first-heading-p org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction] 3 [throw cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if] 5 [progn progn setq cond let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let] 25 [aref progn progn
org-element-property < and or and if setq if if while if let*
save-restriction] 2 [progn let* while let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type] 14
[plist-get if org-element-property let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to condition-case if setq
let] 2 [not cond org-element-type let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if] 1 [cond org-element-type memq if if if if while if let*
save-restriction save-excursion let progn progn let*] 4
[org-back-to-heading org-up-heading-or-point-min progn unwind-protect let*
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let] 1 [if let cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 7 [derived-mode-p and
org-element--cache-active-p and if let org-element--cache-verify-element
and if let org-element-at-point progn if if if if] 1 [memq and or and
org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if] 1
[org-element-property let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction] 7 [cond org-element-type let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq] 6
[org-element--cache-verify-element and if let org-element-at-point progn if
if if if while if let* save-restriction save-excursion let] 11 [and cond
let while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to condition-case if setq] 7 [org-element-property
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while] 2
[org-element--cache-sync if if progn if let org-element-at-point progn if
if if if while if let* save-restriction] 4 [if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while if let* save-restriction] 16 [outline-previous-heading let*
progn if cond let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let progn] 4 [progn setq progn if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if] 6 [org-element-property let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case] 10 [symbolp cond org-element-type eq and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if] 1 [save-current-buffer progn if org-element--cache-sync if if progn
if let org-element-at-point progn if if if if while] 3 [if
org-element-property <= and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case] 1 [cond org-element-type memq if let* or
org-element--cache-key org-element--cache-key-less-p not and or if if while
if let*] 6 [org-outline-level org-up-heading-or-point-min progn
unwind-protect let* save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and if let] 1 [and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let
org-element--cache-verify-element and] 5 [org-back-to-heading
org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect
let* save-excursion let* save-excursion org-element-headline-parser setq
progn if cond let* save-restriction] 5 [if if while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if] 39 [mapcar rx--translate-seq
rx--translate-counted-repetition rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-backward if progn unwind-protect let] 8 [if
org-element-property <= and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type] 3 [symbolp cond org-element-type let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq] 2 [and or and
org-element--cache-active-p and if let org-element-at-point progn if if if
if while if let*] 7 [cons cons cons cons cons rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond] 5
[symbolp cond org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq] 2 [progn let* while let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case] 10 [let* save-restriction save-excursion save-excursion let
progn if let org-element--cache-verify-element and if let
org-element-at-point progn if if] 7 [not and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if if while if] 4 [cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction
save-excursion progn unwind-protect let] 23 [plist-get if
org-element-property let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq let
org-element-at-point] 4 [cons cons cons cons rx-to-string re-search-forward
and if if progn unwind-protect let progn if cond let] 4 [let*
save-excursion let* save-excursion org-element-headline-parser cond setq
let save-excursion org-element--current-element setq if if while let let*]
11 [rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-backward if progn unwind-protect let progn if cond
let while] 7 [let progn if let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element and if let] 2 [if org-element-property
let cond let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case] 9 [cons cons
rx-to-string re-search-forward and if if progn unwind-protect let progn if
cond let while let] 3 [symbolp cond org-element-type memq not and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if] 2 [progn progn if if setq if if while if let* save-restriction
save-excursion let progn progn let*] 4 [org-element-type eq if let
org-element-at-point progn if if if if while if let* save-restriction
save-excursion let] 2 [and while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if if] 3 [not cond org-element-type let while let
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let] 1 [if org-element--parse-to let let progn if
let org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element] 1
[org-element-type memq not and if let org-element--cache-verify-element and
if let org-element-at-point progn if if if if] 4 [plist-get if
org-element-property let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if] 6 [cond
org-element-type eq not if if if let org-element-at-point progn if if if if
while if] 4 [if if if let org-element-at-point progn if if if if while if
let* save-restriction save-excursion let] 2 [if if let org-element-at-point
progn if if if if while if let* save-restriction save-excursion let progn]
6 [symbolp cond org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while] 1
[org-element-property < and or and if setq if if while if let*
save-restriction save-excursion let progn] 7 [if let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 3
[derived-mode-p and org-element--cache-active-p and if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and] 1
[if org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion let progn progn let*] 3
[org-element--cache-key org-element--cache-key-less-p not and or if if
while if let* save-restriction save-excursion let progn progn let*] 4 [and
let* save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to] 2 [org-element-property < and or if if while if let*
save-restriction save-excursion let progn progn let* org-element-cache-map]
6 [progn if let cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if]
2 [if org-element-property let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion] 4 [re-search-forward and if if progn
unwind-protect let progn if cond let while let let* save-restriction
save-excursion] 2 [if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction save-excursion let] 7 [org-element-property <= and while
let cond let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to org-element-type memq] 2 [if if if if while if
let* save-restriction save-excursion let progn progn let*
org-element-cache-map let if] 6 [setcar if org-element-put-property let
let* save-excursion org-element-headline-parser cond setq let
save-excursion org-element--current-element setq if if while] 6 [or setq if
if while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let] 15 [org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point
progn] 8 [and cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn if let
org-element--cache-verify-element] 5 [progn progn org-element--cache-root
let save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type] 3 [let and let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let catch] 6 [let cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if] 6 [if if
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction save-excursion let] 6 [org-get-limited-outline-regexp
org-before-first-heading-p org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*] 19
[apply derived-mode-p org-get-limited-outline-regexp
org-before-first-heading-p org-back-to-heading-or-point-min
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser cond setq let] 4
[org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*] 4 [progn
progn org-element-property < and or and if setq if if while if let*
save-restriction save-excursion] 3 [let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to let let progn if let
org-element--cache-verify-element save-restriction save-excursion] 1 [and
let* save-excursion org-element-headline-parser cond setq let
save-excursion org-element--current-element setq if if while let let*
save-restriction] 4 [memq not and if let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element and if] 6 [org-element--cache-active-p
and if let org-element-at-point progn if if if if while if let*
save-restriction save-excursion let] 1 [if if org-element--cache-key-less-p
not and or if if while if let* save-restriction save-excursion let progn
progn] 5 [setq org-element-at-point progn if if if if while if let*
save-restriction save-excursion let progn progn let*] 2 [progn if let cond
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let] 3 [setq let
org-element-at-point progn if if if if while if let* save-restriction
save-excursion let progn progn] 2 [cond org-element-type eq if if let* or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if] 7 [org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if let*
save-restriction] 4 [memq and or and org-element--cache-active-p and if let
org-element-at-point progn if if if if while if] 1 [if org-element-property
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point
progn] 5 [cancel-timer progn if let if save-current-buffer progn if
org-element--cache-sync if if progn if let org-element-at-point progn] 6
[progn org-element--cache-key org-element--cache-key-less-p and or and if
setq if if while if let* save-restriction save-excursion let] 2 [if if
save-excursion org-element--get-node-properties let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect] 1 [and if if progn unwind-protect let
progn if cond let while let let* save-restriction save-excursion progn] 3
[save-excursion save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let progn if let
org-element--cache-verify-element and if] 14 [cond org-element-type eq and
if let org-element--cache-verify-element and if let org-element-at-point
progn if if if if] 4 [rx--translate-form rx--translate rx-to-string
re-search-forward and if if progn unwind-protect let progn if cond let
while let] 1 [if progn unwind-protect let progn if cond let while let let*
save-restriction save-excursion progn unwind-protect let] 3 [let*
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let] 1 [and cond let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if] 3 [if org-element-property
and if let org-element--cache-verify-element save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if] 1 [plist-get if
org-element-property = or if if if while if let* save-restriction
save-excursion let progn progn] 1 [if or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if let*
save-restriction save-excursion] 10 [save-excursion progn unwind-protect
let catch org-element--parse-to org-element-type memq if if if if while if
let* save-restriction] 5 [and or progn aref progn progn
org-element--headline-cache-root if setq progn if if if if while if] 4
[progn if let org-element-at-point progn if if if if while if let*
save-restriction save-excursion let progn] 3 [org-reduced-level prog1 let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion progn unwind-protect let catch] 1 [if
org-element-property let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if] 6 [rx-to-string re-search-backward if progn unwind-protect let progn if
cond let while let let* save-restriction save-excursion progn] 2
[rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if
progn unwind-protect let progn if cond let while let] 6 [if save-excursion
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if] 1 [/= and cond let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let] 1 [symbolp cond
org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if] 2
[org-element--cache-active-p if let org-element-at-point progn if if if if
while if let* save-restriction save-excursion let progn] 5 [cond
org-element-type eq if if if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while] 4
[org-element-property let cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if] 3 [or set-buffer save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to condition-case if setq] 2
[derived-mode-p and if let org-element--cache-verify-element and if let
org-element-at-point progn if if if if while if] 1 [progn unwind-protect
let catch org-element--parse-to let let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn] 1 [cons rx-to-string re-search-backward if progn
unwind-protect let progn if cond let while let let* save-restriction
save-excursion] 3 [org-element--cache-root let save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if] 5
[symbolp cond org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if] 5 [if
org-element--cache-put or setq if if while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to] 3
[rx--translate-form rx--translate mapcar rx--translate-seq
rx--translate-form rx--translate rx-to-string re-search-forward and if if
progn unwind-protect let progn if] 2 [if let cond let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if] 3 [org-element-property let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to let let progn if let
org-element--cache-verify-element] 1 [timerp cancel-timer progn if let if
save-current-buffer progn if org-element--cache-sync if if progn if let
org-element-at-point] 3 [org-element-type let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if] 2 [not cond
org-element-type eq not if if if let org-element-at-point progn if if if if
while] 1 [org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if while if] 9 [or and
org-element--cache-active-p and if let org-element--cache-verify-element
and if let org-element-at-point progn if if if if] 2 [if
org-element-property let cond let while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type] 3 [aref progn progn org-element--headline-cache-root if
setq progn if if if if while if let* save-restriction save-excursion] 1
[org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if if] 2 [plist-get if org-element-property < and or and if setq if if
while if let* save-restriction save-excursion] 1 [eq if or
org-element--cache-key org-element--cache-key-less-p and or and if setq if
if while if let* save-restriction] 2 [outline-on-heading-p org-at-heading-p
org-back-to-heading org-up-heading-or-point-min progn unwind-protect let*
save-restriction save-excursion save-excursion let progn if let
org-element--cache-verify-element and] 1 [if org-element-property or let
let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq let] 3 [org-element-type let
while let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to condition-case if setq let] 2 [progn progn setq
if if setq if if while if let* save-restriction save-excursion let progn
progn] 4 [or and org-element--cache-active-p and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if if] 3 [cons cons cons rx-to-string
re-search-backward if progn unwind-protect let progn if cond let while let
let*] 2 [org-element--headline-cache-root if setq progn if if if if while
if let* save-restriction save-excursion let progn progn] 2 [cond let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq] 2 [outline-on-heading-p org-at-heading-p
org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree
progn unwind-protect let* save-excursion let* save-excursion
org-element-headline-parser setq progn if cond] 1 [if
org-element--cache-sync if if progn if let org-element-at-point progn if if
if if while if let*] 2 [rx--translate-repeat rx--translate-form
rx--translate mapcar rx--translate-seq rx--translate-form rx--translate
rx-to-string re-search-forward and if if progn unwind-protect let progn] 1
[symbolp cond org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p not and or if if while if] 1 [apply
derived-mode-p org-get-limited-outline-regexp let* progn cond setq let
save-excursion org-element--current-element setq if if while let let*] 3
[if list nconc list let let* save-excursion org-element-headline-parser
cond setq let save-excursion org-element--current-element setq if if] 5
[progn progn org-element--cache-key org-element--cache-key-less-p and or
and if setq if if while if let* save-restriction save-excursion] 4
[org-up-heading-or-point-min progn unwind-protect let* save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let] 2 [progn progn org-element--cache-root let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case] 1 [set-match-data unwind-protect let catch
org-element--parse-to org-element-type memq if if if if while if let*
save-restriction save-excursion] 2 [plist-get if org-element-property or
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if] 1 [fset unwind-protect let*
save-excursion let* save-excursion org-element-headline-parser cond setq
let save-excursion org-element--current-element setq if if while] 1
[save-excursion if if while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn] 1 [progn
org-element--headline-cache-root if setq progn if if if if while if let*
save-restriction save-excursion let progn] 1 [plist-get if
org-element-property let while let let* save-restriction save-excursion
progn unwind-protect let catch org-element--parse-to org-element-type memq]
1 [aref progn progn org-element--cache-key org-element--cache-key-less-p
and or and if setq if if while if let* save-restriction] 1 [progn aref
progn progn org-element--headline-cache-root if setq progn if if if if
while if let* save-restriction] 1 [if save-excursion
org-element--get-node-properties let* save-excursion
org-element-headline-parser setq progn if cond let* save-restriction
save-excursion progn unwind-protect let] 2 [cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to let let
progn if let org-element--cache-verify-element save-restriction] 1 [if
save-excursion org-element--get-node-properties let* save-excursion
org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let] 2
[org-element--cache-interrupt-p if while let let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if if] 1 [unwind-protect let catch
org-element--parse-to condition-case if setq let org-element-at-point progn
if if if if while if] 3 [cond org-element-type memq not and if let
org-element--cache-verify-element and if let org-element-at-point progn if
if if] 1 [plist-get if org-element-property = or if save-restriction
save-excursion save-excursion let progn if let
org-element--cache-verify-element and if] 1 [eq cond let
save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if] 2 [derived-mode-p and org-element--cache-active-p and if
let org-element-at-point progn if if if if while if let* save-restriction]
2 [save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let org-element-at-point progn if if if if] 1 [cond
let save-current-buffer org-element--cache-find and let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
org-element-type memq if] 3 [org-element-property eq and if let progn if
let org-element--cache-verify-element and if let org-element-at-point progn
if if] 1 [catch org-element--parse-to let let progn if let
org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element] 1 [setq
if if setq if if while if let* save-restriction save-excursion let progn
progn let* org-element-cache-map] 3 [throw cond let while let let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq] 2 [apply derived-mode-p
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction] 1 [cons cons cons rx-to-string re-search-forward and if
if progn unwind-protect let progn if cond let while] 5
[org-element--parse-to condition-case if setq let org-element-at-point
progn if if if if while if let* save-restriction save-excursion] 2 [and
cond let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if if] 1
[org-element-property = or if if if while if let* save-restriction
save-excursion let progn progn let* org-element-cache-map] 1
[org-element-type eq not if if if let org-element-at-point progn if if if
if while if let*] 1 [prog1 let* save-excursion org-element-headline-parser
setq progn if cond let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to] 2 [org-outline-level
org-end-of-subtree progn unwind-protect let* save-excursion let*
save-excursion org-element-headline-parser setq progn if cond let*
save-restriction save-excursion] 3 [while let cond let* save-restriction
save-excursion progn unwind-protect let catch org-element--parse-to
condition-case if setq let org-element-at-point] 4 [plist-get if
org-element-property and if let org-element--cache-verify-element and if
let org-element-at-point progn if if if if] 1 [if org-element-property or
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if] 2 [symbolp cond
org-element-type memq if if if if while if let* save-restriction
save-excursion let progn progn] 2 [not cond org-element-type eq if if let*
or org-element--cache-key org-element--cache-key-less-p not and or if if
while] 3 [not or and if let progn if let org-element--cache-verify-element
save-restriction save-excursion save-excursion let progn if let] 1
[org-element--cache-root let save-current-buffer org-element--cache-find
and let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to condition-case if setq] 1 [symbolp cond
org-element-type eq if if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if] 2 [prog1 let*
save-excursion org-element-headline-parser cond setq let save-excursion
org-element--current-element setq if if while let let* save-restriction] 1
[if let org-element--cache-verify-element save-restriction save-excursion
save-excursion let progn if let org-element--cache-verify-element and if
let org-element-at-point progn] 1 [org-element-property let cond let while
let let* save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq] 1 [not cond org-element-type
memq if let* or org-element--cache-key org-element--cache-key-less-p not
and or if if while if] 1 [set-buffer save-current-buffer
org-element--cache-find and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if]
1 [org-element-property let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if if] 2 [let let* save-restriction save-excursion progn unwind-protect let
catch org-element--parse-to let let progn if let
org-element--cache-verify-element save-restriction] 1 [while let cond let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if if if] 1 [cond
org-element-type let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let progn] 1 [or
set-buffer save-current-buffer org-element--cache-find and let*
save-restriction save-excursion progn unwind-protect let catch
org-element--parse-to org-element-type memq if] 1
[org-element--cache-active-p and let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to org-element-type memq if if
if if] 1 [not cond org-element-type memq if let* or org-element--cache-key
org-element--cache-key-less-p and or and if setq if if] 1 [symbolp cond
org-element-type eq and if let progn if let
org-element--cache-verify-element and if let org-element-at-point progn] 1
[setq if let if save-current-buffer progn if org-element--cache-sync if if
progn if let org-element-at-point progn if] 1 [symbolp cond
org-element-type let while let let* save-restriction save-excursion progn
unwind-protect let catch org-element--parse-to let let] 1 [progn
org-element-property < and or and if setq if if while if let*
save-restriction save-excursion let] 1
[doom-modeline-segment--buffer-position eval redisplay_internal\ \(C\
function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 1
[helm-source--persistent-help-string "#<compiled 0x1ff11f62ad55>" apply
"#<compiled 0x1ff11e3f30a5>" apply helm--setup-source helm-make-source
helm-M-x-read-extended-command helm-M-x funcall-interactively
call-interactively command-execute nil nil nil nil] 1
[helm-comp-read-get-candidates "#<compiled 0x1ff11ee1d4c9>" "#<compiled
0x1ff11f6329f1>" apply helm-apply-functions-from-source
helm-compute-attr-in-sources helm-initial-setup helm-initialize
helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x
funcall-interactively] 3 ["#<compiled 0x1ff11f6329f1>" apply
helm-apply-functions-from-source helm-compute-attr-in-sources
helm-initial-setup helm-initialize helm-internal apply helm apply helm
helm-M-x-read-extended-command helm-M-x funcall-interactively
call-interactively command-execute] 1 [helm-init-candidates-in-buffer
"#<compiled 0x1ff11f6329f1>" apply helm-apply-functions-from-source
helm-compute-attr-in-sources helm-initial-setup helm-initialize
helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x
funcall-interactively call-interactively] 1 [let*
+popup-display-buffer-stacked-side-window-fn funcall let progn and while
let* and let* or let* +popup-buffer display-buffer
helm-default-display-buffer helm-display-buffer] 1 [helm-M-x-transformer-1
helm-M-x-transformer-no-sort apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-read-from-minibuffer helm-internal
apply helm apply helm helm-M-x-read-extended-command helm-M-x] 1
[helm-internal apply helm apply helm helm-M-x-read-extended-command
helm-M-x funcall-interactively call-interactively command-execute nil nil
nil nil nil nil] 1 [read-from-minibuffer helm-read-from-minibuffer
helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x
funcall-interactively call-interactively command-execute nil nil nil nil]
29 [helm-read-from-minibuffer helm-internal apply helm apply helm
helm-M-x-read-extended-command helm-M-x funcall-interactively
call-interactively command-execute nil nil nil nil nil] 361 ["#<compiled
0x1ff11f756785>" helm--search-from-candidate-buffer-1
helm-search-from-candidate-buffer helm-candidates-in-buffer-1
helm-candidates-in-buffer apply helm-apply-functions-from-source
helm-interpret-value helm-get-candidates helm-get-cached-candidates
helm-compute-matches helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 ["#<compiled
0x41ff0eab>" split-string helm-score-candidate-for-pattern "#<compiled
0x1ff11f993861>" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled
0x1ff11f6acc49>" apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1
[doom-protect-fallback-buffer-h kill-buffer "#<compiled 0x1ff11f022d25>"
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler] 1 [generate-new-buffer
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 1
[replace-buffer-in-windows kill-buffer "#<compiled 0x1ff1205aa711>"
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler] 1 [helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer
helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x
funcall-interactively] 1 [cl--map-keymap-recursively
helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist
helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler] 1 [run-hook-with-args-until-success not or and progn
if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled
0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11e5692e1>"
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1
[funcall condition-case doom-run-hook run-hook-wrapped condition-case let
while let doom-run-hooks apply run-hooks kill-buffer "#<compiled
0x1ff11f1f3ffd>" helm-fuzzy-default-highlight-match
helm-fuzzy-highlight-matches apply] 1 [hide-mode-line-mode if
save-current-buffer +helm--hide-mode-line apply helm-display-mode-line
helm-move-selection-common helm--update-move-first-line helm-update
helm-check-new-input helm-check-minibuffer-input "#<compiled
0x1ff11db30631>" apply timer-event-handler read-from-minibuffer
helm-read-from-minibuffer] 1 [helm-fuzzy-search "#<compiled
0x1ff11f7547e5>" helm--search-from-candidate-buffer-1
helm-search-from-candidate-buffer helm-candidates-in-buffer-1
helm-candidates-in-buffer apply helm-apply-functions-from-source
helm-interpret-value helm-get-candidates helm-get-cached-candidates
helm-compute-matches helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input] 20 [helm-mm-3-search-base helm-mm-3-search
helm-mm-search "#<compiled 0x1ff11fb8e391>"
helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer
helm-candidates-in-buffer-1 helm-candidates-in-buffer apply
helm-apply-functions-from-source helm-interpret-value helm-get-candidates
helm-get-cached-candidates helm-compute-matches helm--collect-matches
helm-update] 2 [helm-fuzzy-highlight-matches apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer
helm-internal apply] 1 [funcall condition-case doom-run-hook
run-hook-wrapped condition-case let while let doom-run-hooks apply
run-hooks get-buffer-create generate-new-buffer
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 2
[persp--buffer-in-persps persp-kill-buffer-h kill-buffer "#<compiled
0x1ff11f8a1c91>" helm-fuzzy-default-highlight-match
helm-fuzzy-highlight-matches apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply] 1
["#<compiled 0x1ff11d811199>" "#<compiled 0x1ff11e2cd335>" map-keymap
cl--map-keymap-recursively "#<compiled 0x1ff11d7e6221>" map-keymap
cl--map-keymap-recursively "#<compiled 0x1ff11d815701>" map-keymap
cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist
helm-M-x-current-mode-map-alist helm-M-x-transformer-1
helm-M-x-transformer-no-sort apply helm-apply-functions-from-source] 1
[helm-score-candidate-for-pattern "#<compiled 0x1ff11e694785>" sort
helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler] 2 ["#<compiled 0x1ff11ee32241>" map-keymap
cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist
helm-M-x-current-mode-map-alist helm-M-x-transformer-1
helm-M-x-transformer-no-sort apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 [let* progn if
let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled
0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11ee9004d>"
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches] 1
[helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist
helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer] 1 [helm-M-x-transformer-1
helm-M-x-transformer-no-sort apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer
helm-internal] 2 [helm-fuzzy-default-highlight-match
helm-fuzzy-highlight-matches apply helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer
helm-internal] 1 [+magit-buffer-p run-hook-with-args-until-success or and
progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled
0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11fe92639>"
helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1
[apply derived-mode-p and save-current-buffer +magit-buffer-p
run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or
doom-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-buffer] 1
[apply cl-intersection apply cl-nintersection
helm-score-candidate-for-pattern "#<compiled 0x1ff11d46dd11>" sort
helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply
helm-apply-functions-from-source
helm-process-filtered-candidate-transformer helm-compute-matches
helm--collect-matches helm-update helm-check-new-input] 1
[helm-insert-match helm-render-source helm-update helm-check-new-input
helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" apply
timer-event-handler read-from-minibuffer helm-read-from-minibuffer
helm-internal apply helm apply helm helm-M-x-read-extended-command] 1
["#<compiled 0x4200381f>" redisplay--update-region-highlight
run-hook-with-args redisplay--pre-redisplay-functions apply "#<compiled
0x42158e59>" redisplay_internal\ \(C\ function\) read-from-minibuffer
helm-read-from-minibuffer helm-internal apply helm apply helm
helm-M-x-read-extended-command helm-M-x] 2 [select-frame-set-input-focus
helm-frame-or-window-configuration helm-cleanup "#<compiled
0x1ff11f168ff1>" helm-internal apply helm apply helm
helm-M-x-read-extended-command helm-M-x funcall-interactively
call-interactively command-execute nil nil] 1 [profiler-report
funcall-interactively call-interactively command-execute
helm-M-x-execute-command helm-execute-selection-action-1
helm-execute-selection-action helm-internal apply helm apply helm
helm-M-x-read-extended-command helm-M-x funcall-interactively
call-interactively] 1 [Automatic\ GC] 238024)) (24961 50047 823782 0) nil]

>
> Best,
> Ihor
>


-- 
Sent from my Palm Pilot