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

emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: dark.key8799@151e.ai
To: "Ihor Radchenko" <yantar92@posteo.net>
Cc: emacs-orgmode@gnu.org
Subject: Re: Slowness of org-agenda-redo in org 9.7 vs 9.6.7
Date: Fri, 19 Jan 2024 21:49:42 +0800	[thread overview]
Message-ID: <b11b3293-7364-4983-9d17-08316da84419@app.fastmail.com> (raw)
In-Reply-To: <871qadpjjn.fsf@localhost>

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

On Fri, Jan 19, 2024, at 20:57, Ihor Radchenko wrote:
> May you please redo the benchmarks using
> 1. M-x profiler-start <RET> cpu <RET>
> 2. Run agenda
> 3. M-x profiler-report
> 4. M-x profiler-report-write-profile <RET> profile.el <RET>
> 5. Share two saved profiles, repeating the above steps with newer and
>    older Org mode.

Please find attached.

> ELP benchmarks on the whole Org mode are useless - they create huge
> overheads on frequently called fast functions, completely messing up the
> information.

I found the profiler-reports harder to read because of the (native-compiled?) lambda that show up and harder to compare since the metric is relative with no absolute reference but well noted and will remember.

-- 
Alexandre Avanian

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


[profiler-profile "28.1" cpu #s(hash-table size 65 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([funcall-interactively command-execute execute-extended-command funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil] 2 [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 72 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_9>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil nil] 5 ["#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil nil] 16 ["#<compiled 0x1a044bbfab70e5b2>" execute-extended-command--shorter "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil] 1 [execute-extended-command--shorter "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil] 6 [completion-pcm--merge-try completion-pcm-try-completion "#<compiled 0x736c399fd190e83>" completion--some completion--nth-completion completion-try-completion execute-extended-command--shorter "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil] 1 [sit-for "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil] 2 ["#<compiled 0x1147000310515e6f>" "#<compiled -0x16390455f85ca456>" apply timer-event-handler nil nil 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] 4 [org-agenda-files org-agenda-mode org-agenda-prepare "#<compiled -0xfcc478edea2cca4>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil] 1 [org-agenda-files org-agenda-prepare "#<compiled -0xfcc478edea2cca4>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 1 [org-agenda-prepare-buffers org-agenda-prepare "#<compiled -0xfcc478edea2cca4>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 39 [org-collect-keywords org-set-regexps-and-options org-agenda-prepare-buffers org-agenda-prepare "#<compiled -0xfcc478edea2cca4>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil] 1 [org-agenda-get-blocks org-agenda-get-day-entries apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 48 [org-agenda-get-scheduled org-agenda-get-day-entries apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 46 [apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil] 7 [org-agenda-get-timestamps org-agenda-get-day-entries apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 26 [org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil] 33 [org-agenda-get-deadlines org-agenda-get-day-entries apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 28 [org-agenda-get-sexps org-agenda-get-day-entries apply org-agenda-list funcall-interactively call-interactively "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 28 [org-agenda-files org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 5 [org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil nil] 275 [org-element-property org--property-local-values org-entry-get-with-inheritance "#<compiled 0x1160b2e5c4692df1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil] 2 [org-entry-get-with-inheritance "#<compiled 0x1160b2e5c4692df1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil] 30 ["#<compiled 0x1160b2e5c4692df1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil] 12 [org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 54 [org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil] 12 [org-agenda-entry-get-agenda-timestamp "#<compiled 0x1160b2e5c4692df1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil] 4 [org-element-property "#<compiled 0x1160b2e6c56436f1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil] 1 [org-element-property org-get-tags "#<compiled 0x1160b2e5c4692df1>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 1 [org-element-property org-entry-get-with-inheritance "#<compiled -0xdfcd7b380a30e30>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil] 1 [regexp-opt org-agenda-skip-if-todo org-agenda-skip-if org-agenda-skip-entry-if org-agenda-skip-eval org-agenda-skip "#<compiled 0x3916498626c546c>" org-element-cache-map org-scan-tags org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively] 1 [org-agenda-finalize-entries org-tags-view "#<compiled -0x86ff28a208ba85a>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 3 [org-activate-links--text-properties org-agenda-finalize "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_131>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil] 1 [org-agenda-finalize "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_131>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil nil] 5 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_131>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil nil nil nil nil] 1 [org-element--parse-to org-element-at-point org-get-tags org-agenda-finalize "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_131>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil nil] 2 [org-element--parse-to org-element-at-point org-before-first-heading-p org-get-tags org-agenda-finalize "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_131>" funcall let org-agenda-run-series org-agenda-redo funcall-interactively command-execute nil nil nil nil] 1 [if eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil nil nil nil nil] 178 [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] 28 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_9>" apply timer-event-handler completing-read-default read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil] 6 [complete-with-action "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_54>" completion-basic-try-completion "#<compiled -0xfd1f0036e0bbf68>" completion--some completion--nth-completion completion-try-completion completion--do-completion completion--in-region-1 "#<compiled -0xcc9b5741eec5030>" apply "#<compiled -0x1b9a2ffe236b9a2>" completion--in-region completion-in-region minibuffer-complete funcall-interactively] 5 [complete-with-action "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_54>" completion-pcm--all-completions completion-pcm--find-all-completions completion-pcm-try-completion "#<compiled -0x2bc57e00982259b>" completion--some completion--nth-completion completion-try-completion completion--do-completion completion--in-region-1 "#<compiled -0xcc9b5741eec5030>" apply "#<compiled -0x1b9a2ffe236b9a2>" completion--in-region completion-in-region] 1 [complete-with-action "#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_54>" completion-emacs22-try-completion "#<compiled -0x2bc57e00982259b>" completion--some completion--nth-completion completion-try-completion completion--do-completion completion--in-region-1 "#<compiled -0xcc9b5741eec5030>" apply "#<compiled -0x1b9a2ffe236b9a2>" completion--in-region completion-in-region minibuffer-complete funcall-interactively] 1 [completion--do-completion completion--in-region-1 "#<compiled -0xcc9b5741eec5030>" apply "#<compiled -0x1b9a2ffe236b9a2>" completion--in-region completion-in-region minibuffer-complete funcall-interactively command-execute completing-read-default read-extended-command-1 read-extended-command byte-code command-execute nil] 2 [minibuffer-message completion--message completion--do-completion completion--in-region-1 "#<compiled -0xcc9b5741eec5030>" apply "#<compiled -0x1b9a2ffe236b9a2>" completion--in-region completion-in-region minibuffer-complete funcall-interactively command-execute completing-read-default read-extended-command-1 read-extended-command byte-code] 4 [Automatic\ GC] 181)) (26026 31575 485338 0) nil]

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


[profiler-profile "28.1" cpu #s(hash-table size 487 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([funcall-interactively command-execute execute-extended-command funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil] 1 [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 43 [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 0xc3f764fec61f68e>" funcall let eval let* progn let* org-agenda-run-series eval if let*] 2 [if "#<lambda 0x1130843900>" mapcar apply setq let org-agenda-files mapcar append easy-menu-change org-agenda-mode if if let org-agenda-prepare "#<lambda 0xc3f764fec61f68e>"] 1 [if "#<lambda 0x1130843900>" mapcar apply setq let org-agenda-files org-agenda-prepare-buffers if if let org-agenda-prepare "#<lambda 0xc3f764fec61f68e>" 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 0xc3f764fec61f68e>"] 54 [symbolp cond org-element-type let* and let* org-element-end or let let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case] 1 [let* if let* org-element-end <= and while let cond let* save-restriction save-excursion save-current-buffer catch org-element--parse-to condition-case] 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] 2 [setq save-restriction save-excursion save-current-buffer catch let while let let org-agenda-prepare-buffers if if let org-agenda-prepare "#<lambda 0xc3f764fec61f68e>" funcall] 1 [if "#<lambda 0x1130843900>" mapcar apply setq let org-agenda-files let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22de183ca280>" funcall] 1 [format list let* org-agenda-get-scheduled cons setq let cond let while let let* progn let save-restriction save-excursion] 275 [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 org-element-at-point org-element-lineage-map] 1 [format list let* org-agenda-get-blocks cons setq let cond let while let let* progn let save-restriction save-excursion] 308 [format list let* org-agenda-get-deadlines setq let cond let while let let* progn let save-restriction save-excursion save-current-buffer] 46 [if org-check-agenda-file catch while while let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22de183ca280>" funcall let eval] 17 [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 if or org-back-to-heading org-agenda-skip-if org-agenda-skip-entry-if] 1 [format list let* org-agenda-get-sexps cons setq let cond let while let let* progn let save-restriction save-excursion] 34 [if let* if let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited if org-in-commented-heading-p and] 1 [let let org-element--property setq let while let while catch let org-element-property-inherited if org-in-commented-heading-p and or if] 1 [not 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] 1 [function org-element-lineage-map if or org-back-to-heading org-agenda-skip-if org-agenda-skip-entry-if eval if progn unwind-protect let save-excursion and let org-agenda-skip-eval] 1 [let let org-element--property org-element--property substring let* catch progn if "#<lambda -0x1a59285f7577ff3e>" funcall cons setq if progn if] 1 [format list let* org-agenda-get-timestamps cons setq let cond let while let let* progn let save-restriction save-excursion] 12 [progn progn setq progn cond let* while if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer] 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] 8 [progn progn setq progn if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [org-element-type let* and let* let* save-restriction save-excursion save-current-buffer catch org-element--parse-to setq progn if progn org-element-begin or] 1 [progn while let org-element--deferred-resolve let* catch while let progn if let org-element--property setq let while let] 1 [org-element-begin or max setq if if if progn unwind-protect let progn if progn if if if] 1 [let cond let* and let* org-element-begin let* while if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion] 1 [if let* if let* and if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer catch org-element--parse-to] 1 [1- save-excursion let* catch progn if "#<lambda 0xc53f1c01b9948e5>" funcall cons setq if progn if progn if progn] 1 [or org-em and let* progn let "#<lambda 0x1d8ab7ba95e4db69>" sort mapcar setq progn let org-agenda-finalize-entries insert progn if] 1 [if org-in-commented-heading-p and or if progn unwind-protect let org-agenda-skip catch progn if "#<lambda -0x1a59285c9877ff3e>" funcall cons setq] 1 [and let* let let org-element--property org-element--property memq and if "#<lambda -0xdbb9e84218fe3f8>" funcall cons setq if progn if] 1 [let catch save-excursion org-at-date-range-p or if progn unwind-protect let catch while let* org-agenda-get-timestamps cons setq let] 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* let let org-element--property and if "#<lambda -0x1a59285c9877ff3e>" funcall cons setq if progn if progn if progn] 1 [and or if let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22de183ca280>" funcall let eval let* progn] 1 [let* catch org-agenda-list funcall-interactively call-interactively let cond "#<lambda 0xa22de183ca280>" funcall let eval let* progn let while let*] 1 [if "#<lambda 0x1130843900>" mapcar apply setq let org-agenda-files setq progn catch let* org-tags-view let cond "#<lambda 0xa22de183ca280>" funcall] 1 [if org-check-agenda-file catch while catch let* org-tags-view let cond "#<lambda 0xa22de183ca280>" funcall let eval let* progn let] 253 [progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if if while if] 1 [memq if or setq if progn setq progn if progn if if if while if let*] 3 [or org-em cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0xbb43ab7fb10889f>" funcall cons setq] 1 [catch or org--property-get-separator mapconcat setq progn if let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if] 1 [setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" 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--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all] 3 [if let* org-element-begin goto-char "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if] 1 [let* if let* let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq] 2 [let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab94ace2bf4c>" funcall setq progn if while catch] 5 [and progn or progn apply org-element--deferred-resolve-once setq progn while let org-element--deferred-resolve let* catch while let progn] 1 [setq let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn] 4 [or let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab954f31e74c>" funcall setq progn] 7 [setq progn if let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if] 1 [if let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab954f31e74c>" funcall setq progn if while] 6 [format list let* org-scan-tags setq save-restriction save-excursion save-current-buffer if catch while catch let* org-tags-view let cond] 29 [let* let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let] 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] 3 [cond let* and let* org-element-begin = or if if if while if let* save-restriction save-excursion let] 1 [macroexp--expand-all macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if] 1 [or org--property-get-separator mapconcat setq progn if let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn] 1 [org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if] 1 [prog1 car-safe if if setq if if while if let* save-restriction save-excursion let progn if progn] 1 [org-add-prop-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if] 1 [cond org-element-type memq if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall] 1 [concat intern org-element--property let* org--property-local-values let* "#<lambda 0xa5a6592332976d7>" funcall setq progn if while catch let org-element-lineage-map let] 4 [org-element-type let* and let* org-element-begin < and or if if while if let* save-restriction save-excursion let] 1 [cond org-element-type let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 1 [org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall] 1 [plist-get or let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab82b988cd4c>" funcall setq] 1 [let* org--property-local-values let* "#<lambda 0xb1aab82b988cd4c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 5 [let progn if progn if progn if if if while if let* save-restriction save-excursion let progn] 2 [let* if let* let and if let org-element--property setq let while let while catch let org-element-property-inherited] 1 [if and and if catch "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if] 1 [symbolp cond org-element-type memq if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0xb1aab92ec58df4c>" funcall setq] 1 [if let* if let* move-marker if let let* progn let* "#<lambda 0x160bf2a8ccea7479>" funcall setq progn if while] 3 [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] 4 [while let progn if let org-element--property let* org--property-local-values let* "#<lambda 0x18255cef3a931379>" funcall setq progn if while catch] 1 [if and and if catch "#<lambda 0x1a4c3c3394ef7760>" funcall cons setq if progn if progn if progn if] 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 [with-no-warnings if progn if or let cond let* if let* let let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>"] 1 [and let* org-element-begin eq or and if progn if if if while if let* save-restriction save-excursion] 1 [catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if] 1 [or set-buffer save-current-buffer if progn if progn if progn if if if while if let* save-restriction] 1 [function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn] 1 [setq if while catch progn setq progn if progn if if if while if let* save-restriction] 1 [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 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 macroexpand-all cconv-make-interpreted-closure function] 2 [cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn] 1 [let progn if let org-element--property let* org--property-local-values let* "#<lambda 0x199dff2b42858dfc>" funcall setq progn if while catch let] 1 [let* and let* org-element-begin eq or and if progn if if if while if let* save-restriction] 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] 6 [let* progn let* "#<lambda 0xb1aab9e96dee94c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn] 2 [let let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if] 1 [if let* if let* org-element-begin move-marker if let let* progn let* "#<lambda 0x715ebe2331d30d4>" funcall setq 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] 2 [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 let* and let* org-element-contents-end eq if catch progn setq progn if progn if if if] 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 macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms] 3 [org-element-begin = or if if if while if let* save-restriction save-excursion let progn if progn let*] 1 [or let cond let* if let* let let org-element--property setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if] 1 [org-element-type let* and let* org-element-begin < and if progn if if if while if let* save-restriction] 1 [cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn] 1 [if progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if] 1 [save-current-buffer eq and save-current-buffer if progn if if if while if let* save-restriction save-excursion let progn] 2 [if setq catch while catch let* org-tags-view let cond "#<lambda 0xa22de183ca280>" funcall let eval let* progn let] 3 [let* org-element-begin = or if if if while if let* save-restriction save-excursion let progn if progn] 2 [progn if progn if if if while if let* save-restriction save-excursion let progn if progn let*] 2 [let* and and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if] 1 [let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x153685ace64a73ec>" funcall setq progn if] 4 [if let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn] 2 [let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab954f31e74c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance] 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 [save-current-buffer not and if progn if progn if if if while if let* save-restriction save-excursion let] 1 [let* if let* org-element-begin = or if if if while if let* save-restriction save-excursion let progn] 1 [if let org-element--property let* org--property-local-values let* "#<lambda -0xa93fe0c80999f21>" funcall setq progn if while catch let org-element-lineage-map let] 1 [progn if let org-element--property let* org--property-local-values let* "#<lambda -0xa93fe0c80999f21>" funcall setq progn if while catch let org-element-lineage-map] 2 [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] 2 [if progn if if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 2 [setq while catch progn setq progn if progn if if if while if let* save-restriction save-excursion] 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] 4 [if org-element-at-point org-element-lineage setq org--property-local-values let* "#<lambda 0xa5a6592332976d7>" funcall setq progn if while catch let org-element-lineage-map let] 2 [eq save-current-buffer not and if progn if progn if if if while if let* save-restriction save-excursion] 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] 1 [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 -0xbb43ab7fb10889f>" funcall cons] 1 [intern org-element--property let* org--property-local-values let* "#<lambda 0xa5a6592332976d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance] 6 [mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if] 1 [cdr car if let cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and] 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 [let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if] 1 [plist-get or let cond let* if let* let let org-element--property setq let while let while catch] 2 [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 [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 [let* "#<lambda 0xb1aab82b988cd4c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1bc0719094ef7760>" funcall] 1 [car eq if let cond let* and let* let and if let org-element--property let* org--property-local-values let*] 2 [org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if if while] 1 [let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>"] 1 [if progn if or let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0x160bf2a8ccea7479>"] 1 [nconc nreverse delete-dups nreverse if let if org-get-tags setq progn "#<lambda 0x1a4c3c3394ef7760>" funcall cons setq if progn] 1 [macroexp--all-clauses 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] 1 [car eq if let cond let* and and let* let let org-element--property org-element-parent setq while catch] 1 [eq 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] 1 [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 [not and or if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [cons setq if progn if progn if progn if if if while if let* save-restriction save-excursion] 1 [memq if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq] 1 [org-element-lineage setq org--property-local-values let* "#<lambda 0x1605014569b894ac>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 3 [memq if or if progn if progn if if if while if let* save-restriction save-excursion let] 2 [progn let* catch while let progn if let org-element--property let* org--property-local-values let* "#<lambda 0x199dff2b42858dfc>" funcall setq progn] 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*] 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 -0xbb43ab7fb10889f>"] 1 [and if let org-element--property let* org--property-local-values let* "#<lambda 0x113fee798ccbd946>" funcall setq progn if while catch let org-element-lineage-map] 1 [setq while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons] 1 [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 -0xbb43ab7fb10889f>" funcall cons] 1 [with-no-warnings if progn if or let cond let* if let* let let org-element--property setq let while] 2 [if let* let let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if] 1 [if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0x715ebe2331d30d4>" funcall setq progn if while catch] 1 [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 macroexp--expand-all] 1 [eq if let cond let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x715ebe2331d30d4>"] 1 ["#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if if while if let*] 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 [progn 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--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] 1 [eq cond let* and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar] 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 [eq cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab954f31e74c>" funcall setq progn if] 3 [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] 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] 2 [while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq] 1 [cond org-element-type let* and let* org-element-contents-end eq if catch progn setq progn if progn if if] 1 [cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 2 [let* "#<lambda 0xa5a6592332976d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall] 1 [not cond org-element-type let* and and let* let let org-element--property org-element-parent setq while catch progn setq] 1 [with-no-warnings if progn if or let cond let* if let* let let org-element--property let* org--property-local-values let*] 1 [macroexp--expand-all macroexp--all-forms macroexp--all-clauses 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 -0xbb43ab7fb10889f>" funcall] 1 [if let* let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if] 1 [and 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] 1 [org-element--property let* org--property-local-values let* "#<lambda 0xb1aab82b988cd4c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 2 [org-entry-get-with-inheritance setq progn "#<lambda 0x13f7cb82c10ea586>" funcall cons setq if progn if progn if progn if if if] 1 [let* if let* let let org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons] 1 [if or if progn unwind-protect let progn if progn if progn if if if while if] 3 [let* and let* org-element-contents-end eq if while catch progn setq progn if progn if if if] 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 [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 [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 "#<lambda -0xbb43ab7fb10889f>" funcall] 1 [while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall] 1 [eq save-current-buffer and if progn if progn if if if while if let* save-restriction save-excursion let] 2 [setq if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" 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 -0xbb43ab7fb10889f>" funcall cons setq if progn if] 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] 1 [setq progn if progn if progn if if if while if let* save-restriction save-excursion let progn] 1 [macroexp--all-forms macroexp--all-clauses 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 -0xbb43ab7fb10889f>" funcall cons] 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 [if let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if] 2 [if let cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 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--all-clauses] 2 [nconc nreverse delete-dups nreverse if let if org-get-tags setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if progn] 1 [org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if if] 1 [org-element-type let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0x73689aec32d6890>" funcall setq progn if] 1 [not cond org-element-type let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0x731359dc32d6890>" funcall setq] 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 [if let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 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 -0xbb43ab7fb10889f>"] 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--all-clauses macroexp--expand-all macroexp--all-forms] 2 [let org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq 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--all-clauses macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--all-clauses] 2 [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 [let* let let org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq 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 [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--expand-all macroexp--all-forms] 1 [let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags] 2 [let* and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if] 1 ["#<lambda 0x1a4c3c3394ef7760>" funcall cons setq if progn if progn if progn if if if while if let*] 1 [or set-buffer save-current-buffer not and if progn if progn if if if while if let* save-restriction] 1 [setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if progn if progn if progn if if if while] 1 [if let* org-element-contents-end eq if while catch progn setq progn if progn if if if while] 1 [eq if let cond let* and let* org-element-begin < and if progn if if if while] 1 [cond org-element-type let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x735dab862ab8855>" funcall setq] 3 [< and or if if while if let* save-restriction save-excursion let progn if progn let* org-element-cache-map] 1 [or if progn unwind-protect let progn if progn if progn if if if while if let*] 1 [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 [symbolp cond org-element-type memq if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>"] 1 [let* let and if let org-element--property let* org--property-local-values let* "#<lambda -0x149976357cf9d40c>" funcall setq progn if while catch] 1 [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] 1 [org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn] 1 [car eq if let cond let* and let* org-element-contents-end eq if while catch progn setq progn] 1 [if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if if] 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 and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar] 1 [org-element-type memq if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons] 1 [org-element-type memq if not and while let org-element-lineage setq if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons] 1 [setq org--property-local-values let* "#<lambda 0x715ebe2331d30d4>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq 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 macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexp--all-forms macroexp--expand-all macroexpand-all] 1 [let* and let* if progn if if if while if let* save-restriction save-excursion let progn if] 2 [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 let org-entry-get-with-inheritance] 2 [eq cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 1 [let cond let* and let* let and if let org-element--property let* org--property-local-values let* "#<lambda -0x2cdca623cd3c979>" funcall setq] 1 [if let cond let* and let* org-element-begin move-marker if let let* progn let* "#<lambda 0x731359dc32ca590>" funcall setq] 1 [or let cond let* if let* let let org-element--property setq let while let while catch let] 1 [funcall cons setq if progn if progn if progn if if if while if let* save-restriction] 1 [cond let* and let* org-element-begin goto-char "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn] 1 [progn if or let cond let* if let* let let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons] 1 [eq and save-current-buffer if progn if if if while if let* save-restriction save-excursion let progn if] 2 [let cond let* if let* let let org-element--property let* org--property-local-values let* "#<lambda 0xb1aab94ace2bf4c>" funcall setq progn if] 1 [let let org-element--property setq let while let while catch let org-element-property-inherited mapcar setq if let if] 1 [cond org-element-type memq if not and while let org-element-lineage setq org--property-local-values let* "#<lambda 0xb1aab954f31e74c>" funcall setq progn] 1 [org--property-local-values let* "#<lambda 0xa5a6592332976d7>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>"] 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] 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 [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 -0xbb43ab7fb10889f>" funcall cons] 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 [and and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let] 1 [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* save-restriction] 1 [org-element--property org-element-parent setq while catch progn setq progn if progn if if if while if let*] 1 [if or if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if] 1 [while let while catch let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda 0x1bc0719094ef7760>" funcall] 1 [let let org-element--property let* org--property-local-values let* "#<lambda 0x735dab862ab8855>" funcall setq progn if while catch let org-element-lineage-map let] 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 [move-marker if let let* progn let* "#<lambda 0x735dab862ab8855>" funcall setq progn if while catch let org-element-lineage-map let] 1 [and let* let let org-element--property org-element-parent setq if catch let org-element-property-inherited mapcar setq if let if] 1 [function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1a4c3c3394ef7760>" funcall cons setq if progn if progn if progn] 1 [and let* let let org-element--property org-element-parent setq while catch let org-element-property-inherited mapcar setq if let if] 1 [org--property-local-values let* "#<lambda 0xb1aa86c524be34c>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1a4c3c3394ef7760>"] 1 [setq progn progn if "#<lambda 0x1a4c3c3394ef7760>" funcall cons setq if progn if progn if progn if if] 1 [cconv-analyze-form cconv-fv cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if] 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 [let* and let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 1 [cond let* and let* let and if let org-element--property setq let while let while catch let] 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 macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn] 1 [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] 1 [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] 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-function cconv-analyze-form] 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 [if org-element-at-point org-element-lineage org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if] 1 [cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if] 1 [if let* let let org-element--property let* org--property-local-values let* "#<lambda -0x6ca76513cd37875>" funcall setq progn if while catch let] 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] 1 [org-element--property setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if progn if progn if progn if if if] 1 [org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn 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-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 [org-element-type let* and let* org-element-begin = or if if if while if let* save-restriction save-excursion let] 1 [let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn if progn if progn if] 1 [if "#<lambda 0x1130843900>" mapcar apply setq let org-agenda-files setq catch let* org-search-view let cond "#<lambda 0xa22de183ca280>" funcall let] 1 [car if let cond let* and let* move-marker if let let* progn let* "#<lambda 0xb1aab954f31e74c>" funcall setq] 1 [org-element-lineage setq if org-get-tags setq progn "#<lambda 0x6f0b2fa760ed098>" funcall cons setq if progn if progn if progn] 1 [mapcar setq if let if org-get-tags setq progn "#<lambda 0x6f0b2fa760ed098>" funcall cons setq if progn if progn] 1 [let* and let* org-element-begin < and or if if while if let* save-restriction save-excursion let progn] 1 [mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda 0x6f0b2fa760ed098>" funcall cons setq if progn if progn if] 1 [org-scan-tags setq save-restriction save-excursion save-current-buffer if catch while catch let* org-tags-view let cond "#<lambda 0xa22de183ca280>" funcall let] 1 [eq if let cond let* and let* org-element-contents-begin progn if or setq if progn setq progn] 1 [not cond org-element-type let* and let* org-element-contents-end eq if while catch progn setq progn if progn] 1 [setq if progn if let* progn unwind-protect let let* org-agenda-format-item setq progn let* cond progn 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-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] 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] 1 [car if let cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if] 1 [org-element-lineage setq if org-get-tags setq progn "#<lambda -0x1ab276b6de32acbb>" funcall cons setq if progn if progn if progn] 1 [< and or and if setq if if while if let* save-restriction save-excursion let progn if] 1 [if progn setq 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 macroexpand-all cconv-make-interpreted-closure function mapcar delq setq] 1 [org-add-props let* progn unwind-protect let let* org-agenda-format-item setq progn let* cond progn if catch "#<lambda 0x13a7f26d2928a201>" funcall] 1 [catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1bc0719094ef7760>" funcall cons setq if progn if progn if] 1 [while 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] 1 [if append setq if if let while let while catch let org-element-property-inherited mapcar setq if let] 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 [if and and if catch "#<lambda 0x2c308901c664859>" funcall cons setq if progn if progn if progn if] 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 if] 1 [if progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda -0x4f9dc51fec0f573>" funcall cons setq if] 1 [let* if let* let let org-element--property setq progn "#<lambda -0xbb43ab7fb10889f>" 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 macroexpand-all cconv-make-interpreted-closure function org-element-lineage-map let org-entry-get-with-inheritance setq progn "#<lambda 0x1a4c3c3394ef7760>" funcall] 1 [let* progn unwind-protect let let* org-agenda-format-item setq progn let* cond progn if catch "#<lambda 0x152fda19f871c7a7>" funcall cons] 1 [function mapconcat concat setq let progn if progn if org-agenda-fix-displayed-tags setq progn unwind-protect let let* org-agenda-format-item] 1 [let cond let* if let org-agenda-skip-if-todo and or and let* org-agenda-skip-if org-agenda-skip-entry-if eval if progn unwind-protect] 1 [let* progn unwind-protect let let* org-agenda-format-item setq progn let* cond progn if catch "#<lambda -0x8c4fdf257c0e062>" funcall cons] 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] 2 [not if if progn unwind-protect let org-get-priority setq progn let* cond progn if catch "#<lambda 0x9f9eeb44f389450>" funcall] 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] 1 [org-element-type let* and let* org-element-contents-begin progn if or setq if progn setq progn if progn if] 1 [while let org-element-lineage setq org--property-local-values let* "#<lambda 0x199dff2b42858dfc>" funcall setq progn if while catch let org-element-lineage-map let] 1 [cdr car if let cond let* and let* org-element-begin goto-char cond progn if catch "#<lambda 0x117371891c3f2cdf>" funcall] 1 [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] 1 [or org-em cond progn unwind-protect let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0x5f0e51f83628792>" funcall cons setq] 1 [let let org-agenda-entry-get-agenda-timestamp setq progn progn if "#<lambda -0x5f0e51f83628792>" funcall cons setq if progn if progn if] 2 [cond org-element-type let* if let* let let org-element--property setq progn "#<lambda -0x5f0e51f83628792>" funcall cons setq if progn] 1 [cond let* and let* and let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 1 [and let* let and if let org-element--property let* org--property-local-values let* "#<lambda 0x715ebe2331d30d4>" funcall setq progn if while] 1 [not if if progn unwind-protect let org-get-priority setq progn let* cond progn if catch "#<lambda -0x13a7230544cb7fb1>" funcall] 1 [if progn if or let cond let* if let* let let org-element--property setq let while let] 1 [let* if let* and let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 1 [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 -0xbb43ab7fb10889f>" funcall] 1 [and let* let let org-element--property mapcar org--get-local-tags let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq] 1 [let org-element-property-inherited mapcar setq if let if org-get-tags setq progn "#<lambda -0xbb43ab7fb10889f>" funcall cons setq if progn] 1 [let let* progn let* "#<lambda 0x731359dc32d6890>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance setq] 1 [not if if progn unwind-protect let org-get-priority setq progn let* cond progn if catch "#<lambda -0x1a05f83ff7766f0a>" funcall] 1 [org-element-at-point org-element-lineage setq org--property-local-values let* "#<lambda 0x431359dc32c3693>" funcall setq progn if while catch let org-element-lineage-map let org-entry-get-with-inheritance] 1 [if concat setq progn if progn if let if let org-agenda-highlight-todo mapcar setq progn let org-agenda-finalize-entries] 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 let save-excursion org-agenda-fontify-priorities progn if save-excursion let if org-agenda-finalize "#<lambda 0xab02540>" funcall let eval let* progn] 4 [progn if or let cond let* if let* let let org-element--property setq let while let while] 1 [if let* if let* org-element-begin let* while if let* save-current-buffer org-element--cache-find and let* save-restriction save-excursion save-current-buffer] 1 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_9>" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil nil nil nil nil] 101 [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 [command-execute 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 ["#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_9>" apply timer-event-handler completing-read-default read-extended-command-1 read-extended-command byte-code command-execute nil nil nil nil nil nil nil nil] 5 [funcall-interactively command-execute nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [Automatic\ GC] 1333)) (26026 31779 539448 0) nil]

next prev parent reply	other threads:[~2024-01-19 13:51 UTC|newest]

Thread overview: 14+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2024-01-19 10:35 Slowness of org-agenda-redo in org 9.7 vs 9.6.7 dark.key8799
2024-01-19 12:57 ` Ihor Radchenko
2024-01-19 13:49   ` dark.key8799 [this message]
2024-01-19 14:00     ` Ihor Radchenko
2024-01-19 14:50       ` dark.key8799
2024-01-19 15:15         ` Ihor Radchenko
2024-01-22  6:09           ` dark.key8799
2024-01-22 12:05             ` Ihor Radchenko
2024-01-22 15:36               ` dark.key8799
2024-01-22 19:57                 ` Ihor Radchenko
2024-01-23  2:35                   ` dark.key8799
2024-01-24 15:02                     ` Ihor Radchenko
2024-01-24 15:59                       ` dark.key8799
2024-01-24 16:12                         ` Ihor Radchenko

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=b11b3293-7364-4983-9d17-08316da84419@app.fastmail.com \
    --to=dark.key8799@151e.ai \
    --cc=emacs-orgmode@gnu.org \
    --cc=yantar92@posteo.net \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Be sure your reply has a Subject: header at the top and a blank line before the message body.

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).