From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id MDHhDU1d92JuWQAAbAwnHQ (envelope-from ) for ; Sat, 13 Aug 2022 10:14:05 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id COkBDU1d92L5oQAAG6o9tA (envelope-from ) for ; Sat, 13 Aug 2022 10:14:05 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id F1F0F1457D for ; Sat, 13 Aug 2022 10:14:03 +0200 (CEST) Received: from localhost ([::1]:60804 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oMmHS-00077U-Qb for larch@yhetil.org; Sat, 13 Aug 2022 04:14:02 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:52422) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oMmGK-00077L-G7 for emacs-orgmode@gnu.org; Sat, 13 Aug 2022 04:12:52 -0400 Received: from [39.171.214.252] (port=14683 helo=Mac-mini.local) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oMmGG-0008EV-1u for emacs-orgmode@gnu.org; Sat, 13 Aug 2022 04:12:52 -0400 Received: by Mac-mini.local (Postfix, from userid 501) id 8ED695E9659C; Sat, 13 Aug 2022 16:12:39 +0800 (CST) References: <62f5a905.c80a0220.1f07b.ffaeSMTPIN_ADDED_BROKEN@mx.google.com> <87o7wq8c1m.fsf@localhost> <62f645de.050a0220.ff872.76ffSMTPIN_ADDED_BROKEN@mx.google.com> <87h72h8v1j.fsf@localhost> <62f66552.050a0220.ed346.ac05SMTPIN_ADDED_BROKEN@mx.google.com> <87lers7i2x.fsf@localhost> User-agent: mu4e 1.8.6; emacs 28.1 From: "Christopher M. Miles" To: Ihor Radchenko Cc: "Christopher M. Miles" , Org Mode Subject: Re: [PERFORMANCE] Why some org code is so deep invoked? Date: Sat, 13 Aug 2022 16:10:41 +0800 In-reply-to: <87lers7i2x.fsf@localhost> Message-ID: MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 39.171.214.252 (deferred) Received-SPF: softfail client-ip=39.171.214.252; envelope-from=numbchild@gmail.com; helo=Mac-mini.local X-Spam_score_int: 58 X-Spam_score: 5.8 X-Spam_bar: +++++ X-Spam_report: (5.8 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FROM=0.001, MSGID_MULTIPLE_AT=1, NML_ADSP_CUSTOM_MED=0.9, RCVD_IN_PBL=3.335, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_SOFTFAIL=0.665, SPOOFED_FREEMAIL_NO_RDNS=0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: reject X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1660378444; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post; bh=RHxC1FXLmcQFFHI57ZDE7mMLlfAVlhV1ceapxuO8fn0=; b=hzYhMipOFTFo3YmGwgY/LZSbJ1uPxtp9dG/2DAgfxfH+V3oYP5h8643PPHNydjAAJb3wRN 7ThH6Hz6kpSlTna+GdyGDAz1OYtMVUo+zMX0bJSeRXLafhtohMcj7260kKcGw7cs8xNJ9z BT03kKdvjpy55oZRzrbeU2+ypqMglRUDePOnroLPXH+VisSAduZu4DNg/C6MrHYeTXeABB JLxG5Pz7fZua3Upi0Ql29hRdQ1SLgTb4COZZYHDimlISpztiQFA4PKylJyBZZG6kOovb7h CRnQPycY8d3Ftinbn7u1x63cBnnXnq4QdONzatSQ50tWnDTcJSzmq0ETdz0aUw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1660378444; a=rsa-sha256; cv=none; b=Haxl+fAWh6QltmlKaARxqE8DvxS7vD+3rs4qeL0Tsw6kUFUpoE9uEHT9yiU3+vLm7K5GTl XS4JnnLNcYyk9IARPC6/5uDZcsAm9CASDjXCeB2jvXxUVx1cgYNwSE4gfF3fXgCp4MtdaF mFAx5+lgWfLBvWYpIu7WfxuKikYG+ecIuXYqFJEhe/SPwOgmITJSj4uoVacA5I9JnrSF7W gw/B4ImSjNBDbGi0OV2me8vNr9AuUBpNmakoYtwLheSF8jyT/un/pT/rlclY1KLhTfuhtR RA8QwxWGYet7gIxuDr5YH2Ocauh06ZhsErrorUUNEgvZ92nxyVLGkh9DbsWLWQ== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 3.54 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: F1F0F1457D X-Spam-Score: 3.54 X-Migadu-Scanner: scn0.migadu.com X-TUID: 8yUo9L6N/Q/b --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain After applying this patch, seems deep level has improved. I attched the profiler report in attachments. --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=cpu-profiler-report Content-Transfer-Encoding: quoted-printable [profiler-profile "28.1" cpu #s(hash-table size 325 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] 119 [split-window "#" = apply treemacs--split-window-advice apply split-window-right split-window-s= ensibly window--try-to-split-window display-buffer-pop-up-window display-bu= ffer--maybe-pop-up-window display-buffer--maybe-pop-up-frame-or-window disp= lay-buffer pop-to-buffer switch-to-buffer-other-window apply let] 1 [progn = unwind-protect let let* catch org-agenda-get-restriction-and-command setq i= f let* catch org-agenda funcall-interactively call-interactively command-ex= ecute nil nil] 1 [not if setq while progn unwind-protect let let* catch org= -agenda-get-restriction-and-command setq if let* catch org-agenda funcall-i= nteractively] 1 [progn progn while progn while progn unwind-protect let let= * catch org-agenda-get-restriction-and-command setq if let* catch org-agend= a] 1 [window-resize zoom--resize-one-dimension zoom--resize zoom--update "#= " apply zoom--handler apply "#" redisplay_internal\ \(C\ function\) read-char-exclusive se= tq progn progn while progn] 1 [read-char-exclusive setq progn progn while p= rogn while progn unwind-protect let let* catch org-agenda-get-restriction-a= nd-command setq if let*] 15 [setq progn progn while progn while progn unwin= d-protect let let* catch org-agenda-get-restriction-and-command setq if let= * catch] 8 [completion-basic-try-completion "#= " completion--some completion--nth-completion completion-try-completion exe= cute-extended-command--shorter "#" apply timer= -event-handler read-char-exclusive setq progn progn while progn while] 23 [= execute-extended-command--shorter "#" apply ti= mer-event-handler read-char-exclusive setq progn progn while progn while pr= ogn unwind-protect let let* catch] 2 [completion-pcm--all-completions compl= etion-pcm--find-all-completions completion-pcm-try-completion "#" completion--some completion--nth-completion completion-= try-completion execute-extended-command--shorter "#" apply timer-event-handler read-char-exclusive setq progn progn while= ] 4 [org-fold-core-initialize org-agenda-mode if if let org-agenda-prepare = catch org-agenda-list funcall-interactively call-interactively cond let* ca= tch org-agenda funcall-interactively call-interactively] 1 [if "#" mapcar apply setq let org-agenda-files mapcar append eas= y-menu-change org-agenda-mode if if let org-agenda-prepare catch] 9 [ess-r-= package--find-package-path ess-r-package-info ess-r-package-auto-activate r= un-hooks run-mode-hooks org-agenda-mode if if let org-agenda-prepare catch = org-agenda-list funcall-interactively call-interactively cond let*] 1 [flyc= heck-may-check-automatically flycheck-buffer-automatically flycheck-mode fl= ycheck-mode-on-safe global-flycheck-mode-enable-in-buffers run-hooks run-mo= de-hooks org-agenda-mode if if let org-agenda-prepare catch org-agenda-list= funcall-interactively call-interactively] 1 [if "#" mapcar apply setq let org-agenda-files org-agenda-prepare-buffers if if= let org-agenda-prepare catch org-agenda-list funcall-interactively call-in= teractively] 4 [let while let let org-tag-alist-to-groups setq let progn if= org-set-regexps-and-options save-restriction save-excursion save-current-b= uffer catch let while] 7 [cond let* if let* let while let let org-tag-alist= -to-groups setq let progn if org-set-regexps-and-options save-restriction s= ave-excursion] 6 [if org-check-agenda-file if set-buffer save-current-buffe= r catch let while let let org-agenda-prepare-buffers if if let org-agenda-p= repare catch] 13 [if "#" funcall cond let* if le= t* let while let let org-tag-alist-to-groups setq let progn if] 1 [and let*= save-excursion org-element-headline-parser setq progn if cond let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to] 12 [progn if "#" funcall cond let* if let* = let while let let cond org--tag-add-to-alist setq save-restriction] 1 [let*= if let* let while let let org-tag-alist-to-groups setq let progn if org-se= t-regexps-and-options save-restriction save-excursion save-current-buffer] = 2 ["#" funcall cond let* if let* let while let l= et cond org--tag-add-to-alist setq save-restriction save-excursion save-cur= rent-buffer] 1 [delete-dups let org-uniquify setcdr if let let while let pr= ogn if save-restriction save-excursion save-current-buffer catch let] 33 [w= hile let let org-tag-alist-to-groups setq let progn if org-set-regexps-and-= options save-restriction save-excursion save-current-buffer catch let while= let] 4 [let* if let* let while let let cond org--tag-add-to-alist setq sav= e-restriction save-excursion save-current-buffer catch let while] 1 [if let= * let while let let org-tag-alist-to-groups setq let progn if org-set-regex= ps-and-options save-restriction save-excursion save-current-buffer catch] 4= [while let let cond org--tag-add-to-alist setq save-restriction save-excur= sion save-current-buffer catch let while let let org-agenda-prepare-buffers= if] 2 [funcall cond let* if let* let while let let org-tag-alist-to-groups= setq let progn if org-set-regexps-and-options save-restriction] 4 [cond le= t cond setq let save-excursion if let* org-element--current-element setq pr= ogn unwind-protect let* if if while] 3 [let* let while let let cond org--ta= g-add-to-alist setq save-restriction save-excursion save-current-buffer cat= ch let while let let] 1 [funcall cond let* if let* let while let let cond o= rg--tag-add-to-alist setq save-restriction save-excursion save-current-buff= er catch] 5 [let org-uniquify setcdr if let let while let progn if save-res= triction save-excursion save-current-buffer catch let while] 4 [progn let* = save-excursion progn if org-element-timestamp-parser let while let progn if= save-excursion org-element--get-time-properties let* save-excursion org-el= ement-headline-parser] 5 [memq not and while let org-element-lineage let if= let org-before-first-heading-p if org-back-to-heading-or-point-min save-ex= cursion org-refresh-property progn if] 1 [if let* let while let let cond or= g--tag-add-to-alist setq save-restriction save-excursion save-current-buffe= r catch let while let] 12 [while let progn if save-excursion org-element--g= et-node-properties let* save-excursion org-element-headline-parser setq pro= gn if cond let* save-restriction save-excursion] 2 [if org-parse-time-strin= g let if let* save-excursion progn if org-element-timestamp-parser let whil= e let* save-excursion org-element-planning-parser cond setq] 1 [let and let= * save-excursion org-element-headline-parser cond setq let save-excursion i= f let* org-element--current-element setq progn unwind-protect let*] 2 [prog= n and let* save-excursion org-element-headline-parser setq progn if cond le= t* save-restriction save-excursion progn unwind-protect let catch] 7 [cond = let* if let* let while let let cond org--tag-add-to-alist setq save-restric= tion save-excursion save-current-buffer catch let] 7 [let cond org--tag-add= -to-alist setq save-restriction save-excursion save-current-buffer catch le= t while let let org-agenda-prepare-buffers if if let] 3 ["#" funcall cond let* if let* let while let let org-tag-alist-to-g= roups setq let progn if org-set-regexps-and-options] 2 [while save-restrict= ion save-excursion save-excursion let progn unwind-protect let* let* org-re= fresh-properties org-refresh-effort-properties if or save-restriction save-= excursion save-current-buffer] 4 [while let save-restriction save-excursion= progn unwind-protect let* let let if org-refresh-category-properties or sa= ve-restriction save-excursion save-current-buffer catch] 5 [append let cond= org--tag-add-to-alist setq save-restriction save-excursion save-current-bu= ffer catch let while let let org-agenda-prepare-buffers if if] 1 [if "#" funcall cond let* if let* let while let let cond o= rg--tag-add-to-alist setq save-restriction save-excursion] 4 [if if while l= et let* save-restriction save-excursion progn unwind-protect let catch org-= element--parse-to condition-case if setq let] 1 [not or if "#" funcall cond let* if let* let while let let cond org--tag-ad= d-to-alist setq] 11 [not cond org-get-limited-outline-regexp let* progn con= d setq let save-excursion if let* org-element--current-element setq progn u= nwind-protect let*] 12 [if let save-excursion let* save-excursion org-eleme= nt-headline-parser setq progn if cond let* save-restriction save-excursion = progn unwind-protect let] 16 [and while let save-restriction save-excursion= save-excursion let org--collect-keywords-1 let* org-collect-keywords let p= rogn if org-set-regexps-and-options save-restriction save-excursion] 3 [or = setq let if let* save-excursion progn if org-element-timestamp-parser let w= hile let progn if save-excursion org-element--get-time-properties] 1 [while= save-restriction save-excursion save-excursion let progn unwind-protect le= t* let* org-refresh-properties or save-restriction save-excursion save-curr= ent-buffer catch let] 6 [org-back-to-heading if org-back-to-heading-or-poin= t-min let* progn cond let save-restriction save-excursion org-get-property-= block progn unwind-protect let let and save-excursion] 1 [let while let let= * save-restriction save-excursion progn unwind-protect let catch org-elemen= t--parse-to condition-case if setq let org-element-at-point] 1 [while let s= ave-restriction save-excursion save-excursion let if catch let* save-restri= ction save-excursion org-element-org-data-parser setq if cond let*] 13 [sav= e-restriction save-excursion progn unwind-protect let* let let if org-refre= sh-category-properties or save-restriction save-excursion save-current-buff= er catch let while] 1 [if let while let save-restriction save-excursion pro= gn unwind-protect let* let let if org-refresh-category-properties or save-r= estriction save-excursion] 1 [progn if let cond let while let let* save-res= triction save-excursion progn unwind-protect let catch org-element--parse-t= o condition-case] 2 [and let cond let if org-end-of-subtree if save-excursi= on put-text-property progn if let while let save-restriction save-excursion= ] 1 [let catch org-element--parse-to condition-case if setq let org-element= -at-point let org-before-first-heading-p if org-back-to-heading-or-point-mi= n org-end-of-subtree progn put-text-property let*] 1 [let while let let con= d org--tag-add-to-alist setq save-restriction save-excursion save-current-b= uffer catch let while let let org-agenda-prepare-buffers] 7 [save-restricti= on save-excursion save-excursion let progn unwind-protect let* let* org-ref= resh-properties org-refresh-effort-properties if or save-restriction save-e= xcursion save-current-buffer catch] 1 [while let progn if save-excursion or= g-element--get-time-properties let* save-excursion org-element-headline-par= ser setq progn if cond let* save-restriction save-excursion] 3 [memq not an= d while let org-element-lineage let if let org-before-first-heading-p if or= g-back-to-heading-or-point-min org-end-of-subtree progn put-text-property l= et*] 1 [if "#" mapcar apply setq let org-agenda-f= iles let* catch org-agenda-list funcall-interactively call-interactively co= nd let* catch org-agenda] 1 [abbreviate-file-name format list let* org-agen= da-get-progress cons setq let cond let while let let* progn let save-restri= ction] 14 [save-excursion org-element-planning-parser cond setq let save-ex= cursion if let* org-element--current-element setq progn unwind-protect let*= if if while] 1 [progn if let save-excursion if let* org-element--current-e= lement setq progn unwind-protect let* if if while let let*] 1 [or while sav= e-excursion let or org-back-to-heading save-excursion org-get-todo-state pr= ogn unwind-protect let let* catch while if let*] 1 [looking-at-p if org-ele= ment-timestamp-parser let while let progn if save-excursion org-element--ge= t-time-properties let* save-excursion org-element-headline-parser setq prog= n if] 3 [list let* save-excursion progn if org-element-timestamp-parser let= while let* save-excursion org-element-planning-parser cond setq let save-e= xcursion if] 1 [progn unwind-protect let let* org-agenda-format-item let* s= ave-excursion let* catch while if let* org-agenda-get-scheduled cons setq l= et] 1 [abbreviate-file-name format list let* org-agenda-get-blocks cons set= q let cond let while let let* progn let save-restriction] 19 [abbreviate-fi= le-name format list let* org-agenda-get-sexps cons setq let cond let while = let let* progn let save-restriction] 6 [and let* save-excursion org-element= -headline-parser cond setq let save-excursion if let* org-element--current-= element setq progn unwind-protect let* if] 3 [not cond org-get-limited-outl= ine-regexp let* progn save-excursion or org-element-section-parser cond set= q let save-excursion if let* org-element--current-element setq] 1 [looking-= at-p if org-element-timestamp-parser let while let* save-excursion org-elem= ent-planning-parser cond setq let save-excursion if let* org-element--curre= nt-element setq] 2 [abbreviate-file-name format list let* org-agenda-get-sc= heduled cons setq let cond let while let let* progn let save-restriction] 5= [not cond org-get-limited-outline-regexp let* progn cond let save-restrict= ion save-excursion org-get-property-block let if let org--property-local-va= lues let* cond] 1 [not cond org-get-limited-outline-regexp let* progn if co= nd let* save-restriction save-excursion progn unwind-protect let catch org-= element--parse-to condition-case] 11 [outline-next-heading let* progn progn= let* save-excursion org-element-section-parser cond setq let save-excursio= n if let* org-element--current-element setq progn] 6 [< or let if let org-b= efore-first-heading-p if org-back-to-heading-or-point-min let* progn cond l= et save-restriction save-excursion org-get-property-block let] 1 [replace-r= egexp-in-string replace-regexp-in-string org-trim let* save-excursion org-e= lement-headline-parser cond setq let save-excursion if let* org-element--cu= rrent-element setq progn unwind-protect] 2 [if let save-excursion let* save= -excursion org-element-headline-parser cond setq let save-excursion if let*= org-element--current-element setq progn unwind-protect] 83 [org-inlinetask= -end-p and if save-excursion let or org-back-to-heading save-excursion org-= get-todo-state progn unwind-protect let let* catch while if] 1 [org-inlinet= ask-end-p and if save-excursion let or org-back-to-heading if save-restrict= ion save-excursion save-excursion let if progn unwind-protect let] 1 [org-e= lement-property let let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to condition-case if setq let org-element-a= t-point let] 1 [if org-check-agenda-file catch while while let* catch org-a= genda-list funcall-interactively call-interactively cond let* catch org-age= nda funcall-interactively call-interactively] 4 [unwind-protect let catch o= rg-element--parse-to condition-case if setq let org-element-at-point let or= g-before-first-heading-p or if save-restriction save-excursion save-excursi= on] 1 [looking-at let and let* save-excursion org-element-headline-parser s= etq progn if cond let* save-restriction save-excursion progn unwind-protect= let] 1 [let and save-excursion org-get-todo-state progn unwind-protect let= let* catch while if let* org-agenda-get-scheduled cons setq let] 2 [and co= nd let* save-restriction save-excursion progn unwind-protect let catch org-= element--parse-to condition-case if setq let org-element-at-point let] 1 [l= et progn if save-excursion org-element--get-time-properties let* save-excur= sion org-element-headline-parser setq progn if cond let* save-restriction s= ave-excursion progn] 2 [rx--translate mapcar rx--translate-seq rx--translat= e-form rx--translate rx-to-string let save-excursion let* save-excursion or= g-element-headline-parser setq progn if cond let*] 1 [if let* save-excursio= n org-element-headline-parser cond setq let save-excursion if let* org-elem= ent--current-element setq progn unwind-protect let* if] 3 [looking-at-p if = org-element-timestamp-parser let while let progn if save-excursion org-elem= ent--get-time-properties let* save-excursion org-element-headline-parser co= nd setq let] 2 [or while save-excursion let or org-back-to-heading if org-b= ack-to-heading-or-point-min and if save-restriction save-excursion save-exc= ursion let org-entry-properties assoc-string] 2 [let* cond org-get-limited-= outline-regexp let* progn if cond let* save-restriction save-excursion prog= n unwind-protect let catch org-element--parse-to condition-case] 2 [progn l= et* save-excursion org-element-section-parser cond setq let save-excursion = if let* org-element--current-element setq progn unwind-protect let* if] 3 [= let* progn if cond let* save-restriction save-excursion progn unwind-protec= t let catch org-element--parse-to condition-case if setq let] 2 [let list a= nd let* save-excursion progn if org-element-timestamp-parser let while let = progn if save-excursion org-element--get-time-properties let*] 1 [org-trim = let* save-excursion org-element-headline-parser cond setq let save-excursio= n if let* org-element--current-element setq progn unwind-protect let* if] 1= [let* cond org-get-limited-outline-regexp let* progn progn let* save-excur= sion org-element-section-parser cond setq let save-excursion if let* org-el= ement--current-element] 1 [string-to-number list org-parse-time-string let = if let* save-excursion progn if org-element-timestamp-parser let while let = progn if save-excursion] 3 [let* progn cond setq let save-excursion if let*= org-element--current-element setq progn unwind-protect let* if if while] 1= [apply replace-regexp-in-string replace-regexp-in-string org-trim let* sav= e-excursion org-element-headline-parser setq progn if cond let* save-restri= ction save-excursion progn unwind-protect] 2 [looking-at-p if if save-excur= sion org-element--get-node-properties let* save-excursion org-element-headl= ine-parser setq progn if cond let* save-restriction save-excursion progn] 1= [org-trim setq progn unwind-protect let let* org-agenda-format-item let* s= ave-excursion let* catch while let* org-agenda-get-timestamps cons setq] 1 = [if let* save-excursion org-element-headline-parser setq progn if cond let*= save-restriction save-excursion progn unwind-protect let catch org-element= --parse-to] 1 [match-string-no-properties let* while let progn if save-excu= rsion org-element--get-node-properties let* save-excursion org-element-head= line-parser cond setq let save-excursion if] 1 [upcase concat let* while le= t progn if save-excursion org-element--get-node-properties let* save-excurs= ion org-element-headline-parser setq progn if cond] 1 [org-match-line let o= rg-inlinetask-end-p and if save-excursion let or org-back-to-heading progn = condition-case if if let org-up-heading-safe and] 1 [cond setq let save-exc= ursion if let* org-element--current-element setq progn unwind-protect let* = if if while let let*] 1 [and let* save-excursion progn if org-element-times= tamp-parser let while let progn if save-excursion org-element--get-time-pro= perties let* save-excursion org-element-headline-parser] 6 [org-match-line = let org-inlinetask-end-p and if while save-excursion let or org-back-to-hea= ding if save-restriction save-excursion save-excursion let if] 1 [let while= let progn if save-excursion org-element--get-time-properties let* save-exc= ursion org-element-headline-parser setq progn if cond let* save-restriction= ] 3 [save-excursion org-match-line let org-inlinetask-end-p and if save-exc= ursion let or org-back-to-heading save-excursion org-get-todo-state let* ca= tch while let*] 1 [replace-regexp-in-string org-trim let* save-excursion or= g-element-headline-parser setq progn if cond let* save-restriction save-exc= ursion progn unwind-protect let catch] 2 [rx--translate-regexp rx--translat= e-form rx--translate rx--translate-or rx--translate-form rx--translate rx-t= o-string if if let* org-at-timestamp-p not or if progn unwind-protect] 1 [s= tring-to-number cond list org-parse-time-string let if let* save-excursion = progn if org-element-timestamp-parser let while let* save-excursion org-ele= ment-planning-parser] 1 [looking-at-p let* progn cond setq let save-excursi= on if let* org-element--current-element setq progn unwind-protect let* if i= f] 1 [looking-at-p if cond let save-restriction save-excursion org-get-prop= erty-block let if let org--property-local-values let* cond save-restriction= save-excursion save-excursion] 1 [let* save-restriction save-excursion org= -element-org-data-parser setq if cond let* save-restriction save-excursion = progn unwind-protect let catch org-element--parse-to condition-case] 1 [let= * progn progn let* save-excursion org-element-section-parser cond setq let = save-excursion if let* org-element--current-element setq progn unwind-prote= ct] 1 [rx--translate-bounded-repetition rx--translate-** rx--translate-form= rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx= -to-string let save-excursion let* save-excursion org-element-headline-pars= er setq progn] 1 [match-string-no-properties let* save-excursion progn if o= rg-element-timestamp-parser let while let* save-excursion org-element-plann= ing-parser cond setq let save-excursion if] 1 [save-excursion org-match-lin= e let org-inlinetask-end-p and if save-excursion let or org-back-to-heading= if save-restriction save-excursion save-excursion let if] 1 [cond let org-= get-wdays cond let* catch while if let* org-agenda-get-scheduled cons setq = let cond let while] 1 [let while let* save-excursion org-element-planning-p= arser cond setq let save-excursion if let* org-element--current-element set= q progn unwind-protect let*] 1 [abbreviate-file-name format list let* org-a= genda-get-deadlines setq let cond let while let let* progn let save-restric= tion save-excursion] 1 [while let* org-agenda-get-progress cons setq let co= nd let while let let* progn let save-restriction save-excursion save-curren= t-buffer] 1 [setq let* progn unwind-protect let let* org-agenda-format-item= let* save-excursion let* catch while if let* org-agenda-get-scheduled cons= ] 1 [let* save-excursion progn if org-element-timestamp-parser let while le= t progn if save-excursion org-element--get-time-properties let* save-excurs= ion org-element-headline-parser setq] 1 [let* catch while if let* org-agend= a-get-scheduled cons setq let cond let while let let* progn let] 1 [and let= * if let progn if if let org-up-heading-safe and save-excursion if cond org= -in-archived-heading-p and save-excursion] 2 [org-element-section-parser co= nd setq let save-excursion if let* org-element--current-element setq progn = unwind-protect let* if if while let] 1 [save-excursion let* save-excursion = org-element-headline-parser cond setq let save-excursion if let* org-elemen= t--current-element setq progn unwind-protect let* if] 2 [outline-previous-h= eading let* progn if cond let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to condition-case if setq] 4 [progn i= f save-excursion org-element--get-time-properties let* save-excursion org-e= lement-headline-parser setq progn if cond let* save-restriction save-excurs= ion progn unwind-protect] 2 [rx--translate-form rx--translate rx-to-string = let save-excursion let* save-excursion org-element-headline-parser cond set= q let save-excursion if let* org-element--current-element setq] 1 [if while= let let* save-restriction save-excursion progn unwind-protect let catch or= g-element--parse-to condition-case if setq let org-element-at-point] 3 [whi= le let progn if save-excursion org-element--get-time-properties let* save-e= xcursion org-element-headline-parser cond setq let save-excursion if let* o= rg-element--current-element] 2 [mapcar rx--translate-seq rx--translate-form= rx--translate rx-to-string let save-excursion let* save-excursion org-elem= ent-headline-parser setq progn if cond let* save-restriction] 1 [not if if = progn unwind-protect let org-get-priority + if org-add-props let* save-excu= rsion let* catch while if] 1 [save-excursion org-match-line let org-inlinet= ask-end-p and if save-excursion let or org-back-to-heading save-excursion o= rg-get-todo-state progn unwind-protect let let*] 1 [progn let* save-excursi= on progn if org-element-timestamp-parser let while let* save-excursion org-= element-planning-parser cond setq let save-excursion if] 1 [nconc list let = let* save-excursion org-element-headline-parser cond setq let save-excursio= n if let* org-element--current-element setq progn unwind-protect] 2 [while = if let* org-agenda-get-scheduled cons setq let cond let while let let* prog= n let save-restriction save-excursion] 1 [and if while save-excursion let o= r org-back-to-heading progn condition-case if if let org-up-heading-safe an= d save-excursion if] 1 [or and if let cond let while let let* save-restrict= ion save-excursion progn unwind-protect let catch org-element--parse-to] 2 = [not and let* org-element--current-element setq progn unwind-protect let* i= f if while let let* save-restriction save-excursion progn] 1 [let if let* s= ave-excursion progn if org-element-timestamp-parser let while let progn if = save-excursion org-element--get-time-properties let* save-excursion] 1 [pro= gn if let* if let progn if if let org-up-heading-safe and save-excursion if= cond org-in-archived-heading-p progn] 1 [org-element-headline-parser setq = progn if cond let* save-restriction save-excursion progn unwind-protect let= catch org-element--parse-to condition-case if setq] 2 [save-excursion if l= et* org-element--current-element setq progn unwind-protect let* if if while= let let* save-restriction save-excursion progn] 3 [looking-at-p if if save= -excursion org-element--get-node-properties let* save-excursion org-element= -headline-parser cond setq let save-excursion if let* org-element--current-= element setq] 2 [cond let while let progn if save-excursion org-element--ge= t-time-properties let* save-excursion org-element-headline-parser setq prog= n if cond let*] 1 [if cond let save-restriction save-excursion org-get-prop= erty-block let if let org--property-local-values let* cond save-restriction= save-excursion save-excursion let] 1 [if org-parse-time-string let if let*= save-excursion progn if org-element-timestamp-parser let while let progn i= f save-excursion org-element--get-time-properties] 1 [if save-excursion org= -element--get-node-properties let* save-excursion org-element-headline-pars= er setq progn if cond let* save-restriction save-excursion progn unwind-pro= tect let] 3 [save-excursion org-element-headline-parser setq progn if cond = let* save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to condition-case if] 1 [progn if progn if progn if let* catch = progn if save-restriction save-excursion save-excursion let org-entry-prope= rties assoc-string] 1 [cond org-element-type eq if let org-element-at-point= let org-before-first-heading-p and cond org-in-archived-heading-p progn un= wind-protect let and or] 1 [and let* save-excursion progn if org-element-ti= mestamp-parser let while let* save-excursion org-element-planning-parser co= nd setq let save-excursion if] 1 [not or cond let save-restriction save-exc= ursion org-get-property-block let if let org--property-local-values let* co= nd save-restriction save-excursion save-excursion] 1 [org-element-put-prope= rty let let* save-excursion org-element-headline-parser setq progn if cond = let* save-restriction save-excursion progn unwind-protect let catch] 1 [and= or let org--property-local-values let* cond save-restriction save-excursio= n save-excursion let org-entry-get string=3D org-is-habit-p and let* catch]= 1 [save-excursion save-restriction save-excursion progn unwind-protect let= catch org-element--parse-to condition-case if setq let org-element-at-poin= t let org-before-first-heading-p or] 2 [and cond let while let let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to condition-case if setq] 1 [nconc list let* save-excursion progn if org-e= lement-timestamp-parser let while let progn if save-excursion org-element--= get-time-properties let* save-excursion] 1 [save-excursion =3D and org-elem= ent--open-end-p if setq progn if let cond let while let let* save-restricti= on save-excursion] 2 [dst-adjust-time solar-sunrise-sunset solar-sunrise-su= nset-string diary-sunrise-sunset let eval condition-case if let* org-diary-= sexp-entry setq catch while let* org-agenda-get-sexps cons] 1 [rx--translat= e-seq rx--translate-form rx--translate rx-to-string let save-excursion let*= save-excursion org-element-headline-parser setq progn if cond let* save-re= striction save-excursion] 2 [setq progn if cond let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to condition-ca= se if setq let] 1 [replace-regexp-in-string replace-regexp-in-string org-tr= im setq progn unwind-protect let let* org-agenda-format-item let* save-excu= rsion let* catch while if let*] 1 [if list nconc list let let* save-excursi= on org-element-headline-parser setq progn if cond let* save-restriction sav= e-excursion progn] 1 [< while let progn if save-excursion org-element--get-= node-properties let* save-excursion org-element-headline-parser setq progn = if cond let* save-restriction] 2 [if progn and let* save-excursion org-elem= ent-headline-parser setq progn if cond let* save-restriction save-excursion= progn unwind-protect let] 1 [rx--sequence rx--translate-seq rx--translate-= form rx--translate rx-to-string let save-excursion let* save-excursion org-= element-headline-parser setq progn if cond let* save-restriction] 1 [save-r= estriction save-excursion org-outline-level funcall 1- let* if let progn if= if let org-up-heading-safe and save-excursion if] 1 [progn progn if if let= progn if if let org-up-heading-safe and save-excursion if cond org-in-arch= ived-heading-p and] 1 [nconc list let let* save-excursion org-element-headl= ine-parser setq progn if cond let* save-restriction save-excursion progn un= wind-protect let] 3 [re-search-forward if let* save-excursion org-element-h= eadline-parser setq progn if cond let* save-restriction save-excursion prog= n unwind-protect let catch] 1 [rx--translate-** rx--translate-form rx--tran= slate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-strin= g let save-excursion let* save-excursion org-element-headline-parser cond s= etq let] 1 [re-search-backward or while save-excursion let or org-back-to-h= eading save-excursion org-get-todo-state progn unwind-protect let let* catc= h while if] 1 [plist-get if org-element-property < or let if let org-before= -first-heading-p or if save-restriction save-excursion save-excursion let i= f] 1 [1- if list nconc list let let* save-excursion org-element-headline-pa= rser setq progn if cond let* save-restriction save-excursion] 1 [rx-to-stri= ng let save-excursion let* save-excursion org-element-headline-parser setq = progn if cond let* save-restriction save-excursion progn unwind-protect let= ] 1 [if let* save-excursion progn if org-element-timestamp-parser let while= let progn if save-excursion org-element--get-time-properties let* save-exc= ursion org-element-headline-parser] 1 [save-excursion org-element--get-time= -properties let* save-excursion org-element-headline-parser cond setq let s= ave-excursion if let* org-element--current-element setq progn unwind-protec= t let*] 1 [org-back-to-heading if org-back-to-heading-or-point-min let* pro= gn cond let save-restriction save-excursion org-get-property-block let if l= et org--property-local-values let* cond] 1 [and save-excursion org-get-todo= -state progn unwind-protect let let* catch while if let* org-agenda-get-sch= eduled cons setq let cond] 1 [list add-text-properties progn if let if let = org-agenda-highlight-todo mapcar setq let org-agenda-finalize-entries inser= t progn if progn] 1 [concat setq progn if progn if let if let org-agenda-hi= ghlight-todo mapcar setq let org-agenda-finalize-entries insert progn] 1 [s= etq progn if progn if let if let org-agenda-highlight-todo mapcar setq let = org-agenda-finalize-entries insert progn if] 1 [org-cmp-ts and let* progn l= et org-entries-lessp sort mapcar setq let org-agenda-finalize-entries inser= t progn if progn if] 1 [and or let* org-cmp-ts and let* progn let org-entri= es-lessp sort mapcar setq let org-agenda-finalize-entries insert progn] 1 [= cond let* org-cmp-time and let* progn let org-entries-lessp sort mapcar set= q let org-agenda-finalize-entries insert progn if] 1 [progn let org-entries= -lessp sort mapcar setq let org-agenda-finalize-entries insert progn if pro= gn if while let* catch] 1 [and let* progn let org-entries-lessp sort mapcar= setq let org-agenda-finalize-entries insert progn if progn if while] 2 [or= org-em and let* progn let org-entries-lessp sort mapcar setq let org-agend= a-finalize-entries insert progn if progn] 1 [save-excursion let* save-excur= sion org-element-headline-parser setq progn if cond let* save-restriction s= ave-excursion progn unwind-protect let catch org-element--parse-to] 1 [setq= progn unwind-protect let* if if while let let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to] 1 [let if let or= g-before-first-heading-p if org-back-to-heading-or-point-min let* progn con= d let save-restriction save-excursion org-get-property-block let if let] 1 = [and if let progn if progn if let* catch progn if save-restriction save-exc= ursion save-excursion let org-entry-properties] 1 [save-restriction save-ex= cursion org-outline-level funcall let save-excursion catch if org-block-tod= o-from-children-or-siblings-or-parent run-hook-with-args-until-failure not = and org-entry-blocked-p save-excursion save-current-buffer let] 1 [let* sav= e-excursion org-element-headline-parser cond setq let save-excursion if let= * org-element--current-element setq progn unwind-protect let* if if] 1 [whi= le let progn if save-excursion org-element--get-node-properties let* save-e= xcursion org-element-headline-parser cond setq let save-excursion if let* o= rg-element--current-element] 2 [org-inlinetask-end-p and or let save-excurs= ion org-inlinetask-in-task-p or cond let save-restriction save-excursion or= g-get-property-block let if let org--property-local-values] 1 [if let* org-= element--current-element setq progn unwind-protect let* if if while let let= * save-restriction save-excursion progn unwind-protect] 1 [if while let* sa= ve-excursion catch if org-block-todo-from-children-or-siblings-or-parent ru= n-hook-with-args-until-failure not and org-entry-blocked-p save-excursion s= ave-current-buffer let progn if] 1 [org-up-heading-safe and let* save-excur= sion catch if org-block-todo-from-children-or-siblings-or-parent run-hook-w= ith-args-until-failure not and org-entry-blocked-p save-excursion save-curr= ent-buffer let progn if] 1 [if if save-excursion org-element--get-node-prop= erties let* save-excursion org-element-headline-parser setq progn if cond l= et* save-restriction save-excursion progn unwind-protect] 1 [save-excursion= org-at-heading-p or org-back-to-heading if org-back-to-heading-or-point-mi= n let* progn cond let save-restriction save-excursion org-get-property-bloc= k let if let] 1 [if org-element-property let cond let while let let* save-r= estriction save-excursion progn unwind-protect let catch org-element--parse= -to condition-case] 1 [save-excursion org-inlinetask-in-task-p or cond let = save-restriction save-excursion org-get-property-block let if let org--prop= erty-local-values let* cond save-restriction save-excursion] 1 [let* save-e= xcursion org-element-headline-parser setq progn if cond let* save-restricti= on save-excursion progn unwind-protect let catch org-element--parse-to cond= ition-case] 1 [progn and let* save-excursion org-element-headline-parser co= nd setq let save-excursion if let* org-element--current-element setq progn = unwind-protect let*] 1 [if let cond let while let let* save-restriction sav= e-excursion progn unwind-protect let catch org-element--parse-to condition-= case if] 1 [apply replace-regexp-in-string org-trim let* save-excursion org= -element-headline-parser cond setq let save-excursion if let* org-element--= current-element setq progn unwind-protect] 1 [org-get-todo-state member org= -entry-is-todo-p and if while let let save-excursion catch if org-block-tod= o-from-children-or-siblings-or-parent run-hook-with-args-until-failure not = and org-entry-blocked-p] 2 [save-excursion catch if org-block-todo-from-chi= ldren-or-siblings-or-parent run-hook-with-args-until-failure not and org-en= try-blocked-p save-excursion save-current-buffer let progn if let progn if]= 1 [cond let while let let* save-restriction save-excursion progn unwind-pr= otect let catch org-element--parse-to condition-case if setq let] 2 [and sa= ve-excursion let* save-excursion org-element-headline-parser cond setq let = save-excursion if let* org-element--current-element setq progn unwind-prote= ct let*] 1 [looking-at-p if progn and let* save-excursion org-element-headl= ine-parser setq progn if cond let* save-restriction save-excursion progn un= wind-protect] 1 [let org-agenda-finalize-entries insert progn if progn if w= hile let* catch org-agenda-list funcall-interactively call-interactively co= nd let* catch] 1 [flycheck-may-check-automatically flycheck-buffer-automati= cally flycheck-handle-change insert progn if progn if while let* catch org-= agenda-list funcall-interactively call-interactively cond let*] 1 [flycheck= -may-check-automatically flycheck-buffer-automatically flycheck-handle-chan= ge put-text-property progn if while let* catch org-agenda-list funcall-inte= ractively call-interactively cond let* catch org-agenda] 2 [if "#" mapcar apply setq let org-agenda-files let progn if let* = catch org-agenda-list funcall-interactively call-interactively cond] 1 [org= -edit-latex-create-master-maybe org-edit-latex-mode run-hooks apply run-mod= e-hooks org-mode progn unwind-protect save-current-buffer let org-clock-get= -clocktable apply setq let progn if] 1 [intern if org-fold-core-get-folding= -property-symbol if org-fold-core--property-symbol-get-create "#" mapcar mapcar apply org-fold-core-next-folding-state-change = setq if let let save-restriction save-excursion] 3 [let* save-excursion org= -update-dblock progn unwind-protect save-current-buffer let org-clock-get-c= locktable apply setq let progn if let* catch org-agenda-list] 2 [if "#" mapcar apply setq let org-agenda-files let cond le= t* catch org-dblock-write:clocktable funcall let* save-excursion org-update= -dblock] 1 [if org-check-agenda-file if set-buffer save-current-buffer catc= h let while let let org-agenda-prepare-buffers let* catch org-dblock-write:= clocktable funcall let*] 33 [let let org-tag-alist-to-groups setq let progn= if org-set-regexps-and-options save-restriction save-excursion save-curren= t-buffer catch let while let let] 1 [let* let while let let org-tag-alist-t= o-groups setq let progn if org-set-regexps-and-options save-restriction sav= e-excursion save-current-buffer catch let] 3 [while let save-restriction sa= ve-excursion save-excursion let progn unwind-protect let* org-refresh-stats= -properties or save-restriction save-excursion save-current-buffer catch le= t] 1 [while save-restriction save-excursion catch let let if org-refresh-ca= tegory-properties or save-restriction save-excursion save-current-buffer ca= tch let while let] 2 [cond let if org-end-of-subtree progn put-text-propert= y let* while let save-restriction save-excursion save-excursion let progn u= nwind-protect let*] 1 [let cond org--tag-add-to-alist setq save-restriction= save-excursion save-current-buffer catch let while let let org-agenda-prep= are-buffers let* catch org-dblock-write:clocktable] 1 ["#" replace-regexp-in-string replace-regexp-in-string org-trim let* sa= ve-excursion org-element-headline-parser setq progn if cond let* save-restr= iction save-excursion progn unwind-protect] 1 [setq save-restriction save-e= xcursion save-current-buffer catch let while let let org-agenda-prepare-buf= fers let* catch org-dblock-write:clocktable funcall let* save-excursion] 2 = [append let cond org--tag-add-to-alist setq save-restriction save-excursion= save-current-buffer catch let while let let org-agenda-prepare-buffers let= * catch] 1 [setq if "#" funcall cond let* if let= * let while let let org-tag-alist-to-groups setq let progn] 1 [and if save-= excursion let or org-back-to-heading if org-back-to-heading-or-point-min le= t* progn cond let save-restriction save-excursion org-get-property-block pr= ogn] 1 [and cond let if org-end-of-subtree progn put-text-property let* whi= le let save-restriction save-excursion save-excursion let progn unwind-prot= ect] 1 [setq let while let let org-tag-alist-to-groups setq let progn if or= g-set-regexps-and-options save-restriction save-excursion save-current-buff= er catch let] 1 [and save-excursion org-at-property-p if let while let save= -restriction save-excursion progn unwind-protect let* let let if org-refres= h-category-properties] 1 [and save-excursion org-at-heading-p or org-back-t= o-heading if org-back-to-heading-or-point-min org-end-of-subtree progn put-= text-property let* while let save-restriction save-excursion save-excursion= ] 1 [file-truename find-buffer-visiting set-buffer save-current-buffer "#" mapcar if let let* catch org-dblock-write:clock= table funcall let* save-excursion org-update-dblock progn] 16 [float-time l= et org-matcher-time setq if let* org-clock-get-table-data save-restriction = save-excursion save-current-buffer "#" mapcar i= f let let* catch] 5 [if org-parse-time-string encode-time org-time-string-t= o-time float-time org-time-string-to-seconds let* cond while save-excursion= let* progn unwind-protect let* org-clock-sum save-excursion] 1 [while save= -excursion let* progn unwind-protect let* org-clock-sum save-excursion let*= org-clock-get-table-data save-restriction save-excursion save-current-buff= er "#" mapcar if] 6 [file-truename file-truenam= e file-truename file-truename find-buffer-visiting set-buffer save-current-= buffer "#" mapcar if let let* catch org-dblock-= write:clocktable funcall let*] 1 [cond list org-parse-time-string encode-ti= me org-time-string-to-time float-time org-time-string-to-seconds let* cond = while save-excursion let* progn unwind-protect let* org-clock-sum] 1 [let* = cond while save-excursion let* progn unwind-protect let* org-clock-sum save= -excursion let* org-clock-get-table-data save-restriction save-excursion sa= ve-current-buffer "#"] 2 [string-to-number cond= list org-parse-time-string encode-time org-time-string-to-time float-time = org-time-string-to-seconds let* cond while save-excursion let* progn unwind= -protect let*] 1 [save-excursion save-excursion let let org-fold-core-get-r= egion-at-point let save-restriction save-excursion progn if let while let s= ave-current-buffer let while] 1 [let let if org-string-width max setq let l= et while let let let while let if let*] 1 [intern if org-fold-core-get-fold= ing-property-symbol if org-fold-core--property-symbol-get-create get-char-p= roperty cond save-restriction save-excursion save-excursion let let org-fol= d-core-get-folding-spec if let let] 2 [version< and if org-string-width - l= et* org-table--align-field apply cl--mapcar-many cl-mapcar mapconcat let* i= f concat let let] 2 [intern if org-fold-core-get-folding-property-symbol if= org-fold-core--property-symbol-get-create get-char-property-and-overlay cd= r let if if save-restriction save-excursion save-excursion let let org-fold= -core-get-region-at-point] 3 [if let let while let let let* progn unwind-pr= otect let progn unwind-protect let let org-table-align progn] 1 [font-lock-= fontify-keywords-region font-lock-default-fontify-region let* save-excursio= n while let* progn unwind-protect let* org-fold-core-fontify-region font-lo= ck-fontify-region "#" font-lock-ensure progn = unwind-protect save-current-buffer] 1 [flycheck-may-check-automatically fly= check-buffer-automatically flycheck-handle-change insert let progn if let* = catch org-agenda-list funcall-interactively call-interactively cond let* ca= tch org-agenda] 1 [and or if let* catch org-agenda-list funcall-interactive= ly call-interactively cond let* catch org-agenda funcall-interactively call= -interactively command-execute nil] 3 [flycheck-may-check-automatically fly= check-buffer-automatically flycheck-handle-change add-text-properties let* = catch org-agenda-list funcall-interactively call-interactively cond let* ca= tch org-agenda funcall-interactively call-interactively command-execute] 1 = [while let save-excursion org-agenda-fontify-priorities progn if save-excur= sion let if org-agenda-finalize let* catch org-agenda-list funcall-interact= ively call-interactively cond] 1 [line-move-1 line-move move-beginning-of-l= ine if while let save-excursion org-agenda-dim-blocked-tasks progn if save-= excursion let if org-agenda-finalize let* catch] 1 [org-fold-core-get-regio= n-at-point let save-restriction save-excursion progn if let while let save-= current-buffer let while let let if progn] 1 [if save-restriction save-excu= rsion save-excursion let if progn unwind-protect let org-get-tags save-rest= riction save-excursion save-excursion let put-text-property progn] 1 [let* = save-excursion progn if org-element-timestamp-parser let while let progn if= save-excursion org-element--get-time-properties let* save-excursion org-el= ement-headline-parser cond] 1 [timer-relative-time run-at-time flycheck-han= dle-change put-text-property progn if while save-excursion let if save-excu= rsion let if org-agenda-finalize let* catch] 1 ["#" apply timer-event-handler nil nil nil nil nil nil nil nil nil nil nil= nil nil] 1 [alist-get "#" sort add-hook globa= l-edit-server-edit-mode-cmhh kill-all-local-variables minibuffer-mode read-= from-minibuffer "#" apply vertico--advice appl= y completing-read-default completing-read read-extended-command byte-code] = 1 [alist-get "#" sort add-hook global-flycheck= -mode-cmhh kill-all-local-variables minibuffer-mode read-from-minibuffer "#= " apply vertico--advice apply completing-read-= default completing-read read-extended-command byte-code] 1 [alist-get "#" sort add-hook mode-local-on-major-mode-change k= ill-all-local-variables minibuffer-mode read-from-minibuffer "#" apply vertico--advice apply completing-read-default comp= leting-read read-extended-command byte-code] 1 [ess-r-package--find-package= -path ess-r-package-info ess-r-package-auto-activate run-hooks run-mode-hoo= ks minibuffer-mode read-from-minibuffer "#" ap= ply vertico--advice apply completing-read-default completing-read read-exte= nded-command byte-code call-interactively] 1 [vertico--exhibit read-from-mi= nibuffer "#" apply vertico--advice apply compl= eting-read-default completing-read read-extended-command byte-code call-int= eractively command-execute nil nil nil nil] 1 [complete-with-action "#" all-completions completion-pcm--all-completions c= ompletion-pcm--find-all-completions completion-pcm-all-completions "#" completion--some completion--nth-completion "#" apply completion-all-completions apply vertico-= -all-completions vertico--recompute-candidates vertico--update-candidates] = 78 [all-completions complete-with-action "#" a= ll-completions completion-pcm--all-completions completion-pcm--find-all-com= pletions completion-pcm-all-completions "#" co= mpletion--some completion--nth-completion "#"= apply completion-all-completions apply vertico--all-completions vertico--r= ecompute-candidates] 2 [vertico--recompute-candidates vertico--update-candi= dates vertico--exhibit read-from-minibuffer "#= " apply vertico--advice apply completing-read-default completing-read read-= extended-command byte-code call-interactively command-execute nil nil] 1 [m= arginalia--function-doc marginalia-annotate-command marginalia--cached marg= inalia--affixate apply "#" vertico--affixate v= ertico--arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default = completing-read] 3 ["#" apply vertico--advice = apply completing-read-default completing-read read-extended-command byte-co= de call-interactively command-execute nil nil nil nil nil nil] 66 [read-fro= m-minibuffer "#" apply vertico--advice apply c= ompleting-read-default completing-read read-extended-command byte-code call= -interactively command-execute nil nil nil nil nil] 37 [redisplay vertico--= update-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default completin= g-read read-extended-command byte-code call-interactively command-execute n= il nil] 3 ["#" funcall setq "#" apply vertico--format-candidate vertico--arrange-candidates vert= ico--exhibit read-from-minibuffer "#" apply ve= rtico--advice apply completing-read-default completing-read read-extended-c= ommand] 1 [alist-get "#" sort add-hook magit-a= uto-revert-mode-cmhh kill-all-local-variables minibuffer-inactive-mode read= -from-minibuffer "#" apply vertico--advice app= ly completing-read-default completing-read read-extended-command byte-code]= 1 [alist-get "#" sort add-hook global-atomic-= chrome-edit-mode-cmhh kill-all-local-variables minibuffer-inactive-mode rea= d-from-minibuffer "#" apply vertico--advice ap= ply completing-read-default completing-read read-extended-command byte-code= ] 1 [assoc alist-get "#" sort add-hook global-= aggressive-indent-mode-cmhh kill-all-local-variables minibuffer-inactive-mo= de read-from-minibuffer "#" apply vertico--adv= ice apply completing-read-default completing-read read-extended-command] 1 = [profiler-report funcall-interactively call-interactively command-execute e= xecute-extended-command funcall-interactively call-interactively command-ex= ecute nil nil nil nil nil nil nil nil] 1 [Automatic\ GC] 510)) (25335 23431= 200073 0) nil] --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=memory-profiler-report Content-Transfer-Encoding: quoted-printable [profiler-profile "28.1" memory #s(hash-table size 1642 test equal rehash-s= ize 1.5 rehash-threshold 0.8125 data ([profiler-start funcall-interactively= call-interactively command-execute execute-extended-command funcall-intera= ctively call-interactively command-execute nil nil nil nil nil nil nil nil]= 656 [timer--time-setter timer-set-time run-at-time execute-extended-comman= d funcall-interactively call-interactively command-execute nil nil nil nil = nil nil nil nil nil] 24 [timer--time-less-p timer--activate timer-activate = run-at-time execute-extended-command funcall-interactively call-interactive= ly command-execute nil nil nil nil nil nil nil nil] 24 [timer--time-setter = timer-set-idle-time run-with-idle-timer eldoc-schedule-timer nil nil nil ni= l nil nil nil nil nil nil nil nil] 24 [nil nil nil nil nil nil nil nil nil = nil nil nil nil nil nil nil] 1762822 ["#" apply= zoom--get-frame-snapshot "#" apply zoom--han= dler apply "#" redisplay_internal\ \(C\ funct= ion\) nil nil nil nil nil nil nil] 36184 [balance-windows zoom--update "#" apply zoom--handler apply "#" redisplay_internal\ \(C\ function\) nil nil nil nil nil nil = nil nil] 4340 [indent-guide--active-overlays indent-guide-remove indent-gui= de-pre-command-hook nil nil nil nil nil nil nil nil nil nil nil nil nil] 80= [display-buffer-assq-regexp display-buffer pop-to-buffer switch-to-buffer-= other-window apply let org-switch-to-buffer-other-window progn unwind-prote= ct let let* catch org-agenda-get-restriction-and-command setq if let*] 1351= 60 [split-window "#" apply treemacs--split-wind= ow-advice apply split-window-right split-window-sensibly window--try-to-spl= it-window display-buffer-pop-up-window display-buffer--maybe-pop-up-window = display-buffer--maybe-pop-up-frame-or-window display-buffer pop-to-buffer s= witch-to-buffer-other-window apply let] 4142989 [window--display-buffer dis= play-buffer-pop-up-window display-buffer--maybe-pop-up-window display-buffe= r--maybe-pop-up-frame-or-window display-buffer pop-to-buffer switch-to-buff= er-other-window apply let org-switch-to-buffer-other-window progn unwind-pr= otect let let* catch org-agenda-get-restriction-and-command] 1085 [progn un= wind-protect let let* catch org-agenda-get-restriction-and-command setq if = let* catch org-agenda funcall-interactively call-interactively command-exec= ute nil nil] 2032 [cond format setq if while while progn unwind-protect let= let* catch org-agenda-get-restriction-and-command setq if let* catch] 1024= [string-match-p and org-string-nw-p not cond if while while progn unwind-p= rotect let let* catch org-agenda-get-restriction-and-command setq if] 1024 = [setq cond if while while progn unwind-protect let let* catch org-agenda-ge= t-restriction-and-command setq if let* catch org-agenda] 1016 [org-add-prop= s format setq if while while progn unwind-protect let let* catch org-agenda= -get-restriction-and-command setq if let* catch] 1016 [while while progn un= wind-protect let let* catch org-agenda-get-restriction-and-command setq if = let* catch org-agenda funcall-interactively call-interactively command-exec= ute] 1016 [not if setq while progn unwind-protect let let* catch org-agenda= -get-restriction-and-command setq if let* catch org-agenda funcall-interact= ively] 10156 [file-remote-p pos-visible-in-window-p not if setq while progn= unwind-protect let let* catch org-agenda-get-restriction-and-command setq = if let* catch] 5120 [progn progn while progn while progn unwind-protect let= let* catch org-agenda-get-restriction-and-command setq if let* catch org-a= genda] 620 [setq progn progn while progn while progn unwind-protect let let= * catch org-agenda-get-restriction-and-command setq if let* catch] 3192 ["#= " apply zoom--get-frame-snapshot "#" apply zoom--handler apply "#" redisplay_internal\ \(C\ function\) read-char-exclusive setq progn pro= gn while progn while] 5000 [balance-windows zoom--update "#" apply zoom--handler apply "#"= redisplay_internal\ \(C\ function\) read-char-exclusive setq progn progn w= hile progn while progn] 8004404 [zoom--window-ignored-p zoom--update "#" apply zoom--handler apply "#" redisplay_internal\ \(C\ function\) read-char-exclusive setq p= rogn progn while progn while progn] 3072 [window-resize zoom--resize-one-di= mension zoom--resize zoom--update "#" apply z= oom--handler apply "#" redisplay_internal\ \(= C\ function\) read-char-exclusive setq progn progn while progn] 9939380 [re= ad-char-exclusive setq progn progn while progn while progn unwind-protect l= et let* catch org-agenda-get-restriction-and-command setq if let*] 103740 [= eyebrowse-mode-line-indicator eval redisplay_internal\ \(C\ function\) read= -char-exclusive setq progn progn while progn while progn unwind-protect let= let* catch org-agenda-get-restriction-and-command] 1016 [execute-extended-= command--shorter-1 execute-extended-command--shorter-1 execute-extended-com= mand--shorter "#" apply timer-event-handler re= ad-char-exclusive setq progn progn while progn while progn unwind-protect l= et] 1024 [completion-pcm--string->pattern completion-pcm--find-all-completi= ons completion-pcm-try-completion "#" completi= on--some completion--nth-completion completion-try-completion execute-exten= ded-command--shorter "#" apply timer-event-han= dler read-char-exclusive setq progn progn while] 1024 [completion-pcm--patt= ern->regex completion-pcm--all-completions completion-pcm--find-all-complet= ions completion-pcm-try-completion "#" complet= ion--some completion--nth-completion completion-try-completion execute-exte= nded-command--shorter "#" apply timer-event-ha= ndler read-char-exclusive setq progn progn] 1024 [completion-pcm--all-compl= etions completion-pcm--find-all-completions completion-pcm-try-completion "= #" completion--some completion--nth-completion= completion-try-completion execute-extended-command--shorter "#" apply timer-event-handler read-char-exclusive setq progn= progn while] 1024 [completion-pcm--merge-completions completion-pcm--merge= -try completion-pcm-try-completion "#" complet= ion--some completion--nth-completion completion-try-completion execute-exte= nded-command--shorter "#" apply timer-event-ha= ndler read-char-exclusive setq progn progn while] 1024 [completion-pcm--mer= ge-try completion-pcm-try-completion "#" compl= etion--some completion--nth-completion completion-try-completion execute-ex= tended-command--shorter "#" apply timer-event-= handler read-char-exclusive setq progn progn while progn] 40920 [while prog= n unwind-protect let let* catch org-agenda-get-restriction-and-command setq= if let* catch org-agenda funcall-interactively call-interactively command-= execute nil] 98 [unwind-protect let let* catch org-agenda-get-restriction-a= nd-command setq if let* catch org-agenda funcall-interactively call-interac= tively command-execute nil nil nil] 7951613 [call-interactively cond let* c= atch org-agenda funcall-interactively call-interactively command-execute ni= l nil nil nil nil nil nil nil] 16 [org-agenda-prepare-window if if let org-= agenda-prepare catch org-agenda-list funcall-interactively call-interactive= ly cond let* catch org-agenda funcall-interactively call-interactively comm= and-execute] 21 [display-buffer-assq-regexp display-buffer pop-to-buffer po= p-to-buffer-same-window cond let* org-agenda-prepare-window if if let org-a= genda-prepare catch org-agenda-list funcall-interactively call-interactivel= y cond] 126976 [window--display-buffer display-buffer-same-window display-b= uffer pop-to-buffer pop-to-buffer-same-window cond let* org-agenda-prepare-= window if if let org-agenda-prepare catch org-agenda-list funcall-interacti= vely call-interactively] 1085 [intern if org-fold-core-get-folding-property= -symbol if org-fold-core--property-symbol-get-create let* save-current-buff= er org-fold-core-add-folding-spec let while let org-fold-core-initialize or= g-agenda-mode if if let] 2000 [if "#" mapcar app= ly setq let org-agenda-files mapcar append easy-menu-change org-agenda-mode= if if let org-agenda-prepare catch] 21632 [ucs-normalize-region ucs-normal= ize-HFS-NFD-region ucs-normalize-hfs-nfd-pre-write-conversion file-director= y-p if "#" mapcar apply setq let org-agenda-file= s mapcar append easy-menu-change org-agenda-mode if] 112160 [list if "#" mapcar apply setq let org-agenda-files org-agenda-p= repare-buffers if if let org-agenda-prepare catch org-agenda-list funcall-i= nteractively] 16368 [if "#" mapcar apply setq let= org-agenda-files org-agenda-prepare-buffers if if let org-agenda-prepare c= atch org-agenda-list funcall-interactively call-interactively] 144 [and whi= le let save-restriction save-excursion save-excursion let org--collect-keyw= ords-1 let* org-collect-keywords let progn if org-set-regexps-and-options s= ave-restriction save-excursion] 71680 [file-name-sans-versions file-name-sa= ns-extension if cond let if org-refresh-category-properties or save-restric= tion save-excursion save-current-buffer catch let while let let] 45484 [fil= e-name-sans-extension if cond let if org-refresh-category-properties or sav= e-restriction save-excursion save-current-buffer catch let while let let or= g-agenda-prepare-buffers] 54296 [while save-restriction save-excursion catc= h let let if org-refresh-category-properties or save-restriction save-excur= sion save-current-buffer catch let while let] 71936 [while let save-restric= tion save-excursion progn unwind-protect let* let let if org-refresh-catego= ry-properties or save-restriction save-excursion save-current-buffer catch]= 277168 [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] 237656 [while save-restriction sav= e-excursion save-excursion let progn unwind-protect let* let* org-refresh-p= roperties org-refresh-effort-properties if or save-restriction save-excursi= on save-current-buffer] 91320 [while save-restriction save-excursion save-e= xcursion let progn unwind-protect let* let* org-refresh-properties or save-= restriction save-excursion save-current-buffer catch let] 90480 [delete-dup= s let org-uniquify setcdr if let let while let progn if save-restriction sa= ve-excursion save-current-buffer catch let] 22324896 [and save-excursion or= g-at-property-p if let while let save-restriction save-excursion progn unwi= nd-protect let* let let if org-refresh-category-properties] 23040 [looking-= at-p or let save-excursion org-inlinetask-in-task-p or cond let save-restri= ction save-excursion org-get-property-block progn unwind-protect let let an= d] 186616 [and or let save-excursion org-inlinetask-in-task-p or cond let s= ave-restriction save-excursion org-get-property-block progn unwind-protect = let let and] 186360 [save-excursion org-match-line let org-inlinetask-end-p= and or let save-excursion org-inlinetask-in-task-p or cond let save-restri= ction save-excursion org-get-property-block progn] 30720 [outline-previous-= heading let* progn if cond let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to condition-case if setq] 9378752 [= progn unwind-protect let save-excursion org-at-comment-p and while save-res= triction save-excursion or progn if let* save-restriction save-excursion or= g-element-org-data-parser] 105456 [if save-restriction save-excursion or pr= ogn if let* save-restriction save-excursion org-element-org-data-parser set= q if cond let* save-restriction save-excursion] 13312 [looking-at-p let* pr= ogn cond setq let save-excursion if let* org-element--current-element setq = progn unwind-protect let* if if] 8747368 [cond setq let save-excursion if l= et* org-element--current-element setq progn unwind-protect let* if if while= let let*] 5265064 [not save-excursion let cond and cond setq let save-excu= rsion if let* org-element--current-element setq progn unwind-protect let*] = 215320 [let save-excursion org-element-property-drawer-parser cond setq let= save-excursion if let* org-element--current-element setq progn unwind-prot= ect let* if if] 408048 [let and let* save-excursion org-element-headline-pa= rser setq progn if cond let* save-restriction save-excursion progn unwind-p= rotect let catch] 14221030 [and let* save-excursion org-element-headline-pa= rser setq progn if cond let* save-restriction save-excursion progn unwind-p= rotect let catch org-element--parse-to] 8955960 [if let* save-excursion org= -element-headline-parser setq progn if cond let* save-restriction save-excu= rsion progn unwind-protect let catch org-element--parse-to] 9215001 [not if= let org-split-string progn if let* save-excursion org-element-headline-par= ser setq progn if cond let* save-restriction save-excursion] 2996616 [repla= ce-regexp-in-string replace-regexp-in-string org-trim let* save-excursion o= rg-element-headline-parser setq progn if cond let* save-restriction save-ex= cursion progn unwind-protect let] 8635512 [replace-regexp-in-string org-tri= m let* save-excursion org-element-headline-parser setq progn if cond let* s= ave-restriction save-excursion progn unwind-protect let catch] 9862558 [loo= king-at-p if if save-excursion org-element--get-node-properties let* save-e= xcursion org-element-headline-parser setq progn if cond let* save-restricti= on save-excursion progn] 6829792 [if let save-excursion let* save-excursion= org-element-headline-parser setq progn if cond let* save-restriction save-= excursion progn unwind-protect let] 9611008 [and save-excursion org-at-head= ing-p or org-back-to-heading if org-back-to-heading-or-point-min let* progn= cond let save-restriction save-excursion org-get-property-block progn unwi= nd-protect] 186744 [let* cond org-get-limited-outline-regexp let* progn if = cond let* save-restriction save-excursion progn unwind-protect let catch or= g-element--parse-to condition-case] 416240 [and if if progn unwind-protect = let progn if cond let while let let* save-restriction save-excursion progn]= 3608680 [if if progn unwind-protect let progn if cond let while let let* s= ave-restriction save-excursion progn unwind-protect] 3879504 [looking-at-p = if cond let save-restriction save-excursion org-get-property-block progn un= wind-protect let let and save-excursion org-at-property-p if let] 178296 [a= nd save-excursion org-at-heading-p or org-back-to-heading if org-back-to-he= ading-or-point-min save-excursion put-text-property progn if let while let = save-restriction save-excursion] 169984 [save-excursion org-match-line let = org-inlinetask-end-p and if save-excursion let or org-back-to-heading if or= g-back-to-heading-or-point-min save-excursion put-text-property progn if] 5= 5424 [or while save-excursion let or org-back-to-heading if org-back-to-hea= ding-or-point-min save-excursion put-text-property progn if let while let s= ave-restriction] 178168 [progn and let* save-excursion org-element-headline= -parser setq progn if cond let* save-restriction save-excursion progn unwin= d-protect let catch] 231328 [if save-restriction save-excursion org-outline= -level funcall let if org-end-of-subtree if save-excursion put-text-propert= y progn if let while let] 178168 [and let cond let if org-end-of-subtree if= save-excursion put-text-property progn if let while let save-restriction s= ave-excursion] 169984 [while let progn if save-excursion org-element--get-t= ime-properties let* save-excursion org-element-headline-parser setq progn i= f cond let* save-restriction save-excursion] 2311368 [looking-at-p if org-e= lement-timestamp-parser let while let progn if save-excursion org-element--= get-time-properties let* save-excursion org-element-headline-parser setq pr= ogn if] 4429860 [progn let* save-excursion progn if org-element-timestamp-p= arser let while let progn if save-excursion org-element--get-time-propertie= s let* save-excursion org-element-headline-parser] 6655100 [and let* save-e= xcursion progn if org-element-timestamp-parser let while let progn if save-= excursion org-element--get-time-properties let* save-excursion org-element-= headline-parser] 18745841 [if org-parse-time-string let if let* save-excurs= ion progn if org-element-timestamp-parser let while let progn if save-excur= sion org-element--get-time-properties] 6064947 [match-string-no-properties = let* save-excursion progn if org-element-timestamp-parser let while let pro= gn if save-excursion org-element--get-time-properties let* save-excursion o= rg-element-headline-parser] 452768 [while let* save-excursion org-element-p= lanning-parser cond setq let save-excursion if let* org-element--current-el= ement setq progn unwind-protect let* if] 104760 [looking-at-p if org-elemen= t-timestamp-parser let while let* save-excursion org-element-planning-parse= r cond setq let save-excursion if let* org-element--current-element setq] 1= 06271 [progn let* save-excursion progn if org-element-timestamp-parser let = while let* save-excursion org-element-planning-parser cond setq let save-ex= cursion if] 91017 [and let* save-excursion progn if org-element-timestamp-p= arser let while let* save-excursion org-element-planning-parser cond setq l= et save-excursion if] 285240 [if org-parse-time-string let if let* save-exc= ursion progn if org-element-timestamp-parser let while let* save-excursion = org-element-planning-parser cond setq] 91428 [org-element-node-property-par= ser cond setq let save-excursion if let* org-element--current-element setq = progn unwind-protect let* if if while let] 114292 [save-excursion org-match= -line let org-inlinetask-end-p and if save-excursion let or org-back-to-hea= ding if org-back-to-heading-or-point-min let* progn cond let] 458912 [org-s= plit-string progn if let* save-excursion org-element-headline-parser setq p= rogn if cond let* save-restriction save-excursion progn unwind-protect let]= 300232 [while let progn if save-excursion org-element--get-node-properties= let* save-excursion org-element-headline-parser cond setq let save-excursi= on if let* org-element--current-element] 1697096 [looking-at-p if org-eleme= nt-timestamp-parser let while let progn if save-excursion org-element--get-= time-properties let* save-excursion org-element-headline-parser cond setq l= et] 2322330 [if let save-excursion let* save-excursion org-element-headline= -parser cond setq let save-excursion if let* org-element--current-element s= etq progn unwind-protect] 3967344 [let while let* save-excursion org-elemen= t-planning-parser cond setq let save-excursion if let* org-element--current= -element setq progn unwind-protect let*] 202632 [apply rx-to-string let sav= e-excursion let* save-excursion org-element-headline-parser setq progn if c= ond let* save-restriction save-excursion progn unwind-protect] 469336 [and = save-excursion org-at-heading-p or org-back-to-heading if org-back-to-headi= ng-or-point-min org-end-of-subtree if save-excursion put-text-property prog= n if let while let] 22528 [save-excursion org-match-line let org-inlinetask= -end-p and if save-excursion let or org-back-to-heading if org-back-to-head= ing-or-point-min org-end-of-subtree if save-excursion put-text-property] 22= 528 [or while save-excursion let or org-back-to-heading if org-back-to-head= ing-or-point-min org-end-of-subtree if save-excursion put-text-property pro= gn if let while] 22528 [and let cond let if org-end-of-subtree progn put-te= xt-property let* while let save-restriction save-excursion save-excursion l= et progn] 323584 [while let progn if save-excursion org-element--get-node-p= roperties let* save-excursion org-element-headline-parser setq progn if con= d let* save-restriction save-excursion] 11364399 [and save-excursion org-at= -heading-p or org-back-to-heading if org-back-to-heading-or-point-min org-e= nd-of-subtree progn put-text-property let* while let save-restriction save-= excursion save-excursion] 172032 [if save-restriction save-excursion org-ou= tline-level funcall let if org-end-of-subtree progn put-text-property let* = while let save-restriction save-excursion save-excursion] 180216 [upcase co= ncat let* while let progn if save-excursion org-element--get-node-propertie= s let* save-excursion org-element-headline-parser setq progn if cond] 16632= 0 [if org-check-agenda-file if set-buffer save-current-buffer catch let whi= le let let org-agenda-prepare-buffers if if let org-agenda-prepare catch] 2= 29906 [let* progn cond let save-restriction save-excursion org-get-property= -block progn unwind-protect let let and save-excursion org-at-property-p if= let] 10296 [cons setq while let if let org-split-string progn if let* save= -excursion org-element-headline-parser setq progn if cond] 277272 [concat l= et* while let progn if save-excursion org-element--get-node-properties let*= save-excursion org-element-headline-parser setq progn if cond let*] 174760= [string-to-number let* while let save-restriction save-excursion save-excu= rsion let progn unwind-protect let* org-refresh-stats-properties or save-re= striction save-excursion save-current-buffer] 31072 [looking-at let and let= * save-excursion org-element-headline-parser setq progn if cond let* save-r= estriction save-excursion progn unwind-protect let] 3642432 [if save-excurs= ion org-element--get-node-properties let* save-excursion org-element-headli= ne-parser setq progn if cond let* save-restriction save-excursion progn unw= ind-protect let] 5934257 [rx--translate-counted-repetition rx--translate-bo= unded-repetition rx--translate-** rx--translate-form rx--translate mapcar r= x--translate-seq rx--translate-form rx--translate rx-to-string let save-exc= ursion let* save-excursion org-element-headline-parser setq] 512600 [apply = replace-regexp-in-string replace-regexp-in-string org-trim let* save-excurs= ion org-element-headline-parser setq progn if cond let* save-restriction sa= ve-excursion progn unwind-protect] 671840 [setq if "#" funcall cond let* if let* let while let let org-tag-alist-to-groups= setq let progn] 1245024 [if let* let while let let org-tag-alist-to-groups= setq let progn if org-set-regexps-and-options save-restriction save-excurs= ion save-current-buffer catch] 2516448 [let* let while let let org-tag-alis= t-to-groups setq let progn if org-set-regexps-and-options save-restriction = save-excursion save-current-buffer catch let] 2525952 [funcall cond let* if= let* let while let let org-tag-alist-to-groups setq let progn if org-set-r= egexps-and-options save-restriction] 2491104 [let while let let org-tag-ali= st-to-groups setq let progn if org-set-regexps-and-options save-restriction= save-excursion save-current-buffer catch let while] 2529037 [while let let= org-tag-alist-to-groups setq let progn if org-set-regexps-and-options save= -restriction save-excursion save-current-buffer catch let while let] 251750= 4 [cond let* if let* let while let let org-tag-alist-to-groups setq let pro= gn if org-set-regexps-and-options save-restriction save-excursion] 39072 [a= pply derived-mode-p not cond org-get-limited-outline-regexp let* progn if c= ond let* save-restriction save-excursion progn unwind-protect let catch] 14= 784 [save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to condition-case if setq let org-element-at-point or org-eleme= nt-at-point-no-context let progn] 3168 [nconc list let* save-restriction sa= ve-excursion org-element-org-data-parser setq if cond let* save-restriction= save-excursion progn unwind-protect let catch] 8448 [if setq progn if let = cond let while let let* save-restriction save-excursion progn unwind-protec= t let catch] 122496 [not cond org-get-limited-outline-regexp let* progn pro= gn let* save-excursion org-element-section-parser cond setq let save-excurs= ion if let* org-element--current-element] 12672 [setcar if org-element-put-= property if while let let* save-restriction save-excursion progn unwind-pro= tect let catch org-element--parse-to condition-case if] 39072 [setq progn u= nwind-protect let* if if while let let* save-restriction save-excursion pro= gn unwind-protect let catch org-element--parse-to] 159456 [and while let if= org-element--collect-affiliated-keywords let cond setq let save-excursion = if let* org-element--current-element setq progn unwind-protect] 378720 [if = let if org-element--collect-affiliated-keywords let cond setq let save-excu= rsion if let* org-element--current-element setq progn unwind-protect let*] = 316736 [cond let cond setq let save-excursion if let* org-element--current-= element setq progn unwind-protect let* if if while] 1818104 [cond cond let = cond setq let save-excursion if let* org-element--current-element setq prog= n unwind-protect let* if if] 304288 [save-excursion cond cond let cond setq= let save-excursion if let* org-element--current-element setq progn unwind-= protect let* if] 99456 [progn let save-excursion org-element-keyword-parser= cond cond let cond setq let save-excursion if let* org-element--current-el= ement setq progn] 108560 [replace-regexp-in-string replace-regexp-in-string= org-trim let save-excursion org-element-keyword-parser cond cond let cond = setq let save-excursion if let* org-element--current-element] 101432 [repla= ce-regexp-in-string org-trim let save-excursion org-element-keyword-parser = cond cond let cond setq let save-excursion if let* org-element--current-ele= ment setq] 111736 [cond org-get-limited-outline-regexp let* progn cond setq= let save-excursion if let* org-element--current-element setq progn unwind-= protect let* if] 54912 [progn if let save-excursion if let* org-element--cu= rrent-element setq progn unwind-protect let* if if while let let*] 186912 [= progn unwind-protect let save-excursion org-at-comment-p and while save-res= triction save-excursion org-element--get-global-node-properties let* save-r= estriction save-excursion org-element-org-data-parser setq if] 70656 [save-= restriction save-excursion org-element--get-global-node-properties let* sav= e-restriction save-excursion org-element-org-data-parser setq if cond let* = save-restriction save-excursion progn unwind-protect let] 3168 [cond let wh= ile let let* save-restriction save-excursion progn unwind-protect let catch= org-element--parse-to condition-case if setq let] 87648 [org-element--curr= ent-element setq progn unwind-protect let* if if while let let* save-restri= ction save-excursion progn unwind-protect let catch] 218592 [outline-next-h= eading let* progn save-excursion or org-element-section-parser cond setq le= t save-excursion if let* org-element--current-element setq progn unwind-pro= tect] 100464 [goto-char save-excursion =3D and org-element--open-end-p if s= etq progn if let cond let while let let* save-restriction] 48576 [if org-el= ement--collect-affiliated-keywords let cond setq let save-excursion if let*= org-element--current-element setq progn unwind-protect let* if if] 3168 [a= nd let* org-element--current-element setq progn unwind-protect let* if if w= hile let let* save-restriction save-excursion progn unwind-protect] 33792 [= save-excursion org-element-keyword-parser cond cond let cond setq let save-= excursion if let* org-element--current-element setq progn unwind-protect le= t*] 5280 [while let let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to condition-case if setq let org-element-a= t-point or] 9504 [or save-restriction save-excursion save-current-buffer ca= tch let while let let org-agenda-prepare-buffers if if let org-agenda-prepa= re catch org-agenda-list] 2112 [setq save-restriction save-excursion save-c= urrent-buffer catch let while let let org-agenda-prepare-buffers if if let = org-agenda-prepare catch org-agenda-list] 341088 [while let let cond org--t= ag-add-to-alist setq save-restriction save-excursion save-current-buffer ca= tch let while let let org-agenda-prepare-buffers if] 988416 [funcall cond l= et* if let* let while let let cond org--tag-add-to-alist setq save-restrict= ion save-excursion save-current-buffer catch] 2277792 [let while let let co= nd org--tag-add-to-alist setq save-restriction save-excursion save-current-= buffer catch let while let let org-agenda-prepare-buffers] 2318976 [if let*= let while let let cond org--tag-add-to-alist setq save-restriction save-ex= cursion save-current-buffer catch let while let] 2314752 [let* let while le= t let cond org--tag-add-to-alist setq save-restriction save-excursion save-= current-buffer catch let while let let] 2317103 [setq progn if "#" funcall cond let* if let* let while let let cond org--t= ag-add-to-alist setq] 1133088 [cond let* if let* let while let let cond org= --tag-add-to-alist setq save-restriction save-excursion save-current-buffer= catch let] 40128 [setq let if let* cond let* if let* let while let let con= d org--tag-add-to-alist setq save-restriction] 24288 [let cond org--tag-add= -to-alist setq save-restriction save-excursion save-current-buffer catch le= t while let let org-agenda-prepare-buffers if if let] 444576 [org-uniquify = setcdr if let let while let progn if save-restriction save-excursion save-c= urrent-buffer catch let while let] 748704 [let org-uniquify setcdr if let l= et while let progn if save-restriction save-excursion save-current-buffer c= atch let while] 1675872 [setcdr if let let while let progn if save-restrict= ion save-excursion save-current-buffer catch let while let let] 3168 [let w= hile let progn if save-restriction save-excursion save-current-buffer catch= let while let let org-agenda-prepare-buffers if if] 1056 [let org-find-bas= e-buffer-visiting let org-get-agenda-file-buffer if set-buffer save-current= -buffer catch let while let let org-agenda-prepare-buffers if if let] 1056 = [progn if org-set-regexps-and-options save-restriction save-excursion save-= current-buffer catch let while let let org-agenda-prepare-buffers if if let= org-agenda-prepare] 1056 [while let let cond org--tag-add-to-alist setq le= t progn if org-set-regexps-and-options save-restriction save-excursion save= -current-buffer catch let while] 6336 [let org-tag-alist-to-groups setq let= progn if org-set-regexps-and-options save-restriction save-excursion save-= current-buffer catch let while let let org-agenda-prepare-buffers] 1056 [se= tq progn if let cond let* cond let* if let* let while let let org-tag-alist= -to-groups setq] 4224 [save-excursion org-at-comment-p and while save-restr= iction save-excursion or progn if let* save-restriction save-excursion org-= element-org-data-parser setq if cond] 1056 [save-restriction save-excursion= org-element-org-data-parser setq if cond let* save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to condition-case if]= 7392 [if while let let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to condition-case if setq let org-element-a= t-point] 152064 [list let* save-excursion org-element-section-parser cond s= etq let save-excursion if let* org-element--current-element setq progn unwi= nd-protect let* if] 92928 [let cond let while let let* save-restriction sav= e-excursion progn unwind-protect let catch org-element--parse-to condition-= case if setq] 183744 [let* if let* org-element--current-element setq progn = unwind-protect let* if if while let let* save-restriction save-excursion pr= ogn] 71808 [nconc list let save-excursion org-element-keyword-parser cond c= ond let cond setq let save-excursion if let* org-element--current-element s= etq] 6336 [eq if let progn unwind-protect let* while let save-restriction s= ave-excursion save-excursion let if catch let* save-restriction] 1056 [not = cond org-get-limited-outline-regexp let* progn cond setq let save-excursion= if let* org-element--current-element setq progn unwind-protect let*] 14784= [let let if org-refresh-category-properties or save-restriction save-excur= sion save-current-buffer catch let while let let org-agenda-prepare-buffers= if if] 2112 [catch org-element--parse-to condition-case if setq let org-el= ement-at-point let org-before-first-heading-p if org-back-to-heading-or-poi= nt-min let* progn cond let save-restriction] 8448 [let* save-excursion org-= element-headline-parser setq progn if cond let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to condition-case] 1= 38541 [save-excursion progn if org-element-timestamp-parser let while let p= rogn if save-excursion org-element--get-time-properties let* save-excursion= org-element-headline-parser setq progn] 252384 [nconc list let* save-excur= sion progn if org-element-timestamp-parser let while let progn if save-excu= rsion org-element--get-time-properties let* save-excursion] 247104 [save-ex= cursion org-element-headline-parser setq progn if cond let* save-restrictio= n save-excursion progn unwind-protect let catch org-element--parse-to condi= tion-case if] 578688 [let let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to condition-case if setq let org-ele= ment-at-point let org-before-first-heading-p] 55968 [save-excursion progn i= f org-element-timestamp-parser let while let* save-excursion org-element-pl= anning-parser cond setq let save-excursion if let* org-element--current-ele= ment] 121440 [nconc list let* save-excursion progn if org-element-timestamp= -parser let while let* save-excursion org-element-planning-parser cond setq= let save-excursion] 87648 [let while let let* save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to condition-case if = setq let org-element-at-point] 198643 [save-excursion org-element-property-= drawer-parser cond setq let save-excursion if let* org-element--current-ele= ment setq progn unwind-protect let* if if while] 8448 [while let let* save-= restriction save-excursion progn unwind-protect let catch org-element--pars= e-to condition-case if setq let org-element-at-point let] 116160 [or setq i= f if while let let* save-restriction save-excursion progn unwind-protect le= t catch org-element--parse-to condition-case if] 39072 [if let org-before-f= irst-heading-p if org-back-to-heading-or-point-min let* progn cond let save= -restriction save-excursion org-get-property-block progn unwind-protect let= let] 4224 [cond org-get-limited-outline-regexp let* progn if cond let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to condition-case if] 44352 [progn if save-excursion org-element--get-t= ime-properties let* save-excursion org-element-headline-parser setq progn i= f cond let* save-restriction save-excursion progn unwind-protect] 14784 [ma= tch-string-no-properties progn let* save-excursion progn if org-element-tim= estamp-parser let while let progn if save-excursion org-element--get-time-p= roperties let* save-excursion] 517192 [org-parse-time-string let if let* sa= ve-excursion progn if org-element-timestamp-parser let while let progn if s= ave-excursion org-element--get-time-properties let*] 72864 [rx--translate-s= eq rx--translate-form rx--translate rx-to-string let save-excursion let* sa= ve-excursion org-element-headline-parser setq progn if cond let* save-restr= iction save-excursion] 84480 [nconc list let let* save-excursion org-elemen= t-headline-parser setq progn if cond let* save-restriction save-excursion p= rogn unwind-protect let] 514272 [rx--translate-seq rx--translate-counted-re= petition rx--translate-bounded-repetition rx--translate-repeat rx--translat= e-form rx--translate mapcar rx--translate-seq rx--translate-form rx--transl= ate rx-to-string re-search-forward and if if progn] 8448 [setq cond let whi= le let let* save-restriction save-excursion progn unwind-protect let catch = org-element--parse-to condition-case if setq] 41184 [save-excursion org-ele= ment-headline-parser cond setq let save-excursion if let* org-element--curr= ent-element setq progn unwind-protect let* if if while] 206976 [upcase conc= at let* while let progn if save-excursion org-element--get-node-properties = let* save-excursion org-element-headline-parser cond setq let save-excursio= n] 59776 [setq cond let* while let progn if save-excursion org-element--get= -node-properties let* save-excursion org-element-headline-parser cond setq = let save-excursion] 4224 [rx--translate-seq rx--translate-counted-repetitio= n rx--translate-bounded-repetition rx--translate-** rx--translate-form rx--= translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-s= tring let save-excursion let* save-excursion org-element-headline-parser] 3= 1680 [nconc list let let* save-excursion org-element-headline-parser cond s= etq let save-excursion if let* org-element--current-element setq progn unwi= nd-protect] 208032 [let catch org-element--parse-to condition-case if setq = let org-element-at-point let org-before-first-heading-p if org-back-to-head= ing-or-point-min save-excursion put-text-property progn if] 5280 [rx--enclo= se rx--bracket rx--atomic-regexp rx-to-string let save-excursion let* save-= excursion org-element-headline-parser setq progn if cond let* save-restrict= ion save-excursion] 71808 [setcar if org-element-put-property let let* save= -excursion org-element-headline-parser setq progn if cond let* save-restric= tion save-excursion progn unwind-protect] 29568 [save-excursion org-element= -section-parser cond setq let save-excursion if let* org-element--current-e= lement setq progn unwind-protect let* if if while] 48576 [memq not and whil= e let org-element-lineage let if let org-before-first-heading-p if org-back= -to-heading-or-point-min save-excursion put-text-property progn if] 4224 [a= nd cond let* save-restriction save-excursion progn unwind-protect let catch= org-element--parse-to condition-case if setq let org-element-at-point let]= 25344 [=3D and org-element--open-end-p if setq progn if let cond let while= let let* save-restriction save-excursion progn] 51744 [save-excursion org-= element-planning-parser cond setq let save-excursion if let* org-element--c= urrent-element setq progn unwind-protect let* if if while] 28512 [string-to= -number list org-parse-time-string let if let* save-excursion progn if org-= element-timestamp-parser let while let* save-excursion org-element-planning= -parser cond] 443888 [list let* save-excursion org-element-planning-parser = cond setq let save-excursion if let* org-element--current-element setq prog= n unwind-protect let* if] 31680 [if if while let let* save-restriction save= -excursion progn unwind-protect let catch org-element--parse-to condition-c= ase if setq let] 77088 [list let let save-excursion org-element-property-dr= awer-parser cond setq let save-excursion if let* org-element--current-eleme= nt setq progn unwind-protect let*] 20064 [save-excursion if let* org-elemen= t--current-element setq progn unwind-protect let* if if while let let* save= -restriction save-excursion progn] 70752 [let org-before-first-heading-p if= org-back-to-heading-or-point-min org-end-of-subtree if save-excursion put-= text-property progn if let while let save-restriction save-excursion progn]= 5280 [aref progn and let* save-excursion org-element-headline-parser setq = progn if cond let* save-restriction save-excursion progn unwind-protect let= ] 109488 [rx--sequence rx--translate-seq rx--translate-form rx--translate r= x-to-string let save-excursion let* save-excursion org-element-headline-par= ser setq progn if cond let* save-restriction] 69696 [let let* save-excursio= n org-element-headline-parser setq progn if cond let* save-restriction save= -excursion progn unwind-protect let catch org-element--parse-to] 119328 [co= nd org-get-limited-outline-regexp let* progn progn let* save-excursion org-= element-section-parser cond setq let save-excursion if let* org-element--cu= rrent-element setq] 23232 [not or if if while let let* save-restriction sav= e-excursion progn unwind-protect let catch org-element--parse-to condition-= case if] 35904 [memq not and while let org-element-lineage let if let org-b= efore-first-heading-p if org-back-to-heading-or-point-min org-end-of-subtre= e if save-excursion put-text-property] 5280 [progn unwind-protect let let a= nd save-excursion org-at-property-p if let while let save-restriction save-= excursion progn unwind-protect let*] 5280 [and org-element--open-end-p if s= etq progn if let cond let while let let* save-restriction save-excursion pr= ogn unwind-protect] 40128 [and if let save-excursion if let* org-element--c= urrent-element setq progn unwind-protect let* if if while let let*] 45408 [= memq not and while let org-element-lineage let if let org-before-first-head= ing-p if org-back-to-heading-or-point-min let* progn cond let] 7392 [rx--tr= anslate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-str= ing re-search-forward and if if progn unwind-protect let progn if cond] 316= 8 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-backwar= d if if progn unwind-protect let progn if cond let while let] 23232 [let or= g-before-first-heading-p if org-back-to-heading-or-point-min save-excursion= put-text-property progn if let while let save-restriction save-excursion p= rogn unwind-protect let*] 4224 [if org-back-to-heading-or-point-min save-ex= cursion put-text-property progn if let while let save-restriction save-excu= rsion progn unwind-protect let* let let] 1056 [setq cond let* while let pro= gn if save-excursion org-element--get-node-properties let* save-excursion o= rg-element-headline-parser setq progn if cond] 12672 [setcar if org-element= -put-property progn if let save-excursion if let* org-element--current-elem= ent setq progn unwind-protect let* if if] 77088 [if org-element--cache-put = or setq if if while let let* save-restriction save-excursion progn unwind-p= rotect let catch org-element--parse-to] 29568 [< or let if let org-before-f= irst-heading-p if save-excursion put-text-property progn if let while let s= ave-restriction save-excursion] 1056 [< or let if let org-before-first-head= ing-p if org-back-to-heading-or-point-min org-end-of-subtree if save-excurs= ion put-text-property progn if let while] 2112 [let org-before-first-headin= g-p if org-back-to-heading-or-point-min let* progn cond let save-restrictio= n save-excursion org-get-property-block progn unwind-protect let let and] 2= 112 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translat= e-bounded-repetition rx--translate-** rx--translate-form rx--translate mapc= ar rx--translate-seq rx--translate-form rx--translate rx-to-string let save= -excursion let* save-excursion] 39072 [org-inlinetask-outline-regexp concat= org-match-line let org-inlinetask-end-p and if while save-excursion let or= org-back-to-heading if org-back-to-heading-or-point-min let* progn] 2112 [= cons cons cons cons rx-to-string let save-excursion let* save-excursion org= -element-headline-parser setq progn if cond let* save-restriction] 12672 [l= et 1- cons cons cons cons cons cons rx-to-string re-search-forward and if i= f progn unwind-protect let] 14784 [rx--translate-seq rx--translate-form rx-= -translate rx-to-string re-search-backward if if progn unwind-protect let p= rogn if cond let while let] 26400 [< or let if let org-before-first-heading= -p cond let save-restriction save-excursion org-get-property-block progn un= wind-protect let let and] 4224 [setq progn if cond let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq let] 65472 [setq while let org-element-lineage let if let org= -before-first-heading-p if org-back-to-heading-or-point-min save-excursion = put-text-property progn if let while] 6336 [org-match-line let org-inlineta= sk-end-p and if save-excursion let or org-back-to-heading if org-back-to-he= ading-or-point-min save-excursion put-text-property progn if let] 16368 [se= tq while let org-element-lineage let if let org-before-first-heading-p if s= ave-excursion put-text-property progn if let while let] 7392 [let org-inlin= etask-end-p and or let save-excursion org-inlinetask-in-task-p or cond let = save-restriction save-excursion org-get-property-block progn unwind-protect= let] 1056 [progn if save-excursion org-element--get-node-properties let* s= ave-excursion org-element-headline-parser setq progn if cond let* save-rest= riction save-excursion progn unwind-protect] 19008 [setq while let org-elem= ent-lineage let if let org-before-first-heading-p if org-back-to-heading-or= -point-min let* progn cond let save-restriction save-excursion] 7392 [save-= restriction save-excursion progn unwind-protect let catch org-element--pars= e-to condition-case if setq let org-element-at-point let org-before-first-h= eading-p cond let] 19008 [let if let* save-excursion progn if org-element-t= imestamp-parser let while let progn if save-excursion org-element--get-time= -properties let* save-excursion] 32736 [rx--translate mapcar rx--translate-= seq rx--translate-form rx--translate rx-to-string let save-excursion let* s= ave-excursion org-element-headline-parser setq progn if cond let*] 27456 [c= ons cons cons cons cons rx-to-string re-search-forward and if if progn unwi= nd-protect let progn if cond] 3168 [rx--bracket rx--atomic-regexp rx-to-str= ing re-search-backward if if progn unwind-protect let progn if cond let whi= le let let*] 7392 [not if let org-split-string progn if let* save-excursion= org-element-headline-parser cond setq let save-excursion if let* org-eleme= nt--current-element] 2352440 [save-excursion let* save-excursion org-elemen= t-headline-parser cond setq let save-excursion if let* org-element--current= -element setq progn unwind-protect let* if] 12672 [let if let org-before-fi= rst-heading-p cond let save-restriction save-excursion org-get-property-blo= ck progn unwind-protect let let and save-excursion org-at-property-p] 3168 = [save-restriction save-excursion progn unwind-protect let catch org-element= --parse-to condition-case if setq let org-element-at-point let org-before-f= irst-heading-p if org-back-to-heading-or-point-min] 60192 [eq not if if if = let org-element-at-point let org-before-first-heading-p if org-back-to-head= ing-or-point-min save-excursion put-text-property progn if let] 1056 [let o= rg-inlinetask-outline-regexp concat org-match-line let org-inlinetask-end-p= and if save-excursion let or org-back-to-heading if org-back-to-heading-or= -point-min save-excursion put-text-property] 16368 [condition-case if setq = let org-element-at-point let org-before-first-heading-p if save-excursion p= ut-text-property progn if let while let save-restriction] 2112 [progn if le= t* save-excursion org-element-headline-parser setq progn if cond let* save-= restriction save-excursion progn unwind-protect let catch] 11616 [if save-e= xcursion put-text-property progn if let while let save-restriction save-exc= ursion progn unwind-protect let* let let if] 1056 [setq while let org-eleme= nt-lineage let if let org-before-first-heading-p if org-back-to-heading-or-= point-min org-end-of-subtree if save-excursion put-text-property progn if] = 7392 [memq not and while let org-element-lineage let if let org-before-firs= t-heading-p if org-back-to-heading-or-point-min org-end-of-subtree progn pu= t-text-property let*] 7392 [condition-case if setq let org-element-at-point= let org-before-first-heading-p if org-back-to-heading-or-point-min org-end= -of-subtree progn put-text-property let* while let save-restriction] 31680 = [let if let org-before-first-heading-p if org-back-to-heading-or-point-min = org-end-of-subtree progn put-text-property let* while let save-restriction = save-excursion save-excursion let] 32736 [if setq let org-element-at-point = let org-before-first-heading-p if org-back-to-heading-or-point-min org-end-= of-subtree progn put-text-property let* while let save-restriction save-exc= ursion] 6336 [let* progn if cond let* save-restriction save-excursion progn= unwind-protect let catch org-element--parse-to condition-case if setq let]= 894008 [let* org-refresh-properties org-refresh-effort-properties if or sa= ve-restriction save-excursion save-current-buffer catch let while let let o= rg-agenda-prepare-buffers if if] 4224 [and if let org-element-at-point let = org-before-first-heading-p if org-back-to-heading-or-point-min let* progn c= ond let save-restriction save-excursion org-get-property-block progn] 2112 = [let org-before-first-heading-p cond let save-restriction save-excursion or= g-get-property-block progn unwind-protect let let and save-excursion org-at= -property-p if while] 1056 [rx--sequence rx--translate-seq rx--translate-fo= rm rx--translate rx-to-string re-search-forward and if if progn unwind-prot= ect let progn if cond let] 17952 [progn and let* save-excursion org-element= -headline-parser cond setq let save-excursion if let* org-element--current-= element setq progn unwind-protect let*] 148312 [cons cons cons cons rx-to-s= tring let save-excursion let* save-excursion org-element-headline-parser co= nd setq let save-excursion if let*] 6336 [looking-at-p if cond let save-res= triction save-excursion org-get-property-block progn unwind-protect let let= and save-excursion org-at-property-p if while] 8320 [let* cond save-restri= ction save-excursion save-excursion let org-entry-get org-refresh-property = progn if while save-restriction save-excursion save-excursion let progn] 10= 56 [looking-at-p or let save-excursion org-inlinetask-in-task-p or cond let= save-restriction save-excursion org-get-property-block let if let org--pro= perty-local-values let*] 1732456 [and or let save-excursion org-inlinetask-= in-task-p or cond let save-restriction save-excursion org-get-property-bloc= k let if let org--property-local-values let*] 1664360 [not cond org-get-lim= ited-outline-regexp let* progn if cond let* save-restriction save-excursion= progn unwind-protect let catch org-element--parse-to condition-case] 13728= [let* if if while let let* save-restriction save-excursion progn unwind-pr= otect let catch org-element--parse-to condition-case if setq] 39072 [let or= g-element-node-property-parser cond setq let save-excursion if let* org-ele= ment--current-element setq progn unwind-protect let* if if while] 9504 [and= save-excursion org-at-heading-p or org-back-to-heading if org-back-to-head= ing-or-point-min let* progn cond let save-restriction save-excursion org-ge= t-property-block let if] 1635488 [and let* save-restriction save-excursion = progn unwind-protect let catch org-element--parse-to condition-case if setq= let org-element-at-point let org-before-first-heading-p] 32736 [cons cons = cons rx-to-string re-search-backward if if progn unwind-protect let progn i= f cond let while let] 7392 [replace-regexp-in-string replace-regexp-in-stri= ng org-trim let* save-excursion org-element-headline-parser cond setq let s= ave-excursion if let* org-element--current-element setq progn unwind-protec= t] 3397736 [rx--translate-seq rx--translate-form rx--translate rx-to-string= let save-excursion let* save-excursion org-element-headline-parser cond se= tq let save-excursion if let* org-element--current-element] 30624 [let let*= save-excursion org-element-headline-parser cond setq let save-excursion if= let* org-element--current-element setq progn unwind-protect let* if] 43296= [looking-at-p if cond let save-restriction save-excursion org-get-property= -block let if let org--property-local-values let* cond save-restriction sav= e-excursion save-excursion] 1694208 [and let save-excursion let* progn if l= et if let org--property-local-values let* cond save-restriction save-excurs= ion save-excursion let] 537624 [if format concat org-re-property let* let* = progn if let if let org--property-local-values let* cond save-restriction s= ave-excursion] 17416 [while let* let* progn if let if let org--property-loc= al-values let* cond save-restriction save-excursion save-excursion let org-= entry-get] 543712 [mapconcat and let* cond save-restriction save-excursion = save-excursion let org-entry-get org-refresh-property progn if while save-r= estriction save-excursion save-excursion] 1056 [memq not and while let org-= element-lineage let if let org-before-first-heading-p if org-back-to-headin= g-or-point-min save-excursion org-refresh-property progn if] 1056 [and save= -excursion org-at-heading-p or org-back-to-heading if org-back-to-heading-o= r-point-min save-excursion org-refresh-property progn if while save-restric= tion save-excursion save-excursion let] 8192 [save-excursion org-match-line= let org-inlinetask-end-p and if save-excursion let or org-back-to-heading = if org-back-to-heading-or-point-min save-excursion org-refresh-property pro= gn if] 8192 [or while save-excursion let or org-back-to-heading if org-back= -to-heading-or-point-min save-excursion org-refresh-property progn if while= save-restriction save-excursion save-excursion] 8192 [progn let while let = if progn unwind-protect let* let save-excursion org-refresh-property progn = if while save-restriction save-excursion] 1056 [string-match-p cond progn u= nwind-protect let org-duration-to-minutes funcall put-text-property let let= * progn let while let if progn] 8192 [split-string mapcar let* cond progn u= nwind-protect let org-duration-to-minutes funcall put-text-property let let= * progn let while let] 4096 [org-refresh-properties or save-restriction sav= e-excursion save-current-buffer catch let while let let org-agenda-prepare-= buffers if if let org-agenda-prepare catch] 1056 [while let progn if save-r= estriction save-excursion save-current-buffer catch let while let let org-a= genda-prepare-buffers if if let] 3168 [let* org-collect-keywords let progn = if org-set-regexps-and-options save-restriction save-excursion save-current= -buffer catch let while let let org-agenda-prepare-buffers if] 1056 [let* l= et while let let cond org--tag-add-to-alist setq let progn if org-set-regex= ps-and-options save-restriction save-excursion save-current-buffer catch] 7= 392 [let let and save-excursion org-at-property-p if let while let save-res= triction save-excursion progn unwind-protect let* let let] 5280 [string-to-= number list org-parse-time-string let if let* save-excursion progn if org-e= lement-timestamp-parser let while let progn if save-excursion] 879592 [or l= et let* save-restriction save-excursion progn unwind-protect let catch org-= element--parse-to condition-case if setq let org-element-at-point let] 4540= 8 [rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if p= rogn unwind-protect let progn if cond let while let] 6336 [let and let* sav= e-excursion org-element-headline-parser cond setq let save-excursion if let= * org-element--current-element setq progn unwind-protect let*] 1068352 [and= let* save-excursion org-element-headline-parser cond setq let save-excursi= on if let* org-element--current-element setq progn unwind-protect let* if] = 3475128 [if let* save-excursion org-element-headline-parser cond setq let s= ave-excursion if let* org-element--current-element setq progn unwind-protec= t let* if] 3513894 [org-split-string progn if let* save-excursion org-eleme= nt-headline-parser cond setq let save-excursion if let* org-element--curren= t-element setq progn unwind-protect] 175984 [progn if let* save-excursion o= rg-element-headline-parser cond setq let save-excursion if let* org-element= --current-element setq progn unwind-protect let*] 10560 [cons setq while le= t if let org-split-string progn if let* save-excursion org-element-headline= -parser cond setq let save-excursion] 156976 [replace-regexp-in-string org-= trim let* save-excursion org-element-headline-parser cond setq let save-exc= ursion if let* org-element--current-element setq progn unwind-protect let*]= 3690280 [let* save-excursion org-element-headline-parser cond setq let sav= e-excursion if let* org-element--current-element setq progn unwind-protect = let* if if] 53856 [mapcar rx--translate-seq rx--translate-form rx--translat= e rx-to-string let save-excursion let* save-excursion org-element-headline-= parser setq progn if cond let* save-restriction] 38016 [let let save-excurs= ion org-element-property-drawer-parser cond setq let save-excursion if let*= org-element--current-element setq progn unwind-protect let* if] 3168 [let = org-before-first-heading-p if save-excursion put-text-property progn if let= while let save-restriction save-excursion progn unwind-protect let* let] 1= 056 [let org-inlinetask-end-p and if save-excursion let or org-back-to-head= ing if org-back-to-heading-or-point-min org-end-of-subtree if save-excursio= n put-text-property progn if] 1056 [condition-case if setq let org-element-= at-point let org-before-first-heading-p if org-back-to-heading-or-point-min= let* progn cond let save-restriction save-excursion org-get-property-block= ] 14784 [if let org-split-string progn if let* save-excursion org-element-h= eadline-parser setq progn if cond let* save-restriction save-excursion prog= n] 13728 [looking-at progn let* save-excursion progn if org-element-timesta= mp-parser let while let progn if save-excursion org-element--get-time-prope= rties let* save-excursion] 1576072 [let* save-restriction save-excursion pr= ogn unwind-protect let catch org-element--parse-to condition-case if setq l= et org-element-at-point let org-before-first-heading-p if] 61248 [if let* o= rg-element--current-element setq progn unwind-protect let* if if while let = let* save-restriction save-excursion progn unwind-protect] 31680 [cons cons= rx-to-string let save-excursion let* save-excursion org-element-headline-p= arser setq progn if cond let* save-restriction save-excursion progn] 16896 = [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-to-stri= ng re-search-backward if if progn unwind-protect let progn if cond let whil= e] 16896 [progn if save-excursion org-element--get-time-properties let* sav= e-excursion org-element-headline-parser cond setq let save-excursion if let= * org-element--current-element setq progn] 13728 [save-excursion progn if o= rg-element-timestamp-parser let while let progn if save-excursion org-eleme= nt--get-time-properties let* save-excursion org-element-headline-parser con= d setq] 129888 [cons cons rx-to-string let save-excursion let* save-excursi= on org-element-headline-parser cond setq let save-excursion if let* org-ele= ment--current-element setq] 2112 [condition-case if setq let org-element-at= -point let org-before-first-heading-p if org-back-to-heading-or-point-min s= ave-excursion put-text-property progn if let while let] 4224 [setq cond let= while let progn if save-excursion org-element--get-time-properties let* sa= ve-excursion org-element-headline-parser setq progn if cond] 11616 [if setq= let org-element-at-point let org-before-first-heading-p if org-back-to-hea= ding-or-point-min org-end-of-subtree if save-excursion put-text-property pr= ogn if let while] 1056 [list and let* save-excursion progn if org-element-t= imestamp-parser let while let progn if save-excursion org-element--get-time= -properties let* save-excursion] 8448 [rx--translate-bounded-repetition rx-= -translate-** rx--translate-form rx--translate mapcar rx--translate-seq rx-= -translate-form rx--translate rx-to-string let save-excursion let* save-exc= ursion org-element-headline-parser setq progn] 544536 [list and let* save-e= xcursion progn if org-element-timestamp-parser let while let* save-excursio= n org-element-planning-parser cond setq let save-excursion] 6336 [cond org-= get-limited-outline-regexp let* progn cond let save-restriction save-excurs= ion org-get-property-block progn unwind-protect let let and save-excursion = org-at-property-p] 3168 [list let org-element-node-property-parser cond set= q let save-excursion if let* org-element--current-element setq progn unwind= -protect let* if if] 22176 [if let* save-excursion progn if org-element-tim= estamp-parser let while let progn if save-excursion org-element--get-time-p= roperties let* save-excursion org-element-headline-parser] 46464 [rx--trans= late-counted-repetition rx--translate-bounded-repetition rx--translate-repe= at rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-= form rx--translate rx-to-string re-search-forward and if if progn unwind-pr= otect] 155488 [let while let progn if save-excursion org-element--get-time-= properties let* save-excursion org-element-headline-parser cond setq let sa= ve-excursion if let*] 140248 [apply derived-mode-p not cond org-get-limited= -outline-regexp let* progn cond setq let save-excursion if let* org-element= --current-element setq progn] 13728 [org-inlinetask-outline-regexp concat o= rg-match-line let org-inlinetask-end-p and if save-excursion let or org-bac= k-to-heading if org-back-to-heading-or-point-min save-excursion put-text-pr= operty progn] 1056 [eq if let org-element-at-point let org-before-first-hea= ding-p if org-back-to-heading-or-point-min org-end-of-subtree if save-excur= sion put-text-property progn if let while] 1056 [and cond let if org-end-of= -subtree if save-excursion put-text-property progn if let while let save-re= striction save-excursion progn] 1056 [let if let org-before-first-heading-p= if org-back-to-heading-or-point-min let* progn cond let save-restriction s= ave-excursion org-get-property-block progn unwind-protect let] 1056 [condit= ion-case if setq let org-element-at-point let org-before-first-heading-p co= nd let save-restriction save-excursion org-get-property-block progn unwind-= protect let let] 2112 [cons cons cons cons cons rx-to-string re-search-back= ward if if progn unwind-protect let progn if cond let] 7392 [if let org-spl= it-string progn if let* save-excursion org-element-headline-parser cond set= q let save-excursion if let* org-element--current-element setq] 8448 [let* = save-excursion progn if org-element-timestamp-parser let while let progn if= save-excursion org-element--get-time-properties let* save-excursion org-el= ement-headline-parser cond] 5280 [let* while let progn if save-excursion or= g-element--get-node-properties let* save-excursion org-element-headline-par= ser setq progn if cond let* save-restriction] 120633 [let* progn progn let*= save-excursion org-element-section-parser cond setq let save-excursion if = let* org-element--current-element setq progn unwind-protect] 347424 [string= -to-char let* list and let* save-excursion progn if org-element-timestamp-p= arser let while let progn if save-excursion org-element--get-time-propertie= s] 24752 [let list and let* save-excursion progn if org-element-timestamp-p= arser let while let progn if save-excursion org-element--get-time-propertie= s let*] 25800 [file-name-sans-extension progn if cond let* save-restriction= save-excursion org-element-org-data-parser setq if cond let* save-restrict= ion save-excursion progn unwind-protect] 205884 [file-name-sans-versions fi= le-name-sans-extension progn if cond let* save-restriction save-excursion o= rg-element-org-data-parser setq if cond let* save-restriction save-excursio= n progn] 29696 [while let save-restriction save-excursion save-excursion le= t if catch let* save-restriction save-excursion org-element-org-data-parser= setq if cond let*] 71680 [looking-at-p if if save-excursion org-element--g= et-node-properties let* save-excursion org-element-headline-parser cond set= q let save-excursion if let* org-element--current-element setq] 2784784 [or= g-match-line let org-inlinetask-end-p and if save-excursion let or org-back= -to-heading if org-back-to-heading-or-point-min org-end-of-subtree if save-= excursion put-text-property progn] 8184 [apply replace-regexp-in-string org= -trim let* save-excursion org-element-headline-parser setq progn if cond le= t* save-restriction save-excursion progn unwind-protect let] 607416 [org-re= -property let* org-refresh-properties or save-restriction save-excursion sa= ve-current-buffer catch let while let let org-agenda-prepare-buffers if if = let] 8184 [while let progn if save-excursion org-element--get-time-properti= es let* save-excursion org-element-headline-parser cond setq let save-excur= sion if let* org-element--current-element] 1239672 [looking-at progn let* s= ave-excursion progn if org-element-timestamp-parser let while let* save-exc= ursion org-element-planning-parser cond setq let save-excursion] 689704 [le= t* cond org-get-limited-outline-regexp let* progn cond setq let save-excurs= ion if let* org-element--current-element setq progn unwind-protect let*] 51= 2104 [org-trim let* save-excursion org-element-headline-parser setq progn i= f cond let* save-restriction save-excursion progn unwind-protect let catch = org-element--parse-to] 1163112 [let* cond org-get-limited-outline-regexp le= t* progn progn let* save-excursion org-element-section-parser cond setq let= save-excursion if let* org-element--current-element] 208544 [org-re-proper= ty let* org-refresh-properties org-refresh-effort-properties if or save-res= triction save-excursion save-current-buffer catch let while let let org-age= nda-prepare-buffers if] 8184 [progn put-text-property let* while let save-r= estriction save-excursion save-excursion let progn unwind-protect let* org-= refresh-stats-properties or save-restriction save-excursion] 23232 [and if = org-end-of-subtree progn put-text-property let* while let save-restriction = save-excursion save-excursion let progn unwind-protect let* org-refresh-sta= ts-properties] 6336 [org-element-lineage let if let org-before-first-headin= g-p if org-back-to-heading-or-point-min org-end-of-subtree progn put-text-p= roperty let* while let save-restriction save-excursion save-excursion] 1689= 6 [< or let if let org-before-first-heading-p if org-back-to-heading-or-poi= nt-min org-end-of-subtree progn put-text-property let* while let save-restr= iction save-excursion] 17952 [if org-back-to-heading-or-point-min org-end-o= f-subtree progn put-text-property let* while let save-restriction save-excu= rsion save-excursion let progn unwind-protect let* org-refresh-stats-proper= ties] 6336 [let org-before-first-heading-p if org-back-to-heading-or-point-= min org-end-of-subtree progn put-text-property let* while let save-restrict= ion save-excursion save-excursion let progn unwind-protect] 13728 [let catc= h org-element--parse-to condition-case if setq let org-element-at-point let= org-before-first-heading-p if org-back-to-heading-or-point-min org-end-of-= subtree progn put-text-property let*] 25344 [cond let if org-end-of-subtree= progn put-text-property let* while let save-restriction save-excursion sav= e-excursion let progn unwind-protect let*] 8448 [eq if let org-element-at-p= oint let org-before-first-heading-p if org-back-to-heading-or-point-min org= -end-of-subtree progn put-text-property let* while let save-restriction sav= e-excursion] 8448 [let progn if org-set-regexps-and-options save-restrictio= n save-excursion save-current-buffer catch let while let let org-agenda-pre= pare-buffers if if let] 2112 [org--tag-add-to-alist setq let progn if org-s= et-regexps-and-options save-restriction save-excursion save-current-buffer = catch let while let let org-agenda-prepare-buffers if] 1056 [save-restricti= on save-excursion save-current-buffer catch let while let let org-agenda-pr= epare-buffers if if let org-agenda-prepare catch org-agenda-list funcall-in= teractively] 1056 [let while let let cond org--tag-add-to-alist setq let pr= ogn if org-set-regexps-and-options save-restriction save-excursion save-cur= rent-buffer catch let] 5280 [let* org-refresh-properties or save-restrictio= n save-excursion save-current-buffer catch let while let let org-agenda-pre= pare-buffers if if let org-agenda-prepare] 1056 [let save-restriction save-= excursion save-excursion let org--collect-keywords-1 let* org-collect-keywo= rds let progn if org-set-regexps-and-options save-restriction save-excursio= n save-current-buffer catch] 2112 [let* if let* let while let let cond org-= -tag-add-to-alist setq save-restriction save-excursion save-current-buffer = catch let while] 2099 [org-make-options-regexp let save-restriction save-ex= cursion save-excursion let org--collect-keywords-1 let* org-collect-keyword= s let progn if org-set-regexps-and-options save-restriction save-excursion = save-current-buffer] 8184 [apply replace-regexp-in-string org-trim let* sav= e-excursion org-element-headline-parser cond setq let save-excursion if let= * org-element--current-element setq progn unwind-protect] 306552 [rx--trans= late-bounded-repetition rx--translate-repeat rx--translate-form rx--transla= te mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string r= e-search-forward and if if progn unwind-protect let] 120232 [let* progn con= d setq let save-excursion if let* org-element--current-element setq progn u= nwind-protect let* if if while] 413496 [string-to-number cond list org-pars= e-time-string let if let* save-excursion progn if org-element-timestamp-par= ser let while let progn if] 208744 [rx--translate mapcar rx--translate-seq = rx--translate-counted-repetition rx--translate-bounded-repetition rx--trans= late-** rx--translate-form rx--translate mapcar rx--translate-seq rx--trans= late-form rx--translate rx-to-string let save-excursion let*] 375520 [let c= ond let if org-end-of-subtree progn put-text-property let* while let save-r= estriction save-excursion save-excursion let progn unwind-protect] 49104 [c= oncat org-re-property let* org-refresh-properties org-refresh-effort-proper= ties if or save-restriction save-excursion save-current-buffer catch let wh= ile let let org-agenda-prepare-buffers] 8184 [save-restriction save-excursi= on progn unwind-protect let catch org-element--parse-to condition-case if s= etq let org-element-at-point or org-element-at-point-no-context let while] = 1056 [condition-case if setq let org-element-at-point or org-element-at-poi= nt-no-context let progn unwind-protect let* while let save-restriction save= -excursion save-excursion] 1056 [eq not if if if let org-element-at-point o= r org-element-at-point-no-context let progn unwind-protect let* while let s= ave-restriction] 1056 [cons cons cons rx-to-string let save-excursion let* = save-excursion org-element-headline-parser setq progn if cond let* save-res= triction save-excursion] 14784 [or org-back-to-heading if org-back-to-headi= ng-or-point-min let* progn cond let save-restriction save-excursion org-get= -property-block progn unwind-protect let let and] 1056 [let org-inlinetask-= end-p and if while save-excursion let or org-back-to-heading if org-back-to= -heading-or-point-min save-excursion put-text-property progn if let] 2112 [= and if let org-element-at-point let org-before-first-heading-p if save-excu= rsion put-text-property progn if let while let save-restriction save-excurs= ion] 1056 [condition-case if setq let org-element-at-point let org-before-f= irst-heading-p if org-back-to-heading-or-point-min org-end-of-subtree if sa= ve-excursion put-text-property progn if let] 1056 [org-element-lineage let = if let org-before-first-heading-p if org-back-to-heading-or-point-min org-e= nd-of-subtree if save-excursion put-text-property progn if let while let] 2= 112 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translat= e-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--tran= slate-form rx--translate rx-to-string re-search-backward if if progn unwind= -protect] 8448 [progn if save-excursion org-element--get-node-properties le= t* save-excursion org-element-headline-parser cond setq let save-excursion = if let* org-element--current-element setq progn] 4224 [or org-back-to-headi= ng if org-back-to-heading-or-point-min save-excursion put-text-property pro= gn if let while let save-restriction save-excursion progn unwind-protect le= t*] 3168 [eq not if if if let org-element-at-point let org-before-first-hea= ding-p if org-back-to-heading-or-point-min org-end-of-subtree if save-excur= sion put-text-property progn] 2112 [cond let if org-end-of-subtree if save-= excursion put-text-property progn if let while let save-restriction save-ex= cursion progn unwind-protect] 2112 [let cons cons cons cons cons rx-to-stri= ng re-search-backward if if progn unwind-protect let progn if cond] 10560 [= let* save-excursion org-element-section-parser cond setq let save-excursion= if let* org-element--current-element setq progn unwind-protect let* if if]= 8448 [memq not and while let org-element-lineage let if let org-before-fir= st-heading-p if save-excursion put-text-property progn if let] 3168 [or org= -back-to-heading if org-back-to-heading-or-point-min org-end-of-subtree if = save-excursion put-text-property progn if let while let save-restriction sa= ve-excursion progn] 1056 [org-collect-keywords let progn if org-set-regexps= -and-options save-restriction save-excursion save-current-buffer catch let = while let let org-agenda-prepare-buffers if if] 1056 [catch org-element--pa= rse-to condition-case if setq let org-element-at-point or org-element-at-po= int-no-context let while save-restriction save-excursion catch let let] 105= 6 [if setq let org-element-at-point or org-element-at-point-no-context let = progn unwind-protect let* while let save-restriction save-excursion save-ex= cursion let] 1056 [not cond org-get-limited-outline-regexp let* progn save-= excursion or org-element-section-parser cond setq let save-excursion if let= * org-element--current-element setq] 1056 [let save-excursion org-element-k= eyword-parser cond cond let cond setq let save-excursion if let* org-elemen= t--current-element setq progn unwind-protect] 2112 [/=3D and if if progn un= wind-protect let progn if cond let while let let* save-restriction save-exc= ursion] 20064 [let org-before-first-heading-p cond let save-restriction sav= e-excursion org-get-property-block progn unwind-protect let let and save-ex= cursion org-at-property-p if let] 2112 [rx--bracket rx--atomic-regexp rx-to= -string let save-excursion let* save-excursion org-element-headline-parser = setq progn if cond let* save-restriction save-excursion progn] 20064 [rx--t= ranslate-seq rx--translate-form rx--translate rx-to-string re-search-forwar= d and if if progn unwind-protect let progn if cond let while] 19008 [rx--se= quence rx--translate-seq rx--translate-form rx--translate rx-to-string let = save-excursion let* save-excursion org-element-headline-parser cond setq le= t save-excursion if let*] 22176 [catch org-element--parse-to condition-case= if setq let org-element-at-point let org-before-first-heading-p if org-bac= k-to-heading-or-point-min save-excursion put-text-property progn if let] 21= 12 [save-restriction save-excursion org-get-property-block progn unwind-pro= tect let let and save-excursion org-at-property-p if let while let save-res= triction save-excursion] 1056 [save-excursion let* save-excursion org-eleme= nt-headline-parser setq progn if cond let* save-restriction save-excursion = progn unwind-protect let catch org-element--parse-to] 22176 [rx--enclose rx= --bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn = unwind-protect let progn if cond let while] 17952 [let if let org-before-fi= rst-heading-p if org-back-to-heading-or-point-min save-excursion put-text-p= roperty progn if let while let save-restriction save-excursion progn] 4224 = [let catch org-element--parse-to condition-case if setq let org-element-at-= point let org-before-first-heading-p if save-excursion put-text-property pr= ogn if let] 2112 [let if let org-before-first-heading-p if save-excursion p= ut-text-property progn if let while let save-restriction save-excursion pro= gn unwind-protect] 3168 [rx-to-string let save-excursion let* save-excursio= n org-element-headline-parser setq progn if cond let* save-restriction save= -excursion progn unwind-protect let] 9504 [and if let org-element-at-point = let org-before-first-heading-p if org-back-to-heading-or-point-min org-end-= of-subtree progn put-text-property let* while let save-restriction save-exc= ursion] 5280 [if let org-before-first-heading-p if org-back-to-heading-or-p= oint-min org-end-of-subtree progn put-text-property let* while let save-res= triction save-excursion save-excursion let progn] 8448 [if org-end-of-subtr= ee progn put-text-property let* while let save-restriction save-excursion s= ave-excursion let progn unwind-protect let* org-refresh-stats-properties or= ] 16896 [org-before-first-heading-p if org-back-to-heading-or-point-min org= -end-of-subtree progn put-text-property let* while let save-restriction sav= e-excursion save-excursion let progn unwind-protect let*] 12672 [if let org= -element-at-point let org-before-first-heading-p if org-back-to-heading-or-= point-min org-end-of-subtree progn put-text-property let* while let save-re= striction save-excursion save-excursion] 10560 [eq not if if if let org-ele= ment-at-point let org-before-first-heading-p if org-back-to-heading-or-poin= t-min org-end-of-subtree progn put-text-property let* while] 6336 [org-elem= ent-at-point let org-before-first-heading-p if org-back-to-heading-or-point= -min org-end-of-subtree progn put-text-property let* while let save-restric= tion save-excursion save-excursion let progn] 6336 [cons rx-to-string let s= ave-excursion let* save-excursion org-element-headline-parser setq progn if= cond let* save-restriction save-excursion progn unwind-protect] 11616 [str= ing-to-number and let* while let save-restriction save-excursion save-excur= sion let progn unwind-protect let* org-refresh-stats-properties or save-res= triction save-excursion] 72072 [or org-back-to-heading if org-back-to-headi= ng-or-point-min org-end-of-subtree progn put-text-property let* while let s= ave-restriction save-excursion save-excursion let progn unwind-protect] 633= 6 [catch org-element--parse-to condition-case if setq let org-element-at-po= int let org-before-first-heading-p if org-back-to-heading-or-point-min org-= end-of-subtree progn put-text-property let* while] 5280 [org-end-of-subtree= progn put-text-property let* while let save-restriction save-excursion sav= e-excursion let progn unwind-protect let* org-refresh-stats-properties or s= ave-restriction] 4224 [apply derived-mode-p and cond let if org-end-of-subt= ree progn put-text-property let* while let save-restriction save-excursion = save-excursion let] 1056 [org-refresh-properties org-refresh-effort-propert= ies if or save-restriction save-excursion save-current-buffer catch let whi= le let let org-agenda-prepare-buffers if if let] 1056 [funcall cond let* if= let* let while let let cond org--tag-add-to-alist setq let progn if org-se= t-regexps-and-options] 3168 [match-string-no-properties let org-element-nod= e-property-parser cond setq let save-excursion if let* org-element--current= -element setq progn unwind-protect let* if if] 40920 [concat let* while let= progn if save-excursion org-element--get-node-properties let* save-excursi= on org-element-headline-parser cond setq let save-excursion if] 73008 [let = org-inlinetask-outline-regexp concat looking-at-p or let save-excursion org= -inlinetask-in-task-p or cond let save-restriction save-excursion org-get-p= roperty-block progn unwind-protect] 8184 [let org-inlinetask-outline-regexp= concat org-match-line let org-inlinetask-end-p and if save-excursion let o= r org-back-to-heading if org-back-to-heading-or-point-min let* progn] 28744= [org-trim let* save-excursion org-element-headline-parser cond setq let sa= ve-excursion if let* org-element--current-element setq progn unwind-protect= let* if] 573048 [apply rx-to-string let save-excursion let* save-excursion= org-element-headline-parser cond setq let save-excursion if let* org-eleme= nt--current-element setq progn] 291432 [org-match-line let org-inlinetask-e= nd-p and if save-excursion let or org-back-to-heading if org-back-to-headin= g-or-point-min save-excursion org-refresh-property progn if while] 8184 [lo= oking-at let and let* save-excursion org-element-headline-parser cond setq = let save-excursion if let* org-element--current-element setq progn unwind-p= rotect] 1576320 [match-string-no-properties let* while let progn if save-ex= cursion org-element--get-node-properties let* save-excursion org-element-he= adline-parser setq progn if cond let*] 231000 [ucs-normalize-region ucs-nor= malize-HFS-NFD-region ucs-normalize-hfs-nfd-pre-write-conversion file-exist= s-p if org-check-agenda-file if set-buffer save-current-buffer catch let wh= ile let let org-agenda-prepare-buffers if] 119135 [delete-dups let org-uniq= uify setq let org-agenda-prepare-buffers if if let org-agenda-prepare catch= org-agenda-list funcall-interactively call-interactively cond let*] 198224= [delete-dups let org-uniquify setq if if let org-agenda-prepare catch org-= agenda-list funcall-interactively call-interactively cond let* catch org-ag= enda] 25288 [while let org-compile-prefix-format catch org-agenda-list func= all-interactively call-interactively cond let* catch org-agenda funcall-int= eractively call-interactively command-execute nil nil] 1024 [and progn unwi= nd-protect let let setq progn if while let org-compile-prefix-format catch = org-agenda-list funcall-interactively call-interactively cond] 1024 [time-t= o-days org-today let* catch org-agenda-list funcall-interactively call-inte= ractively cond let* catch org-agenda funcall-interactively call-interactive= ly command-execute nil nil] 24 [if "#" mapcar app= ly setq let org-agenda-files let* catch org-agenda-list funcall-interactive= ly call-interactively cond let* catch org-agenda] 6884 [list if "#" mapcar apply setq let org-agenda-files let* catch org-ag= enda-list funcall-interactively call-interactively cond let* catch] 8184 [u= cs-normalize-region ucs-normalize-HFS-NFD-region ucs-normalize-hfs-nfd-pre-= write-conversion file-directory-p if "#" mapcar a= pply setq let org-agenda-files let* catch org-agenda-list funcall-interacti= vely call-interactively] 119135 [flycheck-handle-change insert cond let* if= let* catch org-agenda-list funcall-interactively call-interactively cond l= et* catch org-agenda funcall-interactively call-interactively] 1024 [intern= if org-fold-core-get-folding-property-symbol if org-fold-core--property-sy= mbol-get-create get-char-property-and-overlay cdr let if if save-restrictio= n save-excursion save-excursion let let org-fold-core-get-region-at-point] = 3399520 [intern if org-fold-core-get-folding-property-symbol if org-fold-co= re--property-symbol-get-create get-char-property cond save-restriction save= -excursion save-excursion let let org-fold-core-get-folding-spec if let let= ] 1716128 [intern if org-fold-core-get-folding-property-symbol if org-fold-= core--property-symbol-get-create "#" mapcar mapcar = apply org-fold-core-next-folding-state-change setq if let let save-restrict= ion save-excursion] 1650656 [timer--time-setter timer-set-time run-at-time = flycheck-handle-change add-text-properties progn if if let* catch org-agend= a-list funcall-interactively call-interactively cond let* catch] 24 [timer-= -time-less-p timer--activate timer-activate run-at-time flycheck-handle-cha= nge add-text-properties progn if if let* catch org-agenda-list funcall-inte= ractively call-interactively cond let*] 72 [put-text-property save-excursio= n org-agenda-mark-header-line progn if if let* catch org-agenda-list funcal= l-interactively call-interactively cond let* catch org-agenda funcall-inter= actively] 704 [timer-relative-time run-at-time flycheck-handle-change put-t= ext-property save-excursion org-agenda-mark-header-line progn if if let* ca= tch org-agenda-list funcall-interactively call-interactively cond let*] 24 = [timer--time-setter timer-set-time run-at-time flycheck-handle-change put-t= ext-property save-excursion org-agenda-mark-header-line progn if if let* ca= tch org-agenda-list funcall-interactively call-interactively cond] 24 [time= r--time-less-p timer--activate timer-activate run-at-time flycheck-handle-c= hange put-text-property save-excursion org-agenda-mark-header-line progn if= if let* catch org-agenda-list funcall-interactively call-interactively] 72= [abbreviate-file-name format list let* org-agenda-get-deadlines setq let c= ond let while let let* progn let save-restriction save-excursion] 13472 [ti= me-since time-to-days org-today let* org-agenda-get-deadlines setq let cond= let while let let* progn let save-restriction save-excursion] 24 [time-to-= days org-today let* org-agenda-get-deadlines setq let cond let while let le= t* progn let save-restriction save-excursion save-current-buffer] 1104 [tim= e-to-days org-today eq org-agenda-today-p let* org-agenda-get-deadlines set= q let cond let while let let* progn let save-restriction] 1104 [while if le= t* org-agenda-get-deadlines setq let cond let while let let* progn let save= -restriction save-excursion save-current-buffer] 196648 [while let* org-age= nda-get-progress cons setq let cond let while let let* progn let save-restr= iction save-excursion save-current-buffer] 35840 [time-to-days org-today le= t* org-agenda-get-scheduled cons setq let cond let while let let* progn let= save-restriction save-excursion] 1104 [time-to-days org-today eq org-agend= a-today-p let* org-agenda-get-scheduled cons setq let cond let while let le= t* progn let] 1104 [while if let* org-agenda-get-scheduled cons setq let co= nd let while let let* progn let save-restriction save-excursion] 439336 [wh= ile let* org-agenda-get-blocks cons setq let cond let while let let* progn = let save-restriction save-excursion save-current-buffer] 35856 [time-to-day= s org-today let* org-agenda-get-timestamps cons setq let cond let while let= let* progn let save-restriction save-excursion] 1104 [while let* org-agend= a-get-timestamps cons setq let cond let while let let* progn let save-restr= iction save-excursion save-current-buffer] 139328 [while let* org-agenda-ge= t-sexps cons setq let cond let while let let* progn let save-restriction sa= ve-excursion save-current-buffer] 31744 [outline-next-heading let* progn pr= ogn let* save-excursion org-element-section-parser cond setq let save-excur= sion if let* org-element--current-element setq progn] 4434544 [and cond set= q let save-excursion if let* org-element--current-element setq progn unwind= -protect let* if if while let] 4588376 [save-excursion or if let org-agenda= -skip catch while if let* org-agenda-get-deadlines setq let cond let while = let] 162816 [and save-excursion org-at-heading-p or org-back-to-heading if = save-restriction save-excursion save-excursion let if progn unwind-protect = let org-get-tags let] 1683608 [save-excursion org-match-line let org-inline= task-end-p and if save-excursion let or org-back-to-heading if save-restric= tion save-excursion save-excursion let if] 630960 [or while save-excursion = let or org-back-to-heading if save-restriction save-excursion save-excursio= n let if progn unwind-protect let org-get-tags] 632928 [and if let* org--ge= t-local-tags if let save-restriction save-excursion save-excursion let if p= rogn unwind-protect let org-get-tags let] 1784048 [split-string and if let*= org--get-local-tags if let save-restriction save-excursion save-excursion = let if progn unwind-protect let org-get-tags] 769408 [while let progn if sa= ve-excursion org-element--get-node-properties save-restriction save-excursi= on org-element--get-global-node-properties let* save-restriction save-excur= sion org-element-org-data-parser setq if cond] 4096 [if save-excursion org-= element--get-node-properties let* save-excursion org-element-headline-parse= r cond setq let save-excursion if let* org-element--current-element setq pr= ogn unwind-protect] 2874987 [if save-restriction save-excursion org-outline= -level funcall 1- let* if let progn if if let org-up-heading-safe and save-= excursion] 868360 [and save-excursion org-at-heading-p or org-back-to-headi= ng save-excursion org-get-todo-state progn unwind-protect let let* catch wh= ile if let* org-agenda-get-deadlines] 158744 [save-excursion org-match-line= let org-inlinetask-end-p and if save-excursion let or org-back-to-heading = save-excursion org-get-todo-state progn unwind-protect let let*] 604168 [or= while save-excursion let or org-back-to-heading save-excursion org-get-tod= o-state progn unwind-protect let let* catch while if let*] 579616 [let and = save-excursion org-get-todo-state progn unwind-protect let let* catch while= if let* org-agenda-get-deadlines setq let cond] 243262 [cond org-time-stri= ng-to-absolute apply condition-case org-agenda--timestamp-to-absolute cond = let* catch while if let* org-agenda-get-deadlines setq let cond let] 166928= [not if org-closest-date cond org-time-string-to-absolute apply condition-= case org-agenda--timestamp-to-absolute cond let* catch while if let* org-ag= enda-get-deadlines setq] 159792 [and save-excursion org-at-heading-p or org= -back-to-heading if org-back-to-heading-or-point-min and if save-restrictio= n save-excursion save-excursion let org-entry-properties assoc-string cdr] = 931032 [save-excursion org-match-line let org-inlinetask-end-p and if save-= excursion let or org-back-to-heading if org-back-to-heading-or-point-min an= d if save-restriction save-excursion] 580664 [or while save-excursion let o= r org-back-to-heading if org-back-to-heading-or-point-min and if save-restr= iction save-excursion save-excursion let org-entry-properties assoc-string]= 572608 [looking-at-p if progn if progn if let* catch progn if save-restric= tion save-excursion save-excursion let org-entry-properties assoc-string] 7= 20920 [cond let org-get-wdays or let* catch while if let* org-agenda-get-de= adlines setq let cond let while let] 100352 [match-string-no-properties let= * save-excursion progn if org-element-timestamp-parser let while let* save-= excursion org-element-planning-parser cond setq let save-excursion if] 1493= 60 [rx--translate mapcar rx--translate-seq rx--translate-counted-repetition= rx--translate-bounded-repetition rx--translate-repeat rx--translate-form r= x--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-t= o-string re-search-forward and if] 119368 [string-to-char let* list and let= * save-excursion progn if org-element-timestamp-parser let while let* save-= excursion org-element-planning-parser cond setq] 23704 [and progn if save-e= xcursion let while let let progn if progn if progn if let* catch] 216120 [a= bbreviate-file-name format list let* org-agenda-get-progress cons setq let = cond let while let let* progn let save-restriction] 145013 [save-excursion = or if let org-agenda-skip catch while if let* org-agenda-get-scheduled cons= setq let cond let while] 412792 [and save-excursion org-at-heading-p or or= g-back-to-heading save-excursion org-get-todo-state progn unwind-protect le= t let* catch while if let* org-agenda-get-scheduled] 407648 [let and save-e= xcursion org-get-todo-state progn unwind-protect let let* catch while if le= t* org-agenda-get-scheduled cons setq let] 571457 [cond org-time-string-to-= absolute apply condition-case org-agenda--timestamp-to-absolute cond let* c= atch while if let* org-agenda-get-scheduled cons setq let cond] 416904 [not= if org-closest-date cond org-time-string-to-absolute apply condition-case = org-agenda--timestamp-to-absolute cond let* catch while if let* org-agenda-= get-scheduled cons] 421920 [or while save-excursion let or org-back-to-head= ing if org-back-to-heading-or-point-min let* progn cond let save-restrictio= n save-excursion org-get-property-block let] 428200 [cond let save-restrict= ion save-excursion org-get-property-block let if let org--property-local-va= lues let* cond save-restriction save-excursion save-excursion let org-entry= -get] 679550 [string-match-p and cond let* catch while if let* org-agenda-g= et-scheduled cons setq let cond let while let] 415832 [cond let org-get-wda= ys cond let* catch while if let* org-agenda-get-scheduled cons setq let con= d let while] 366672 [save-excursion let* catch while if let* org-agenda-get= -scheduled cons setq let cond let while let let* progn] 267600 [and save-ex= cursion org-at-heading-p or org-back-to-heading if save-restriction save-ex= cursion save-excursion let if progn unwind-protect let org-get-tags let*] 2= 86792 [and if let* org--get-local-tags if let save-restriction save-excursi= on save-excursion let if progn unwind-protect let org-get-tags let*] 304592= [split-string and if let* org--get-local-tags mapcar nconc setq while if l= et if let save-restriction save-excursion save-excursion] 259056 [if save-r= estriction save-excursion org-outline-level funcall 1- let* if let progn if= if let org-up-heading-safe while if] 596000 [if progn if org-agenda-fix-di= splayed-tags setq progn unwind-protect let let* org-agenda-format-item let*= save-excursion let* catch while if] 307248 [if let* progn unwind-protect l= et let* org-agenda-format-item let* save-excursion let* catch while if let*= org-agenda-get-scheduled cons] 293120 [not if if progn unwind-protect let = org-get-priority + if org-add-props let* save-excursion let* catch while if= ] 218184 [and progn unwind-protect let or org-priority-to-value - * if if p= rogn unwind-protect let org-get-priority + if] 149528 [cond org-time-string= -to-absolute apply condition-case org-agenda--timestamp-to-absolute - min c= ond let let* catch while if let* org-agenda-get-scheduled cons] 57344 [abbr= eviate-file-name format list let* org-agenda-get-blocks cons setq let cond = let while let let* progn let save-restriction] 183583 [and let catch save-e= xcursion org-at-date-range-p or if progn unwind-protect let catch while let= * org-agenda-get-timestamps cons setq] 112696 [abbreviate-file-name format = list let* org-agenda-get-sexps cons setq let cond let while let let* progn = let save-restriction] 87910 [list let* org-agenda-get-deadlines setq let co= nd let while let let* progn let save-restriction save-excursion save-curren= t-buffer if] 16368 [match-string-no-properties let* while let progn if save= -excursion org-element--get-node-properties save-restriction save-excursion= org-element--get-global-node-properties let* save-restriction save-excursi= on org-element-org-data-parser setq] 8184 [substring regexp-quote concat le= t* org-agenda-get-timestamps cons setq let cond let while let let* progn le= t save-restriction] 9232 [or cond let cond setq let save-excursion if let* = org-element--current-element setq progn unwind-protect let* if if] 130120 [= and let or cond let cond setq let save-excursion if let* org-element--curre= nt-element setq progn unwind-protect let*] 137256 [and not cond not while l= et let* save-excursion org-element-paragraph-parser cond let cond setq let = save-excursion if] 165782 [cond not while let let* save-excursion org-eleme= nt-paragraph-parser cond let cond setq let save-excursion if let* org-eleme= nt--current-element] 243736 [looking-at-p and save-restriction save-excursi= on or org-at-planning-p or if progn unwind-protect let catch while let* org= -agenda-get-timestamps cons] 18456 [rx--translate-regexp rx--translate-form= rx--translate rx--translate-or rx--translate-form rx--translate rx-to-stri= ng if if let* org-at-timestamp-p not or if progn unwind-protect] 18456 [and= while save-excursion let catch org-in-regexp let let* org-at-timestamp-p n= ot or if progn unwind-protect let catch] 33776 [looking-at-p and save-restr= iction save-excursion or org-at-planning-p or and or cond progn unwind-prot= ect let let let* org-at-timestamp-p] 16384 [and save-excursion org-at-prope= rty-p or and or cond progn unwind-protect let let let* org-at-timestamp-p n= ot or if] 17408 [and while save-excursion let* cond org-element--object-lex= let while catch let let* save-restriction save-excursion catch progn unwin= d-protect] 54602 [looking-at-p if org-element-timestamp-parser and or if le= t cond let* cond setq let while save-excursion let* cond] 16408 [progn let*= save-excursion progn if org-element-timestamp-parser and or if let cond le= t* cond setq let while] 23544 [and let* save-excursion progn if org-element= -timestamp-parser and or if let cond let* cond setq let while] 37912 [if or= g-parse-time-string let if let* save-excursion progn if org-element-timesta= mp-parser and or if let cond let* cond] 21520 [save-excursion or if let org= -agenda-skip progn unwind-protect let catch while let* org-agenda-get-times= tamps cons setq let cond] 15360 [and save-excursion org-at-heading-p or org= -back-to-heading save-excursion org-get-todo-state let* catch while let* or= g-agenda-get-timestamps cons setq let cond] 14336 [save-excursion org-match= -line let org-inlinetask-end-p and if save-excursion let or org-back-to-hea= ding save-excursion org-get-todo-state let* catch while let*] 15384 [or whi= le save-excursion let or org-back-to-heading save-excursion org-get-todo-st= ate let* catch while let* org-agenda-get-timestamps cons setq let] 14336 [l= et and save-excursion org-get-todo-state let* catch while let* org-agenda-g= et-timestamps cons setq let cond let while let] 23568 [cond org-time-string= -to-absolute apply condition-case org-agenda--timestamp-to-absolute let* pr= ogn if let* catch while let* org-agenda-get-timestamps cons setq let] 11264= [not if org-closest-date cond org-time-string-to-absolute apply condition-= case org-agenda--timestamp-to-absolute let* progn if let* catch while let* = org-agenda-get-timestamps] 11264 [if org-parse-time-string let cond org-dat= e-to-gregorian let* if let if org-closest-date cond org-time-string-to-abso= lute apply condition-case org-agenda--timestamp-to-absolute let*] 11264 [co= nd let* save-excursion let* catch while if let* org-agenda-get-scheduled co= ns setq let cond let while let] 52224 [org-trim setq progn unwind-protect l= et let* org-agenda-format-item let* save-excursion let* catch while if let*= org-agenda-get-scheduled cons] 52784 [and if progn unwind-protect let let = org-get-time-of-day and let* progn unwind-protect let let* org-agenda-forma= t-item let* save-excursion] 66552 [setq or if progn if let* progn unwind-pr= otect let let* org-agenda-format-item let* save-excursion let* catch while]= 98176 [and if progn if progn if let* progn unwind-protect let let* org-age= nda-format-item let* save-excursion let* catch] 41984 [save-excursion org-m= atch-line let org-inlinetask-end-p and or let save-excursion org-inlinetask= -in-task-p or cond let save-restriction save-excursion org-get-property-blo= ck let] 940448 [and cond progn unwind-protect let org-get-repeat let* save-= excursion org-habit-parse-todo and let* save-excursion let* catch while if]= 40960 [outline-next-heading save-excursion org-entry-end-position let* sav= e-excursion org-habit-parse-todo and let* save-excursion let* catch while i= f let* org-agenda-get-scheduled cons] 40960 [let if save-excursion org-head= ing-components nth org-no-properties let* save-excursion org-habit-parse-to= do and let* save-excursion let* catch while if] 45980 [if org-habit-duratio= n-to-days setq let* save-excursion org-habit-parse-todo and let* save-excur= sion let* catch while if let* org-agenda-get-scheduled cons] 42008 [progn s= etq let* save-excursion org-habit-parse-todo and let* save-excursion let* c= atch while if let* org-agenda-get-scheduled cons setq] 49144 [if let* save-= excursion org-habit-parse-todo and let* save-excursion let* catch while if = let* org-agenda-get-scheduled cons setq let] 40960 [and if let while let le= t org-replace-escapes concat if let format let* let* save-excursion org-hab= it-parse-todo and] 336912 [funcall and while let* let* save-excursion org-h= abit-parse-todo and let* save-excursion let* catch while if let* org-agenda= -get-scheduled] 57328 [if org-parse-time-string encode-time org-time-string= -to-time time-to-days cons setq while let* let* save-excursion org-habit-pa= rse-todo and let* save-excursion let*] 9216 [time-to-days org-today if let = org-habit-get-priority if org-add-props let* save-excursion let* catch whil= e if let* org-agenda-get-scheduled cons] 960 [let org-inlinetask-outline-re= gexp concat looking-at-p or let save-excursion org-inlinetask-in-task-p or = cond let save-restriction save-excursion org-get-property-block let if] 902= 24 [progn let* save-excursion org-element-comment-parser cond setq let save= -excursion if let* org-element--current-element setq progn unwind-protect l= et* if] 7168 [and while progn let* save-excursion org-element-comment-parse= r cond setq let save-excursion if let* org-element--current-element setq pr= ogn unwind-protect] 7168 [looking-at-p and save-restriction save-excursion = or org-at-planning-p progn unwind-protect let if catch while if let* org-ag= enda-get-scheduled cons] 3072 [match-string-no-properties progn let* save-e= xcursion progn if org-element-timestamp-parser let while let* save-excursio= n org-element-planning-parser cond setq let save-excursion] 234344 [and sav= e-excursion org-at-heading-p or org-back-to-heading if org-back-to-heading-= or-point-min org-end-of-subtree and or and or if let org-agenda-skip catch]= 9216 [save-excursion org-match-line let org-inlinetask-end-p and if save-e= xcursion let or org-back-to-heading if org-back-to-heading-or-point-min org= -end-of-subtree and or and] 10240 [or while save-excursion let or org-back-= to-heading if org-back-to-heading-or-point-min org-end-of-subtree and or an= d or if let org-agenda-skip] 10240 [if save-restriction save-excursion org-= outline-level funcall let if org-end-of-subtree and or and or if let org-ag= enda-skip catch] 9216 [and let cond let if org-end-of-subtree and or and or= if let org-agenda-skip catch while if] 9216 [let org-item-re looking-at co= nd let cond setq let save-excursion if let* org-element--current-element se= tq progn unwind-protect let*] 10280 [and save-excursion org-at-heading-p or= org-back-to-heading if org-back-to-heading-or-point-min org-end-of-subtree= and or and or if let org-agenda-skip progn] 1024 [if save-restriction save= -excursion org-outline-level funcall let if org-end-of-subtree and or and o= r if let org-agenda-skip progn] 1024 [and let cond let if org-end-of-subtre= e and or and or if let org-agenda-skip progn unwind-protect let] 1024 [appl= y rx-to-string if if let* org-at-timestamp-p not or if progn unwind-protect= let catch while let* org-agenda-get-timestamps] 8184 [if save-excursion or= g-element--get-node-properties save-restriction save-excursion org-element-= -get-global-node-properties let* save-restriction save-excursion org-elemen= t-org-data-parser setq if cond let* save-restriction save-excursion] 25592 = [save-excursion let* catch while if let* org-agenda-get-deadlines setq let = cond let while let let* progn let] 24600 [if save-restriction save-excursio= n org-outline-level org-reduced-level make-string let* save-excursion let* = catch while if let* org-agenda-get-deadlines setq let] 23552 [if let* progn= unwind-protect let let* org-agenda-format-item let* save-excursion let* ca= tch while if let* org-agenda-get-deadlines setq] 31736 [not if if progn unw= ind-protect let org-get-priority + let org-add-props let* save-excursion le= t* catch while if] 23552 [and progn unwind-protect let or org-priority-to-v= alue - * if if progn unwind-protect let org-get-priority + let] 18432 [save= -excursion or if let org-agenda-skip catch while let* org-agenda-get-progre= ss cons setq let cond let while let] 8192 [progn and let* save-excursion or= g-element-clock-parser cond setq let save-excursion if let* org-element--cu= rrent-element setq progn unwind-protect let*] 35840 [if catch while let* or= g-agenda-get-progress cons setq let cond let while let let* progn let save-= restriction] 8192 [and if progn if catch while let* org-agenda-get-progress= cons setq let cond let while let let*] 8192 [not if save-excursion catch w= hile let* org-agenda-get-progress cons setq let cond let while let let* pro= gn] 8192 [and save-excursion org-at-heading-p or org-back-to-heading if sav= e-restriction save-excursion save-excursion let if progn unwind-protect let= org-get-tags setq] 10240 [and if let* org--get-local-tags if let save-rest= riction save-excursion save-excursion let if progn unwind-protect let org-g= et-tags setq] 18424 [if save-excursion catch while let* org-agenda-get-prog= ress cons setq let cond let while let let* progn let] 8192 [replace-regexp-= in-string replace-regexp-in-string org-trim setq progn unwind-protect let l= et* org-agenda-format-item setq if save-excursion catch while let* org-agen= da-get-progress] 7168 [replace-regexp-in-string org-trim setq progn unwind-= protect let let* org-agenda-format-item setq if save-excursion catch while = let* org-agenda-get-progress cons] 7168 [if progn if org-agenda-fix-display= ed-tags setq progn unwind-protect let let* org-agenda-format-item setq if s= ave-excursion catch while let*] 8192 [and if progn unwind-protect let let o= rg-get-time-of-day and let* progn unwind-protect let let* org-agenda-format= -item setq if] 8192 [setq or if progn if let* progn unwind-protect let let*= org-agenda-format-item setq if save-excursion catch while] 24568 [and if p= rogn if progn if let* progn unwind-protect let let* org-agenda-format-item = setq if save-excursion catch] 8192 [string-match-p cond progn unwind-protec= t let org-duration-to-minutes - setq progn if progn if let* progn unwind-pr= otect let] 8192 [string-to-number let* org-agenda-time-of-day-to-ampm if or= g-agenda-time-of-day-to-ampm-maybe concat cond setq let* progn unwind-prote= ct let let* org-agenda-format-item setq if] 8184 [if let* progn unwind-prot= ect let let* org-agenda-format-item setq if save-excursion catch while let*= org-agenda-get-progress cons setq] 8192 [looking-at progn let* save-excurs= ion progn if org-element-timestamp-parser progn let* save-excursion org-ele= ment-clock-parser cond setq let save-excursion if] 8184 [apply replace-rege= xp-in-string replace-regexp-in-string org-trim let* save-excursion org-elem= ent-headline-parser cond setq let save-excursion if let* org-element--curre= nt-element setq progn] 296472 [setq catch while let* org-agenda-get-progres= s cons setq let cond let while let let* progn let save-restriction] 8184 [s= tring-to-number list and let* save-excursion progn if org-element-timestamp= -parser let while let progn if save-excursion org-element--get-time-propert= ies let*] 25800 [abbreviate-file-name format list let* org-agenda-get-sched= uled cons setq let cond let while let let* progn let save-restriction] 4928= 8 [setq let* progn unwind-protect let let* org-agenda-format-item let* save= -excursion let* catch while if let* org-agenda-get-scheduled cons] 42232 [c= oncat org-re-property re-search-forward and let save-excursion let* progn i= f let if let org--property-local-values let* cond save-restriction] 8184 [l= et org-inlinetask-outline-regexp concat org-match-line let org-inlinetask-e= nd-p and or let save-excursion org-inlinetask-in-task-p or cond let save-re= striction save-excursion] 44264 [org-element-lineage let if let org-before-= first-heading-p if org-back-to-heading-or-point-min let* progn cond let sav= e-restriction save-excursion org-get-property-block let if] 11616 [cons rx-= to-string re-search-forward and if if progn unwind-protect let progn if con= d let while let let*] 8448 [cond save-restriction save-excursion save-excur= sion let org-entry-get or progn unwind-protect let let* save-excursion let*= catch while if] 1056 [setq while let if let org-split-string progn if let*= save-excursion org-element-headline-parser setq progn if cond let*] 2112 [= let while let progn if save-excursion org-element--get-time-properties let*= save-excursion org-element-headline-parser setq progn if cond let* save-re= striction] 323512 [eq not if if if let org-element-at-point let org-before-= first-heading-p or if save-restriction save-excursion save-excursion let if= ] 3168 [if let progn if if let org-up-heading-safe while if let if let save= -restriction save-excursion save-excursion let] 2112 [let* save-excursion l= et* catch while if let* org-agenda-get-scheduled cons setq let cond let whi= le let let*] 43800 [progn org-agenda-format-item let* save-excursion let* c= atch while if let* org-agenda-get-scheduled cons setq let cond let while] 1= 056 [replace-regexp-in-string org-trim setq progn unwind-protect let let* o= rg-agenda-format-item let* save-excursion let* catch while if let* org-agen= da-get-scheduled] 53848 [apply replace-regexp-in-string replace-regexp-in-s= tring org-trim setq progn unwind-protect let let* org-agenda-format-item le= t* save-excursion let* catch while if] 43552 [apply replace-regexp-in-strin= g org-trim setq progn unwind-protect let let* org-agenda-format-item let* s= ave-excursion let* catch while if let*] 36408 [setq progn if progn if org-a= genda-fix-displayed-tags setq progn unwind-protect let let* org-agenda-form= at-item let* save-excursion let* catch] 4216 [setq let progn if progn if or= g-agenda-fix-displayed-tags setq progn unwind-protect let let* org-agenda-f= ormat-item let* save-excursion let*] 18728 [progn unwind-protect let let* o= rg-agenda-format-item let* save-excursion let* catch while if let* org-agen= da-get-scheduled cons setq let] 7392 [progn if let* progn unwind-protect le= t let* org-agenda-format-item let* save-excursion let* catch while if let* = org-agenda-get-scheduled] 1056 [setq if progn if let* progn unwind-protect = let let* org-agenda-format-item let* save-excursion let* catch while if] 22= 952 [let* progn unwind-protect let let* org-agenda-format-item let* save-ex= cursion let* catch while if let* org-agenda-get-scheduled cons setq] 8448 [= org-add-props let* progn unwind-protect let let* org-agenda-format-item let= * save-excursion let* catch while if let* org-agenda-get-scheduled cons] 15= 840 [org-agenda-new-marker org-add-props let* save-excursion let* catch whi= le if let* org-agenda-get-scheduled cons setq let cond let while] 2112 [org= -add-props let* save-excursion let* catch while if let* org-agenda-get-sche= duled cons setq let cond let while let] 26400 [and let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq let org-element-at-point let or] 1056 [let let* save-restrict= ion save-excursion progn unwind-protect let catch org-element--parse-to con= dition-case if setq let org-element-at-point let or] 3168 [catch org-elemen= t--parse-to condition-case if setq let org-element-at-point let org-before-= first-heading-p and cond org-in-archived-heading-p progn unwind-protect let= and] 1056 [let org-get-tags let if cond org-in-archived-heading-p progn un= wind-protect let and or and or if let org-agenda-skip] 1056 [let if let* sa= ve-excursion progn if org-element-timestamp-parser let while let* save-excu= rsion org-element-planning-parser cond setq let save-excursion] 8448 [let i= f let org-before-first-heading-p or if save-restriction save-excursion save= -excursion let if progn unwind-protect let org-get-tags let] 6336 [cl-some = and let if cond org-in-archived-heading-p progn unwind-protect let and or a= nd or if let org-agenda-skip] 1056 [and let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to condition-case if se= tq let org-element-at-point or let] 1056 [let let* save-restriction save-ex= cursion progn unwind-protect let catch org-element--parse-to condition-case= if setq let org-element-at-point or let] 2112 [or setq and or if let org-a= genda-skip catch while if let* org-agenda-get-scheduled cons setq let cond]= 4224 [cons cons cons cons cons rx-to-string let save-excursion let* save-e= xcursion org-element-headline-parser setq progn if cond let*] 13728 [let* c= atch while if let* org-agenda-get-scheduled cons setq let cond let while le= t let* progn let] 23720 [string-to-number let if org-closest-date cond org-= time-string-to-absolute apply condition-case org-agenda--timestamp-to-absol= ute cond let* catch while if let* org-agenda-get-scheduled] 3160 [if let if= org-closest-date cond org-time-string-to-absolute apply condition-case org= -agenda--timestamp-to-absolute cond let* catch while if let* org-agenda-get= -scheduled] 2112 [let org-inlinetask-end-p and or let save-excursion org-in= linetask-in-task-p or cond let save-restriction save-excursion org-get-prop= erty-block let if let] 4224 [let* save-restriction save-excursion progn unw= ind-protect let catch org-element--parse-to condition-case if setq let org-= element-at-point let org-before-first-heading-p cond] 19008 [progn if cond = let while let let* save-restriction save-excursion progn unwind-protect let= catch org-element--parse-to condition-case if] 7392 [and if let org-elemen= t-at-point let org-before-first-heading-p cond let save-restriction save-ex= cursion org-get-property-block let if let org--property-local-values let*] = 3168 [org-element-at-point let org-before-first-heading-p if org-back-to-he= ading-or-point-min and if save-restriction save-excursion save-excursion le= t org-entry-properties assoc-string cdr cond save-restriction] 3168 [memq n= ot and while let org-element-lineage let if let org-before-first-heading-p = if org-back-to-heading-or-point-min and if save-restriction save-excursion]= 4224 [let org-get-category let* save-excursion let* catch while if let* or= g-agenda-get-scheduled cons setq let cond let while] 2112 [if let org-befor= e-first-heading-p if org-back-to-heading-or-point-min let* progn cond let s= ave-restriction save-excursion org-get-property-block let if let org--prope= rty-local-values] 5280 [if let org--property-local-values let* cond save-re= striction save-excursion save-excursion let org-entry-get or progn unwind-p= rotect let let* save-excursion] 1056 [org-agenda-format-item let* save-excu= rsion let* catch while if let* org-agenda-get-scheduled cons setq let cond = let while let] 2112 [progn if progn if org-agenda-fix-displayed-tags setq p= rogn unwind-protect let let* org-agenda-format-item let* save-excursion let= * catch while] 2112 [if add-text-properties org-add-props let* save-excursi= on let* catch while if let* org-agenda-get-scheduled cons setq let cond let= ] 1056 [condition-case if setq let org-element-at-point let org-before-firs= t-heading-p and cond org-in-archived-heading-p progn unwind-protect let and= or and] 2112 [let* save-excursion progn if org-element-timestamp-parser le= t while let progn if save-excursion org-element--get-time-properties let* s= ave-excursion org-element-headline-parser setq] 11904 [let if let org-befor= e-first-heading-p and cond org-in-archived-heading-p progn unwind-protect l= et and or and or if let] 1056 [catch org-element--parse-to condition-case i= f setq let org-element-at-point let org-before-first-heading-p or if save-r= estriction save-excursion save-excursion let if] 1056 [org-parse-time-strin= g let if let* save-excursion progn if org-element-timestamp-parser let whil= e let* save-excursion org-element-planning-parser cond setq let] 22176 [set= q while let org-element-lineage let if let org-before-first-heading-p or if= save-restriction save-excursion save-excursion let if progn] 3168 [org-inl= inetask-outline-regexp concat org-match-line let org-inlinetask-end-p and i= f save-excursion let or org-back-to-heading progn condition-case if if let]= 2112 [mapcar rx--translate-seq rx--translate-form rx--translate rx-to-stri= ng re-search-backward if if progn unwind-protect let progn if cond let whil= e] 5280 [< or let if let org-before-first-heading-p and cond org-in-archive= d-heading-p and save-excursion if cond org-in-archived-heading-p progn unwi= nd-protect] 5280 [rx--translate-counted-repetition rx--translate-repeat rx-= -translate-form rx--translate mapcar rx--translate-seq rx--translate-form r= x--translate rx-to-string re-search-backward if if progn unwind-protect let= progn] 132856 [< or let if let org-before-first-heading-p or if save-restr= iction save-excursion save-excursion let if progn unwind-protect let] 8448 = [or let progn unwind-protect let org-in-commented-heading-p and or if let o= rg-agenda-skip catch while if let* org-agenda-get-scheduled] 4224 [and if l= et org-element-at-point or let progn unwind-protect let org-in-commented-he= ading-p and or if let org-agenda-skip catch] 2112 [org-element-at-point or = setq progn unwind-protect let org-in-src-block-p or if let org-agenda-skip = catch while if let* org-agenda-get-scheduled] 2112 [eq if org-in-src-block-= p or if let org-agenda-skip catch while if let* org-agenda-get-scheduled co= ns setq let cond] 1056 [catch while if let* org-agenda-get-scheduled cons s= etq let cond let while let let* progn let save-restriction] 9504 [< or let = if let org-before-first-heading-p cond let save-restriction save-excursion = org-get-property-block let if let org--property-local-values let*] 3168 [ca= tch org-element--parse-to condition-case if setq let org-element-at-point l= et org-before-first-heading-p cond let save-restriction save-excursion org-= get-property-block let if] 5280 [let if let org-before-first-heading-p cond= let save-restriction save-excursion org-get-property-block let if let org-= -property-local-values let* cond save-restriction] 14784 [progn if if let o= rg-up-heading-safe while if let if let save-restriction save-excursion save= -excursion let if progn] 3168 [progn let* progn org-agenda-format-item let*= save-excursion let* catch while if let* org-agenda-get-scheduled cons setq= let cond] 2112 [save-restriction save-excursion progn unwind-protect let c= atch org-element--parse-to condition-case if setq let org-element-at-point = let or org-at-planning-p progn] 3168 [let* save-excursion org-element-plann= ing-parser cond setq let save-excursion if let* org-element--current-elemen= t setq progn unwind-protect let* if if] 7392 [eq if let org-element-at-poin= t let or org-at-planning-p progn unwind-protect let if catch while if let* = org-agenda-get-scheduled] 1056 [memq not and while let org-element-lineage = let if let org-before-first-heading-p and cond org-in-archived-heading-p pr= ogn unwind-protect let] 2112 [let* save-restriction save-excursion progn un= wind-protect let catch org-element--parse-to condition-case if setq let org= -element-at-point let org-before-first-heading-p or] 4224 [save-restriction= save-excursion progn unwind-protect let catch org-element--parse-to condit= ion-case if setq let org-element-at-point let org-before-first-heading-p an= d cond] 5280 [1- cons cons cons cons cons cons rx-to-string re-search-forwa= rd and if if progn unwind-protect let progn] 7392 [cons cons cons rx-to-str= ing let save-excursion let* save-excursion org-element-headline-parser cond= setq let save-excursion if let* org-element--current-element] 8448 [let or= g-before-first-heading-p or if save-restriction save-excursion save-excursi= on let if progn unwind-protect let org-get-tags let if cond] 2112 [cons con= s rx-to-string re-search-backward if if progn unwind-protect let progn if c= ond let while let let*] 6336 [or let let* save-restriction save-excursion p= rogn unwind-protect let catch org-element--parse-to condition-case if setq = let org-element-at-point or] 4224 [let let* catch while if let* org-agenda-= get-scheduled cons setq let cond let while let let* progn] 1056 [string-to-= number list org-parse-time-string let cond org-date-to-gregorian let* if le= t if org-closest-date cond org-time-string-to-absolute apply condition-case= org-agenda--timestamp-to-absolute] 20576 [member-ignore-case cond save-res= triction save-excursion save-excursion let org-entry-get string=3D org-is-h= abit-p and let* catch while if let* org-agenda-get-scheduled] 1056 [org-ele= ment-lineage let if let org-before-first-heading-p cond let save-restrictio= n save-excursion org-get-property-block let if let org--property-local-valu= es let* cond] 6336 [assoc-string cdr cond save-restriction save-excursion s= ave-excursion let org-entry-get and let let* catch while if let* org-agenda= -get-scheduled] 2112 [< or let if let org-before-first-heading-p if org-bac= k-to-heading-or-point-min and if save-restriction save-excursion save-excur= sion let org-entry-properties assoc-string] 3168 [progn unwind-protect let = org-get-category let* save-excursion let* catch while if let* org-agenda-ge= t-scheduled cons setq let cond] 1056 [condition-case if setq let org-elemen= t-at-point let org-before-first-heading-p cond let save-restriction save-ex= cursion org-get-property-block let if let org--property-local-values] 11616= [rx--bracket rx--atomic-regexp rx-to-string let save-excursion let* save-e= xcursion org-element-headline-parser cond setq let save-excursion if let* o= rg-element--current-element setq] 10560 [eq not if if if let org-element-at= -point let org-before-first-heading-p cond let save-restriction save-excurs= ion org-get-property-block let if] 5280 [org-element-lineage let if let org= -before-first-heading-p or if save-restriction save-excursion save-excursio= n let if progn unwind-protect let org-get-tags] 5280 [and if let* org--get-= local-tags mapcar nconc setq while if let if let save-restriction save-excu= rsion save-excursion let] 3168 [org-add-props org-agenda-format-item let* s= ave-excursion let* catch while if let* org-agenda-get-scheduled cons setq l= et cond let while] 4224 [let* org-agenda-format-item let* save-excursion le= t* catch while if let* org-agenda-get-scheduled cons setq let cond let whil= e] 3168 [let let org-get-time-of-day and let* progn unwind-protect let let*= org-agenda-format-item let* save-excursion let* catch while if] 1056 [if s= etq let org-element-at-point let or org-at-planning-p progn unwind-protect = let if catch while if let* org-agenda-get-scheduled] 2112 [let catch org-el= ement--parse-to condition-case if setq let org-element-at-point let org-bef= ore-first-heading-p and cond org-in-archived-heading-p progn unwind-protect= let] 2112 [let* save-restriction save-excursion progn unwind-protect let c= atch org-element--parse-to condition-case if setq let org-element-at-point = let org-before-first-heading-p and] 6336 [if let if progn unwind-protect le= t org-get-tags let if cond org-in-archived-heading-p progn unwind-protect l= et and or] 1056 [if let* save-excursion progn if org-element-timestamp-pars= er let while let* save-excursion org-element-planning-parser cond setq let = save-excursion if] 9504 [or org-back-to-heading progn condition-case if if = let org-up-heading-safe and save-excursion if cond org-in-archived-heading-= p progn unwind-protect let] 1056 [mapcar rx--translate-seq rx--translate-fo= rm rx--translate rx-to-string let save-excursion let* save-excursion org-el= ement-headline-parser cond setq let save-excursion if let*] 7392 [let catch= org-element--parse-to condition-case if setq let org-element-at-point let = org-before-first-heading-p or if save-restriction save-excursion save-excur= sion let] 2112 [if save-restriction save-excursion save-excursion let if pr= ogn unwind-protect let org-get-tags let if cond org-in-archived-heading-p a= nd save-excursion] 2112 [let catch org-element--parse-to condition-case if = setq let org-element-at-point let org-before-first-heading-p and cond org-i= n-archived-heading-p and save-excursion if] 1056 [rx--enclose rx--bracket r= x--atomic-regexp rx-to-string let save-excursion let* save-excursion org-el= ement-headline-parser cond setq let save-excursion if let* org-element--cur= rent-element] 32736 [let if let org-before-first-heading-p and cond org-in-= archived-heading-p and save-excursion if cond org-in-archived-heading-p and= save-excursion if cond] 2112 [save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to condition-case if setq let org-ele= ment-at-point let org-before-first-heading-p or if] 9504 [condition-case if= setq let org-element-at-point let org-before-first-heading-p and cond org-= in-archived-heading-p and save-excursion if cond org-in-archived-heading-p = and] 4224 [let progn if cond let while let let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to condition-case] 9= 504 [let org-get-tags let if cond org-in-archived-heading-p and save-excurs= ion if cond org-in-archived-heading-p and save-excursion if cond org-in-arc= hived-heading-p] 1056 [if let progn if if let org-up-heading-safe and save-= excursion if cond org-in-archived-heading-p and save-excursion if cond] 422= 4 [setq while let org-element-lineage setq catch let progn unwind-protect l= et org-in-commented-heading-p and or if let org-agenda-skip] 3168 [let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to condition-case if setq let org-element-at-point or setq progn] 4224 = [and save-excursion org-get-todo-state progn unwind-protect let let* catch = while if let* org-agenda-get-scheduled cons setq let cond] 25832 [let if or= g-closest-date cond org-time-string-to-absolute apply condition-case org-ag= enda--timestamp-to-absolute cond let* catch while if let* org-agenda-get-sc= heduled cons] 10296 [org-parse-time-string let cond org-date-to-gregorian l= et* if let if org-closest-date cond org-time-string-to-absolute apply condi= tion-case org-agenda--timestamp-to-absolute cond let*] 2112 [and let* catch= while if let* org-agenda-get-scheduled cons setq let cond let while let le= t* progn] 1056 [let org-before-first-heading-p cond let save-restriction sa= ve-excursion org-get-property-block let if let org--property-local-values l= et* cond save-restriction save-excursion save-excursion] 8448 [setq while l= et org-element-lineage let if let org-before-first-heading-p if org-back-to= -heading-or-point-min and if save-restriction save-excursion save-excursion= let] 2112 [org-element-at-point let org-before-first-heading-p if org-back= -to-heading-or-point-min let* progn cond let save-restriction save-excursio= n org-get-property-block let if let org--property-local-values] 8448 [if or= g-back-to-heading-or-point-min let* progn cond let save-restriction save-ex= cursion org-get-property-block let if let org--property-local-values let* c= ond save-restriction] 7392 [org-before-first-heading-p or if save-restricti= on save-excursion save-excursion let if progn unwind-protect let org-get-ta= gs let* save-excursion let* catch] 1056 [org--get-local-tags mapcar nconc s= etq while if let if let save-restriction save-excursion save-excursion let = if progn unwind-protect] 1056 [delq setq progn if org-agenda-fix-displayed-= tags setq progn unwind-protect let let* org-agenda-format-item let* save-ex= cursion let* catch while] 1056 [with-no-warnings progn unwind-protect let l= et* org-agenda-format-item let* save-excursion let* catch while if let* org= -agenda-get-scheduled cons setq] 2112 [setq while let org-element-lineage l= et if let org-before-first-heading-p and cond org-in-archived-heading-p pro= gn unwind-protect let and or] 3168 [org-inlinetask-outline-regexp concat or= g-match-line let org-inlinetask-end-p and if while save-excursion let or or= g-back-to-heading progn condition-case if if] 1056 [rx--translate mapcar rx= --translate-seq rx--translate-form rx--translate rx-to-string let save-excu= rsion let* save-excursion org-element-headline-parser cond setq let save-ex= cursion if] 11616 [if let org-element-at-point let org-before-first-heading= -p or if save-restriction save-excursion save-excursion let if progn unwind= -protect let org-get-tags] 2112 [and let org-up-heading-safe and save-excur= sion if cond org-in-archived-heading-p and save-excursion if cond org-in-ar= chived-heading-p progn unwind-protect let] 1056 [setcar if org-element-put-= property let let* save-excursion org-element-headline-parser cond setq let = save-excursion if let* org-element--current-element setq progn] 15840 [org-= before-first-heading-p and cond org-in-archived-heading-p and save-excursio= n if cond org-in-archived-heading-p and save-excursion if cond org-in-archi= ved-heading-p progn unwind-protect] 2112 [save-restriction save-excursion s= ave-excursion let if progn unwind-protect let org-get-tags let if cond org-= in-archived-heading-p and save-excursion if] 1056 [let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq let org-element-at-point or let progn] 2112 [save-restriction= save-excursion progn unwind-protect let catch org-element--parse-to condit= ion-case if setq let org-element-at-point or setq progn unwind-protect] 105= 6 [or org-back-to-heading save-excursion org-get-todo-state progn unwind-pr= otect let let* catch while if let* org-agenda-get-scheduled cons setq let] = 1056 [org-match-line let org-inlinetask-end-p and if save-excursion let or = org-back-to-heading save-excursion org-get-todo-state progn unwind-protect = let let* catch] 30840 [let "#" funcall let* let c= ond if let* if let if org-closest-date cond org-time-string-to-absolute app= ly condition-case] 1056 [cond org-get-limited-outline-regexp let* progn con= d let save-restriction save-excursion org-get-property-block let if let org= --property-local-values let* cond save-restriction] 7392 [let* save-excursi= on progn if org-element-timestamp-parser let while let* save-excursion org-= element-planning-parser cond setq let save-excursion if let*] 6929 [if let = org-element-at-point let org-before-first-heading-p cond let save-restricti= on save-excursion org-get-property-block let if let org--property-local-val= ues let* cond] 4224 [cons cons cons cons cons rx-to-string let save-excursi= on let* save-excursion org-element-headline-parser cond setq let save-excur= sion if] 7392 [and let let* catch while if let* org-agenda-get-scheduled co= ns setq let cond let while let let*] 3168 [org-inlinetask-outline-regexp co= ncat org-match-line let org-inlinetask-end-p and if while save-excursion le= t or org-back-to-heading if org-back-to-heading-or-point-min and if] 1056 [= or progn unwind-protect let let* save-excursion let* catch while if let* or= g-agenda-get-scheduled cons setq let cond] 2112 [setq while let if let org-= split-string progn if let* save-excursion org-element-headline-parser cond = setq let save-excursion if] 3168 [memq not and while let org-element-lineag= e let if let org-before-first-heading-p cond let save-restriction save-excu= rsion org-get-property-block let] 3168 [mapconcat concat setq let progn if = progn if org-agenda-fix-displayed-tags setq progn unwind-protect let let* o= rg-agenda-format-item let*] 2112 [condition-case if setq let org-element-at= -point let or org-at-planning-p progn unwind-protect let if catch while if = let*] 2112 [let org-before-first-heading-p and cond org-in-archived-heading= -p progn unwind-protect let and or and or if let org-agenda-skip catch] 105= 6 [org-element-lineage let if let org-before-first-heading-p and cond org-i= n-archived-heading-p progn unwind-protect let and or and or if] 1056 [or or= g-back-to-heading if save-restriction save-excursion save-excursion let if = progn unwind-protect let org-get-tags let if cond org-in-archived-heading-p= ] 4224 [progn if if let org-up-heading-safe and save-excursion if cond org-= in-archived-heading-p progn unwind-protect let and or and] 1056 [apply deri= ved-mode-p not cond org-get-limited-outline-regexp let* progn progn let* sa= ve-excursion org-element-section-parser cond setq let save-excursion if] 42= 24 [condition-case if setq let org-element-at-point let org-before-first-he= ading-p or if save-restriction save-excursion save-excursion let if progn u= nwind-protect] 7392 [eq if let org-element-at-point let org-before-first-he= ading-p or if save-restriction save-excursion save-excursion let if progn u= nwind-protect let] 1056 [progn condition-case if if let org-up-heading-safe= and save-excursion if cond org-in-archived-heading-p and save-excursion if= cond org-in-archived-heading-p] 1056 [mapcar rx--translate-seq rx--transla= te-counted-repetition rx--translate-bounded-repetition rx--translate-repeat= rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-fo= rm rx--translate rx-to-string re-search-forward and if if] 11616 [rx--trans= late-counted-repetition rx--translate-bounded-repetition rx--translate-** r= x--translate-form rx--translate mapcar rx--translate-seq rx--translate-form= rx--translate rx-to-string let save-excursion let* save-excursion org-elem= ent-headline-parser cond] 159224 [cl-some and let if cond org-in-archived-h= eading-p and save-excursion if cond org-in-archived-heading-p and save-excu= rsion if cond org-in-archived-heading-p] 1056 [save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to condition-case if = setq let org-element-at-point or let progn unwind-protect] 1056 [eq if let = org-element-at-point or setq progn unwind-protect let org-in-src-block-p or= if let org-agenda-skip catch while] 1056 [apply condition-case org-agenda-= -timestamp-to-absolute cond let* catch while if let* org-agenda-get-schedul= ed cons setq let cond let while] 2112 [let* cond org-get-limited-outline-re= gexp let* progn cond let save-restriction save-excursion org-get-property-b= lock let if let org--property-local-values let* cond] 36080 [< or let if le= t org-before-first-heading-p if org-back-to-heading-or-point-min let* progn= cond let save-restriction save-excursion org-get-property-block let] 7392 = [let org-before-first-heading-p if org-back-to-heading-or-point-min and if = save-restriction save-excursion save-excursion let org-entry-properties ass= oc-string cdr cond save-restriction save-excursion] 5280 [cond let* catch w= hile if let* org-agenda-get-scheduled cons setq let cond let while let let*= progn] 2112 [and let if let save-restriction save-excursion save-excursion= let if progn unwind-protect let org-get-tags let* save-excursion let*] 211= 2 [mapcar delq setq progn if org-agenda-fix-displayed-tags setq progn unwin= d-protect let let* org-agenda-format-item let* save-excursion let* catch] 1= 056 [if catch while if let* org-agenda-get-scheduled cons setq let cond let= while let let* progn let] 3168 [or org-at-planning-p progn unwind-protect = let if catch while if let* org-agenda-get-scheduled cons setq let cond let]= 2112 [if progn unwind-protect let org-get-tags let if cond org-in-archived= -heading-p progn unwind-protect let and or and or] 1056 [cons cons cons con= s rx-to-string re-search-forward and if if progn unwind-protect let progn i= f cond let] 4224 [rx-to-string let save-excursion let* save-excursion org-e= lement-headline-parser cond setq let save-excursion if let* org-element--cu= rrent-element setq progn unwind-protect] 3168 [org-element-at-point let org= -before-first-heading-p or if save-restriction save-excursion save-excursio= n let if progn unwind-protect let org-get-tags let if] 1056 [rx--translate = mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-s= earch-backward if if progn unwind-protect let progn if cond let] 9504 [setq= catch let progn unwind-protect let org-in-commented-heading-p and or if le= t org-agenda-skip catch while if let*] 2112 [let catch org-element--parse-t= o condition-case if setq let org-element-at-point or setq progn unwind-prot= ect let org-in-src-block-p or if] 2112 [save-excursion org-get-todo-state p= rogn unwind-protect let let* catch while if let* org-agenda-get-scheduled c= ons setq let cond let] 1056 [let org-before-first-heading-p if org-back-to-= heading-or-point-min let* progn cond let save-restriction save-excursion or= g-get-property-block let if let org--property-local-values let*] 5280 [let = if let org-before-first-heading-p if org-back-to-heading-or-point-min let* = progn cond let save-restriction save-excursion org-get-property-block let i= f let] 14784 [save-excursion let* progn if let if let org--property-local-v= alues let* cond save-restriction save-excursion save-excursion let org-entr= y-get string=3D] 1056 [let catch org-element--parse-to condition-case if se= tq let org-element-at-point let org-before-first-heading-p if org-back-to-h= eading-or-point-min and if save-restriction save-excursion] 2112 [let* let*= progn if let if let org--property-local-values let* cond save-restriction = save-excursion save-excursion let org-entry-get or] 1056 [and let org-up-he= ading-safe while if let if let save-restriction save-excursion save-excursi= on let if progn unwind-protect let] 2112 [eq if let org-element-at-point le= t org-before-first-heading-p and cond org-in-archived-heading-p progn unwin= d-protect let and or and or] 1056 [if let org-element-at-point let org-befo= re-first-heading-p and cond org-in-archived-heading-p and save-excursion if= cond org-in-archived-heading-p progn unwind-protect let] 1056 [let org-get= -tags let if cond org-in-archived-heading-p and save-excursion if cond org-= in-archived-heading-p progn unwind-protect let and or] 2112 [and or if let = org-agenda-skip catch while if let* org-agenda-get-scheduled cons setq let = cond let while] 2112 [string-to-number list org-parse-time-string encode-ti= me org-time-string-to-time time-to-days if org-closest-date cond org-time-s= tring-to-absolute apply condition-case org-agenda--timestamp-to-absolute co= nd let* catch] 20800 [let org-inlinetask-end-p and if save-excursion let or= org-back-to-heading if org-back-to-heading-or-point-min let* progn cond le= t save-restriction save-excursion] 1056 [rx--translate-bounded-repetition r= x--translate-** rx--translate-form rx--translate mapcar rx--translate-seq r= x--translate-form rx--translate rx-to-string let save-excursion let* save-e= xcursion org-element-headline-parser cond setq] 201240 [catch progn if save= -restriction save-excursion save-excursion let org-entry-properties assoc-s= tring cdr cond save-restriction save-excursion save-excursion let org-entry= -get] 6336 [org-entry-get or progn unwind-protect let let* save-excursion l= et* catch while if let* org-agenda-get-scheduled cons setq let] 2112 [if if= let org-up-heading-safe while if let if let save-restriction save-excursio= n save-excursion let if progn unwind-protect] 1056 [let org-before-first-he= ading-p and cond org-in-archived-heading-p and save-excursion if cond org-i= n-archived-heading-p progn unwind-protect let and or and] 2112 [org-before-= first-heading-p or if save-restriction save-excursion save-excursion let if= progn unwind-protect let org-get-tags let if cond org-in-archived-heading-= p] 2112 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--t= ranslate-seq rx--translate-form rx--translate rx-to-string re-search-backwa= rd if if progn unwind-protect let progn if] 93840 [apply rx-to-string re-se= arch-backward if if progn unwind-protect let progn if cond let while let le= t* save-restriction] 164480 [re-search-backward or while save-excursion let= or org-back-to-heading save-excursion org-get-todo-state progn unwind-prot= ect let let* catch while if] 21608 [cond let* save-excursion let* catch whi= le if let* org-agenda-get-deadlines setq let cond let while let let*] 2048 = [setq let* progn unwind-protect let let* org-agenda-format-item let* save-e= xcursion let* catch while if let* org-agenda-get-deadlines setq] 8184 [rx--= translate mapcar rx--translate-seq rx--translate-counted-repetition rx--tra= nslate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx-= -translate-form rx--translate rx-to-string re-search-backward if if progn] = 91672 [let* while let progn if save-excursion org-element--get-node-propert= ies let* save-excursion org-element-headline-parser cond setq let save-excu= rsion if let*] 103648 [concat format setq while let while let let org-repla= ce-escapes concat if let format let* let* save-excursion] 8184 [concat org-= re-property let* let* progn if let if let org--property-local-values let* c= ond save-restriction save-excursion save-excursion let] 34832 [string-to-nu= mber cond list org-parse-time-string encode-time org-time-string-to-time pr= ogn if let org-get-scheduled-time let* save-excursion org-habit-parse-todo = and let* save-excursion] 8184 [org-re-property let* let* progn if let if le= t org--property-local-values let* cond save-restriction save-excursion save= -excursion let org-entry-get] 53296 [concat setq let while let let org-repl= ace-escapes concat if let format let* let* save-excursion org-habit-parse-t= odo and] 25600 [match-string-no-properties cons cons setq and progn if save= -excursion let while let let progn if progn if] 18464 [string-to-number lis= t org-parse-time-string encode-time org-time-string-to-time progn if let or= g-get-scheduled-time let* save-excursion org-habit-parse-todo and let* save= -excursion let*] 9232 [format eval concat setq let* progn unwind-protect le= t let* org-agenda-format-item let* save-excursion let* catch while if] 1741= 6 [apply rx-to-string re-search-forward and if if progn unwind-protect let = progn if cond let while let let*] 112232 [org-re-property re-search-forward= and let save-excursion let* progn if let if let org--property-local-values= let* cond save-restriction save-excursion] 45112 [re-search-backward or wh= ile save-excursion let or org-back-to-heading if save-restriction save-excu= rsion save-excursion let if progn unwind-protect let] 11328 [format if conc= at let* org-agenda-time-of-day-to-ampm if org-agenda-time-of-day-to-ampm-ma= ybe concat cond setq let* progn unwind-protect let let* org-agenda-format-i= tem] 8184 [save-excursion not if let org-element-example-block-parser funca= ll cond cond let cond setq let save-excursion if let* org-element--current-= element] 5120 [progn let* save-excursion let if let org-element-example-blo= ck-parser funcall cond cond let cond setq let save-excursion if] 5120 [repl= ace-regexp-in-string org-unescape-code-in-string let* save-excursion let if= let org-element-example-block-parser funcall cond cond let cond setq let s= ave-excursion] 5120 [looking-at-p or let save-excursion org-inlinetask-in-t= ask-p and if progn condition-case eq and save-restriction save-excursion or= org-at-planning-p progn] 2048 [and or let save-excursion org-inlinetask-in= -task-p and if progn condition-case eq and save-restriction save-excursion = or org-at-planning-p progn] 2048 [save-excursion org-match-line let org-inl= inetask-end-p and or let save-excursion org-inlinetask-in-task-p and if pro= gn condition-case eq and save-restriction] 4096 [and save-excursion org-at-= heading-p or org-back-to-heading let* progn if progn condition-case eq and = save-restriction save-excursion or org-at-planning-p] 4096 [or while save-e= xcursion let or org-back-to-heading let* progn if progn condition-case eq a= nd save-restriction save-excursion or] 4096 [string-to-number list and let*= save-excursion progn if org-element-timestamp-parser let while let* save-e= xcursion org-element-planning-parser cond setq let] 12376 [let list and let= * save-excursion progn if org-element-timestamp-parser let while let* save-= excursion org-element-planning-parser cond setq let] 3144 [let org-inlineta= sk-outline-regexp concat org-match-line let org-inlinetask-end-p and if sav= e-excursion let or org-back-to-heading progn condition-case if if] 20560 [l= et org-inlinetask-outline-regexp concat org-match-line let org-inlinetask-e= nd-p and if save-excursion let or org-back-to-heading save-excursion org-ge= t-todo-state progn unwind-protect] 13424 [org-match-line let org-inlinetask= -end-p and if while save-excursion let or org-back-to-heading if org-back-t= o-heading-or-point-min let* progn cond let] 4192 [if let progn let* progn l= et* progn org-agenda-format-item let* save-excursion let* catch while if le= t* org-agenda-get-scheduled] 9232 [mapcar regexp-opt-group regexp-opt forma= t let* let* save-excursion org-habit-parse-todo and let* save-excursion let= * catch while if let*] 1048 [match-string-no-properties split-string and if= let* org--get-local-tags if let save-restriction save-excursion save-excur= sion let if progn unwind-protect let] 16568 [concat setq let progn if progn= if org-agenda-fix-displayed-tags setq progn unwind-protect let let* org-ag= enda-format-item let* save-excursion] 4192 [let org-inlinetask-outline-rege= xp concat org-match-line let org-inlinetask-end-p and if while save-excursi= on let or org-back-to-heading progn condition-case if] 14472 [org-match-lin= e let org-inlinetask-end-p and if while save-excursion let or org-back-to-h= eading save-excursion org-get-todo-state progn unwind-protect let let*] 209= 6 [match-string-no-properties and let save-excursion let* progn if let if l= et org--property-local-values let* cond save-restriction save-excursion sav= e-excursion] 1048 [org-match-line let org-inlinetask-end-p and if while sav= e-excursion let or org-back-to-heading if org-back-to-heading-or-point-min = and if save-restriction save-excursion] 26648 [string-to-number if let prog= n if progn unwind-protect let let org-get-time-of-day setq progn if progn i= f let*] 1048 [setq let while let let org-replace-escapes concat if let form= at let* let* save-excursion org-habit-parse-todo and let*] 1048 [org-match-= line let org-inlinetask-end-p and if save-excursion let or org-back-to-head= ing progn condition-case if if let org-up-heading-safe and] 20560 [setq pro= gn if progn if let* progn unwind-protect let let* org-agenda-format-item le= t* save-excursion let* catch while] 2096 [org-match-line let org-inlinetask= -end-p and or let save-excursion org-inlinetask-in-task-p or cond let save-= restriction save-excursion org-get-property-block let if] 56440 [mapcar reg= exp-opt-group regexp-opt-group regexp-opt format let* let* save-excursion o= rg-habit-parse-todo and let* save-excursion let* catch while if] 1048 [let*= let* save-excursion org-habit-parse-todo and let* save-excursion let* catc= h while if let* org-agenda-get-scheduled cons setq let] 8184 [let org-inlin= etask-outline-regexp concat org-match-line let org-inlinetask-end-p and if = while save-excursion let or org-back-to-heading if save-restriction save-ex= cursion] 29792 [let org-inlinetask-outline-regexp concat org-match-line let= org-inlinetask-end-p and if while save-excursion let or org-back-to-headin= g if org-back-to-heading-or-point-min and] 28744 [regexp-opt-group regexp-o= pt format let* let* save-excursion org-habit-parse-todo and let* save-excur= sion let* catch while if let* org-agenda-get-scheduled] 1048 [if let format= let* let* save-excursion org-habit-parse-todo and let* save-excursion let*= catch while if let* org-agenda-get-scheduled] 1048 [re-search-backward or = while save-excursion let or org-back-to-heading if org-back-to-heading-or-p= oint-min let* progn cond let save-restriction save-excursion org-get-proper= ty-block] 9232 [save-excursion cond not while let let* save-excursion org-e= lement-paragraph-parser cond let cond setq let save-excursion if let*] 1948= 0 [string-to-number list org-parse-time-string let if let* save-excursion p= rogn if org-element-timestamp-parser and or if let cond let*] 1048 [let org= -inlinetask-outline-regexp concat org-match-line let org-inlinetask-end-p a= nd if save-excursion let or org-back-to-heading save-excursion org-get-todo= -state let* catch] 1048 [org-match-line let org-inlinetask-end-p and if whi= le save-excursion let or org-back-to-heading save-excursion org-get-todo-st= ate let* catch while let*] 8184 [save-excursion let* catch while let* org-a= genda-get-timestamps cons setq let cond let while let let* progn let] 4096 = [and let* save-excursion let* catch while let* org-agenda-get-timestamps co= ns setq let cond let while let let*] 12280 [org-trim setq progn unwind-prot= ect let let* org-agenda-format-item let* save-excursion let* catch while le= t* org-agenda-get-timestamps cons setq] 1048 [if progn if org-agenda-fix-di= splayed-tags setq progn unwind-protect let let* org-agenda-format-item let*= save-excursion let* catch while let*] 4096 [while progn if let* progn unwi= nd-protect let let* org-agenda-format-item let* save-excursion let* catch w= hile let* org-agenda-get-timestamps] 4096 [let* org-agenda-time-of-day-to-a= mpm if org-agenda-time-of-day-to-ampm-maybe concat cond setq let* progn unw= ind-protect let let* org-agenda-format-item let* save-excursion let*] 1048 = [if let* progn unwind-protect let let* org-agenda-format-item let* save-exc= ursion let* catch while let* org-agenda-get-timestamps cons setq] 4096 [not= if if progn unwind-protect let org-get-priority if org-add-props let* save= -excursion let* catch while let* org-agenda-get-timestamps] 4096 [cond org-= time-string-to-absolute apply condition-case org-agenda--timestamp-to-absol= ute if org-add-props let* save-excursion let* catch while let* org-agenda-g= et-timestamps cons setq] 3072 [if org-parse-time-string encode-time org-tim= e-string-to-time condition-case time-to-days cond org-time-string-to-absolu= te apply condition-case org-agenda--timestamp-to-absolute if org-add-props = let* save-excursion let*] 3072 [match-string-no-properties progn let* save-= excursion if let org-element-drawer-parser cond let cond setq let save-excu= rsion if let* org-element--current-element] 2096 [match-string-no-propertie= s let* while let progn if save-excursion org-element--get-node-properties l= et* save-excursion org-element-headline-parser cond setq let save-excursion= if] 41120 [replace-regexp-in-string replace-regexp-in-string org-trim setq= progn unwind-protect let let* org-agenda-format-item let* save-excursion l= et* catch while let* org-agenda-get-timestamps] 2048 [replace-regexp-in-str= ing org-trim setq progn unwind-protect let let* org-agenda-format-item let*= save-excursion let* catch while let* org-agenda-get-timestamps cons] 10232= [concat string-match and if progn if progn if let* progn unwind-protect le= t let* org-agenda-format-item let* save-excursion] 1048 [string-to-number c= ond list org-parse-time-string encode-time org-time-string-to-time conditio= n-case time-to-days cond org-time-string-to-absolute apply condition-case o= rg-agenda--timestamp-to-absolute if org-add-props let*] 1048 [string-to-num= ber list and let* save-excursion progn if org-element-timestamp-parser and = or if let cond let* cond setq] 1048 [string-to-number cond list org-parse-t= ime-string let if let* save-excursion progn if org-element-timestamp-parser= let while let* save-excursion org-element-planning-parser] 56640 [re-searc= h-backward or while save-excursion let or org-back-to-heading progn conditi= on-case if if let org-up-heading-safe and save-excursion if] 10280 [split-s= tring mapcar let* cond progn unwind-protect let org-duration-to-minutes - s= etq progn if progn if let* progn] 1024 [match-string-no-properties progn le= t* save-excursion progn if org-element-timestamp-parser and or if let cond = let* cond setq let] 1048 [org-match-line let org-inlinetask-end-p and if wh= ile save-excursion let or org-back-to-heading if save-restriction save-excu= rsion save-excursion let if] 34832 [setq if progn if let* progn unwind-prot= ect let let* org-agenda-format-item let* save-excursion let* catch while le= t*] 1048 [let* funcall cond cond let cond setq let save-excursion if let* o= rg-element--current-element setq progn unwind-protect let*] 1048 [looking-a= t-p or let save-excursion org-inlinetask-in-task-p and if progn condition-c= ase eq and save-restriction save-excursion or org-at-planning-p or] 2048 [a= nd or let save-excursion org-inlinetask-in-task-p and if progn condition-ca= se eq and save-restriction save-excursion or org-at-planning-p or] 2048 [or= g-unescape-code-in-string let* save-excursion let if let org-element-exampl= e-block-parser funcall cond cond let cond setq let save-excursion if] 1048 = [if let* org-agenda-get-day-entries apply setq cond let catch while while l= et* catch org-agenda-list funcall-interactively call-interactively cond] 43= 36 [format list let* org-agenda-get-sexps cons setq let cond let while let = let* progn let save-restriction save-excursion] 9232 [substring regexp-quot= e concat let* org-agenda-get-progress cons setq let cond let while let let*= progn let save-restriction] 1048 [list let* org-agenda-get-timestamps cons= setq let cond let while let let* progn let save-restriction save-excursion= save-current-buffer] 2096 [format list let* org-agenda-get-deadlines setq = let cond let while let let* progn let save-restriction save-excursion save-= current-buffer] 2096 [org-match-line let org-inlinetask-end-p and if save-e= xcursion let or org-back-to-heading if save-restriction save-excursion save= -excursion let if progn] 10280 [org-trim let save-excursion org-element-key= word-parser cond cond let cond setq let save-excursion if let* org-element-= -current-element setq progn] 9232 [match-string-no-properties upcase progn = let save-excursion org-element-keyword-parser cond cond let cond setq let s= ave-excursion if let* org-element--current-element] 1048 [let org-inlinetas= k-outline-regexp concat org-match-line let org-inlinetask-end-p and if whil= e save-excursion let or org-back-to-heading save-excursion org-get-todo-sta= te progn] 20560 [org-match-line let org-inlinetask-end-p and if save-excurs= ion let or org-back-to-heading if org-back-to-heading-or-point-min let* pro= gn cond let save-restriction] 35880 [org-match-line let org-inlinetask-end-= p and if save-excursion let or org-back-to-heading if org-back-to-heading-o= r-point-min and if save-restriction save-excursion save-excursion] 29792 [l= ist let* org-agenda-get-scheduled cons setq let cond let while let let* pro= gn let save-restriction save-excursion save-current-buffer] 10280 [format l= ist let* org-agenda-get-scheduled cons setq let cond let while let let* pro= gn let save-restriction save-excursion] 10280 [list let* org-agenda-get-blo= cks cons setq let cond let while let let* progn let save-restriction save-e= xcursion save-current-buffer] 9232 [let* org-agenda-get-progress cons setq = let cond let while let let* progn let save-restriction save-excursion save-= current-buffer if] 9232 [format list let* org-agenda-get-timestamps cons se= tq let cond let while let let* progn let save-restriction save-excursion] 8= 184 [and let* if let progn if if let org-up-heading-safe and save-excursion= if cond org-in-archived-heading-p progn unwind-protect] 188408 [and let* i= f let progn if if let org-up-heading-safe and save-excursion if cond org-in= -archived-heading-p and save-excursion] 79872 [save-excursion not if let or= g-element-drawer-parser cond let cond setq let save-excursion if let* org-e= lement--current-element setq progn] 10240 [looking-at-p if org-element-time= stamp-parser progn let* save-excursion org-element-clock-parser cond setq l= et save-excursion if let* org-element--current-element setq progn] 28664 [p= rogn let* save-excursion progn if org-element-timestamp-parser progn let* s= ave-excursion org-element-clock-parser cond setq let save-excursion if let*= ] 20480 [and let* save-excursion progn if org-element-timestamp-parser prog= n let* save-excursion org-element-clock-parser cond setq let save-excursion= if let*] 61440 [if org-parse-time-string let if let* save-excursion progn = if org-element-timestamp-parser progn let* save-excursion org-element-clock= -parser cond setq let] 20480 [progn if "#" mapco= ncat concat setq let progn if progn if org-agenda-fix-displayed-tags setq p= rogn unwind-protect let] 8184 [eval concat setq let* progn unwind-protect l= et let* org-agenda-format-item let* save-excursion let* catch while if let*= ] 17416 [if format format eval concat setq let* progn unwind-protect let le= t* org-agenda-format-item let* save-excursion let* catch] 36928 [string-to-= number list org-parse-time-string encode-time org-time-string-to-time condi= tion-case time-to-days cond org-time-string-to-absolute apply condition-cas= e org-agenda--timestamp-to-absolute - min cond let] 2096 [let* progn cond l= et save-restriction save-excursion org-get-property-block let if let org--p= roperty-local-values let* cond save-restriction save-excursion save-excursi= on] 22888 [and let* catch progn if save-restriction save-excursion save-exc= ursion let org-entry-properties assoc-string cdr cond save-restriction save= -excursion save-excursion] 31888 [list let* org-agenda-get-sexps cons setq = let cond let while let let* progn let save-restriction save-excursion save-= current-buffer] 8184 [aref progn and let* save-excursion org-element-headli= ne-parser cond setq let save-excursion if let* org-element--current-element= setq progn unwind-protect] 93600 [re-search-backward or while save-excursi= on let or org-back-to-heading if org-back-to-heading-or-point-min and if sa= ve-restriction save-excursion save-excursion let org-entry-properties] 4192= [org-match-line let org-inlinetask-end-p and if while save-excursion let o= r org-back-to-heading progn condition-case if if let org-up-heading-safe] 5= 240 [let org-inlinetask-outline-regexp concat org-match-line let org-inline= task-end-p and if save-excursion let or org-back-to-heading if org-back-to-= heading-or-point-min and if] 6288 [progn if list delq let* org-agenda-get-p= rogress cons setq let cond let while let let* progn let] 8184 [abbreviate-f= ile-name format list let* org-agenda-get-timestamps cons setq let cond let = while let let* progn let save-restriction] 1192 [let* org-agenda-get-timest= amps cons setq let cond let while let let* progn let save-restriction save-= excursion save-current-buffer if] 8184 [or let org-find-base-buffer-visitin= g let org-get-agenda-file-buffer if let* org-agenda-get-day-entries apply s= etq cond let catch while while let*] 11328 [if org-check-agenda-file catch = while while let* catch org-agenda-list funcall-interactively call-interacti= vely cond let* catch org-agenda funcall-interactively call-interactively] 1= 6516 [eq not if if if let org-element-at-point let org-before-first-heading= -p and cond org-in-archived-heading-p progn unwind-protect let and] 1056 [l= et org-inlinetask-end-p and if save-excursion let or org-back-to-heading if= save-restriction save-excursion save-excursion let if progn unwind-protect= ] 1056 [condition-case if setq let org-element-at-point let org-before-firs= t-heading-p and cond org-in-archived-heading-p and save-excursion if cond o= rg-in-archived-heading-p progn] 4224 [mapcar rx--translate-seq rx--translat= e-form rx--translate rx-to-string re-search-forward and if if progn unwind-= protect let progn if cond let] 10560 [org-element-lineage setq catch let pr= ogn unwind-protect let org-in-commented-heading-p and or if let org-agenda-= skip catch while if] 2112 [and let* save-restriction save-excursion progn u= nwind-protect let catch org-element--parse-to condition-case if setq let or= g-element-at-point or setq] 1056 [cond let* catch while if let* org-agenda-= get-deadlines setq let cond let while let let* progn let] 1056 [org-parse-t= ime-string encode-time org-time-string-to-time time-to-days if org-closest-= date cond org-time-string-to-absolute apply condition-case org-agenda--time= stamp-to-absolute cond let* catch while if] 3168 [org-inlinetask-outline-re= gexp concat org-match-line let org-inlinetask-end-p and if save-excursion l= et or org-back-to-heading if org-back-to-heading-or-point-min and if save-r= estriction] 1056 [or progn unwind-protect let let* save-excursion let* catc= h while if let* org-agenda-get-deadlines setq let cond let] 1056 [if let if= progn unwind-protect let org-get-tags let* save-excursion let* catch while= if let* org-agenda-get-deadlines setq] 1056 [progn let* progn let* progn l= et* progn org-agenda-format-item let* save-excursion let* catch while if le= t* org-agenda-get-deadlines] 1056 [replace-regexp-in-string org-trim setq p= rogn unwind-protect let let* org-agenda-format-item let* save-excursion let= * catch while if let* org-agenda-get-deadlines] 1056 [catch org-agenda-get-= category-icon let* progn unwind-protect let let* org-agenda-format-item let= * save-excursion let* catch while if let* org-agenda-get-deadlines] 1056 [l= et* progn unwind-protect let let* org-agenda-format-item let* save-excursio= n let* catch while if let* org-agenda-get-deadlines setq let] 1056 [org-add= -props let* progn unwind-protect let let* org-agenda-format-item let* save-= excursion let* catch while if let* org-agenda-get-deadlines setq] 1056 [org= -priority-to-value - * if if progn unwind-protect let org-get-priority + le= t org-add-props let* save-excursion let* catch] 1056 [org-add-props let* sa= ve-excursion let* catch while if let* org-agenda-get-deadlines setq let con= d let while let let*] 2112 [progn unwind-protect let and or and or if let o= rg-agenda-skip catch while if let* org-agenda-get-deadlines setq] 1056 [if = let org-before-first-heading-p and cond org-in-archived-heading-p progn unw= ind-protect let and or and or if let org-agenda-skip] 1056 [and let org-up-= heading-safe and save-excursion if cond org-in-archived-heading-p progn unw= ind-protect let and or and or if] 1056 [rx-to-string re-search-forward and = if if progn unwind-protect let progn if cond let while let let* save-restri= ction] 4224 [cons rx-to-string re-search-backward if if progn unwind-protec= t let progn if cond let while let let* save-restriction] 4224 [condition-ca= se if setq let org-element-at-point or let progn unwind-protect let org-in-= commented-heading-p and or if let org-agenda-skip] 1056 [or setq and or if = let org-agenda-skip catch while if let* org-agenda-get-deadlines setq let c= ond let] 1056 [let let* catch while if let* org-agenda-get-deadlines setq l= et cond let while let let* progn let] 1056 [and let let* catch while if let= * org-agenda-get-deadlines setq let cond let while let let* progn] 1056 [le= t if let org-before-first-heading-p if org-back-to-heading-or-point-min and= if save-restriction save-excursion save-excursion let org-entry-properties= assoc-string cdr cond] 4224 [let progn if progn if progn if let* catch pro= gn if save-restriction save-excursion save-excursion let org-entry-properti= es] 2112 [org-agenda-get-progress cons setq let cond let while let let* pro= gn let save-restriction save-excursion save-current-buffer if let*] 1056 [o= rg-agenda-get-scheduled cons setq let cond let while let let* progn let sav= e-restriction save-excursion save-current-buffer if let*] 1056 [eq not if i= f if let org-element-at-point let or org-at-planning-p progn unwind-protect= let if catch while] 1056 [< or let if let org-before-first-heading-p and c= ond org-in-archived-heading-p progn unwind-protect let and or and or] 2112 = [and save-excursion if cond org-in-archived-heading-p progn unwind-protect = let and or and or if let org-agenda-skip catch] 2112 [throw progn if let pr= ogn unwind-protect let* while let save-restriction save-excursion save-excu= rsion let if catch let*] 1056 [let if let org-before-first-heading-p and co= nd org-in-archived-heading-p and save-excursion if cond org-in-archived-hea= ding-p progn unwind-protect let and] 1056 [let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to condition-case if= setq let org-element-at-point or org-element-at-point-no-context let] 2112= [let* catch while if let* org-agenda-get-deadlines setq let cond let while= let let* progn let save-restriction] 25600 [let org-inlinetask-outline-reg= exp concat org-match-line let org-inlinetask-end-p and if save-excursion le= t or org-back-to-heading if save-restriction save-excursion save-excursion]= 21608 [string-to-number list org-parse-time-string and let if let* save-ex= cursion progn if org-element-timestamp-parser progn let* save-excursion org= -element-clock-parser cond] 8184 [let cond let progn if progn unwind-protec= t let let org-get-time-of-day setq progn if progn if let*] 8184 [length lis= t prog1 progn if save-excursion org-heading-components nth org-no-propertie= s let* save-excursion org-habit-parse-todo and let* save-excursion let*] 81= 84 [or if save-restriction save-excursion save-excursion let if progn unwin= d-protect let org-get-tags let if cond org-in-archived-heading-p progn] 211= 2 [if let save-restriction save-excursion save-excursion let if progn unwin= d-protect let org-get-tags let if cond org-in-archived-heading-p progn] 105= 6 [eq if let org-element-at-point let org-before-first-heading-p and cond o= rg-in-archived-heading-p and save-excursion if cond org-in-archived-heading= -p progn unwind-protect] 1056 [org-element-lineage let if let org-before-fi= rst-heading-p and cond org-in-archived-heading-p and save-excursion if cond= org-in-archived-heading-p and save-excursion if] 1056 [org--get-local-tags= if let save-restriction save-excursion save-excursion let if progn unwind-= protect let org-get-tags let if cond org-in-archived-heading-p] 3168 [let c= atch org-element--parse-to condition-case if setq let org-element-at-point = or let progn unwind-protect let org-in-commented-heading-p and or] 1056 [eq= not if if if let org-element-at-point let org-before-first-heading-p if or= g-back-to-heading-or-point-min let* progn cond let save-restriction] 6336 [= and if save-restriction save-excursion save-excursion let org-entry-propert= ies assoc-string cdr cond save-restriction save-excursion save-excursion le= t org-entry-get and] 1056 [eq if let org-element-at-point let org-before-fi= rst-heading-p if org-back-to-heading-or-point-min let* progn cond let save-= restriction save-excursion org-get-property-block let] 3168 [org-up-heading= -safe while if let if let save-restriction save-excursion save-excursion le= t if progn unwind-protect let org-get-tags let*] 2112 [let or org-priority-= to-value - * if if progn unwind-protect let org-get-priority + if org-add-p= rops let* save-excursion] 1056 [org-inlinetask-outline-regexp concat org-ma= tch-line let org-inlinetask-end-p and if while save-excursion let or org-ba= ck-to-heading if save-restriction save-excursion save-excursion] 1056 [org-= element-at-point let org-before-first-heading-p and cond org-in-archived-he= ading-p and save-excursion if cond org-in-archived-heading-p and save-excur= sion if cond org-in-archived-heading-p] 1056 [if let save-restriction save-= excursion save-excursion let if progn unwind-protect let org-get-tags let i= f cond org-in-archived-heading-p and] 1056 [if setq let org-element-at-poin= t or let progn unwind-protect let org-in-commented-heading-p and or if let = org-agenda-skip catch] 1056 [let org-in-src-block-p or if let org-agenda-sk= ip catch while if let* org-agenda-get-scheduled cons setq let cond let] 105= 6 [let if let org--property-local-values let* cond save-restriction save-ex= cursion save-excursion let org-entry-get string=3D org-is-habit-p and let* = catch] 1056 [org-element-lineage let if let org-before-first-heading-p if o= rg-back-to-heading-or-point-min and if save-restriction save-excursion save= -excursion let org-entry-properties assoc-string cdr] 4224 [setq and progn = if save-excursion let while let let progn if progn if progn if let*] 1056 [= if let if progn unwind-protect let org-get-tags let if cond org-in-archived= -heading-p and save-excursion if cond org-in-archived-heading-p] 1056 [if c= ond org-in-archived-heading-p and save-excursion if cond org-in-archived-he= ading-p progn unwind-protect let and or and or if] 1056 [org-agenda-skip-ev= al or setq and or if let org-agenda-skip catch while if let* org-agenda-get= -scheduled cons setq let] 1056 [and or let org--property-local-values let* = cond save-restriction save-excursion save-excursion let org-entry-get strin= g=3D org-is-habit-p and let* catch] 2112 [org-element-property let cond let= while let let* save-restriction save-excursion progn unwind-protect let ca= tch org-element--parse-to condition-case if] 2146 [save-excursion or if let= org-agenda-skip catch while let* org-agenda-get-sexps cons setq let cond l= et while let] 7168 [progn let save-excursion org-element-diary-sexp-parser = cond let cond setq let save-excursion if let* org-element--current-element = setq progn unwind-protect] 32768 [if setq catch while let* org-agenda-get-s= exps cons setq let cond let while let let* progn let] 7168 [split-string co= nd let* org-diary-sexp-entry setq catch while let* org-agenda-get-sexps con= s setq let cond let while let] 2048 [if save-restriction save-excursion org= -outline-level org-reduced-level make-string setq progn if catch while let*= org-agenda-get-sexps cons setq let] 2048 [let and save-excursion org-get-t= odo-state setq progn if catch while let* org-agenda-get-sexps cons setq let= cond let] 2048 [if let while let progn if catch while let* org-agenda-get-= sexps cons setq let cond let while] 2048 [replace-regexp-in-string replace-= regexp-in-string org-trim setq progn unwind-protect let let* org-agenda-for= mat-item setq let while let progn if catch] 2048 [replace-regexp-in-string = org-trim setq progn unwind-protect let let* org-agenda-format-item setq let= while let progn if catch while] 2048 [if progn if org-agenda-fix-displayed= -tags setq progn unwind-protect let let* org-agenda-format-item setq let wh= ile let progn if] 2048 [and if progn unwind-protect let let org-get-time-of= -day and let* progn unwind-protect let let* org-agenda-format-item setq let= ] 2048 [setq or if progn if let* progn unwind-protect let let* org-agenda-f= ormat-item setq let while let progn] 2048 [and if progn if progn if let* pr= ogn unwind-protect let let* org-agenda-format-item setq let while let] 1024= [if let* progn unwind-protect let let* org-agenda-format-item setq let whi= le let progn if catch while let*] 2048 [calendar-chinese-date-string diary-= chinese-date let eval condition-case if let* org-diary-sexp-entry setq catc= h while let* org-agenda-get-sexps cons setq let] 4000 [replace-regexp-in-st= ring replace-regexp-in-string org-trim if setq catch while let* org-agenda-= get-sexps cons setq let cond let while let] 3072 [replace-regexp-in-string = org-trim if setq catch while let* org-agenda-get-sexps cons setq let cond l= et while let let*] 3072 [apply replace-regexp-in-string org-trim if setq ca= tch while let* org-agenda-get-sexps cons setq let cond let while let] 8184 = [ucs-normalize-region ucs-normalize-HFS-NFD-region ucs-normalize-hfs-nfd-pr= e-write-conversion file-exists-p if org-check-agenda-file catch while while= let* catch org-agenda-list funcall-interactively call-interactively cond l= et*] 119135 [ucs-normalize-region ucs-normalize-HFS-NFD-region ucs-normaliz= e-hfs-nfd-pre-write-conversion file-name-case-insensitive-p abbreviate-file= -name format list let* org-agenda-get-deadlines setq let cond let while let= let*] 104101 [org-match-line let org-inlinetask-end-p and if while save-ex= cursion let or org-back-to-heading if org-back-to-heading-or-point-min org-= end-of-subtree and or and] 8184 [and save-excursion org-get-todo-state prog= n unwind-protect let let* catch while if let* org-agenda-get-deadlines setq= let cond let] 8184 [ucs-normalize-region ucs-normalize-HFS-NFD-region ucs-= normalize-hfs-nfd-pre-write-conversion file-name-case-insensitive-p abbrevi= ate-file-name format list let* org-agenda-get-progress cons setq let cond l= et while let] 104101 [if let* org-agenda-get-progress cons setq let cond le= t while let let* progn let save-restriction save-excursion save-current-buf= fer] 1048 [or if let org-agenda-skip catch while if let* org-agenda-get-sch= eduled cons setq let cond let while let] 1056 [apply derived-mode-p not con= d org-get-limited-outline-regexp let* progn cond let save-restriction save-= excursion org-get-property-block let if let org--property-local-values] 105= 6 [cons cons cons cons rx-to-string re-search-backward if if progn unwind-p= rotect let progn if cond let while] 4224 [or org-back-to-heading if org-bac= k-to-heading-or-point-min and if save-restriction save-excursion save-excur= sion let org-entry-properties assoc-string cdr cond save-restriction save-e= xcursion] 3168 [let let* save-excursion let* catch while if let* org-agenda= -get-scheduled cons setq let cond let while let] 1056 [cons cons cons rx-to= -string re-search-forward and if if progn unwind-protect let progn if cond = let while] 5280 [eq if let org-element-at-point let org-before-first-headin= g-p cond let save-restriction save-excursion org-get-property-block let if = let org--property-local-values let*] 1056 [if let save-restriction save-exc= ursion save-excursion let if progn unwind-protect let org-get-tags let* sav= e-excursion let* catch while] 1056 [setq progn unwind-protect let let* org-= agenda-format-item let* save-excursion let* catch while if let* org-agenda-= get-scheduled cons setq] 2112 [catch org-agenda-get-category-icon let* prog= n unwind-protect let let* org-agenda-format-item let* save-excursion let* c= atch while if let* org-agenda-get-scheduled] 1056 [org-priority-to-value - = * if if progn unwind-protect let org-get-priority + if org-add-props let* s= ave-excursion let* catch] 1056 [let* save-restriction save-excursion progn = unwind-protect let catch org-element--parse-to condition-case if setq let o= rg-element-at-point let or org-at-planning-p] 3168 [progn unwind-protect le= t and or and or if let org-agenda-skip catch while if let* org-agenda-get-s= cheduled cons] 1056 [or org-back-to-heading progn condition-case if if let = org-up-heading-safe and save-excursion if cond org-in-archived-heading-p an= d save-excursion if] 3168 [if progn unwind-protect let org-get-tags let if = cond org-in-archived-heading-p and save-excursion if cond org-in-archived-h= eading-p and save-excursion] 1056 [catch org-element--parse-to condition-ca= se if setq let org-element-at-point or let progn unwind-protect let org-in-= commented-heading-p and or if] 1056 [catch org-element--parse-to condition-= case if setq let org-element-at-point or setq progn unwind-protect let org-= in-src-block-p or if let] 1056 [time-to-days if org-closest-date cond org-t= ime-string-to-absolute apply condition-case org-agenda--timestamp-to-absolu= te cond let* catch while if let* org-agenda-get-scheduled cons] 2112 [let c= atch org-element--parse-to condition-case if setq let org-element-at-point = let org-before-first-heading-p if org-back-to-heading-or-point-min let* pro= gn cond let] 4224 [if let org-before-first-heading-p or if save-restriction= save-excursion save-excursion let if progn unwind-protect let org-get-tags= let* save-excursion] 1056 [and let* org--get-local-tags mapcar nconc setq = while if let if let save-restriction save-excursion save-excursion let if] = 2112 [let if cond org-in-archived-heading-p progn unwind-protect let and or= and or if let org-agenda-skip catch while] 1056 [org-inlinetask-outline-re= gexp concat org-match-line let org-inlinetask-end-p and if save-excursion l= et or org-back-to-heading if save-restriction save-excursion save-excursion= let] 2112 [< or let if let org-before-first-heading-p and cond org-in-arch= ived-heading-p and save-excursion if cond org-in-archived-heading-p and sav= e-excursion] 4224 [if if let org-up-heading-safe and save-excursion if cond= org-in-archived-heading-p and save-excursion if cond org-in-archived-headi= ng-p and save-excursion] 2112 [setq while if catch let progn unwind-protect= let org-in-commented-heading-p and or if let org-agenda-skip catch while] = 1056 [let org-inlinetask-end-p and if while save-excursion let or org-back-= to-heading save-excursion org-get-todo-state progn unwind-protect let let* = catch] 1056 [or org-back-to-heading if org-back-to-heading-or-point-min let= * progn cond let save-restriction save-excursion org-get-property-block let= if let org--property-local-values let*] 2112 [org-before-first-heading-p c= ond let save-restriction save-excursion org-get-property-block let if let o= rg--property-local-values let* cond save-restriction save-excursion save-ex= cursion let] 8448 [condition-case if setq let org-element-at-point let org-= before-first-heading-p if org-back-to-heading-or-point-min and if save-rest= riction save-excursion save-excursion let org-entry-properties] 2112 [org-i= nlinetask-outline-regexp concat org-match-line let org-inlinetask-end-p and= or let save-excursion org-inlinetask-in-task-p or cond let save-restrictio= n save-excursion org-get-property-block] 8448 [or org-priority-to-value - *= if if progn unwind-protect let org-get-priority + if org-add-props let* sa= ve-excursion let*] 1056 [let if catch while if let* org-agenda-get-schedule= d cons setq let cond let while let let* progn] 1056 [rx-to-string re-search= -backward if if progn unwind-protect let progn if cond let while let let* s= ave-restriction save-excursion] 6336 [cons rx-to-string let save-excursion = let* save-excursion org-element-headline-parser cond setq let save-excursio= n if let* org-element--current-element setq progn] 9504 [org-entry-get and = let let* catch while if let* org-agenda-get-scheduled cons setq let cond le= t while let] 1056 [and if let org-element-at-point let org-before-first-hea= ding-p or if save-restriction save-excursion save-excursion let if progn un= wind-protect let] 1056 [if let org-before-first-heading-p or if save-restri= ction save-excursion save-excursion let if progn unwind-protect let org-get= -tags let if] 1056 [catch org-element--parse-to condition-case if setq let = org-element-at-point let org-before-first-heading-p and cond org-in-archive= d-heading-p and save-excursion if cond] 1056 [rx--translate-seq rx--transla= te-counted-repetition rx--translate-repeat rx--translate-form rx--translate= mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-= search-backward if if progn unwind-protect let] 4224 [and if let org-elemen= t-at-point or setq progn unwind-protect let org-in-src-block-p or if let or= g-agenda-skip catch while] 1056 [ucs-normalize-region ucs-normalize-HFS-NFD= -region ucs-normalize-hfs-nfd-pre-write-conversion file-name-case-insensiti= ve-p abbreviate-file-name format list let* org-agenda-get-blocks cons setq = let cond let while let] 104101 [ucs-normalize-region ucs-normalize-HFS-NFD-= region ucs-normalize-hfs-nfd-pre-write-conversion file-name-case-insensitiv= e-p abbreviate-file-name format list let* org-agenda-get-sexps cons setq le= t cond let while let] 104101 [progn if while let* catch org-agenda-list fun= call-interactively call-interactively cond let* catch org-agenda funcall-in= teractively call-interactively command-execute nil] 2044 [flycheck-handle-c= hange insert progn if while let* catch org-agenda-list funcall-interactivel= y call-interactively cond let* catch org-agenda funcall-interactively call-= interactively] 1024 [timer-relative-time run-at-time flycheck-handle-change= insert progn if while let* catch org-agenda-list funcall-interactively cal= l-interactively cond let* catch org-agenda] 24 [timer--time-setter timer-se= t-time run-at-time flycheck-handle-change insert progn if while let* catch = org-agenda-list funcall-interactively call-interactively cond let* catch] 2= 4 [timer--time-less-p timer--activate timer-activate run-at-time flycheck-h= andle-change insert progn if while let* catch org-agenda-list funcall-inter= actively call-interactively cond let*] 72 [time-since time-to-days org-toda= y eq org-agenda-todayp cond let my-org-agenda-get-day-face-fn funcall and c= ond org-agenda-get-day-face put-text-property progn if while] 24 [time-to-d= ays org-today eq org-agenda-todayp cond let my-org-agenda-get-day-face-fn f= uncall and cond org-agenda-get-day-face put-text-property progn if while le= t*] 24 [timer--time-setter timer-set-time run-at-time flycheck-handle-chang= e put-text-property progn if while let* catch org-agenda-list funcall-inter= actively call-interactively cond let* catch] 96 [timer--time-less-p timer--= activate timer-activate run-at-time flycheck-handle-change put-text-propert= y progn if while let* catch org-agenda-list funcall-interactively call-inte= ractively cond let*] 288 [timer-relative-time run-at-time flycheck-handle-c= hange put-text-property progn if while let* catch org-agenda-list funcall-i= nteractively call-interactively cond let* catch org-agenda] 120 [timer-rela= tive-time run-at-time flycheck-handle-change put-text-property progn if pro= gn if while let* catch org-agenda-list funcall-interactively call-interacti= vely cond let*] 48 [timer--time-setter timer-set-time run-at-time flycheck-= handle-change put-text-property progn if progn if while let* catch org-agen= da-list funcall-interactively call-interactively cond] 24 [timer--time-less= -p timer--activate timer-activate run-at-time flycheck-handle-change put-te= xt-property progn if progn if while let* catch org-agenda-list funcall-inte= ractively call-interactively] 72 [replace-regexp-in-string setq if while le= t* catch org-agenda-add-time-grid-maybe setq progn if while let* catch org-= agenda-list funcall-interactively call-interactively] 8024 [replace-regexp-= in-string replace-regexp-in-string org-trim setq progn unwind-protect let l= et* org-agenda-format-item cons setq if while let* catch org-agenda-add-tim= e-grid-maybe] 1024 [replace-regexp-in-string org-trim setq progn unwind-pro= tect let let* org-agenda-format-item cons setq if while let* catch org-agen= da-add-time-grid-maybe setq] 1024 [if progn if org-agenda-fix-displayed-tag= s setq progn unwind-protect let let* org-agenda-format-item cons setq if wh= ile let* catch] 1024 [and if progn unwind-protect let let org-get-time-of-d= ay and let* progn unwind-protect let let* org-agenda-format-item cons setq]= 1024 [setq or if progn if let* progn unwind-protect let let* org-agenda-fo= rmat-item cons setq if while let*] 2048 [and if progn if progn if let* prog= n unwind-protect let let* org-agenda-format-item cons setq if while] 7168 [= if let* progn unwind-protect let let* org-agenda-format-item cons setq if w= hile let* catch org-agenda-add-time-grid-maybe setq progn] 1024 [if format = eval concat setq let* progn unwind-protect let let* org-agenda-format-item = cons setq if while let*] 8184 [and if progn if progn if let* progn unwind-p= rotect let let* org-agenda-format-item cons setq progn if] 1024 [equal and = if let if let org-agenda-highlight-todo mapcar setq let org-agenda-finalize= -entries insert progn if progn if] 1024 [concat setq progn if progn if let = if let org-agenda-highlight-todo mapcar setq let org-agenda-finalize-entrie= s insert progn] 24552 [string-match equal and if let if let org-agenda-high= light-todo mapcar setq let org-agenda-finalize-entries insert progn if prog= n] 90024 [if concat setq progn if progn if let if let org-agenda-highlight-= todo mapcar setq let org-agenda-finalize-entries insert] 24552 [org-get-tod= o-face list add-text-properties progn if let if let org-agenda-highlight-to= do mapcar setq let org-agenda-finalize-entries insert progn if] 8184 [setq = progn if progn if let if let org-agenda-highlight-todo mapcar setq let org-= agenda-finalize-entries insert progn if] 8184 [and or let* org-cmp-ts and l= et* progn let org-entries-lessp sort mapcar setq let org-agenda-finalize-en= tries insert progn] 3072 [and let* progn let org-entries-lessp sort mapcar = setq let org-agenda-finalize-entries insert progn if progn if while] 215424= 0 [org-cmp-time and let* progn let org-entries-lessp sort mapcar setq let o= rg-agenda-finalize-entries insert progn if progn if] 114048 [with-no-warnin= gs progn let org-entries-lessp sort mapcar setq let org-agenda-finalize-ent= ries insert progn if progn if while let*] 604032 [progn let org-entries-les= sp sort mapcar setq let org-agenda-finalize-entries insert progn if progn i= f while let* catch] 604032 [sort mapcar setq let org-agenda-finalize-entrie= s insert progn if progn if while let* catch org-agenda-list funcall-interac= tively call-interactively] 74976 [org-cmp-ts and let* progn let org-entries= -lessp sort mapcar setq let org-agenda-finalize-entries insert progn if pro= gn if] 338976 [org-cmp-habit-p and let* progn let org-entries-lessp sort ma= pcar setq let org-agenda-finalize-entries insert progn if progn if] 76032 [= let* progn let org-entries-lessp sort mapcar setq let org-agenda-finalize-e= ntries insert progn if progn if while let*] 112992 [or and let* progn let o= rg-entries-lessp sort mapcar setq let org-agenda-finalize-entries insert pr= ogn if progn if] 112992 [org-entries-lessp sort mapcar setq let org-agenda-= finalize-entries insert progn if progn if while let* catch org-agenda-list = funcall-interactively] 38016 [org-cmp-category and let* progn let org-entri= es-lessp sort mapcar setq let org-agenda-finalize-entries insert progn if p= rogn if] 76032 [org-cmp-values and let* progn let org-entries-lessp sort ma= pcar setq let org-agenda-finalize-entries insert progn if progn if] 74976 [= eval assoc cdr let* progn let org-entries-lessp sort mapcar setq let org-ag= enda-finalize-entries insert progn if progn] 38016 [org-em and let* progn l= et org-entries-lessp sort mapcar setq let org-agenda-finalize-entries inser= t progn if progn if] 1624 [and if let progn if progn if let* catch progn if= save-restriction save-excursion save-excursion let org-entry-properties] 4= 06453 [if save-restriction save-excursion org-outline-level funcall let sav= e-excursion catch if org-block-todo-from-children-or-siblings-or-parent run= -hook-with-args-until-failure not and org-entry-blocked-p save-excursion sa= ve-current-buffer] 275456 [outline-next-heading let save-excursion catch if= org-block-todo-from-children-or-siblings-or-parent run-hook-with-args-unti= l-failure not and org-entry-blocked-p save-excursion save-current-buffer le= t progn if let] 277552 [let and save-excursion org-get-todo-state member or= g-entry-is-done-p not and if while let let save-excursion catch if org-bloc= k-todo-from-children-or-siblings-or-parent] 74600 [if while let* save-excur= sion catch if org-block-todo-from-children-or-siblings-or-parent run-hook-w= ith-args-until-failure not and org-entry-blocked-p save-excursion save-curr= ent-buffer let progn if] 390338 [and save-excursion org-at-heading-p or org= -back-to-heading save-excursion catch if org-block-todo-from-children-or-si= blings-or-parent run-hook-with-args-until-failure not and org-entry-blocked= -p save-excursion save-current-buffer let] 275480 [and save-excursion org-a= t-heading-p or org-back-to-heading save-excursion if org-get-heading setq p= rogn if while let let save-excursion catch] 35864 [let save-excursion if or= g-get-heading setq progn if while let let save-excursion catch if org-block= -todo-from-children-or-siblings-or-parent run-hook-with-args-until-failure = not] 50572 [and save-excursion org-at-heading-p or org-back-to-heading prog= n condition-case if if let org-up-heading-safe and setq while let* save-exc= ursion] 134144 [if save-restriction save-excursion org-outline-level funcal= l 1- let* if let progn if if let org-up-heading-safe and setq] 57344 [match= -string-no-properties cons cons setq progn if let progn if progn if let* ca= tch progn if save-restriction] 17416 [while let let save-excursion catch if= org-block-todo-from-children-or-siblings-or-parent run-hook-with-args-unti= l-failure not and org-entry-blocked-p save-excursion save-current-buffer le= t progn if] 11328 [let save-excursion catch if org-block-todo-from-children= -or-siblings-or-parent run-hook-with-args-until-failure not and org-entry-b= locked-p save-excursion save-current-buffer let progn if let progn] 3152 [o= rg-edna-blocker-function run-hook-with-args-until-failure not and org-entry= -blocked-p save-excursion save-current-buffer let progn if let progn if org= -agenda--mark-blocked-entry mapcar setq] 5280 [save-excursion org-get-todo-= state member org-entry-is-done-p not and if while let let save-excursion ca= tch if org-block-todo-from-children-or-siblings-or-parent run-hook-with-arg= s-until-failure not] 1056 [and save-excursion org-get-todo-state member org= -entry-is-todo-p and if while let let save-excursion catch if org-block-tod= o-from-children-or-siblings-or-parent run-hook-with-args-until-failure not]= 2104 [save-restriction save-excursion progn unwind-protect let catch org-e= lement--parse-to condition-case if setq let org-element-at-point let org-be= fore-first-heading-p if org-get-heading] 3168 [save-excursion if org-get-he= ading setq progn if while let let save-excursion catch if org-block-todo-fr= om-children-or-siblings-or-parent run-hook-with-args-until-failure not and]= 1056 [let let save-excursion if org-get-heading setq progn if while let le= t save-excursion catch if org-block-todo-from-children-or-siblings-or-paren= t run-hook-with-args-until-failure] 3168 [org-inlinetask-outline-regexp con= cat looking-at-p or let save-excursion org-inlinetask-in-task-p or cond let= save-restriction save-excursion org-get-property-block let if let] 1056 [c= ond save-restriction save-excursion save-excursion let org-entry-get not an= d org-entry-blocked-p save-excursion save-current-buffer let progn if let p= rogn] 1056 [or org-back-to-heading save-excursion catch if org-block-todo-f= rom-children-or-siblings-or-parent run-hook-with-args-until-failure not and= org-entry-blocked-p save-excursion save-current-buffer let progn if let] 1= 056 [and if let org-element-at-point let org-before-first-heading-p if org-= back-to-heading-or-point-min let* progn cond let save-restriction save-excu= rsion org-get-property-block let] 5280 [if let* cond save-restriction save-= excursion save-excursion let org-entry-get org-not-nil and if let* save-exc= ursion catch if org-block-todo-from-children-or-siblings-or-parent] 2112 [i= f setq let org-element-at-point let org-before-first-heading-p if org-back-= to-heading-or-point-min let* progn cond let save-restriction save-excursion= org-get-property-block let] 3168 [org-before-first-heading-p if org-back-t= o-heading-or-point-min let* progn cond let save-restriction save-excursion = org-get-property-block let if let org--property-local-values let* cond] 316= 8 [and if while let* save-excursion catch if org-block-todo-from-children-o= r-siblings-or-parent run-hook-with-args-until-failure not and org-entry-blo= cked-p save-excursion save-current-buffer let progn] 2112 [progn if if let = org-up-heading-safe and setq while let* save-excursion catch if org-block-t= odo-from-children-or-siblings-or-parent run-hook-with-args-until-failure no= t and] 1056 [if list let save-excursion let* progn if let if let org--prope= rty-local-values let* cond save-restriction save-excursion save-excursion] = 1056 [let* cond save-restriction save-excursion save-excursion let org-entr= y-get org-not-nil and if let* save-excursion catch if org-block-todo-from-c= hildren-or-siblings-or-parent run-hook-with-args-until-failure] 1056 [org-e= lement-at-point let org-before-first-heading-p cond let save-restriction sa= ve-excursion org-get-property-block let if let org--property-local-values l= et* cond save-restriction save-excursion] 4224 [let if let org--property-lo= cal-values let* cond save-restriction save-excursion save-excursion let org= -entry-get org-not-nil and if while let*] 5280 [let* let* progn if let if l= et org--property-local-values let* cond save-restriction save-excursion sav= e-excursion let org-entry-get org-not-nil] 5280 [let if let org--property-l= ocal-values let* cond save-restriction save-excursion save-excursion let or= g-entry-get not and org-entry-blocked-p save-excursion save-current-buffer]= 3168 [member-ignore-case cond save-restriction save-excursion save-excursi= on let org-entry-get member and org-entry-blocked-p save-excursion save-cur= rent-buffer let progn if let] 3168 [setq cond let while let progn if save-e= xcursion org-element--get-time-properties let* save-excursion org-element-h= eadline-parser cond setq let save-excursion] 5280 [org-not-nil and if let* = save-excursion catch if org-block-todo-from-children-or-siblings-or-parent = run-hook-with-args-until-failure not and org-entry-blocked-p save-excursion= save-current-buffer let progn] 3168 [re-search-forward and let save-excurs= ion let* progn if let if let org--property-local-values let* cond save-rest= riction save-excursion save-excursion] 3168 [not and org-entry-blocked-p sa= ve-excursion save-current-buffer let progn if let progn if org-agenda--mark= -blocked-entry mapcar setq progn if] 3168 [assoc-string cdr cond save-restr= iction save-excursion save-excursion let org-entry-get member and org-entry= -blocked-p save-excursion save-current-buffer let progn if] 2112 [or org-ba= ck-to-heading save-excursion org-get-todo-state member org-entry-is-done-p = not and if while let let save-excursion catch if org-block-todo-from-childr= en-or-siblings-or-parent] 2112 [eq if let org-element-at-point let org-befo= re-first-heading-p if org-get-heading setq progn if while let let save-excu= rsion catch] 1056 [setq progn if let progn if progn if let* catch progn if = save-restriction save-excursion save-excursion let] 1056 [or org-back-to-he= ading progn condition-case if if let org-up-heading-safe and setq while let= * save-excursion catch if org-block-todo-from-children-or-siblings-or-paren= t] 1056 [if let org-element-at-point let org-before-first-heading-p if org-= back-to-heading-or-point-min let* progn cond let save-restriction save-excu= rsion org-get-property-block let if] 2112 [if org-back-to-heading-or-point-= min and if save-restriction save-excursion save-excursion let org-entry-pro= perties assoc-string cdr cond save-restriction save-excursion save-excursio= n let] 1056 [or org-back-to-heading progn condition-case if if let org-up-h= eading-safe and let* save-excursion catch if org-block-todo-from-children-o= r-siblings-or-parent run-hook-with-args-until-failure not] 1056 [let* cond = save-restriction save-excursion save-excursion let org-entry-get org-not-ni= l and if while let* save-excursion catch if org-block-todo-from-children-or= -siblings-or-parent] 2112 [save-excursion catch if org-block-todo-from-chil= dren-or-siblings-or-parent run-hook-with-args-until-failure not and org-ent= ry-blocked-p save-excursion save-current-buffer let progn if let progn if] = 4224 [cons cons rx-to-string re-search-forward and if if progn unwind-prote= ct let progn if cond let while let] 3168 [org-not-nil and if while let* sav= e-excursion catch if org-block-todo-from-children-or-siblings-or-parent run= -hook-with-args-until-failure not and org-entry-blocked-p save-excursion sa= ve-current-buffer let] 3168 [let* progn if let if let org--property-local-v= alues let* cond save-restriction save-excursion save-excursion let org-entr= y-get org-not-nil and] 1056 [eq if let org-element-at-point let org-before-= first-heading-p if org-back-to-heading-or-point-min and if save-restriction= save-excursion save-excursion let org-entry-properties assoc-string] 2112 = [let* cond save-restriction save-excursion save-excursion let org-entry-get= org-edna-blocker-function run-hook-with-args-until-failure not and org-ent= ry-blocked-p save-excursion save-current-buffer let progn] 2112 [cond save-= restriction save-excursion save-excursion let org-entry-get org-edna-blocke= r-function run-hook-with-args-until-failure not and org-entry-blocked-p sav= e-excursion save-current-buffer let progn if] 3168 [cond save-restriction s= ave-excursion save-excursion let org-entry-get org-not-nil and if let* save= -excursion catch if org-block-todo-from-children-or-siblings-or-parent run-= hook-with-args-until-failure not] 1056 [org-entry-get not and org-entry-blo= cked-p save-excursion save-current-buffer let progn if let progn if org-age= nda--mark-blocked-entry mapcar setq progn] 1056 [and if save-restriction sa= ve-excursion save-excursion let org-entry-properties assoc-string cdr cond = save-restriction save-excursion save-excursion let org-entry-get member] 21= 12 [if setq let org-element-at-point let org-before-first-heading-p cond le= t save-restriction save-excursion org-get-property-block let if let org--pr= operty-local-values let*] 2112 [if let org--property-local-values let* cond= save-restriction save-excursion save-excursion let org-entry-get org-not-n= il and if let* save-excursion catch] 1056 [let catch org-element--parse-to = condition-case if setq let org-element-at-point let org-before-first-headin= g-p cond let save-restriction save-excursion org-get-property-block let] 42= 24 [member-ignore-case cond save-restriction save-excursion save-excursion = let org-entry-get org-not-nil and if let* save-excursion catch if org-block= -todo-from-children-or-siblings-or-parent run-hook-with-args-until-failure]= 1056 [org--property-local-values let* cond save-restriction save-excursion= save-excursion let org-entry-get org-not-nil and if while let* save-excurs= ion catch if] 1056 [org--property-local-values let* cond save-restriction s= ave-excursion save-excursion let org-entry-get not and org-entry-blocked-p = save-excursion save-current-buffer let progn if] 2112 [progn condition-case= if if let org-up-heading-safe and let* save-excursion catch if org-block-t= odo-from-children-or-siblings-or-parent run-hook-with-args-until-failure no= t and org-entry-blocked-p] 2112 [progn if let if let org--property-local-va= lues let* cond save-restriction save-excursion save-excursion let org-entry= -get org-not-nil and if] 3168 [if if let org-up-heading-safe and setq while= let* save-excursion catch if org-block-todo-from-children-or-siblings-or-p= arent run-hook-with-args-until-failure not and org-entry-blocked-p] 1056 [o= rg-edna--should-run-p org-edna-blocker-function run-hook-with-args-until-fa= ilure not and org-entry-blocked-p save-excursion save-current-buffer let pr= ogn if let progn if org-agenda--mark-blocked-entry mapcar] 1056 [if let org= --property-local-values let* cond save-restriction save-excursion save-excu= rsion let org-entry-get org-edna-blocker-function run-hook-with-args-until-= failure not and org-entry-blocked-p save-excursion] 1056 [let if let org--p= roperty-local-values let* cond save-restriction save-excursion save-excursi= on let org-entry-get org-not-nil and if let* save-excursion] 1056 [and if l= et* save-excursion catch if org-block-todo-from-children-or-siblings-or-par= ent run-hook-with-args-until-failure not and org-entry-blocked-p save-excur= sion save-current-buffer let progn if] 1056 [if let org--property-local-val= ues let* cond save-restriction save-excursion save-excursion let org-entry-= get not and org-entry-blocked-p save-excursion save-current-buffer let] 105= 6 [save-excursion org-get-todo-state member org-entry-is-todo-p and if whil= e let let save-excursion catch if org-block-todo-from-children-or-siblings-= or-parent run-hook-with-args-until-failure not and] 1056 [progn if org-agen= da--mark-blocked-entry mapcar setq progn if let org-agenda-finalize-entries= insert progn if progn if while let*] 2112 [if let org-element-at-point let= org-before-first-heading-p if org-back-to-heading-or-point-min and if save= -restriction save-excursion save-excursion let org-entry-properties assoc-s= tring cdr] 1056 [run-hook-with-args-until-failure not and org-entry-blocked= -p save-excursion save-current-buffer let progn if let progn if org-agenda-= -mark-blocked-entry mapcar setq progn] 3168 [and let let save-excursion if = org-get-heading setq progn if while let let save-excursion catch if org-blo= ck-todo-from-children-or-siblings-or-parent] 1056 [let progn if let progn i= f let progn if org-agenda--mark-blocked-entry mapcar setq progn if let org-= agenda-finalize-entries] 2112 [if let* cond save-restriction save-excursion= save-excursion let org-entry-get not and org-entry-blocked-p save-excursio= n save-current-buffer let progn if] 1056 [org--property-local-values let* c= ond save-restriction save-excursion save-excursion let org-entry-get org-ed= na-blocker-function run-hook-with-args-until-failure not and org-entry-bloc= ked-p save-excursion save-current-buffer let] 1056 [org-entry-get org-not-n= il and if let* save-excursion catch if org-block-todo-from-children-or-sibl= ings-or-parent run-hook-with-args-until-failure not and org-entry-blocked-p= save-excursion save-current-buffer let] 1056 [if let org-element-at-point = let org-before-first-heading-p if org-get-heading setq progn if while let l= et save-excursion catch if] 1056 [cond let* let let save-excursion if org-g= et-heading setq progn if while let let save-excursion catch if] 1056 [org-e= ntry-get member and org-entry-blocked-p save-excursion save-current-buffer = let progn if let progn if org-agenda--mark-blocked-entry mapcar setq progn]= 1056 [member or if catch if org-block-todo-from-children-or-siblings-or-pa= rent run-hook-with-args-until-failure not and org-entry-blocked-p save-excu= rsion save-current-buffer let progn if let] 1056 [org-element-lineage let i= f let org-before-first-heading-p if org-get-heading setq progn if while let= let save-excursion catch if] 1056 [and or let org--property-local-values l= et* cond save-restriction save-excursion save-excursion let org-entry-get n= ot and org-entry-blocked-p save-excursion save-current-buffer] 1056 [member= and org-entry-blocked-p save-excursion save-current-buffer let progn if le= t progn if org-agenda--mark-blocked-entry mapcar setq progn if] 2112 [membe= r-ignore-case cond save-restriction save-excursion save-excursion let org-e= ntry-get org-edna-blocker-function run-hook-with-args-until-failure not and= org-entry-blocked-p save-excursion save-current-buffer let progn] 1056 [ca= tch org-element--parse-to condition-case if setq let org-element-at-point l= et org-before-first-heading-p if org-back-to-heading-or-point-min and if sa= ve-restriction save-excursion save-excursion] 1056 [let if let org--propert= y-local-values let* cond save-restriction save-excursion save-excursion let= org-entry-get org-edna-blocker-function run-hook-with-args-until-failure n= ot and org-entry-blocked-p] 1056 [setq progn if while let let save-excursio= n catch if org-block-todo-from-children-or-siblings-or-parent run-hook-with= -args-until-failure not and org-entry-blocked-p save-excursion save-current= -buffer] 1056 [let* let let save-excursion if org-get-heading setq progn if= while let let save-excursion catch if org-block-todo-from-children-or-sibl= ings-or-parent] 1056 [mapcar setq progn if let org-agenda-finalize-entries = insert progn if progn if while let* catch org-agenda-list funcall-interacti= vely] 1056 [if let org-before-first-heading-p cond let save-restriction sav= e-excursion org-get-property-block let if let org--property-local-values le= t* cond save-restriction save-excursion] 1056 [and save-excursion org-get-t= odo-state member org-entry-is-done-p not and if while let let save-excursio= n catch if org-block-todo-from-children-or-siblings-or-parent run-hook-with= -args-until-failure] 1056 [progn if let progn if org-agenda--mark-blocked-e= ntry mapcar setq progn if let org-agenda-finalize-entries insert progn if p= rogn] 1056 [make-closure replace-regexp-in-string org-trim let* save-excurs= ion org-element-headline-parser setq progn if cond let* save-restriction sa= ve-excursion progn unwind-protect let] 3350 [let org-agenda-finalize-entrie= s insert progn if progn if while let* catch org-agenda-list funcall-interac= tively call-interactively cond let* catch] 23432 [progn if progn if while l= et* catch org-agenda-list funcall-interactively call-interactively cond let= * catch org-agenda funcall-interactively call-interactively] 25446 [insert = progn if progn if while let* catch org-agenda-list funcall-interactively ca= ll-interactively cond let* catch org-agenda funcall-interactively] 23432 [f= lycheck-handle-change insert progn if progn if while let* catch org-agenda-= list funcall-interactively call-interactively cond let* catch org-agenda] 1= 024 [flycheck-may-check-automatically flycheck-buffer-automatically flychec= k-handle-change insert progn if progn if while let* catch org-agenda-list f= uncall-interactively call-interactively cond let*] 6057 [put-text-property = progn if while let* catch org-agenda-list funcall-interactively call-intera= ctively cond let* catch org-agenda funcall-interactively call-interactively= command-execute] 46912 [list if "#" mapcar apply= setq let org-agenda-files let progn if let* catch org-agenda-list funcall-= interactively call-interactively] 8184 [ucs-normalize-region ucs-normalize-= HFS-NFD-region ucs-normalize-hfs-nfd-pre-write-conversion file-directory-p = if "#" mapcar apply setq let org-agenda-files let= progn if let* catch] 119135 [if "#" mapcar apply= setq let org-agenda-files let progn if let* catch org-agenda-list funcall-= interactively call-interactively cond] 144 [generate-new-buffer let org-clo= ck-get-clocktable apply setq let progn if let* catch org-agenda-list funcal= l-interactively call-interactively cond let* catch] 21 [list if "#" mapcar apply setq let org-agenda-files progn condition= -case mapcar append easy-menu-change progn if save-excursion] 8184 [if "#" mapcar apply setq let org-agenda-files progn co= ndition-case mapcar append easy-menu-change progn if save-excursion let] 14= 4 [intern if org-fold-core-get-folding-property-symbol if org-fold-core--pr= operty-symbol-get-create let* save-current-buffer org-fold-core-add-folding= -spec let while let org-fold-core-initialize org-fold-initialize let progn = org-mode] 5000 [regexp-opt-group regexp-opt-group regexp-opt-group regexp-o= pt-group regexp-opt-group regexp-opt concat org-make-options-regexp let sav= e-restriction save-excursion save-excursion let org--collect-keywords-1 let= * org-collect-keywords] 8184 [and while let save-restriction save-excursion= save-excursion let org--collect-keywords-1 let* org-collect-keywords let p= rogn if org-set-regexps-and-options let progn] 1024 [if let while let let* = let while let let if let progn if org-set-regexps-and-options let progn] 10= 24 [if org-extract-log-state-settings let let while let let* let while let = let if let progn if org-set-regexps-and-options] 1024 [if "#" mapcar org-remove-keyword-keys if let* let* let while let let = if let progn if org-set-regexps-and-options] 1024 [regexp-opt-group regexp-= opt-group regexp-opt-group regexp-opt-group regexp-opt-group regexp-opt-gro= up regexp-opt setq if let progn if org-set-regexps-and-options let progn or= g-mode] 8184 [mapcar regexp-opt-group regexp-opt-group regexp-opt-group reg= exp-opt-group regexp-opt-group regexp-opt setq if let progn if org-set-rege= xps-and-options let progn org-mode] 8184 [setq if let progn if org-set-rege= xps-and-options let progn org-mode progn unwind-protect save-current-buffer= let org-clock-get-clocktable apply setq] 8184 [while catch let save-restri= ction save-excursion save-excursion let org-macro--find-keyword-value cons = list let org-macro--collect-macros append org-macro--set-templates nconc se= tq] 3072 [while catch let save-restriction save-excursion save-excursion le= t org-macro--find-keyword-value let* org-macro--find-date cons list let org= -macro--collect-macros append org-macro--set-templates] 1024 [and while let= save-restriction save-excursion save-excursion let org--collect-keywords-1= let* org-collect-keywords let* let org-macro--collect-macros append org-ma= cro--set-templates nconc] 1024 [while let save-restriction save-excursion l= et org-update-radio-target-regexp let progn org-mode progn unwind-protect s= ave-current-buffer let org-clock-get-clocktable apply setq] 1024 [if save-e= xcursion org-cycle-overview--overlays if org-cycle-overview cond org-cycle-= set-startup-visibility if let unwind-protect let if let progn org-mode prog= n] 1024 [while save-restriction save-excursion save-excursion let let org-c= ycle-set-visibility-according-to-property if org-cycle-set-startup-visibili= ty if let unwind-protect let if let progn] 1024 [let save-restriction save-= excursion org-fold-hide-archived-subtrees if let progn if org-cycle-hide-ar= chived-subtrees if org-cycle-set-startup-visibility if let unwind-protect l= et if] 704 [while progn if let* save-excursion progn if org-cycle-show-empt= y-lines if org-cycle-set-startup-visibility if let unwind-protect let if le= t] 1024 [outline-previous-heading save-excursion org-cycle-show-empty-lines= if org-cycle-set-startup-visibility if let unwind-protect let if let progn= org-mode progn unwind-protect save-current-buffer] 1024 [and if save-excur= sion org-cycle-show-empty-lines if org-cycle-set-startup-visibility if let = unwind-protect let if let progn org-mode progn unwind-protect] 1024 [cape-c= ompany-to-capf list set cond my/org-mode-completion-setting run-hooks apply= run-mode-hooks org-mode progn unwind-protect save-current-buffer let org-c= lock-get-clocktable apply setq] 40 [mapcar regexp-opt-group regexp-opt-grou= p regexp-opt-group regexp-opt-group regexp-opt org-modern-mode org-modern--= on global-org-modern-mode-enable-in-buffers run-hooks run-mode-hooks org-mo= de progn unwind-protect save-current-buffer let] 8184 [and save-excursion o= rg-at-heading-p org-pretty-tags-refresh-overlays-org-mode org-pretty-tags-m= ode org-pretty-tags-global-mode-enable-in-buffers run-hooks run-mode-hooks = org-mode progn unwind-protect save-current-buffer let org-clock-get-clockta= ble apply setq] 1024 [if org-create-dblock progn unwind-protect save-curren= t-buffer let org-clock-get-clocktable apply setq let progn if let* catch or= g-agenda-list funcall-interactively] 1024 [insert if while let org-create-d= block progn unwind-protect save-current-buffer let org-clock-get-clocktable= apply setq let progn if let*] 14000 [if while let org-create-dblock progn = unwind-protect save-current-buffer let org-clock-get-clocktable apply setq = let progn if let* catch] 2027 [format intern if org-fold-core-get-folding-p= roperty-symbol if org-fold-core--property-symbol-get-create "#" mapcar mapcar apply org-fold-core-next-folding-state-change se= tq if let let save-restriction] 65472 [format intern if org-fold-core-get-f= olding-property-symbol if org-fold-core--property-symbol-get-create get-cha= r-property-and-overlay cdr let if if save-restriction save-excursion save-e= xcursion let let] 130944 [format intern if org-fold-core-get-folding-proper= ty-symbol if org-fold-core--property-symbol-get-create get-char-property co= nd save-restriction save-excursion save-excursion let let org-fold-core-get= -folding-spec if let] 57288 [if org-prepare-dblock let* save-excursion org-= update-dblock progn unwind-protect save-current-buffer let org-clock-get-cl= ocktable apply setq let progn if let*] 1024 [if let* org-prepare-dblock let= * save-excursion org-update-dblock progn unwind-protect save-current-buffer= let org-clock-get-clocktable apply setq let progn if] 1024 [newline open-l= ine let* org-prepare-dblock let* save-excursion org-update-dblock progn unw= ind-protect save-current-buffer let org-clock-get-clocktable apply setq let= progn] 1024 ["#" self-insert-command newline= open-line let* org-prepare-dblock let* save-excursion org-update-dblock pr= ogn unwind-protect save-current-buffer let org-clock-get-clocktable apply s= etq] 1024 [let* save-excursion org-update-dblock progn unwind-protect save-= current-buffer let org-clock-get-clocktable apply setq let progn if let* ca= tch org-agenda-list] 1212 [list if "#" mapcar a= pply setq let org-agenda-files let cond let* catch org-dblock-write:clockta= ble funcall let* save-excursion] 8184 [ucs-normalize-region ucs-normalize-H= FS-NFD-region ucs-normalize-hfs-nfd-pre-write-conversion file-directory-p i= f "#" mapcar apply setq let org-agenda-files le= t cond let* catch org-dblock-write:clocktable] 119135 [if "#" mapcar apply setq let org-agenda-files let cond let* catch o= rg-dblock-write:clocktable funcall let* save-excursion org-update-dblock] 1= 44 [org-match-line let org-inlinetask-end-p and if while save-excursion let= or org-back-to-heading if org-back-to-heading-or-point-min save-excursion = put-text-property progn if] 16368 [if org-check-agenda-file if set-buffer s= ave-current-buffer catch let while let let org-agenda-prepare-buffers let* = catch org-dblock-write:clocktable funcall let*] 242064 [org-element-lineage= let if let org-before-first-heading-p if org-back-to-heading-or-point-min = let* progn cond let save-restriction save-excursion org-get-property-block = progn unwind-protect] 2112 [let save-excursion org-at-comment-p and while s= ave-restriction save-excursion or progn if let* save-restriction save-excur= sion org-element-org-data-parser setq if] 1056 [org-element-at-point let or= g-before-first-heading-p if org-back-to-heading-or-point-min org-end-of-sub= tree if save-excursion put-text-property progn if let while let save-restri= ction save-excursion] 1056 [org-refresh-properties or save-restriction save= -excursion save-current-buffer catch let while let let org-agenda-prepare-b= uffers let* catch org-dblock-write:clocktable funcall let*] 3168 [setq save= -restriction save-excursion save-current-buffer catch let while let let org= -agenda-prepare-buffers let* catch org-dblock-write:clocktable funcall let*= save-excursion] 418176 [let cond org--tag-add-to-alist setq save-restricti= on save-excursion save-current-buffer catch let while let let org-agenda-pr= epare-buffers let* catch org-dblock-write:clocktable] 572352 [while let let= cond org--tag-add-to-alist setq save-restriction save-excursion save-curre= nt-buffer catch let while let let org-agenda-prepare-buffers let*] 1329504 = [while let progn if save-restriction save-excursion save-current-buffer cat= ch let while let let org-agenda-prepare-buffers let* catch org-dblock-write= :clocktable] 5280 [org-collect-keywords let progn if org-set-regexps-and-op= tions save-restriction save-excursion save-current-buffer catch let while l= et let org-agenda-prepare-buffers let* catch] 3168 [mapcar regexp-opt-group= regexp-opt concat org-make-options-regexp let save-restriction save-excurs= ion save-excursion let org--collect-keywords-1 let* org-collect-keywords le= t progn if] 24552 [cond org--tag-add-to-alist setq let progn if org-set-reg= exps-and-options save-restriction save-excursion save-current-buffer catch = let while let let org-agenda-prepare-buffers] 1056 [let save-restriction sa= ve-excursion progn unwind-protect let* let let if org-refresh-category-prop= erties or save-restriction save-excursion save-current-buffer catch let] 21= 12 [org--collect-keywords-1 let* org-collect-keywords let progn if org-set-= regexps-and-options save-restriction save-excursion save-current-buffer cat= ch let while let let org-agenda-prepare-buffers] 2112 [if let* let while le= t let cond org--tag-add-to-alist setq let progn if org-set-regexps-and-opti= ons save-restriction save-excursion save-current-buffer] 4224 [org-refresh-= effort-properties if or save-restriction save-excursion save-current-buffer= catch let while let let org-agenda-prepare-buffers let* catch org-dblock-w= rite:clocktable funcall] 1056 [let while let progn if save-restriction save= -excursion save-current-buffer catch let while let let org-agenda-prepare-b= uffers let* catch] 5280 [let org-get-agenda-file-buffer if set-buffer save-= current-buffer catch let while let let org-agenda-prepare-buffers let* catc= h org-dblock-write:clocktable funcall let*] 2112 [org-tag-alist-to-groups s= etq let progn if org-set-regexps-and-options save-restriction save-excursio= n save-current-buffer catch let while let let org-agenda-prepare-buffers le= t*] 2112 [setq if cond let* save-restriction save-excursion progn unwind-pr= otect let catch org-element--parse-to condition-case if setq let org-elemen= t-at-point] 1056 [cond org-get-limited-outline-regexp let* progn save-excur= sion or org-element-section-parser cond setq let save-excursion if let* org= -element--current-element setq progn] 1056 [throw progn if let while save-r= estriction save-excursion catch let let if org-refresh-category-properties = or save-restriction save-excursion save-current-buffer] 1056 [regexp-opt co= ncat org-make-options-regexp let save-restriction save-excursion save-excur= sion let org--collect-keywords-1 let* org-collect-keywords let progn if org= -set-regexps-and-options save-restriction] 10296 [org-element-lineage let i= f let org-before-first-heading-p cond let save-restriction save-excursion o= rg-get-property-block progn unwind-protect let let and save-excursion] 1056= [save-restriction save-excursion progn unwind-protect let catch org-elemen= t--parse-to condition-case if setq let org-element-at-point let org-before-= first-heading-p if save-excursion] 2112 [re-search-backward or while save-e= xcursion let or org-back-to-heading if org-back-to-heading-or-point-min org= -end-of-subtree if save-excursion put-text-property progn if let] 16368 [eq= if let org-element-at-point let org-before-first-heading-p cond let save-r= estriction save-excursion org-get-property-block progn unwind-protect let l= et and] 1056 [org-element-lineage let if let org-before-first-heading-p if = org-back-to-heading-or-point-min save-excursion put-text-property progn if = let while let save-restriction save-excursion] 1056 [let if let org-before-= first-heading-p if org-back-to-heading-or-point-min org-end-of-subtree if s= ave-excursion put-text-property progn if let while let save-restriction] 21= 12 [org-before-first-heading-p if org-back-to-heading-or-point-min let* pro= gn cond let save-restriction save-excursion org-get-property-block progn un= wind-protect let let and save-excursion] 1056 [save-restriction save-excurs= ion save-excursion let progn unwind-protect let* org-refresh-stats-properti= es or save-restriction save-excursion save-current-buffer catch let while l= et] 1056 [let* progn cond let save-restriction save-excursion org-get-prope= rty-block progn unwind-protect let let and save-excursion org-at-property-p= if while] 1056 [org-re-property let save-restriction save-excursion progn = unwind-protect let* let let if org-refresh-category-properties or save-rest= riction save-excursion save-current-buffer catch] 8184 [let* org-refresh-pr= operties or save-restriction save-excursion save-current-buffer catch let w= hile let let org-agenda-prepare-buffers let* catch org-dblock-write:clockta= ble funcall] 2112 [let* org-refresh-properties org-refresh-effort-propertie= s if or save-restriction save-excursion save-current-buffer catch let while= let let org-agenda-prepare-buffers let* catch] 2112 [let* org-collect-keyw= ords let progn if org-set-regexps-and-options save-restriction save-excursi= on save-current-buffer catch let while let let org-agenda-prepare-buffers l= et*] 1056 [mapcar let* org-collect-keywords let progn if org-set-regexps-an= d-options save-restriction save-excursion save-current-buffer catch let whi= le let let org-agenda-prepare-buffers] 8184 [org-re-property let* org-refre= sh-properties org-refresh-effort-properties if or save-restriction save-exc= ursion save-current-buffer catch let while let let org-agenda-prepare-buffe= rs let*] 8184 [mapcar regexp-opt-group regexp-opt-group regexp-opt concat o= rg-make-options-regexp let save-restriction save-excursion save-excursion l= et org--collect-keywords-1 let* org-collect-keywords let progn] 8184 [org-r= e-property let* org-refresh-properties or save-restriction save-excursion s= ave-current-buffer catch let while let let org-agenda-prepare-buffers let* = catch org-dblock-write:clocktable] 8184 [org-element-lineage let if let org= -before-first-heading-p if save-excursion put-text-property progn if let wh= ile let save-restriction save-excursion progn] 2112 [if let org-element-at-= point let org-before-first-heading-p if org-back-to-heading-or-point-min sa= ve-excursion put-text-property progn if let while let save-restriction save= -excursion] 1056 [and if let org-element-at-point let org-before-first-head= ing-p if org-back-to-heading-or-point-min save-excursion put-text-property = progn if let while let save-restriction] 1056 [org-element-at-point let org= -before-first-heading-p if save-excursion put-text-property progn if let wh= ile let save-restriction save-excursion progn unwind-protect let*] 1056 [or= g-before-first-heading-p if save-excursion put-text-property progn if let w= hile let save-restriction save-excursion progn unwind-protect let* let let]= 1056 [catch org-element--parse-to condition-case if setq let org-element-a= t-point let org-before-first-heading-p if org-back-to-heading-or-point-min = org-end-of-subtree if save-excursion put-text-property progn] 1056 [let and= save-excursion org-at-property-p if let while let save-restriction save-ex= cursion progn unwind-protect let* let let if] 1056 [< or let if let org-bef= ore-first-heading-p if org-back-to-heading-or-point-min let* progn cond let= save-restriction save-excursion org-get-property-block progn] 3168 [and if= let org-element-at-point let org-before-first-heading-p if org-back-to-hea= ding-or-point-min org-end-of-subtree if save-excursion put-text-property pr= ogn if let while] 1056 [if org-end-of-subtree if save-excursion put-text-pr= operty progn if let while let save-restriction save-excursion progn unwind-= protect let* let] 2112 [or save-restriction save-excursion save-current-buf= fer catch let while let let org-agenda-prepare-buffers let* catch org-dbloc= k-write:clocktable funcall let* save-excursion] 1056 [apply derived-mode-p = if org-set-regexps-and-options save-restriction save-excursion save-current= -buffer catch let while let let org-agenda-prepare-buffers let* catch org-d= block-write:clocktable] 1056 [let let progn if org-set-regexps-and-options = save-restriction save-excursion save-current-buffer catch let while let let= org-agenda-prepare-buffers let* catch] 1056 [let while save-restriction sa= ve-excursion catch let let if org-refresh-category-properties or save-restr= iction save-excursion save-current-buffer catch let while] 1056 [if catch l= et* save-restriction save-excursion org-element-org-data-parser setq if con= d let* save-restriction save-excursion progn unwind-protect let catch] 1056= [let cond setq let save-excursion if let* org-element--current-element set= q progn unwind-protect let* if if while let] 1056 [catch org-element--parse= -to condition-case if setq let org-element-at-point let org-before-first-he= ading-p cond let save-restriction save-excursion org-get-property-block pro= gn unwind-protect] 1056 [eq not if if if let org-element-at-point let org-b= efore-first-heading-p cond let save-restriction save-excursion org-get-prop= erty-block progn unwind-protect] 1056 [eq if let org-element-at-point let o= rg-before-first-heading-p if org-back-to-heading-or-point-min save-excursio= n put-text-property progn if let while let save-restriction] 1056 [if let o= rg-element-at-point let org-before-first-heading-p if save-excursion put-te= xt-property progn if let while let save-restriction save-excursion progn] 1= 056 [and cond let if org-end-of-subtree progn put-text-property let* while = let save-restriction save-excursion save-excursion let progn unwind-protect= ] 2112 [concat let cond let if org-end-of-subtree progn put-text-property l= et* while let save-restriction save-excursion save-excursion let progn] 245= 52 [let* cond org-get-limited-outline-regexp let* progn save-excursion or o= rg-element-section-parser cond setq let save-excursion if let* org-element-= -current-element setq] 8184 [ucs-normalize-region ucs-normalize-HFS-NFD-reg= ion ucs-normalize-hfs-nfd-pre-write-conversion file-exists-p if org-check-a= genda-file if set-buffer save-current-buffer catch let while let let org-ag= enda-prepare-buffers let*] 119135 [delete-dups let org-uniquify setq let or= g-agenda-prepare-buffers let* catch org-dblock-write:clocktable funcall let= * save-excursion org-update-dblock progn unwind-protect save-current-buffer= ] 199520 [file-truename find-buffer-visiting set-buffer save-current-buffer= "#" mapcar if let let* catch org-dblock-write:= clocktable funcall let* save-excursion org-update-dblock progn] 70038 [abbr= eviate-file-name find-buffer-visiting set-buffer save-current-buffer "#" mapcar if let let* catch org-dblock-write:clockta= ble funcall let* save-excursion org-update-dblock progn] 18568 [float-time = let org-matcher-time setq if let* org-clock-get-table-data save-restriction= save-excursion save-current-buffer "#" mapcar = if let let* catch] 8 [let org-matcher-time setq if let* org-clock-get-table= -data save-restriction save-excursion save-current-buffer "#" mapcar if let let* catch org-dblock-write:clocktable] 16 [co= nd progn unwind-protect let let org-matcher-time setq if let* org-clock-get= -table-data save-restriction save-excursion save-current-buffer "#" mapcar if] 8192 [while save-excursion let* progn unwin= d-protect let* org-clock-sum save-excursion let* org-clock-get-table-data s= ave-restriction save-excursion save-current-buffer "#" mapcar if] 5120 [string-to-number cond list org-parse-time-string e= ncode-time org-time-string-to-time float-time org-time-string-to-seconds le= t* cond while save-excursion let* progn unwind-protect let*] 546712 [file-t= ruename file-truename file-truename find-buffer-visiting set-buffer save-cu= rrent-buffer "#" mapcar if let let* catch org-d= block-write:clocktable funcall let* save-excursion] 16368 [let* cond while = save-excursion let* progn unwind-protect let* org-clock-sum save-excursion = let* org-clock-get-table-data save-restriction save-excursion save-current-= buffer "#"] 502904 [string-to-number list org-p= arse-time-string encode-time org-time-string-to-time float-time org-time-st= ring-to-seconds let* cond while save-excursion let* progn unwind-protect le= t* org-clock-sum] 775520 [if save-restriction save-excursion org-outline-le= vel let* progn let org-current-level org-reduced-level let progn if let whi= le save-excursion let*] 5120 [and save-excursion org-at-heading-p or org-ba= ck-to-heading save-excursion if org-get-heading let* progn if let progn if = let while] 7168 [let save-excursion if org-get-heading let* progn if let pr= ogn if let while save-excursion let* org-clock-get-table-data save-restrict= ion] 30796 [replace-regexp-in-string let cond let* let let save-excursion i= f org-get-heading let* progn if let progn if let] 10240 [file-truename file= -truename find-buffer-visiting set-buffer save-current-buffer "#" mapcar if let let* catch org-dblock-write:clocktable fun= call let* save-excursion org-update-dblock] 16497 [file-truename file-truen= ame file-truename file-truename find-buffer-visiting set-buffer save-curren= t-buffer "#" mapcar if let let* catch org-dbloc= k-write:clocktable funcall let*] 8184 [file-truename file-truename file-tru= ename file-truename file-truename file-truename find-buffer-visiting set-bu= ffer save-current-buffer "#" mapcar if let let*= catch org-dblock-write:clocktable] 16368 [setq progn if let* org-clock-get= -table-data save-restriction save-excursion save-current-buffer "#" mapcar if let let* catch org-dblock-write:clocktable f= uncall] 8184 [file-truename file-truename file-truename file-truename file-= truename file-truename file-truename find-buffer-visiting set-buffer save-c= urrent-buffer "#" mapcar if let let* catch] 818= 4 [find-buffer-visiting set-buffer save-current-buffer "#" mapcar if let let* catch org-dblock-write:clocktable funcall le= t* save-excursion org-update-dblock progn unwind-protect] 16368 [apply repl= ace-regexp-in-string let cond let* let let save-excursion if org-get-headin= g let* progn if let progn if] 1016 [let cond let* let let save-excursion if= org-get-heading let* progn if let progn if let while] 4064 [ucs-normalize-= region ucs-normalize-HFS-NFD-region ucs-normalize-hfs-nfd-pre-write-convers= ion file-name-case-insensitive-p file-truename find-buffer-visiting set-buf= fer save-current-buffer "#" mapcar if let let* = catch org-dblock-write:clocktable funcall] 119135 [cond while save-excursio= n let* progn unwind-protect let* org-clock-sum save-excursion let* org-cloc= k-get-table-data save-restriction save-excursion save-current-buffer "#" mapcar] 78144 [org-parse-time-string encode-time = org-time-string-to-time float-time org-time-string-to-seconds let* cond whi= le save-excursion let* progn unwind-protect let* org-clock-sum save-excursi= on let*] 73920 [float-time org-time-string-to-seconds let* cond while save-= excursion let* progn unwind-protect let* org-clock-sum save-excursion let* = org-clock-get-table-data save-restriction save-excursion] 19008 [encode-tim= e org-time-string-to-time float-time org-time-string-to-seconds let* cond w= hile save-excursion let* progn unwind-protect let* org-clock-sum save-excur= sion let* org-clock-get-table-data] 40128 [org-time-string-to-time float-ti= me org-time-string-to-seconds let* cond while save-excursion let* progn unw= ind-protect let* org-clock-sum save-excursion let* org-clock-get-table-data= save-restriction] 21120 [if let let* catch org-dblock-write:clocktable fun= call let* save-excursion org-update-dblock progn unwind-protect save-curren= t-buffer let org-clock-get-clocktable apply setq] 1056 [let org-combine-pli= sts funcall let let* catch org-dblock-write:clocktable funcall let* save-ex= cursion org-update-dblock progn unwind-protect save-current-buffer let org-= clock-get-clocktable] 1056 [mapcan cl-mapcan let if let* org-clocktable-wri= te-default funcall let let* catch org-dblock-write:clocktable funcall let* = save-excursion org-update-dblock progn] 2112 [if "#" mapcan cl-mapcan let if let* org-clocktable-write-default funcall let = let* catch org-dblock-write:clocktable funcall let* save-excursion] 3168 [i= f let* if "#" mapcan cl-mapcan let if let* org-c= locktable-write-default funcall let let* catch org-dblock-write:clocktable = funcall] 1056 [org-clocktable-write-default funcall let let* catch org-dblo= ck-write:clocktable funcall let* save-excursion org-update-dblock progn unw= ind-protect save-current-buffer let org-clock-get-clocktable apply] 1056 [s= tring-match-p cond let* org-clocktable-write-default funcall let let* catch= org-dblock-write:clocktable funcall let* save-excursion org-update-dblock = progn unwind-protect save-current-buffer] 1024 [if org-fold-core--check-spe= c org-fold-core-get-folding-spec-property if let while let save-current-buf= fer let while let let if progn unwind-protect let] 7392 [save-restriction s= ave-excursion progn if let while let save-current-buffer let while let let = if progn unwind-protect let] 47520 ["#" mapcar mapc= ar apply org-fold-core-next-folding-state-change setq if let let save-restr= iction save-excursion progn if let while let] 30624 [let org-fold-core-get-= region-at-point let save-restriction save-excursion progn if let while let = save-current-buffer let while let let if] 35904 [setq progn if org-fold-cor= e-next-folding-state-change setq if let let save-restriction save-excursion= progn if let while let save-current-buffer] 6336 [get-char-property-and-ov= erlay cdr let if if save-restriction save-excursion save-excursion let let = org-fold-core-get-region-at-point let save-restriction save-excursion progn= if] 60192 [let org-fold-core-get-folding-spec if let let save-restriction = save-excursion progn if let while let save-current-buffer let while let] 10= 560 [if let while let save-current-buffer let while let let if progn unwind= -protect let if org-fold-core--fix-folded-region insert-before-markers] 264= 00 [mapcar mapcar apply org-fold-core-next-folding-state-change setq if let= let save-restriction save-excursion progn if let while let save-current-bu= ffer] 26400 [setq if let let save-restriction save-excursion progn if let w= hile let save-current-buffer let while let let] 39072 [insert-before-marker= s let* org-clocktable-write-default funcall let let* catch org-dblock-write= :clocktable funcall let* save-excursion org-update-dblock progn unwind-prot= ect save-current-buffer let] 3168 [get-char-property cond save-restriction = save-excursion save-excursion let let org-fold-core-get-folding-spec if let= let save-restriction save-excursion progn if let] 27456 [org-fold-core-get= -folding-spec-property if let while let save-current-buffer let while let l= et if progn unwind-protect let if org-fold-core--fix-folded-region] 13728 [= org-fold-core-folding-spec-p if org-fold-core--check-spec progn if let org-= fold-core-get-folding-spec if let let save-restriction save-excursion progn= if let while] 13728 [while let save-current-buffer let while let let if pr= ogn unwind-protect let if org-fold-core--fix-folded-region insert-before-ma= rkers let* org-clocktable-write-default] 2112 [if if save-restriction save-= excursion save-excursion let let org-fold-core-get-region-at-point let save= -restriction save-excursion progn if let while let] 13728 [if mapcar apply = org-fold-core-next-folding-state-change setq if let let save-restriction sa= ve-excursion progn if let while let save-current-buffer] 7392 [let save-res= triction save-excursion progn if let while let save-current-buffer let whil= e let let if progn unwind-protect] 44352 [org-fold-core-get-folding-spec if= let let save-restriction save-excursion progn if let while let save-curren= t-buffer let while let let] 12997 [mapcar apply org-fold-core-next-folding-= state-change setq if let let save-restriction save-excursion progn if let w= hile let save-current-buffer let] 10560 [if org-fold-core--property-symbol-= get-create get-char-property-and-overlay cdr let if if save-restriction sav= e-excursion save-excursion let let org-fold-core-get-region-at-point let sa= ve-restriction save-excursion] 64416 [if org-fold-core--check-spec mapc pro= gn if org-fold-core-next-folding-state-change setq if let let save-restrict= ion save-excursion progn if let while] 7392 [cdr let if if save-restriction= save-excursion save-excursion let let org-fold-core-get-region-at-point le= t save-restriction save-excursion progn if let] 12672 [if org-fold-core--pr= operty-symbol-get-create get-char-property cond save-restriction save-excur= sion save-excursion let let org-fold-core-get-folding-spec if let let save-= restriction save-excursion progn] 35904 [let if org-fold-core--fix-folded-r= egion insert-before-markers let* org-clocktable-write-default funcall let l= et* catch org-dblock-write:clocktable funcall let* save-excursion org-updat= e-dblock progn] 2112 [org-fold-core-folding-spec-p if org-fold-core--check-= spec org-fold-core-get-folding-spec-property if let while let save-current-= buffer let while let let if progn unwind-protect] 9504 [mapcar setq progn i= f org-fold-core-next-folding-state-change setq if let let save-restriction = save-excursion progn if let while let] 13728 [if org-fold-core--check-spec = progn if let org-fold-core-get-folding-spec if let let save-restriction sav= e-excursion progn if let while let] 9504 [if progn unwind-protect let if or= g-fold-core--fix-folded-region insert-before-markers let* org-clocktable-wr= ite-default funcall let let* catch org-dblock-write:clocktable funcall let*= ] 2112 [if let let save-restriction save-excursion progn if let while let s= ave-current-buffer let while let let if] 20064 [if org-fold-core--property-= symbol-get-create "#" mapcar mapcar apply org-fold-= core-next-folding-state-change setq if let let save-restriction save-excurs= ion progn if let] 28512 [let* cond let* org-duration-from-minutes format in= sert-before-markers let* org-clocktable-write-default funcall let let* catc= h org-dblock-write:clocktable funcall let* save-excursion] 1056 [org-fold-c= ore-get-region-at-point let save-restriction save-excursion progn if let wh= ile let save-current-buffer let while let let if progn] 17952 [progn if let= org-fold-core-get-folding-spec if let let save-restriction save-excursion = progn if let while let save-current-buffer let] 6336 [org-fold-core-folding= -spec-p if org-fold-core--check-spec mapc progn if org-fold-core-next-foldi= ng-state-change setq if let let save-restriction save-excursion progn if le= t] 10560 [save-current-buffer let while let let if progn unwind-protect let= if org-fold-core--fix-folded-region insert-before-markers let* org-clockta= ble-write-default funcall let] 2112 [mapc progn if org-fold-core-next-foldi= ng-state-change setq if let let save-restriction save-excursion progn if le= t while let save-current-buffer] 13728 [assq assq cdr if if org-fold-core-g= et-folding-spec-property if let while let save-current-buffer let while let= let if] 11616 [or "#" mapcar setq progn if org-fol= d-core-next-folding-state-change setq if let let save-restriction save-excu= rsion progn if let] 12672 [if let org-fold-core-get-folding-spec if let let= save-restriction save-excursion progn if let while let save-current-buffer= let while] 8448 [apply org-fold-core-next-folding-state-change setq if let= let save-restriction save-excursion progn if let while let save-current-bu= ffer let while] 3168 [progn let* progn let* progn let* progn let while let = progn if let* org-clocktable-write-default funcall let] 4224 [progn let* pr= ogn let while let progn if let* org-clocktable-write-default funcall let le= t* catch org-dblock-write:clocktable funcall] 2112 [save-current-buffer let= while let let if progn unwind-protect let if org-fold-core--fix-folded-reg= ion insert-before-markers progn if let progn] 1056 [format insert-before-ma= rkers progn if progn if let progn let* progn let* progn let* progn let whil= e] 1056 [let* org-duration-from-minutes if let* let if let* if let* if let*= cond let* org-duration-from-minutes format insert-before-markers] 1056 [pr= ogn let* progn let* progn let* progn let* progn let while let progn if prog= n if] 1056 [and if setq progn if progn let progn let* progn let* progn let*= progn let* progn] 1024 [if let* cond let* org-duration-from-minutes funcal= l insert-before-markers progn let* progn let progn let* progn let* progn] 1= 056 [insert-before-markers progn let* progn let progn let* progn let* progn= let* progn let* progn let* progn] 8448 [while let save-current-buffer let = while let let if progn unwind-protect let if org-fold-core--fix-folded-regi= on insert-before-markers progn let*] 5280 [save-current-buffer let while le= t let if progn unwind-protect let if org-fold-core--fix-folded-region inser= t-before-markers progn let* progn let] 6336 [progn let* progn let progn let= * progn let* progn let* progn let* progn let* progn let*] 4184 [progn let* = progn let while let progn if progn if let progn let* progn let* progn] 1056= ["#" funcall insert-before-markers progn let* p= rogn let progn let* progn let* progn let* progn let* progn] 5200 [let if le= t* if let* if let* cond let* org-duration-from-minutes funcall insert-befor= e-markers progn let* progn let] 1056 [if org-fold-core--fix-folded-region i= nsert-before-markers progn let* progn let progn let* progn let* progn let* = progn let* progn] 2112 [if progn unwind-protect let if org-fold-core--fix-f= olded-region insert-before-markers progn let* progn let progn let* progn le= t* progn] 4224 [funcall let let while let if progn unwind-protect let if or= g-fold-core--fix-folded-region insert-before-markers progn let* progn let] = 1056 [if insert-before-markers progn let* progn let progn let* progn let* p= rogn let* progn let* progn let*] 2112 [if "#" cl= -remove apply cl-remove-if-not let* let if let* if let* if let* cond let* o= rg-duration-from-minutes] 2112 [let if progn unwind-protect let if org-fold= -core--fix-folded-region insert-before-markers progn let* progn let progn l= et* progn let*] 1056 [setq if let if progn unwind-protect let if org-fold-c= ore--fix-folded-region insert-before-markers progn let* progn let progn let= *] 1056 [while let let if progn unwind-protect let if org-fold-core--fix-fo= lded-region insert-before-markers progn let* progn let progn let*] 1056 [if= org-fold-core--fix-folded-region insert-before-markers progn if let progn = let* progn let* progn let* progn let while let] 1056 [while let let if prog= n unwind-protect let if org-fold-core--fix-folded-region insert-before-mark= ers progn if progn if let progn] 1056 [progn let while let progn if progn i= f let progn let* progn let* progn let* progn] 1056 [if let* let if let* if = let* if let* cond let* org-duration-from-minutes funcall insert-before-mark= ers progn let*] 1056 [while let if progn unwind-protect let if org-fold-cor= e--fix-folded-region insert-before-markers progn let* progn let progn let* = progn] 4224 [if org-shorten-string if setq progn if progn let progn let* pr= ogn let* progn let* progn let*] 1056 [if let* if org-shorten-string if setq= progn if progn let progn let* progn let* progn let*] 2040 [cl-remove apply= cl-remove-if-not let* let if let* if let* if let* cond let* org-duration-f= rom-minutes funcall insert-before-markers] 1056 [while let progn if let* or= g-clocktable-write-default funcall let let* catch org-dblock-write:clocktab= le funcall let* save-excursion org-update-dblock progn] 1056 [progn let* pr= ogn let* progn let while let progn if let* org-clocktable-write-default fun= call let let* catch] 3168 [progn let while let progn if let* org-clocktable= -write-default funcall let let* catch org-dblock-write:clocktable funcall l= et* save-excursion] 2112 [if let* cond let* org-duration-from-minutes forma= t insert-before-markers progn if progn if let progn let* progn let*] 1056 [= let if org-fold-core--fix-folded-region insert-before-markers progn if prog= n if let progn let* progn let* progn let* progn] 1056 [progn let* progn let= * progn let* progn let* progn let* progn let* progn let while let] 1056 ["#= " mapcar apply and let* let if let* if let* if = let* cond let* org-duration-from-minutes funcall] 1056 [let if org-fold-cor= e--fix-folded-region insert-before-markers progn let* progn let progn let* = progn let* progn let* progn let*] 1056 [save-excursion setq org-fold--exten= d-changed-region funcall let let while let if progn unwind-protect let if o= rg-fold-core--fix-folded-region insert-before-markers progn] 960 [string-ma= tch-p and org-string-nw-p let cond let* org-clocktable-write-default funcal= l let let* catch org-dblock-write:clocktable funcall let* save-excursion or= g-update-dblock] 1152 [and save-excursion cond org-table-begin let org-tabl= e-align let* org-clocktable-write-default funcall let let* catch org-dblock= -write:clocktable funcall let* save-excursion] 1024 [intern if org-fold-cor= e-get-folding-property-symbol if org-fold-core--property-symbol-get-create = get-char-property let let while let let cond save-restriction save-excursio= n save-excursion let] 50000 [intern if org-fold-core-get-folding-property-s= ymbol if org-fold-core--property-symbol-get-create "#" mapcar mapcar apply org-fold-core-next-folding-state-change setq if whi= le let* progn unwind-protect] 5000 [font-lock-fontify-keywords-region font-= lock-default-fontify-region let* save-excursion while let* progn unwind-pro= tect let* org-fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure progn unwind-protect let] 108243 [w= hile let* org-inlinetask-fontify run-hook-with-args org-font-lock-hook font= -lock-fontify-keywords-region font-lock-default-fontify-region let* save-ex= cursion while let* progn unwind-protect let* org-fold-core-fontify-region f= ont-lock-fontify-region] 5248 [if org-fontify-drawers font-lock-fontify-key= words-region font-lock-default-fontify-region let* save-excursion while let= * progn unwind-protect let* org-fold-core-fontify-region font-lock-fontify-= region "#" font-lock-ensure progn] 3072 [whil= e catch org-activate-links--overlays if org-activate-links font-lock-fontif= y-keywords-region font-lock-default-fontify-region let* save-excursion whil= e let* progn unwind-protect let* org-fold-core-fontify-region font-lock-fon= tify-region] 22893 [if org-activate-tags font-lock-fontify-keywords-region = font-lock-default-fontify-region let* save-excursion while let* progn unwin= d-protect let* org-fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure progn] 3072 [and if org-activa= te-dates font-lock-fontify-keywords-region font-lock-default-fontify-region= let* save-excursion while let* progn unwind-protect let* org-fold-core-fon= tify-region font-lock-fontify-region "#" font= -lock-ensure] 6160 [if while catch let org-footnote-next-reference-or-defin= ition let org-activate-footnote-links font-lock-fontify-keywords-region fon= t-lock-default-fontify-region let* save-excursion while let* progn unwind-p= rotect let*] 5300 [if org-fontify-macros font-lock-fontify-keywords-region = font-lock-default-fontify-region let* save-excursion while let* progn unwin= d-protect let* org-fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure progn] 3072 [while org-font-lo= ck-add-priority-faces font-lock-fontify-keywords-region font-lock-default-f= ontify-region let* save-excursion while let* progn unwind-protect let* org-= fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure progn] 3072 [while progn if org-font-lock-add-tag= -faces font-lock-fontify-keywords-region font-lock-default-fontify-region l= et* save-excursion while let* progn unwind-protect let* org-fold-core-fonti= fy-region font-lock-fontify-region "#"] 6857 = [while catch let org-do-emphasis-faces font-lock-fontify-keywords-region fo= nt-lock-default-fontify-region let* save-excursion while let* progn unwind-= protect let* org-fold-core-fontify-region font-lock-fontify-region "#"] 5120 [looking-at-p save-excursion and not and sa= ve-excursion if let* while catch let org-do-emphasis-faces font-lock-fontif= y-keywords-region font-lock-default-fontify-region let* save-excursion] 512= 0 [and save-excursion if let* while catch let org-do-emphasis-faces font-lo= ck-fontify-keywords-region font-lock-default-fontify-region let* save-excur= sion while let* progn unwind-protect] 5120 [string-match-p not and save-exc= ursion if let* while catch let org-do-emphasis-faces font-lock-fontify-keyw= ords-region font-lock-default-fontify-region let* save-excursion while let*= ] 15126 [save-excursion org-match-line progn unwind-protect let and not and= save-excursion if let* while catch let org-do-emphasis-faces font-lock-fon= tify-keywords-region] 5120 [string-match-p and not and save-excursion if le= t* while catch let org-do-emphasis-faces font-lock-fontify-keywords-region = font-lock-default-fontify-region let* save-excursion while] 5120 [progn unw= ind-protect let save-excursion org-at-comment-p not and if progn let progn = let* progn let* progn let*] 13304 [string-match-p and org-string-nw-p if or= g-do-latex-and-related font-lock-fontify-keywords-region font-lock-default-= fontify-region let* save-excursion while let* progn unwind-protect let* org= -fold-core-fontify-region font-lock-fontify-region] 5120 [while catch progn= if let org-fontify-entities font-lock-fontify-keywords-region font-lock-de= fault-fontify-region let* save-excursion while let* progn unwind-protect le= t* org-fold-core-fontify-region] 5340 [and if org-raise-scripts font-lock-f= ontify-keywords-region font-lock-default-fontify-region let* save-excursion= while let* progn unwind-protect let* org-fold-core-fontify-region font-loc= k-fontify-region "#" font-lock-ensure] 5120 [= if org-activate-code font-lock-fontify-keywords-region font-lock-default-fo= ntify-region let* save-excursion while let* progn unwind-protect let* org-f= old-core-fontify-region font-lock-fontify-region "#" font-lock-ensure progn] 3072 [if let org-fontify-meta-lines-and-blo= cks-1 condition-case org-fontify-meta-lines-and-blocks font-lock-fontify-ke= ywords-region font-lock-default-fontify-region let* save-excursion while le= t* progn unwind-protect let* org-fold-core-fontify-region font-lock-fontify= -region] 5888 [while let org-fontify-inline-src-blocks-1 condition-case org= -fontify-inline-src-blocks font-lock-fontify-keywords-region font-lock-defa= ult-fontify-region let* save-excursion while let* progn unwind-protect let*= org-fold-core-fontify-region font-lock-fontify-region] 5120 [if let* org-c= ite-activate font-lock-fontify-keywords-region font-lock-default-fontify-re= gion let* save-excursion while let* progn unwind-protect let* org-fold-core= -fontify-region font-lock-fontify-region "#" = font-lock-ensure] 5120 [and save-excursion cond org-table-begin copy-marker= let progn unwind-protect let let org-table-align let* org-clocktable-write= -default funcall let let*] 1024 [save-excursion org-match-line org-at-table= -hline-p if let save-excursion org-table--list-shrunk-columns let progn unw= ind-protect let let org-table-align let* org-clocktable-write-default funca= ll] 1024 [while let save-excursion if org-table-to-lisp let* progn unwind-p= rotect let progn unwind-protect let let org-table-align let* org-clocktable= -write-default] 1024 [if let while let save-excursion if org-table-to-lisp = let* progn unwind-protect let progn unwind-protect let let org-table-align]= 2048 [progn buffer-substring cons setq while if let while let save-excursi= on if org-table-to-lisp let* progn unwind-protect let] 2048 [version-to-lis= t version< and if org-string-width max setq let let while let let let while= let if] 6144 [generate-new-buffer let let if org-string-width max setq let= let while let let let while let if] 13770 [if setq progn unwind-protect le= t* let progn unwind-protect save-current-buffer let let if org-string-width= max setq let] 288610 [window-text-pixel-size car if setq progn unwind-prot= ect let* let progn unwind-protect save-current-buffer let let if org-string= -width max] 187264 [set-window-buffer-start-and-point switch-to-prev-buffer= replace-buffer-in-windows kill-buffer and unwind-protect save-current-buff= er let let if org-string-width max setq let let while] 288610 [cond let let= while let let let while let if let* progn unwind-protect let progn unwind-= protect] 2048 [string-match-p if cond let let while let let let while let i= f let* progn unwind-protect let] 2768 [progn unwind-protect let* let progn = unwind-protect save-current-buffer let let if org-string-width max setq let= let while] 28498 [car if setq progn unwind-protect let* let progn unwind-p= rotect save-current-buffer let let if org-string-width max setq] 33888 [ver= sion< and if org-string-width max setq let let while let let let while let = if let*] 40920 [progn let let* progn unwind-protect let progn unwind-protec= t let let org-table-align let* org-clocktable-write-default funcall let let= *] 1024 [generate-new-buffer let let if org-string-width - let* org-table--= align-field apply cl--mapcar-many cl-mapcar mapconcat let* if concat let] 2= 1954 [if setq progn unwind-protect let* let progn unwind-protect save-curre= nt-buffer let let if org-string-width - let* org-table--align-field] 288610= [window-text-pixel-size car if setq progn unwind-protect let* let progn un= wind-protect save-current-buffer let let if org-string-width -] 187264 [set= -window-buffer-start-and-point switch-to-prev-buffer replace-buffer-in-wind= ows kill-buffer and unwind-protect save-current-buffer let let if org-strin= g-width - let* org-table--align-field apply cl--mapcar-many] 288610 [versio= n< and if org-string-width - let* org-table--align-field apply cl--mapcar-m= any cl-mapcar mapconcat let* if concat let let] 24552 [car if setq progn un= wind-protect let* let progn unwind-protect save-current-buffer let let if o= rg-string-width - let*] 9152 [let* org-table--align-field apply cl--mapcar-= many cl-mapcar mapconcat let* if concat let let while let let let* progn] 1= 6368 [progn unwind-protect let* let progn unwind-protect save-current-buffe= r let let if org-string-width - let* org-table--align-field apply cl--mapca= r-many] 28498 [let let while let let let* progn unwind-protect let progn un= wind-protect let let org-table-align let* org-clocktable-write-default] 163= 68 [if let let while let let let* progn unwind-protect let progn unwind-pro= tect let let org-table-align let*] 4095 [font-lock-fontify-keywords-region = font-lock-default-fontify-region let* save-excursion while let* progn unwin= d-protect let* org-fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure save-restriction save-excursio= n org-table--shrink-columns] 100058 [if org-fontify-drawers font-lock-fonti= fy-keywords-region font-lock-default-fontify-region let* save-excursion whi= le let* progn unwind-protect let* org-fold-core-fontify-region font-lock-fo= ntify-region "#" font-lock-ensure save-restri= ction] 2048 [if org-activate-tags font-lock-fontify-keywords-region font-lo= ck-default-fontify-region let* save-excursion while let* progn unwind-prote= ct let* org-fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure save-restriction] 2048 [if org-fontif= y-macros font-lock-fontify-keywords-region font-lock-default-fontify-region= let* save-excursion while let* progn unwind-protect let* org-fold-core-fon= tify-region font-lock-fontify-region "#" font= -lock-ensure save-restriction] 2048 [while org-font-lock-add-priority-faces= font-lock-fontify-keywords-region font-lock-default-fontify-region let* sa= ve-excursion while let* progn unwind-protect let* org-fold-core-fontify-reg= ion font-lock-fontify-region "#" font-lock-en= sure save-restriction] 2048 [save-excursion org-match-line and not and save= -excursion if let* while catch let org-do-emphasis-faces font-lock-fontify-= keywords-region font-lock-default-fontify-region let* save-excursion] 4096 = [if org-activate-code font-lock-fontify-keywords-region font-lock-default-f= ontify-region let* save-excursion while let* progn unwind-protect let* org-= fold-core-fontify-region font-lock-fontify-region "#" font-lock-ensure save-restriction] 2048 [and save-excursion cond o= rg-table-begin let org-table-align progn if let* org-clocktable-write-defau= lt funcall let let* catch org-dblock-write:clocktable funcall] 1024 [and sa= ve-excursion cond org-table-begin copy-marker let progn unwind-protect let = let org-table-align progn if let* org-clocktable-write-default funcall] 102= 4 [save-excursion org-match-line org-at-table-hline-p if let save-excursion= org-table--list-shrunk-columns let progn unwind-protect let let org-table-= align progn if let*] 1024 [while let save-excursion if org-table-to-lisp le= t* progn unwind-protect let progn unwind-protect let let org-table-align pr= ogn if] 1024 [progn let let* progn unwind-protect let progn unwind-protect = let let org-table-align progn if let* org-clocktable-write-default funcall]= 1024 [let let while let let let* progn unwind-protect let progn unwind-pro= tect let let org-table-align progn if] 8184 [font-lock-fontify-keywords-reg= ion font-lock-default-fontify-region let* save-excursion while let* progn u= nwind-protect let* org-fold-core-fontify-region font-lock-fontify-region "#= " font-lock-ensure progn unwind-protect save-= current-buffer] 54195 [save-excursion cond let progn if let org-fontify-met= a-lines-and-blocks-1 condition-case org-fontify-meta-lines-and-blocks font-= lock-fontify-keywords-region font-lock-default-fontify-region let* save-exc= ursion while let* progn] 1024 [progn buffer-substring progn unwind-protect = save-current-buffer let org-clock-get-clocktable apply setq let progn if le= t* catch org-agenda-list funcall-interactively] 1024 [progn unwind-protect = save-current-buffer let org-clock-get-clocktable apply setq let progn if le= t* catch org-agenda-list funcall-interactively call-interactively cond] 287= 2 [flycheck-handle-change insert progn if let progn if let* catch org-agend= a-list funcall-interactively call-interactively cond let* catch org-agenda]= 1024 [flycheck-may-check-automatically flycheck-buffer-automatically flych= eck-handle-change insert progn if let progn if let* catch org-agenda-list f= uncall-interactively call-interactively cond let*] 5120 [let progn if let* = catch org-agenda-list funcall-interactively call-interactively cond let* ca= tch org-agenda funcall-interactively call-interactively command-execute nil= ] 28306 [insert let progn if let* catch org-agenda-list funcall-interactive= ly call-interactively cond let* catch org-agenda funcall-interactively call= -interactively command-execute] 2872 [and or if let* catch org-agenda-list = funcall-interactively call-interactively cond let* catch org-agenda funcall= -interactively call-interactively command-execute nil] 42200 [if let* catch= org-agenda-list funcall-interactively call-interactively cond let* catch o= rg-agenda funcall-interactively call-interactively command-execute nil nil = nil] 55952 [add-text-properties let* catch org-agenda-list funcall-interact= ively call-interactively cond let* catch org-agenda funcall-interactively c= all-interactively command-execute nil nil nil] 26336 [while catch org-activ= ate-links--overlays if org-activate-links while save-excursion save-excursi= on let if org-agenda-finalize let* catch org-agenda-list funcall-interactiv= ely call-interactively] 9208 [while let save-excursion org-agenda-fontify-p= riorities progn if save-excursion let if org-agenda-finalize let* catch org= -agenda-list funcall-interactively call-interactively cond] 1024 [let org-a= genda-dim-blocked-tasks progn if save-excursion let if org-agenda-finalize = let* catch org-agenda-list funcall-interactively call-interactively cond le= t* catch] 4184 [line-move-1 line-move move-beginning-of-line if while let s= ave-excursion org-agenda-dim-blocked-tasks progn if save-excursion let if o= rg-agenda-finalize let* catch] 108368 [mapc org-agenda-unmark-clocking-task= save-restriction progn if org-agenda-mark-clocking-task save-excursion let= if org-agenda-finalize let* catch org-agenda-list funcall-interactively ca= ll-interactively cond] 6352 [progn if let while save-excursion let org-habi= t-insert-consistency-graphs progn if save-excursion let if org-agenda-final= ize let* catch org-agenda-list] 5840 [timer-relative-time run-at-time flych= eck-handle-change move-to-column progn if let while save-excursion let org-= habit-insert-consistency-graphs progn if save-excursion let if] 768 [timer-= -time-setter timer-set-time run-at-time flycheck-handle-change move-to-colu= mn progn if let while save-excursion let org-habit-insert-consistency-graph= s progn if save-excursion let] 768 [timer--time-less-p timer--activate time= r-activate run-at-time flycheck-handle-change move-to-column progn if let w= hile save-excursion let org-habit-insert-consistency-graphs progn if save-e= xcursion] 2304 [days-to-time time-subtract org-habit-build-graph insert-bef= ore-markers progn if let while save-excursion let org-habit-insert-consiste= ncy-graphs progn if save-excursion let if] 320 [org-habit-build-graph inser= t-before-markers progn if let while save-excursion let org-habit-insert-con= sistency-graphs progn if save-excursion let if org-agenda-finalize let*] 32= 00 [time-to-days let* org-habit-build-graph insert-before-markers progn if = let while save-excursion let org-habit-insert-consistency-graphs progn if s= ave-excursion let if] 2880 [time-to-days - days-to-time time-add format-tim= e-string concat put-text-property let* while let* org-habit-build-graph ins= ert-before-markers progn if let while] 26880 [format-time-string concat put= -text-property let* while let* org-habit-build-graph insert-before-markers = progn if let while save-excursion let org-habit-insert-consistency-graphs p= rogn] 35840 [concat put-text-property let* while let* org-habit-build-graph= insert-before-markers progn if let while save-excursion let org-habit-inse= rt-consistency-graphs progn if] 26880 [timer-relative-time run-at-time flyc= heck-handle-change insert-before-markers progn if let while save-excursion = let org-habit-insert-consistency-graphs progn if save-excursion let if] 936= [timer--time-setter timer-set-time run-at-time flycheck-handle-change inse= rt-before-markers progn if let while save-excursion let org-habit-insert-co= nsistency-graphs progn if save-excursion let] 960 [timer--time-less-p timer= --activate timer-activate run-at-time flycheck-handle-change insert-before-= markers progn if let while save-excursion let org-habit-insert-consistency-= graphs progn if save-excursion] 2880 [timer-relative-time run-at-time flych= eck-handle-change "#" apply delete-char progn if let whil= e save-excursion let org-habit-insert-consistency-graphs progn if save-excu= rsion] 168 [timer--time-setter timer-set-time run-at-time flycheck-handle-c= hange "#" apply delete-char progn if let while save-excur= sion let org-habit-insert-consistency-graphs progn if] 168 [timer--time-les= s-p timer--activate timer-activate run-at-time flycheck-handle-change "#" apply delete-char progn if let while save-excursion let or= g-habit-insert-consistency-graphs progn] 504 [insert-before-markers progn i= f let while save-excursion let org-habit-insert-consistency-graphs progn if= save-excursion let if org-agenda-finalize let* catch] 8184 [and save-excur= sion org-at-heading-p or org-back-to-heading if save-restriction save-excur= sion save-excursion let if progn unwind-protect let org-get-tags save-restr= iction] 287744 [and if let* org--get-local-tags if let save-restriction sav= e-excursion save-excursion let if progn unwind-protect let org-get-tags sav= e-restriction] 305136 [timer-relative-time run-at-time flycheck-handle-chan= ge put-text-property progn if while save-excursion let if save-excursion le= t if org-agenda-finalize let* catch] 11352 [timer--time-setter timer-set-ti= me run-at-time flycheck-handle-change put-text-property progn if while save= -excursion let if save-excursion let if org-agenda-finalize let*] 5688 [tim= er--time-less-p timer--activate timer-activate run-at-time flycheck-handle-= change put-text-property progn if while save-excursion let if save-excursio= n let if org-agenda-finalize] 17064 [flycheck-handle-change put-text-proper= ty progn if while save-excursion let if save-excursion let if org-agenda-fi= nalize let* catch org-agenda-list funcall-interactively] 238592 [put-text-p= roperty progn if while save-excursion let if save-excursion let if org-agen= da-finalize let* catch org-agenda-list funcall-interactively call-interacti= vely] 40920 [delete-dups regexp-opt org-modern-agenda run-hooks let if org-= agenda-finalize let* catch org-agenda-list funcall-interactively call-inter= actively cond let* catch org-agenda] 26680 [mapcar regexp-opt-group regexp-= opt-group regexp-opt-group regexp-opt-group regexp-opt-group regexp-opt-gro= up regexp-opt org-modern-agenda run-hooks let if org-agenda-finalize let* c= atch org-agenda-list] 8184 [org-modern-agenda run-hooks let if org-agenda-f= inalize let* catch org-agenda-list funcall-interactively call-interactively= cond let* catch org-agenda funcall-interactively call-interactively] 16840= [flycheck-handle-change put-text-property org-modern--todo org-modern-agen= da run-hooks let if org-agenda-finalize let* catch org-agenda-list funcall-= interactively call-interactively cond let* catch] 1024 [timer-relative-time= run-at-time flycheck-handle-change put-text-property org-modern--todo org-= modern-agenda run-hooks let if org-agenda-finalize let* catch org-agenda-li= st funcall-interactively call-interactively cond] 4608 [timer--time-setter = timer-set-time run-at-time flycheck-handle-change put-text-property org-mod= ern--todo org-modern-agenda run-hooks let if org-agenda-finalize let* catch= org-agenda-list funcall-interactively call-interactively] 2304 [timer--tim= e-less-p timer--activate timer-activate run-at-time flycheck-handle-change = put-text-property org-modern--todo org-modern-agenda run-hooks let if org-a= genda-finalize let* catch org-agenda-list funcall-interactively] 6912 [put-= text-property org-modern--todo org-modern-agenda run-hooks let if org-agend= a-finalize let* catch org-agenda-list funcall-interactively call-interactiv= ely cond let* catch org-agenda] 8184 [timer-relative-time run-at-time flych= eck-handle-change put-text-property org-modern-agenda run-hooks let if org-= agenda-finalize let* catch org-agenda-list funcall-interactively call-inter= actively cond let*] 23616 [timer--time-setter timer-set-time run-at-time fl= ycheck-handle-change put-text-property org-modern-agenda run-hooks let if o= rg-agenda-finalize let* catch org-agenda-list funcall-interactively call-in= teractively cond] 11808 [timer--time-less-p timer--activate timer-activate = run-at-time flycheck-handle-change put-text-property org-modern-agenda run-= hooks let if org-agenda-finalize let* catch org-agenda-list funcall-interac= tively call-interactively] 35424 [put-text-property org-modern-agenda run-h= ooks let if org-agenda-finalize let* catch org-agenda-list funcall-interact= ively call-interactively cond let* catch org-agenda funcall-interactively] = 8184 [let* catch org-agenda-list funcall-interactively call-interactively c= ond let* catch org-agenda funcall-interactively call-interactively command-= execute nil nil nil nil] 98 [flycheck-overlays-at flycheck-maybe-display-er= ror-at-point-soon nil nil nil nil nil nil nil nil nil nil nil nil nil nil] = 80 [file-remote-p redisplay_internal\ \(C\ function\) nil nil nil nil nil n= il nil nil nil nil nil nil nil nil] 6092 [eyebrowse-mode-line-indicator eva= l redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil n= il nil nil nil] 8184 [timer-relative-time timer-inc-time timer-event-handle= r nil nil nil nil nil nil nil nil nil nil nil nil nil] 64 [timer--time-sett= er timer-inc-time timer-event-handler nil nil nil nil nil nil nil nil nil n= il nil nil nil] 48 [timer-event-handler nil nil nil nil nil nil nil nil nil= nil nil nil nil nil nil] 48 [timer--time-less-p timer--activate timer-acti= vate timer-event-handler nil nil nil nil nil nil nil nil nil nil nil nil] 2= 40 [time-since org-time-convert-to-integer floor let org-clock-get-clocked-= time let org-clock-get-clock-string let propertize setq org-clock-update-mo= de-line apply timer-event-handler nil nil nil] 24 ["#" apply vertico--advice apply completing-read-default completing-rea= d read-extended-command byte-code call-interactively command-execute nil ni= l nil nil nil nil] 43758 [timer--time-setter timer-set-time run-at-time und= o-auto--boundary-ensure-timer undo-auto--undoable-change read-from-minibuff= er "#" apply vertico--advice apply completing-= read-default completing-read read-extended-command byte-code call-interacti= vely command-execute] 24 [timer--time-less-p timer--activate timer-activate= run-at-time undo-auto--boundary-ensure-timer undo-auto--undoable-change re= ad-from-minibuffer "#" apply vertico--advice a= pply completing-read-default completing-read read-extended-command byte-cod= e call-interactively] 24 [minibuf-eldef-setup-minibuffer read-from-minibuff= er "#" apply vertico--advice apply completing-= read-default completing-read read-extended-command byte-code call-interacti= vely command-execute nil nil nil nil] 4176 [vertico--exhibit read-from-mini= buffer "#" apply vertico--advice apply complet= ing-read-default completing-read read-extended-command byte-code call-inter= actively command-execute nil nil nil nil] 1120 [completion-pcm--string->pat= tern completion-pcm--find-all-completions completion-pcm-all-completions "#= " completion--some completion--nth-completion = "#" apply completion-all-completions apply ve= rtico--all-completions vertico--recompute-candidates vertico--update-candid= ates vertico--exhibit read-from-minibuffer "#"= ] 2048 [completion-pcm--pattern->regex completion-pcm--all-completions comp= letion-pcm--find-all-completions completion-pcm-all-completions "#" completion--some completion--nth-completion "#" apply completion-all-completions apply vertico--al= l-completions vertico--recompute-candidates vertico--update-candidates vert= ico--exhibit read-from-minibuffer] 1024 [complete-with-action "#" all-completions completion-pcm--all-completions complet= ion-pcm--find-all-completions completion-pcm-all-completions "#" completion--some completion--nth-completion "#" apply completion-all-completions apply vertico--all-c= ompletions vertico--recompute-candidates vertico--update-candidates] 1024 [= version-to-list "#" all-completions complete-= with-action "#" all-completions completion-pcm= --all-completions completion-pcm--find-all-completions completion-pcm-all-c= ompletions "#" completion--some completion--nt= h-completion "#" apply completion-all-complet= ions apply] 11264 ["#" all-completions comple= te-with-action "#" all-completions completion-= pcm--all-completions completion-pcm--find-all-completions completion-pcm-al= l-completions "#" completion--some completion-= -nth-completion "#" apply completion-all-comp= letions apply vertico--all-completions] 16368 [vertico--prompt-selection ve= rtico--exhibit read-from-minibuffer "#" apply = vertico--advice apply completing-read-default completing-read read-extended= -command byte-code call-interactively command-execute nil nil nil] 560 [ver= tico--format-count vertico--display-count vertico--exhibit read-from-minibu= ffer "#" apply vertico--advice apply completin= g-read-default completing-read read-extended-command byte-code call-interac= tively command-execute nil nil] 14000 [seq-subseq vertico--arrange-candidat= es vertico--exhibit read-from-minibuffer "#" a= pply vertico--advice apply completing-read-default completing-read read-ext= ended-command byte-code call-interactively command-execute nil nil] 14000 [= marginalia-annotate-binding marginalia-annotate-command marginalia--cached = marginalia--affixate apply "#" vertico--affixa= te vertico--arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-defa= ult completing-read] 188496 [generate-new-buffer substitute-command-keys do= cumentation marginalia--function-doc marginalia-annotate-command marginalia= --cached marginalia--affixate apply "#" vertic= o--affixate vertico--arrange-candidates vertico--exhibit read-from-minibuff= er "#" apply vertico--advice] 315 [documentati= on marginalia--function-doc marginalia-annotate-command marginalia--cached = marginalia--affixate apply "#" vertico--affixa= te vertico--arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-defa= ult] 34131 [marginalia--function-doc marginalia-annotate-command marginalia= --cached marginalia--affixate apply "#" vertic= o--affixate vertico--arrange-candidates vertico--exhibit read-from-minibuff= er "#" apply vertico--advice apply completing-= read-default completing-read] 2352 [marginalia--truncate marginalia--docume= ntation marginalia-annotate-command marginalia--cached marginalia--affixate= apply "#" vertico--affixate vertico--arrange-= candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default] 1032 [marginali= a--affixate apply "#" vertico--affixate vertic= o--arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default compl= eting-read read-extended-command byte-code call-interactively] 1024 [substi= tute-command-keys documentation marginalia--function-doc marginalia-annotat= e-command marginalia--cached marginalia--affixate apply "#" vertico--affixate vertico--arrange-candidates vertico--exhibi= t read-from-minibuffer "#" apply vertico--advi= ce apply] 26616 [describe-map describe-map-tree substitute-command-keys doc= umentation marginalia--function-doc marginalia-annotate-command marginalia-= -cached marginalia--affixate apply "#" vertico= --affixate vertico--arrange-candidates vertico--exhibit read-from-minibuffe= r "#" apply] 7392 [help--key-description-fonti= fied describe-map describe-map-tree substitute-command-keys documentation m= arginalia--function-doc marginalia-annotate-command marginalia--cached marg= inalia--affixate apply "#" vertico--affixate v= ertico--arrange-candidates vertico--exhibit read-from-minibuffer "#"] 12248 [help--describe-command describe-map describe= -map-tree substitute-command-keys documentation marginalia--function-doc ma= rginalia-annotate-command marginalia--cached marginalia--affixate apply "#<= compiled -0xad6712ef8e791ff>" vertico--affixate vertico--arrange-candidates= vertico--exhibit read-from-minibuffer "#"] 20= 32 [marginalia-annotate-command marginalia--cached marginalia--affixate app= ly "#" vertico--affixate vertico--arrange-cand= idates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default completing-read read= -extended-command] 2032 [apply vertico--display-string "#" funcall setq "#" apply vertico--forma= t-candidate vertico--arrange-candidates vertico--exhibit read-from-minibuff= er "#" apply vertico--advice apply completing-= read-default] 28504 ["#" funcall setq "#" apply vertico--format-candidate vertico--arrange-candi= dates vertico--exhibit read-from-minibuffer "#= " apply vertico--advice apply completing-read-default completing-read read-= extended-command] 32568 [apply vertico--display-candidates vertico--exhibit= read-from-minibuffer "#" apply vertico--advic= e apply completing-read-default completing-read read-extended-command byte-= code call-interactively command-execute nil nil] 22352 [vertico--resize-win= dow vertico--display-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-def= ault completing-read read-extended-command byte-code call-interactively com= mand-execute nil nil] 163768 [window--resize-mini-window window-resize vert= ico--resize-window vertico--display-candidates vertico--exhibit read-from-m= inibuffer "#" apply vertico--advice apply comp= leting-read-default completing-read read-extended-command byte-code call-in= teractively command-execute] 1085 ["#" apply zo= om--get-frame-snapshot "#" apply zoom--handle= r apply "#" redisplay_internal\ \(C\ function= \) read-from-minibuffer "#" apply vertico--adv= ice apply completing-read-default completing-read] 40184 [balance-windows z= oom--update "#" apply zoom--handler apply "#<= compiled -0x194e9233b2357b6d>" redisplay_internal\ \(C\ function\) read-fro= m-minibuffer "#" apply vertico--advice apply c= ompleting-read-default completing-read read-extended-command] 1085 [read-fr= om-minibuffer "#" apply vertico--advice apply = completing-read-default completing-read read-extended-command byte-code cal= l-interactively command-execute nil nil nil nil nil] 416620 [file-remote-p = redisplay_internal\ \(C\ function\) read-from-minibuffer "#" apply vertico--advice apply completing-read-default completi= ng-read read-extended-command byte-code call-interactively command-execute = nil nil nil] 6018 [if if org-agenda-span-name eval redisplay_internal\ \(C\= function\) read-from-minibuffer "#" apply ver= tico--advice apply completing-read-default completing-read read-extended-co= mmand byte-code call-interactively command-execute] 8184 [call-interactivel= y command-execute read-from-minibuffer "#" app= ly vertico--advice apply completing-read-default completing-read read-exten= ded-command byte-code call-interactively command-execute nil nil nil] 112 [= "#" self-insert-command funcall-interactively call= -interactively command-execute read-from-minibuffer "#" apply vertico--advice apply completing-read-default completing-re= ad read-extended-command byte-code call-interactively command-execute] 240 = [vertico--update-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default= completing-read read-extended-command byte-code call-interactively command= -execute nil nil nil] 288 ["#" apply zoom--get-= frame-snapshot "#" apply zoom--handler apply = "#" redisplay_internal\ \(C\ function\) redis= play vertico--update-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice] 3000 [redisplay vertico-= -update-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default completi= ng-read read-extended-command byte-code call-interactively command-execute = nil nil] 53646 [completion-pcm--pattern->regex completion-pcm--hilit-common= ality "#" vertico--arrange-candidates vertico-= -exhibit read-from-minibuffer "#" apply vertic= o--advice apply completing-read-default completing-read read-extended-comma= nd byte-code call-interactively command-execute] 1024 ["#" mapcar completion-pcm--hilit-commonality "#" vertico--arrange-candidates vertico--exhibit read-from-minibuff= er "#" apply vertico--advice apply completing-= read-default completing-read read-extended-command byte-code call-interacti= vely] 7136 ["#" "#" mapcar completion-pcm--hilit-commonality "#= " vertico--arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-defau= lt completing-read read-extended-command byte-code] 5080 [marginalia--docum= entation marginalia-annotate-command marginalia--cached marginalia--affixat= e apply "#" vertico--affixate vertico--arrange= -candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice apply completing-read-default completing-read= ] 9200 [marginalia--cached marginalia--affixate apply "#" vertico--affixate vertico--arrange-candidates vertico--exhibit = read-from-minibuffer "#" apply vertico--advice= apply completing-read-default completing-read read-extended-command byte-c= ode] 1016 [describe-map-tree substitute-command-keys documentation marginal= ia--function-doc marginalia-annotate-command marginalia--cached marginalia-= -affixate apply "#" vertico--affixate vertico-= -arrange-candidates vertico--exhibit read-from-minibuffer "#" apply vertico--advice] 1016 ["#" a= pply vertico--format-candidate vertico--arrange-candidates vertico--exhibit= read-from-minibuffer "#" apply vertico--advic= e apply completing-read-default completing-read read-extended-command byte-= code call-interactively command-execute] 20320 [funcall setq "#" apply vertico--format-candidate vertico--arrange-candidates = vertico--exhibit read-from-minibuffer "#" appl= y vertico--advice apply completing-read-default completing-read read-extend= ed-command byte-code] 19304 [back-to-indentation show-paren--locate-near-pa= ren show-paren--default show-paren-function apply timer-event-handler read-= from-minibuffer "#" apply vertico--advice appl= y completing-read-default completing-read read-extended-command byte-code c= all-interactively] 640 [substitute-env-vars substitute-env-in-file-name sub= stitute-in-file-name vertico--remote-p vertico-directory-enter funcall-inte= ractively call-interactively command-execute read-from-minibuffer "#" apply vertico--advice apply completing-read-default= completing-read read-extended-command] 1024 [vertico--remote-p vertico-dir= ectory-enter funcall-interactively call-interactively command-execute read-= from-minibuffer "#" apply vertico--advice appl= y completing-read-default completing-read read-extended-command byte-code c= all-interactively command-execute] 1024 [delete-minibuffer-contents vertico= -insert vertico-exit vertico-directory-enter funcall-interactively call-int= eractively command-execute read-from-minibuffer "#" apply vertico--advice apply completing-read-default completing-read r= ead-extended-command byte-code] 80 [vertico-exit vertico-directory-enter fu= ncall-interactively call-interactively command-execute read-from-minibuffer= "#" apply vertico--advice apply completing-re= ad-default completing-read read-extended-command byte-code call-interactive= ly command-execute] 80 [call-interactively command-execute execute-extended= -command funcall-interactively call-interactively command-execute nil nil n= il nil nil nil nil nil nil nil] 16 [profiler-report funcall-interactively c= all-interactively command-execute execute-extended-command funcall-interact= ively call-interactively command-execute nil nil nil nil nil nil nil nil] 8= 37424)) (25335 23431 214866 0) nil] --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Ihor Radchenko writes: > "Christopher M. Miles" writes: > >> 668 28% - org-agenda-prepar= e-buffers >> ... >> 523 22% - org--ta= g-add-to-alist > > I have a suspicion where the bottleneck is. > Can you try the attached patch? > > From 1f5cdbd05c7012962ba3f12671805d77f52d836e Mon Sep 17 00:00:00 2001 > Message-Id: <1f5cdbd05c7012962ba3f12671805d77f52d836e.1660373309.git.yant= ar92@gmail.com> > From: Ihor Radchenko > Date: Sat, 13 Aug 2022 14:45:01 +0800 > Subject: [PATCH] org-agenda-prepare-buffers: Avoid quadratic behavior when > merging tags > > * lisp/org.el (org-agenda-prepare-buffers): Use the shortest list as > the first argument in `org--tag-add-to-alist'. > > `org--tag-add-to-alist' is looping over the first argument. When we > use the accumulated tags as the first argument, each buffer tag will > need to be looped over N_buffers/2 times on average, creating > quadratic complexity. Avoid this. > > Reported in https://orgmode.org/list/62f66552.050a0220.ed346.ac05SMTPIN_A= DDED_BROKEN@mx.google.com > --- > lisp/org.el | 4 ++-- > 1 file changed, 2 insertions(+), 2 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index 4eef56f45..b21bdf291 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -15196,8 +15196,8 @@ (defun org-agenda-prepare-buffers (files) > (append org-todo-keyword-alist-for-agenda org-todo-key-alist)) > (setq org-tag-alist-for-agenda > (org--tag-add-to-alist > - org-tag-alist-for-agenda > - org-current-tag-alist)) > + org-current-tag-alist > + org-tag-alist-for-agenda)) > ;; Merge current file's tag groups into global > ;; `org-tag-groups-alist-for-agenda'. > (when org-group-tags > --=20 > 2.35.1 =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express without mi= sunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAmL3XPIACgkQG13xyVro msMXRwf9GOBTT8MS1B/rqWZnvx1Uiu/wYM0YD88NZEB6gJMyZAFWFXwkzCxHMtR0 IPt1MG6YPu0pYqRX//JKrd3/gDCYw2IWOBh7ri4v3LhORjJvuM+NqCgEzW94CGT1 Um11em7Sa1phGSu4oWQVbf12LnBU4lBdXWWK13nG1BzggrwmRIuU5SE5XoTcOnfa V4aSQD7260Urs+9DWwH7FU/o5HvKSPf/4Fg5QHdZTHKqhSmXZGP1ojwcJh0uOM+E J75gKGvvfmpI0PDXvJ9C2MkgGAclPdhGITstYEKaov/NuAPCjOf6HZgBZssEEBzE QIWGeLWbbss4R91zzu3DtgRgCifLCw== =6PGw -----END PGP SIGNATURE----- --==-=-=--