Re: Slowness of org-agenda-redo in org 9.7 vs 9.6.7

[dark.key8799@151e.ai]

[-- Attachment #1: Type: text/plain, Size: 317 bytes --]

On Fri, Jan 19, 2024, at 22:00, Ihor Radchenko wrote:
> May you open org-agenda.el and org-element.el and M-x eval-buffer in
> these two files before generating the report? It should make the results
> more readable.

There you go, there's still some lambdas but more of the calls are explicit.

-- 
Alexandre Avanian

[-- Attachment #2: cpu-profile-org-9_7-v2.el --]
[-- Type: application/octet-stream, Size: 75937 bytes --]


[profiler-profile "28.1" cpu #s(hash-table size 487 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 58 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_9>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil nil] 5 ["#<compiled 0x1a044bbfab70e5b2>" execute-extended-command--shorter "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil] 2 ["#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil nil] 16 [completion-pcm--find-all-completions completion-pcm-try-completion "#<compiled 0x736fb60c6190e83>" completion--some completion--nth-completion completion-try-completion execute-extended-command--shorter "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil] 3 [sit-for "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil] 3 ["#<compiled 0x1147000310515e6f>" "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil] 1 [let* org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil nil] 3 [let if if let org-agenda-prepare "#<lambda 0xc3f764fddcf1332>" funcall let eval let* progn let* org-agenda-run-series eval if let*] 2 [if "#<lambda 0x111f420160>" mapcar apply setq let org-agenda-files mapcar append easy-menu-change org-agenda-mode if if let org-agenda-prepare "#<lambda 0xc3f764fddcf1332>"] 1 [if "#<lambda 0x111f420160>" mapcar apply setq let org-agenda-files org-agenda-prepare-buffers if if let org-agenda-prepare "#<lambda 0xc3f764fddcf1332>" funcall let eval] 1 [if org-check-agenda-file if set-buffer save-current-buffer catch let while let let org-agenda-prepare-buffers if if let org-agenda-prepare "#<lambda 0xc3f764fddcf1332>"] 57 [org-element--cache-active-p and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction save-excursion save-excursion let] 1 [while let save-restriction save-excursion save-excursion let progn unwind-protect let* org-refresh-stats-properties or save-restriction save-excursion save-current-buffer catch let] 1 [if "#<lambda 0x111f420160>" mapcar apply setq let org-agenda-files let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22d19e5a1280>" funcall] 1 [format list let* org-agenda-get-scheduled cons setq let cond let while let let* progn let save-restriction save-excursion] 257 [org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [format list let* org-agenda-get-blocks cons setq let cond let while let let* progn let save-restriction save-excursion] 283 [format list let* org-agenda-get-deadlines setq let cond let while let let* progn let save-restriction save-excursion save-current-buffer] 43 [format list let* org-agenda-get-sexps cons setq let cond let while let let* progn let save-restriction save-excursion] 37 [memq if or setq if progn setq progn if progn if if if while if let*] 1 [if let* org-agenda-get-day-entries apply setq cond let catch while while let* catch org-agenda-list funcall-interactively call-interactively let] 13 [function let* let* save-restriction save-excursion let progn if progn let* org-element-cache-map let* org-agenda-get-deadlines setq let cond] 2 [format list let* org-agenda-get-timestamps cons setq let cond let while let let* progn let save-restriction save-excursion] 25 [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 if] 3 [if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map let* org-agenda-get-scheduled cons] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function let* let* save-restriction save-excursion let progn if progn let*] 1 [if org-check-agenda-file catch while while let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22d19e5a1280>" funcall let eval] 39 [and and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map if or org-back-to-heading org-agenda-skip-if] 1 [if progn if if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [if catch progn setq progn if progn if if if while if let* save-restriction save-excursion let] 1 [macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 3 [cond org-entry-get let* catch progn if "#<lambda 0xf20ae7791f17ec2>" funcall cons setq if progn if progn if progn] 1 [org-element-type let* and let* org-element-end or let let* save-restriction save-excursion save-current-buffer catch org-element--parse-to setq progn if] 1 [let let org-element--property and if "#<lambda -0x11b17b6c6e14c892>" funcall cons setq if progn if progn if progn if] 1 [save-current-buffer org-element--cache-active-p and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to setq progn if progn org-element-begin or max] 1 [= or if if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [org-element--cache-active-p and if let save-restriction save-excursion save-excursion let if org-element-at-point save-restriction save-excursion let progn if progn] 1 [progn if let cond let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction save-excursion] 1 [if progn setq progn if progn if if if while if let* save-restriction save-excursion let progn] 2 [let* and let* org-element-contents-begin progn if or setq if progn setq progn if progn if if] 2 [let* and let* org-element-begin < and or if if progn unwind-protect let progn if progn if] 1 [car if let cond let* and let* org-element-end let while let let* save-restriction save-excursion save-current-buffer catch] 1 [not if if progn unwind-protect let org-get-priority + let org-add-props let* save-excursion let* catch progn if] 1 [save-excursion and let org-agenda-skip-eval or let or if progn unwind-protect let org-agenda-skip catch progn if "#<lambda -0x11656afb28e4c892>"] 1 [if let* progn unwind-protect let let* org-agenda-format-item let* save-excursion let* catch progn if "#<lambda 0xacfff2687b50ae0>" funcall cons] 1 [if org-parse-time-string encode-time org-time-string-to-time condition-case time-to-days cond org-time-string-to-absolute apply condition-case org-agenda--timestamp-to-absolute cond let* catch progn if] 1 [let* while if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to setq progn if] 1 [if or if progn unwind-protect let progn if progn if if if while if let* save-restriction] 1 [progn org-element--cache-root let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 7 [plist-put setq if while let org-plist-delete apply if concat setq progn if progn if let if] 1 [let* let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction save-excursion save-excursion let if] 1 [org-element-type let* and let* let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction save-excursion] 1 [catch while let progn if let org-element--property setq let while let while catch let org-element-property-inherited if] 1 [cond let* save-excursion let* catch progn if "#<lambda -0x18ef3d05d04721f4>" funcall cons setq if progn if progn if] 1 [and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map if or org-back-to-heading org-agenda-skip-if org-agenda-skip-entry-if] 1 [cond org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 2 [with-no-warnings org-agenda-get-blocks cons setq let cond let while let let* progn let save-restriction save-excursion save-current-buffer if] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-cache-map let* org-agenda-get-scheduled cons] 1 [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] 2 [let* and let* org-element-end or let let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-cache-map let* org-agenda-get-deadlines setq let cond let while let] 1 [and if let* save-restriction save-excursion let progn if progn let* org-element-cache-map let* org-agenda-get-scheduled cons setq let] 1 [let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22d19e5a1280>" funcall let eval let* progn let while let*] 2 [if "#<lambda 0x111f420160>" mapcar apply setq let org-agenda-files setq progn catch let* org-tags-view let cond "#<lambda 0xa22d19e5a1280>" funcall] 1 [if org-check-agenda-file catch while catch let* org-tags-view let cond "#<lambda 0xa22d19e5a1280>" funcall let eval let* progn let] 246 [macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 7 [or let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x1536eff8750e81ec>" funcall setq progn] 6 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function] 1 [if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if] 1 [if org-element-at-point org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [org-element-begin = or if if if while if let* save-restriction save-excursion let progn if progn let*] 1 ["#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if if while if let*] 1 [let* and and let* let let org-element--property org-element-parent setq while catch progn setq progn if progn] 1 [if let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all] 1 [intern org-element--property let* org--property-local-values let* "#<lambda -0xa930c4954c04121>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance] 8 [let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda -0xa930c4954c04121>" funcall setq progn if] 3 [or let cond let* if let* let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 [let* and let* org-element-begin > not or and if while if let* save-restriction save-excursion let progn] 2 [cond org-element-type if org-element-at-point org-element-lineage setq org--property-local-values let* "#<lambda 0xb1ad95a9b64f94c>" funcall setq progn if while catch let] 3 [progn let* "#<lambda 0xb1ad95a9b64f94c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [if let cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if] 1 [let* if let* let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq] 4 [if or if progn unwind-protect let progn if progn if progn if if if while if] 4 [let* progn let* "#<lambda 0xa5deeb8aec004d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 2 [car eq if let cond let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0xa5deeb8aec004d7>"] 1 [and let* org-element-begin < and if progn if if if while if let* save-restriction save-excursion let] 1 [or set-buffer save-current-buffer eq and save-current-buffer if progn if if if while if let* save-restriction save-excursion] 5 [let* org--property-local-values let* "#<lambda 0xa5deeb8aec004d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 4 [let* and and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if] 1 [org-element-type let* and let* org-element-begin eq or and if progn if if if while if let*] 1 [if progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 [cond org-element-type let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn] 1 [org-element-type if org-element-at-point org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 6 [org-element-contents-begin progn if or setq if progn setq progn if progn if if if while if] 1 [if and and if catch "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if] 1 [let* if let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 1 [function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn] 1 [format list let* org-scan-tags setq save-restriction save-excursion save-current-buffer if catch while catch let* org-tags-view let cond] 32 [org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if] 1 [let* if let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 1 [org-element-type let* and let* org-element-begin < and or if if progn unwind-protect let progn if progn] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq] 1 [org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>"] 1 [cdr car if let cond let* and and let* let let org-element--property org-element-parent setq while catch] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 5 [progn progn org-element-begin < and or and if setq if if while if let* save-restriction save-excursion] 1 [macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 4 [let let org-element--property let* org--property-local-values let* "#<lambda 0x1b7c195e15e618cf>" funcall setq progn if while catch let org-element-lineage-map let] 8 [or set-buffer save-current-buffer if progn if if if while if let* save-restriction save-excursion let progn if] 2 [if let* if let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 2 [concat intern org-element--property let* org--property-local-values let* "#<lambda -0x1554ed051d31835>" funcall setq progn if while catch let org-element-lineage-map let] 10 [org-element--property let* org--property-local-values let* "#<lambda 0xb1ad955f1166c4c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 6 [let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [funcall cons setq if progn if progn if progn if if if while if let* save-restriction] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 3 [setq if catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [memq if or if progn if progn if if if while if let* save-restriction save-excursion let] 2 [cond org-element-type let* and let* org-element-contents-begin progn if or setq if progn setq progn if progn] 1 [cond org-element-type if org-element-at-point org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall] 1 [let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x7150948aeee6ed4>" funcall setq progn if while catch] 3 [while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map save-excursion let* org-scan-tags setq save-restriction] 3 [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] 4 [cond let* if let* let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [let* and and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 3 [if if let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq] 2 [let* let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let] 1 [if setq catch while catch let* org-tags-view let cond "#<lambda 0xa22d19e5a1280>" funcall let eval let* progn let] 1 [if and and if catch "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if progn if] 1 [if let cond let* and let* org-element-contents-begin progn if or setq if progn setq progn if] 1 [setq progn "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if progn if if if while] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 4 [cond org-remove-uninherited-tags nconc nreverse delete-dups nreverse if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 1 [with-no-warnings if progn if or let cond let* if let* let let org-element--property mapcar org--get-local-tags let] 2 [and if let org-element--property let* org--property-local-values let* "#<lambda 0x4318b51350c1593>" funcall setq progn if while catch let org-element-lineage-map] 5 [macroexp-macroexpand macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 3 [if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 [symbolp cond org-element-type memq if or if progn if progn if if if while if let*] 1 [macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let] 2 [org-element-begin 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] 2 [let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags] 3 [org-element-type let* if let* let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 [memq if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [let and if let org-element--property let* org--property-local-values let* "#<lambda -0xa930c4954c04121>" funcall setq progn if while catch let] 4 [if or let cond let* if let* let let org-element--property setq let while let while catch] 1 [with-no-warnings if progn if or let cond let* if let* let let org-element--property setq let while] 2 [cond let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 1 [and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 2 [not cond org-element-type let* if let* let let org-element--property let* org--property-local-values let* "#<lambda -0x1a4b5b8ec05dd833>" funcall setq progn] 1 [let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0xa5deeb8aec004d7>" funcall setq progn if while catch] 1 [let org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [org--property-local-values let* "#<lambda 0xa5deeb8aec004d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [macroexp-macroexpand macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all] 1 [mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if if] 1 [let let org-element--property org-element-parent setq while catch progn setq progn if progn if if if while] 1 [let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if] 2 [org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map] 2 [cond org-element-type let* and let* org-element-begin eq or and if progn if if if while if] 1 [let* and let* org-element-contents-end eq if catch progn setq progn if progn if if if while] 1 [if catch "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if progn if if if while] 1 [let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if] 1 [cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 2 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms] 2 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function] 3 [org-element-type let* and let* org-element-begin < and or if if while if let* save-restriction save-excursion let] 1 [org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq] 1 [eq cond let* if let* let let org-element--property setq let while let while catch let org-element-property-inherited] 1 [cond 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] 1 [let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 3 [org-element-begin let save-restriction save-excursion save-current-buffer org-element--substring apply org-element--deferred-resolve-once setq progn while let org-element--deferred-resolve let* catch while] 1 [org-element-type if org-element-at-point org-element-lineage setq org--property-local-values let* "#<lambda 0x1494e686e0fdf5dd>" funcall setq progn if while catch let org-element-lineage-map] 2 [and let* org-element-begin move-marker if let let* progn let* "#<lambda 0xb1ae7182c269e4c>" funcall setq progn if while catch] 1 [org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn if progn] 1 [org-element-type let* and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq] 2 [cdr car if let cond let* and let* let and if let org-element--property setq let while] 1 [progn progn setq while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map save-excursion let*] 2 [progn let and if let org-element--property let* org--property-local-values let* "#<lambda -0x1554ed051d31835>" funcall setq progn if while catch] 1 [cond org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 1 [setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if if while] 1 [symbolp cond org-element-type let* and let* if progn if if if while if let* save-restriction save-excursion] 1 [symbolp cond org-element-type let* and let* org-element-begin < and or if if while if let* save-restriction] 2 [let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq] 3 [memq if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0x157e564bb27a0cec>" funcall setq progn if while] 2 [org-element-type let* and let* org-element-begin > not or and if while if let* save-restriction save-excursion let] 2 [let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [if let cond let* and let* org-element-begin goto-char "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 [macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance] 1 [let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 2 [let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if] 1 [if let* if let* let let org-element--property org-element-parent setq while catch progn setq progn if progn] 2 [progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if if] 1 [org-element-type memq if or if progn if progn if if if while if let* save-restriction save-excursion] 1 [let* if let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 2 [symbolp cond org-element-type let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x6324663350dee92>" funcall] 1 [let cond let* if let* let let org-element--property setq let while let while catch let org-element-property-inherited] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 2 [nreverse if let if org-get-tags setq progn "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if] 1 [progn if or let cond let* if let* let let org-element--property mapcar org--get-local-tags let if org-get-tags] 2 [let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if] 1 [function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if progn] 1 [and if let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4a1d854da66468b>" funcall] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [cond org-element-type let* if let* let let org-element--property setq let while let while catch let org-element-property-inherited] 1 [mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 [if let* let let org-element--property let* org--property-local-values let* "#<lambda -0x4cd74aecaf3bf73>" funcall setq progn if while catch let] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let] 2 [macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure] 2 [macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [org-element-type let* and let* org-element-begin = or if if if while if let* save-restriction save-excursion let] 1 [org-add-prop-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [org-element-begin 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] 1 [let org-element-lineage setq if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all] 1 [plist-get or let cond let* if let* let let org-element--property setq let while let while catch] 1 [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] 1 [not cond org-element-type memq if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0xa5deeb8aec004d7>" funcall setq] 2 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all] 2 [let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn] 1 [and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 1 [org-element-lineage setq org--property-local-values let* "#<lambda 0xb1ad962333db24c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 4 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn] 1 [if org-element-at-point org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4a3dd47da66468b>" funcall cons setq if progn if progn if] 1 [org-element-lineage setq if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn] 1 [not if if progn unwind-protect let org-get-priority setq progn let* cond progn if catch "#<lambda 0x1ce3936828158dec>" funcall] 2 [cond org-element-type let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x7358b742cb1aa55>" funcall setq progn if] 2 [cond org-element-type let* and let* org-element-begin < and or if if progn unwind-protect let progn if] 1 [and if let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let] 1 [org-element-type let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x160b4e7c9fbc4679>" funcall setq progn] 2 [let progn if progn if progn if if if while if let* save-restriction save-excursion let progn] 2 [cond org-element-type let* and let* let and if let org-element--property setq let while let while catch] 1 [if let* if let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map] 3 [let* if let* let and if let org-element--property let* org--property-local-values let* "#<lambda -0x149924db1a44b60c>" funcall setq progn if] 1 [plist-member with-no-warnings if progn if or let cond let* if let* let let org-element--property setq let] 1 [< or if if progn unwind-protect let progn if progn if progn if if if while] 1 [let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 1 [or let cond let* if let* let let org-element--property setq let while let while catch let] 2 [cond org-element-type let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 2 [if let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if] 1 [org--property-local-values let* "#<lambda -0x1554ed051d31835>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [if let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0xb1ad955f1166c4c>" funcall setq progn if while] 2 [not cond org-element-type let* and and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms] 2 [apply org-element--deferred-resolve-once setq progn while let org-element--deferred-resolve let* catch while let progn if let org-element--property let*] 1 [cdr car if let cond let* and and let* let let org-element--property org-element-parent setq if catch] 1 [cond org-element-type let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x168f7a6217ab2f89>" funcall setq] 3 [if progn if progn if if if while if let* save-restriction save-excursion let progn if progn] 1 [org--property-local-values let* "#<lambda 0x168f7a6217ab2f89>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq] 2 [cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [progn let* "#<lambda 0x7150948aeee6ed4>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 2 [or org-em cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 2 [and and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 1 [progn if let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if org-get-tags] 1 [if let* if let* org-element-begin goto-char "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn] 1 [and if progn if if if while if let* save-restriction save-excursion let progn if progn let*] 1 [cond org-element-type let* and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar] 2 [cond let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x732469c350dee93>" funcall setq progn] 1 [and let* org-element-begin < and or if if progn unwind-protect let progn if progn if progn] 2 [and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 1 [cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [mapconcat setq progn if let org-entry-get-with-inheritance setq progn "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn] 1 [setq let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn] 1 [if let* org-element-contents-end eq if catch progn setq progn if progn if if if while if] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [if let* if let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 2 [let* and let* org-element-begin < and or and if setq if if while if let* save-restriction] 1 [if let cond let* and and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map] 1 [car eq if let cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or] 1 ["#<lambda 0x1536eff8750e81ec>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [macroexp-macroexpand macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all] 2 [let* and let* org-element-begin < and or if if while if let* save-restriction save-excursion let progn] 1 [progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [let org-element--property org-element-parent setq while catch progn setq progn if progn if if if while if] 1 [org--property-local-values let* "#<lambda 0xb1ad95e613b614c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [if let* if let* if progn if if if while if let* save-restriction save-excursion let progn] 1 [let cond let* and let* if progn if if if while if let* save-restriction save-excursion let] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function] 2 [cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [let* and let* org-element-contents-end eq if while catch progn setq progn if progn if if if] 1 [not cond org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while] 1 [and let* let let org-element--property org-element-parent setq while catch progn setq progn if progn if if] 1 [if not and while let org-element-lineage setq if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 ["#<lambda -0x14065ca9db8ff72c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [if let* org-element-begin move-marker if let let* progn let* "#<lambda 0x16ccedc15db0c972>" funcall setq progn if while catch] 1 [setq progn if if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 2 [let* and let* let and if let org-element--property setq let while let while catch let org-element-property-inherited] 1 [and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [progn if progn if progn if if if while if let* save-restriction save-excursion let progn if] 3 [org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn if] 1 [car eq if let cond let* and and let* let let org-element--property org-element-parent setq while catch] 1 [or and if progn if if if while if let* save-restriction save-excursion let progn if progn] 1 [or set-buffer save-current-buffer not and if progn if progn if if if while if let* save-restriction] 2 [let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if] 1 [and save-current-buffer if progn if if if while if let* save-restriction save-excursion let progn if progn] 2 [while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 [if let cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 1 [cond org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 1 [let* if let* org-element-begin < and or if if progn unwind-protect let progn if progn if] 1 [cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4a3dd47da66468b>" funcall cons setq] 1 [setq progn if progn if progn if if if while if let* save-restriction save-excursion let progn] 3 [let* and let* if progn if if if while if let* save-restriction save-excursion let progn if] 2 [not cond org-element-type let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x1605bebda87bcaac>" funcall] 2 [while let org-element-lineage setq org--property-local-values let* "#<lambda 0x1605bebda87bcaac>" funcall setq progn if while catch let org-element-lineage-map let] 1 [if progn if progn if progn if if if while if let* save-restriction save-excursion let progn] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all cconv-make-interpreted-closure] 1 [catch or org--property-get-separator mapconcat setq progn if let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 [if let org-element--property let* org--property-local-values let* "#<lambda 0xb1ae7182c269e4c>" funcall setq progn if while catch let org-element-lineage-map let] 1 [car eq if let cond let* and let* let and if let org-element--property let* org--property-local-values let*] 1 [org-em cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq if] 1 [while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [let let* progn let* "#<lambda 0xb964700eaebfa7e>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 1 [setq progn if let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [eq save-current-buffer not and if progn if progn if if if while if let* save-restriction save-excursion] 2 [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 if] 1 [let* let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn] 1 [car if let cond let* and let* org-element-begin = or if if if while if let*] 2 [cond org-element-type let* and let* org-element-begin goto-char "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if] 1 [if let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if] 1 [let cond let* and let* org-element-begin goto-char "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if] 1 [if org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [car-safe if progn if progn if progn if if if while if let* save-restriction save-excursion let] 1 [cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 [cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x4324012350dff90>" funcall setq progn if while] 1 [progn if let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags] 1 [org-element-type let* and and let* let let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance] 1 [cdr car if let cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not or and] 1 [let* if let* let let org-element--property setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn] 1 ["#<lambda 0xb1ad95e613b614c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [and progn while let org-element--deferred-resolve let* catch while let progn if let org-element--property let* org--property-local-values let*] 1 [let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0xb1ad95a9b64f94c>" funcall setq progn if while] 1 [progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [or if progn if progn if if if while if let* save-restriction save-excursion let progn if] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 1 [let* if let* org-element-begin eq or and if progn if if if while if let* save-restriction] 1 [org-element-type if org-element-at-point org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [symbolp cond org-element-type let* if let* let let org-element--property setq let while let while catch let] 1 [and let* let and if let org-element--property setq let while let while catch let org-element-property-inherited mapcar] 2 [let* org-element-contents-end eq if catch progn setq progn if progn if if if while if let*] 1 [if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map save-excursion let* org-scan-tags setq] 1 [progn setq progn if progn if if if while if let* save-restriction save-excursion let progn if] 2 [cdr car if let cond let* and let* org-element-contents-end eq if while catch progn setq progn] 1 [eq if let cond let* and and let* let let org-element--property org-element-parent setq while catch progn] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [let org-element--property let* org--property-local-values let* "#<lambda 0xb1ad962333db24c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance] 3 [let* if let* let let org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons] 1 [if let org-element--property org-element-parent setq while catch progn setq progn if progn if if if while] 1 [let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 1 [if let* org-element-begin < and or and if setq if if while if let* save-restriction save-excursion] 1 [cdr car if let cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or] 1 [let* if let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let] 1 [if and and if catch "#<lambda -0x4a3dd47da66468b>" funcall cons setq if progn if progn if progn if] 1 [org--property-local-values let* "#<lambda -0x149924db1a44b60c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>"] 1 [progn or progn apply org-element--deferred-resolve-once setq progn while let org-element--deferred-resolve let* catch while let progn if] 1 [progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn if if if while if] 1 [let* and let* set-buffer save-current-buffer org-element--substring apply org-element--deferred-resolve-once setq progn while let org-element--deferred-resolve let* catch while] 1 [org-element-type let* and let* org-element-begin goto-char "#<lambda 0x96d11493599b975>" funcall cons setq if progn if progn if progn] 1 [and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if] 2 [or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [< and or if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [if let cond let* and let* if progn if if if while if let* save-restriction save-excursion] 1 [and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 1 [with-no-warnings if progn if or let cond let* if let* let let org-element--property let* org--property-local-values let*] 2 [eq if let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall] 1 [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] 1 [setq if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map save-excursion let*] 1 [if let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if] 1 [cdr car if let cond let* and let* let and if let org-element--property let* org--property-local-values let*] 2 [let let org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [org-element-begin < and or if if while if let* save-restriction save-excursion let progn if progn let*] 1 [symbolp cond org-element-type let* and and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all] 1 [setq progn if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map save-excursion let*] 1 [let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0x4a1d854da66468b>" funcall cons setq if progn if progn if] 1 [cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 1 [car if let cond let* and and let* let let org-element--property org-element-parent setq if catch let] 1 [cond org-element-type let* and and let* let let org-element--property org-element-parent setq while catch progn setq progn] 1 [symbolp cond org-element-type memq if not and while let org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags] 1 [cond let* and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq] 1 [if "#<lambda 0x111f420160>" mapcar apply setq let org-agenda-files setq catch let* org-search-view let cond "#<lambda 0xa22d19e5a1280>" funcall let] 1 [car eq if let cond let* and let* org-element-contents-end eq if while catch progn setq progn] 1 [save-current-buffer eq and save-current-buffer if progn if if if while if let* save-restriction save-excursion let progn] 1 [org-element-type let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 1 [org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0x16f8ea36a6919182>" funcall cons setq if progn if] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x16f8ea36a6919182>" funcall cons setq if progn if progn if] 1 [setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x16f8ea36a6919182>" funcall cons setq if] 1 [org-element-type if org-element-at-point org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x16f8ea36a6919182>" funcall cons setq if progn if progn] 1 [macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [let* "#<lambda -0xa930c4954c04121>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x16f8ea36a6919182>" funcall] 1 [progn if let org-element--property let* org--property-local-values let* "#<lambda -0xa930c4954c04121>" funcall setq progn if while catch let org-element-lineage-map] 1 [cond org-element-type let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 1 [let cond let* and let* org-element-begin < and or if if progn unwind-protect let progn if] 1 [org-element-type let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 1 [while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall] 1 [let* "#<lambda 0x63e0d6dbca82d7d>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses] 1 [and progn let and if let org-element--property setq let while let while catch let org-element-property-inherited mapcar] 1 [eq if let cond let* and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p and or and if] 1 [if let* if let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0xa5deeb8aec004d7>" funcall setq progn] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv] 2 [let* if let* let and if let org-element--property setq let while let while catch let org-element-property-inherited] 1 [catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x10ee610e0eb6c577>" funcall cons setq if] 1 [let* if let* let let org-element--property setq progn "#<lambda 0x10ee610e0eb6c577>" funcall cons setq if progn if progn] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all] 1 [if let cond let* and let* let and if let org-element--property setq let while let while] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance] 1 [setq save-restriction save-excursion save-current-buffer if catch while catch let* org-tags-view let cond "#<lambda 0xa22d19e5a1280>" funcall let eval] 1 [or let cond let* if let* let let org-element--property setq progn "#<lambda -0xc023aefcf98472a>" funcall cons setq if] 1 [cond let* and and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq] 1 [if let cond let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x7358b742cb1aa55>" funcall] 1 [cond org-element-type memq if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0x7358b742cb1aa55>" funcall setq progn] 1 [prog1 car-safe if if setq if if while if let* save-restriction save-excursion let progn if progn] 1 [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] 1 [cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv-analyze-form cconv--analyze-function cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1edf3a6d338d2280>"] 1 [let* "#<lambda 0x7358b742cb1aa55>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1edf3a6d338d2280>" funcall] 1 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all] 1 [if let* if let* let and if let org-element--property setq let while let while catch let] 1 [let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0x4a3dd47da66468b>" funcall cons setq if progn if progn if progn] 1 [let* let let org-element--property let* org--property-local-values let* "#<lambda -0x149924db1a44b60c>" funcall setq progn if while catch let org-element-lineage-map] 1 [if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction] 1 [not if if progn unwind-protect let org-get-priority setq progn let* cond progn if catch "#<lambda 0x5c35651e1469da9>" funcall] 2 [macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 2 [macroexp-macroexpand macroexp--expand-all macroexp--all-forms macroexp--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 1 [and if let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags] 1 [org-entry-get-with-inheritance setq progn "#<lambda 0x5c35651e1469da9>" funcall cons setq if progn if progn if progn if if if] 1 [if let org-element--property setq progn "#<lambda 0x5c35651e1469da9>" funcall cons setq if progn if progn if progn if] 1 [if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0xf46744193748dec>" funcall cons setq if progn if] 1 [macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 1 [cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn if] 1 [let* and let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 1 [and progn if let org-element--property org-element-parent setq while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x51481c881a7febd>"] 1 [if let* let let* save-restriction save-excursion save-current-buffer catch org-element--parse-to setq progn if progn setq progn if] 1 [org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x51481c881a7febd>" funcall cons setq if progn if progn if progn if] 1 [let* and let* org-element-begin < and if progn if if if while if let* save-restriction save-excursion] 1 [cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x1f21c6f5334bc1c6>" funcall cons setq if progn if progn if] 1 [cond let* and let* let and if let org-element--property setq let while let while catch let] 1 [let* progn unwind-protect let let* org-agenda-format-item setq progn let* cond progn if catch "#<lambda 0x1798f986fc925288>" funcall cons] 1 [progn if or let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x7150948aeee6ed4>" funcall] 1 [and or and if setq if if while if let* save-restriction save-excursion let progn if progn] 1 [if org-get-tags setq progn "#<lambda 0x14a70ef11391abff>" funcall cons setq if progn if progn if progn if if] 1 [and let* org-element-begin let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 1 [if catch "#<lambda 0x14a70ef11391abff>" funcall cons setq if progn if progn if progn if if if while] 1 [setq if catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x14a70ef11391abff>" funcall cons] 1 [if let* if let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 1 [cond org-element-type let* and let* org-element-begin < and if progn if if if while if let*] 1 [not and if org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq] 1 [org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0x4a1d854da66468b>"] 1 [not and while let org-element-lineage setq if org-get-tags setq progn "#<lambda 0x96d11493599b975>" funcall cons setq if progn] 1 [org--property-local-values let* "#<lambda 0x6318b51350c6d91>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x16c361cb526715a8>"] 1 [cond org-element-type let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0x4318b51350c2c93>" funcall setq progn] 1 [if let* if let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 1 [setq if while let org-plist-delete apply if concat setq progn if progn if let if let] 1 [let let* let* org-agenda-run-series eval if let* org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil] 1 [while save-excursion progn unwind-protect let let org-agenda-align-tags if save-excursion let if org-agenda-finalize "#<lambda 0x60fae12>" funcall let eval] 1 [while let save-excursion org-agenda-fontify-priorities progn if save-excursion let if org-agenda-finalize "#<lambda 0x60fae12>" funcall let eval let* progn] 2 [save-current-buffer catch org-element--parse-to condition-case if setq let save-restriction save-excursion save-excursion let if org-element-at-point org-element-lineage setq if] 1 [let cond let* and let* org-element-end or let let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case if] 1 [completing-read-default read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil nil nil nil] 14 [read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil nil nil nil nil] 93 [tooltip-hide completing-read-default read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil nil nil] 1 [funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [funcall-interactively command-execute execute-extended-command funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil] 1 [Automatic\ GC] 1952)) (26026 34543 272280 0) nil]