From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id WJpBAwbFgWHhOQAAgWs5BA (envelope-from ) for ; Wed, 03 Nov 2021 00:08:54 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id +LmVOgXFgWHkdgAA1q6Kng (envelope-from ) for ; Tue, 02 Nov 2021 23:08:53 +0000 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 A0A2D26887 for ; Wed, 3 Nov 2021 00:08:52 +0100 (CET) Received: from localhost ([::1]:35996 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mi2te-0006Ly-MI for larch@yhetil.org; Tue, 02 Nov 2021 19:08:50 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:47830) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mi2rp-0003XY-90 for emacs-orgmode@gnu.org; Tue, 02 Nov 2021 19:06:57 -0400 Received: from mail-ua1-x933.google.com ([2607:f8b0:4864:20::933]:45755) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mi2rh-0007h9-Nk for emacs-orgmode@gnu.org; Tue, 02 Nov 2021 19:06:56 -0400 Received: by mail-ua1-x933.google.com with SMTP id ay21so994507uab.12 for ; Tue, 02 Nov 2021 16:06:48 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=LjDG6QP4oQidd9gc+vBRixXSZjVFmQcKdAY3mfvX7rg=; b=RAX2zYl21SIMuAz+GKX4dduwAlQGPrmGiMnjAsqSM/Bef/oSk7fHFr6foyvCREPws9 YtHVx+Z87ERDBQA60X/KV/2ZIpVj0yT1n3RvDhnrEuv/dwQy1h+cm0dr8CtSJ8CNP+6p y27ncish7dQeyheFr2vR6IWHHG90J4JMA5Ap3OWX7z59/3Pr1G8Kf4JzRFIBtPQdP9ds orI0xTUwGBUFAXbm5YfEwnJziI8nPURMLwi89j2eTsxDeFCmjX4l7PvPuk8OhLyWTzo0 ETcEpZlQo4rQM/0Z3H0FbMGzCcTYqhS4r6k5UMNC23Ozust5QBIzi4o+0fM07TS/MIeZ 08BA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=LjDG6QP4oQidd9gc+vBRixXSZjVFmQcKdAY3mfvX7rg=; b=FSqm3NfiyXAilr4KfhBIUIBllOfykDBk0crHRfqJneZR34C05s95beehg0EvyuaFDL xK5JMuz5ZlBdYYIv2iy/lAT4JXCphrE/Wlm6kq4QasA9coa9RXk6ebJNvZ76rTgiyDmd KxUUMyCX3NId56IKpvCIv0fuWSAU17v+l1lvZDnm3s2JYLCuVdg4WeNEv7IPs8Y8pJR/ 0877BhgpqbuBJcGVz8Bx3mhAskUtvPkp5k9ZlVVNHYM7dFSIWXuls7lZlir2zhYGgaUg 9WPoW0dd/U7NjuaMU92fRz9HcFOzvywHrbVpc5h3ZGden9VsO9GYXaXZr0h0img60woT KrvA== X-Gm-Message-State: AOAM530n2nKIdURruXvvIvSRhCWMk/lcI1L8kDX6dSomdRBaCRsRejwG 6wLLHVqQCEu99Aj4hMDIay/5kUDDT7nXWhxQ/qJVaFyM158jug== X-Google-Smtp-Source: ABdhPJzqXOaSuovAUxDxn/91pZXEQhIMDVSgFndrKmFc2FlinzNRD6sFsD0dLX2XdIVjCSWkwk+VXm6euGMBIHkPbMY= X-Received: by 2002:a67:fac3:: with SMTP id g3mr45578991vsq.38.1635894407076; Tue, 02 Nov 2021 16:06:47 -0700 (PDT) MIME-Version: 1.0 References: <874k8wavza.fsf@localhost> <87mtmn9p8c.fsf@localhost> <87h7cv9lh3.fsf@localhost> In-Reply-To: <87h7cv9lh3.fsf@localhost> From: Greg Coladonato Date: Tue, 2 Nov 2021 16:06:33 -0700 Message-ID: Subject: Re: [BUG] after update to 9.5, starting org mode results in cache error messages [9.5 (9.5-gd4e192 @ c:/Users/scott/.emacs.d/straight/build/org/)] To: Ihor Radchenko Content-Type: multipart/alternative; boundary="000000000000061fd605cfd659dc" Received-SPF: pass client-ip=2607:f8b0:4864:20::933; envelope-from=gcoladon@gmail.com; helo=mail-ua1-x933.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action 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: , Cc: emacs-orgmode@gnu.org Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1635894533; h=from:from:sender:sender: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:dkim-signature; bh=LjDG6QP4oQidd9gc+vBRixXSZjVFmQcKdAY3mfvX7rg=; b=OQQWYBD5WdOz+Ez2GAQoF67QX2+rghNyfSYHaXiyM8C0RUgkZN6qBjBwmZ37vvOSCpvnZr 67V2vlV9DGHa2vkayIaIe82w29pz38eep3fGfaF1lipwtlmx+YblG1hheChMzBpdXuj4Mk 09ofEjtgrmk3g9mJdK2k98mFvBrcpurGNmBE4Z/tMfubuP8zweKHr1z3CMZPR/42inkkzf DbZA7msALTkO/m0UEd77GVGKGitSZDb1XrdSzwplZwk7Z7GOZhvtMPmqrZDOzNF1PwO/mn XV+AGW3cxDLZIPhYSx1lvnOzq8JE/3PYdC9B3nipXjHWaK5UNGkQJPH71765uw== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1635894533; a=rsa-sha256; cv=none; b=lb11f2NADJET7+1DMh7FHi8/a0WYjL8wBesvcig632C5EXAy+qUWC7e1Enf2DEt9JfOrmW kEmJ3NMsrR8MxHgtGSpSpNypVkdKs2fqJ6Cje5foeX6s0CJdYpLjCakc+MAzLZcCzgUzvp j0jsmhjJ1fp/z/IcyhKvh85cqY372orWxIiSjsljnwH2vJHb6fyhAODS7GjXhHbeAbcXT7 MBL1avfjA4yiWPw25birTPhkWWHeBROI4mTZeI9bWAZ2dNQprB+7vgfkMgPR+MzaEfERRk SZdg0ldaxHBfZhtuETsRo2urXWG+2GZHA8pxMs/O9orcMqmF9ISKnX0I2sEFJg== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=RAX2zYl2; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Spam-Score: -3.12 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=RAX2zYl2; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Migadu-Queue-Id: A0A2D26887 X-Spam-Score: -3.12 X-Migadu-Scanner: scn0.migadu.com X-TUID: DRlftv0lPiKH --000000000000061fd605cfd659dc Content-Type: text/plain; charset="UTF-8" On Mon, Nov 1, 2021 at 10:25 PM Ihor Radchenko wrote: > The profile shows that bottleneck is undo-fu-session. Even if > org-element-cache is the cause, it should be some strange interaction > with other external packages. org-element-cache itself does not change > buffer text. If anything, the new code should change buffer text > properties less than before because some of the older cache logic is > moved from using text properties to using org-element-cache. > I uninstalled undo-fu and re-ran the profiler. It takes even longer to save org files now. Here's the profiler report now, does it look like helm-M-x is now the bottleneck? [profiler-profile "24.3" cpu #s(hash-table size 730 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([profiler-start funcall-interactively call-interactively command-execute helm-M-x-execute-command helm-execute-selection-action-1 helm-execute-selection-action helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] 388 [file-truename "#" cl-some projectile-project-root let doom-project-root or cond let +doom-dashboard--get-pwd let if +doom-dashboard-update-pwd-h cond +doom-dashboard-reload-maybe-h funcall] 1 [doom-modeline-segment--major-mode eval format-mode-line doom-modeline-format--main eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil] 1 [doom-modeline--get-buffers doom-modeline-segment--irc eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil] 1 [let cond let* save-restriction save-excursion catch org-element-context org-roam-link-replace-at-point org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while] 1 [org-in-regexp org-roam-link-replace-at-point org-roam-link-replace-all funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [let* while let save-current-buffer org-element--cache-find and if setq let org-element-at-point or org-element-at-point-no-context or let* save-restriction save-excursion] 1 ["#" apply prog1 let +org-inhibit-scrolling-a apply toc-org-insert-toc funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks] 1 [abbreviate-file-name org-scan-tags org-encrypt-entries funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks basic-save-buffer save-buffer] 1 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 151 [let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 4141 [if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 81 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 33 [setq progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 134 [progn setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 15 [or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 1695 [progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if] 4 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while] 13 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 243 [org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 1 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 26 [let let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if] 1409 [car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 1788 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 460 [let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn] 7139 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if] 938 [org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 3605 [while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 3962 [< and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 1302 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 433 [eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 3529 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 439 [memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 3527 [or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let*] 7245 [apply derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 232 [car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 7090 [> not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 3108 [and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 457 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 3602 [not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 3557 [org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 743 [and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 220 [nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 158 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 691 [car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 937 [save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn] 150 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 42 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if] 1363 [let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 1824 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 245 [let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 4069 [if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if] 454 [eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 204 [if if progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 662 [let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let*] 1265 [memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 862 [setcar if org-element-put-property let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 12 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 472 [while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3890 [not and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 432 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 635 [eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 454 [or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 15 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if] 869 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 479 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 859 [setcar if org-element-put-property if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 8 [and or and if setq if if while if let* save-restriction save-excursion let progn progn let*] 889 [let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn] 904 [catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn] 230 [apply derived-mode-p and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 116 [or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn] 942 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let*] 1320 [memq if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 243 [eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 258 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 900 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 632 [save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 950 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 418 [setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 697 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 894 [org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn progn] 885 [setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 48 [eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 950 [<= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 443 [progn if let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let] 41 [progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 493 [rx--translate mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect] 17 [save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 911 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 451 [= or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 457 [and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let*] 983 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if] 64 [<= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 458 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 25 [save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 177 [if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 120 [nconc list let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 187 [progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while] 499 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion] 3 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 377 [let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 50 [eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 452 [condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 665 [or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 485 [org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 457 [if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 22 [< and or and if setq if if while if let* save-restriction save-excursion let progn progn] 894 [org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn] 84 [progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 12 [let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 246 [if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 8 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 433 [let progn if cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 69 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 47 [let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 20 [let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 691 [let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn] 1554 [eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 132 [apply rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 20 [let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 113 [progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion] 459 [if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn] 205 [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 18 [org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 252 [progn and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 43 [catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction] 215 [memq if org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 8 [< and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 113 [1- cons cons cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn] 17 [memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 468 [save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 15 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 447 [progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 24 [apply derived-mode-p and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction] 116 [or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 68 [org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect] 51 [and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 105 [rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond] 14 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 44 [apply replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 71 [fset progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn] 1 [apply derived-mode-p and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let*] 117 [if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 17 [and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 12 [memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 216 [eq not if if if let org-element-at-point progn if if if if while if let* save-restriction] 201 [progn and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 7 [org-at-heading-p org-back-to-heading org-up-heading-safe org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 23 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if] 26 [save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 22 [if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 7 [if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 14 [and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 110 [while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 38 [progn and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 47 [cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 68 [save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 21 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and] 20 [if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 37 [and or and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 8 [if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 5 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if] 36 [setcar if org-element-put-property progn if let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 18 [and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 116 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 30 [replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 346 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 28 [org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if] 78 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 57 [cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction] 10 [save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 30 [rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 32 [if org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 52 [apply derived-mode-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 112 [or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if let*] 4 [if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction save-excursion let] 28 [apply replace-regexp-in-string org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 62 [and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 9 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 14 [eq and if let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 7 [progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let*] 18 [org-at-heading-p let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 48 [if org-element-property < and or if if while if let* save-restriction save-excursion let progn progn let*] 12 [let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 40 [re-search-forward if let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 14 [if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction] 53 [apply derived-mode-p and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 131 [looking-at let and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 22 [if let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 2 [let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 31 [save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let] 42 [let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 104 [org-trim let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 35 [and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 28 [eq and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 6 [1- if list nconc list let let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 55 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond] 13 [org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 38 [org-element--get-time-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 42 [let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 11 [rx--bracket rx--atomic-regexp rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction] 8 [/= and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 19 [let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 42 [org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element] 16 [apply derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 9 [let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 42 [let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 18 [if org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 26 [org-trim let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 39 [if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 18 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [< and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 3 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if] 74 [and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 122 [looking-at let and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 17 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 28 [org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 8 [= or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 14 [let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 24 [setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 14 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if] 6 [if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let] 55 [cons cons cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while] 21 [org-at-heading-p org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 20 [apply rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let*] 18 [org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let*] 55 [cond org-element-type eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 4 [org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let*] 9 [rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 19 [setq cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 25 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction] 40 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 13 [mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 6 [progn setq if if setq if if while if let* save-restriction save-excursion let progn progn let*] 2 [progn if cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 9 [let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn] 9 [org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 33 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 68 [if org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 4 [let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 14 [rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let] 23 [apply derived-mode-p org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 7 [progn progn setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 19 [rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect] 20 [and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 10 [and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 11 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 16 [or cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 22 [or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 9 [org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 31 [cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 61 [if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 6 [catch let let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 7 [org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 2 [not cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 6 [while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction save-excursion] 51 [org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 1 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 13 [org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 2 [org-element-property = or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point] 18 [org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element] 44 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 62 [org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 37 [setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let catch] 1 [setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 16 [rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if] 13 [if org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 14 [set-buffer save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if] 2 [or set-buffer save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 2 [cons cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 5 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 2 [if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 7 [org-get-limited-outline-regexp let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 36 [rx--translate mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if] 26 [let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if] 1 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if] 5 [progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 13 [eq if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 3 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let*] 29 [if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 6 [or progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let] 6 [org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 20 [org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 3 [let and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 3 [if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn] 40 [unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion let] 5 [org-element--cache-interrupt-p if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [and if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 11 [if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 4 [plist-get if org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 21 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 3 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 31 [plist-get if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 5 [eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn] 25 [re-search-forward if let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 9 [not cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while] 14 [plist-get if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 3 [progn progn setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 15 [memq and or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while] 6 [if org-element-property > not or and if while if let* save-restriction save-excursion let progn progn let*] 22 [if org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while] 7 [/= if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if] 4 [and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 35 [progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 27 [org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn] 13 [if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 3 [if org-element-property = or if if if while if let* save-restriction save-excursion let progn progn let*] 3 [or and if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 13 [plist-get if org-element-property < and or if if while if let* save-restriction save-excursion let progn progn] 4 [if setq progn if if if if while if let* save-restriction save-excursion let progn progn let*] 16 [progn setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let*] 9 [plist-get if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [if or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn] 7 [progn progn and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 19 [if save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 1 [if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 3 [setq while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if if let* save-restriction] 9 [if if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 20 [rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn] 6 [org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 8 [plist-get if org-element-property > not or and if while if let* save-restriction save-excursion let progn progn] 8 [cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let*] 6 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 27 [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 22 [if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if] 8 [not or and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 9 [memq and or and org-element--cache-active-p if let org-element-at-point progn if if if if while if let*] 2 [if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let] 7 [outline-on-heading-p org-at-heading-p let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 3 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion] 32 [progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch] 10 [rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let let* save-restriction] 6 [if org-element-property < and or and if setq if if while if let* save-restriction save-excursion let] 6 [apply derived-mode-p org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if] 3 [save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 19 [let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 38 [org-element--get-node-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 36 [and or and org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction] 6 [mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let] 10 [progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let] 3 [catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let] 1 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 9 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 8 [org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq] 8 [not cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 3 [org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 5 [or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction] 3 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 9 [org-up-heading-safe org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 11 [cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 21 [memq and or progn aref progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn] 9 [org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 5 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [apply derived-mode-p org-get-limited-outline-regexp let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let] 3 [apply derived-mode-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 5 [1- if list nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if] 33 [progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 11 [progn progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 20 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not or and if while if] 14 [if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 11 [progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 12 [or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [if progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 9 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [org-element-property > not or and if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 10 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let*] 12 [progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 1 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while] 12 [let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 8 [if org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let progn] 8 [not cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [if if org-element--cache-key-less-p not or and if while if let* save-restriction save-excursion let progn progn let*] 31 [org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 12 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 2 [progn if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 5 [org-get-limited-outline-regexp let* progn cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion] 12 [progn if save-excursion org-element--get-time-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 2 [let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 5 [plist-get if org-element-property car eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 4 [org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 3 [throw cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [progn progn setq cond let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let] 25 [aref progn progn org-element-property < and or and if setq if if while if let* save-restriction] 2 [progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 14 [plist-get if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 2 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 1 [cond org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn let*] 4 [org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 1 [if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 7 [derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 1 [memq and or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 1 [org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 7 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 6 [org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 11 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 7 [org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while] 2 [org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if let* save-restriction] 4 [if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if let* save-restriction] 16 [outline-previous-heading let* progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 4 [progn setq progn if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 6 [org-element-property let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 10 [symbolp cond org-element-type eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while] 3 [if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 1 [cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 6 [org-outline-level org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 1 [and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and] 5 [org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 5 [if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if] 39 [mapcar rx--translate-seq rx--translate-counted-repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let] 8 [if org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [and or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let*] 7 [cons cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond] 5 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq] 2 [progn let* while let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 10 [let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 7 [not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 4 [cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction save-excursion progn unwind-protect let] 23 [plist-get if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 4 [cons cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let] 4 [let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let*] 11 [rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-backward if progn unwind-protect let progn if cond let while] 7 [let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let] 2 [if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 9 [cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 3 [symbolp cond org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if] 2 [progn progn if if setq if if while if let* save-restriction save-excursion let progn progn let*] 4 [org-element-type eq if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 2 [and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 3 [not cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [if org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 1 [org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 4 [plist-get if org-element-property let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 6 [cond org-element-type eq not if if if let org-element-at-point progn if if if if while if] 4 [if if if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 2 [if if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 6 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 1 [org-element-property < and or and if setq if if while if let* save-restriction save-excursion let progn] 7 [if let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 3 [derived-mode-p and org-element--cache-active-p and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 1 [if org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let*] 3 [org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn let*] 4 [and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [org-element-property < and or if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 6 [progn if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [if org-element-property let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion] 4 [re-search-forward and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 2 [if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let] 7 [org-element-property <= and while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 2 [if if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map let if] 6 [setcar if org-element-put-property let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 6 [or setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 15 [org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 8 [and cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 5 [progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [let and let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 6 [let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 6 [if if org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 6 [org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let*] 19 [apply derived-mode-p org-get-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let] 4 [org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let*] 4 [progn progn org-element-property < and or and if setq if if while if let* save-restriction save-excursion] 3 [let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion] 1 [and let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 4 [memq not and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 6 [org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let] 1 [if if org-element--cache-key-less-p not and or if if while if let* save-restriction save-excursion let progn progn] 5 [setq org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn let*] 2 [progn if let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn progn] 2 [cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 7 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if let* save-restriction] 4 [memq and or and org-element--cache-active-p and if let org-element-at-point progn if if if if while if] 1 [if org-element-property let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn] 5 [cancel-timer progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn] 6 [progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion let] 2 [if if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect] 1 [and if if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn] 3 [save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element and if] 14 [cond org-element-type eq and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 4 [rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 1 [if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn unwind-protect let] 3 [let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let] 1 [and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3 [if org-element-property and if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 1 [plist-get if org-element-property = or if if if while if let* save-restriction save-excursion let progn progn] 1 [if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 10 [save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction] 5 [and or progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if] 4 [progn if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 3 [org-reduced-level prog1 let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch] 1 [if org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 6 [rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion progn] 2 [rx--bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while let] 6 [if save-excursion save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if] 1 [/= and cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [symbolp cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if] 2 [org-element--cache-active-p if let org-element-at-point progn if if if if while if let* save-restriction save-excursion let progn] 5 [cond org-element-type eq if if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 4 [org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 3 [or set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [derived-mode-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if while if] 1 [progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn] 1 [cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let* save-restriction save-excursion] 3 [org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 5 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 5 [if org-element--cache-put or setq if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 3 [rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn if] 2 [if let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 3 [org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element] 1 [timerp cancel-timer progn if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point] 3 [org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [not cond org-element-type eq not if if if let org-element-at-point progn if if if if while] 1 [org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if] 9 [or and org-element--cache-active-p and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 2 [if org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type] 3 [aref progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion] 1 [org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 2 [plist-get if org-element-property < and or and if setq if if while if let* save-restriction save-excursion] 1 [eq if or org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 2 [outline-on-heading-p org-at-heading-p org-back-to-heading org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and] 1 [if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 3 [org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let] 2 [progn progn setq if if setq if if while if let* save-restriction save-excursion let progn progn] 4 [or and org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 3 [cons cons cons rx-to-string re-search-backward if progn unwind-protect let progn if cond let while let let*] 2 [org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let progn progn] 2 [cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [outline-on-heading-p org-at-heading-p org-back-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond] 1 [if org-element--cache-sync if if progn if let org-element-at-point progn if if if if while if let*] 2 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-search-forward and if if progn unwind-protect let progn] 1 [symbolp cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [apply derived-mode-p org-get-limited-outline-regexp let* progn cond setq let save-excursion org-element--current-element setq if if while let let*] 3 [if list nconc list let let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if] 5 [progn progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction save-excursion] 4 [org-up-heading-or-point-min progn unwind-protect let* save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let] 2 [progn progn org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case] 1 [set-match-data unwind-protect let catch org-element--parse-to org-element-type memq if if if if while if let* save-restriction save-excursion] 2 [plist-get if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 1 [fset unwind-protect let* save-excursion let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while] 1 [save-excursion if if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction save-excursion let progn] 1 [plist-get if org-element-property let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 1 [aref progn progn org-element--cache-key org-element--cache-key-less-p and or and if setq if if while if let* save-restriction] 1 [progn aref progn progn org-element--headline-cache-root if setq progn if if if if while if let* save-restriction] 1 [if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let] 2 [cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction] 1 [if save-excursion org-element--get-node-properties let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let] 2 [org-element--cache-interrupt-p if while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 1 [unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if] 3 [cond org-element-type memq not and if let org-element--cache-verify-element and if let org-element-at-point progn if if if] 1 [plist-get if org-element-property = or if save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if] 1 [eq cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if] 2 [derived-mode-p and org-element--cache-active-p and if let org-element-at-point progn if if if if while if let* save-restriction] 2 [save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point progn if if if if] 1 [cond let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 3 [org-element-property eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn if if] 1 [catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element] 1 [setq if if setq if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 3 [throw cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 2 [apply derived-mode-p org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction] 1 [cons cons cons rx-to-string re-search-forward and if if progn unwind-protect let progn if cond let while] 5 [org-element--parse-to condition-case if setq let org-element-at-point progn if if if if while if let* save-restriction save-excursion] 2 [and cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 1 [org-element-property = or if if if while if let* save-restriction save-excursion let progn progn let* org-element-cache-map] 1 [org-element-type eq not if if if let org-element-at-point progn if if if if while if let*] 1 [prog1 let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to] 2 [org-outline-level org-end-of-subtree progn unwind-protect let* save-excursion let* save-excursion org-element-headline-parser setq progn if cond let* save-restriction save-excursion] 3 [while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq let org-element-at-point] 4 [plist-get if org-element-property and if let org-element--cache-verify-element and if let org-element-at-point progn if if if if] 1 [if org-element-property or let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 2 [symbolp cond org-element-type memq if if if if while if let* save-restriction save-excursion let progn progn] 2 [not cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while] 3 [not or and if let progn if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let] 1 [org-element--cache-root let save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to condition-case if setq] 1 [symbolp cond org-element-type eq if if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if] 2 [prog1 let* save-excursion org-element-headline-parser cond setq let save-excursion org-element--current-element setq if if while let let* save-restriction] 1 [if let org-element--cache-verify-element save-restriction save-excursion save-excursion let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [org-element-property let cond let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq] 1 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p not and or if if while if] 1 [set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if] 1 [org-element-property let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 2 [let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn if let org-element--cache-verify-element save-restriction] 1 [while let cond let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if] 1 [cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let progn] 1 [or set-buffer save-current-buffer org-element--cache-find and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if] 1 [org-element--cache-active-p and let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to org-element-type memq if if if if] 1 [not cond org-element-type memq if let* or org-element--cache-key org-element--cache-key-less-p and or and if setq if if] 1 [symbolp cond org-element-type eq and if let progn if let org-element--cache-verify-element and if let org-element-at-point progn] 1 [setq if let if save-current-buffer progn if org-element--cache-sync if if progn if let org-element-at-point progn if] 1 [symbolp cond org-element-type let while let let* save-restriction save-excursion progn unwind-protect let catch org-element--parse-to let let] 1 [progn org-element-property < and or and if setq if if while if let* save-restriction save-excursion let] 1 [doom-modeline-segment--buffer-position eval redisplay_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil nil] 1 [helm-source--persistent-help-string "#" apply "#" apply helm--setup-source helm-make-source helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 1 [helm-comp-read-get-candidates "#" "#" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 3 ["#" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute] 1 [helm-init-candidates-in-buffer "#" apply helm-apply-functions-from-source helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [let* +popup-display-buffer-stacked-side-window-fn funcall let progn and while let* and let* or let* +popup-buffer display-buffer helm-default-display-buffer helm-display-buffer] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x] 1 [helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil nil] 1 [read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil] 29 [helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil nil nil nil] 361 ["#" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#"] 1 ["#" split-string helm-score-candidate-for-pattern "#" sort helm-fuzzy-matching-default-sort-fn-1 "#" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#"] 1 [doom-protect-fallback-buffer-h kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler] 1 [generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 1 [replace-buffer-in-windows kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler] 1 [helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler] 1 [run-hook-with-args-until-success not or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#" kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [hide-mode-line-mode if save-current-buffer +helm--hide-mode-line apply helm-display-mode-line helm-move-selection-common helm--update-move-first-line helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer] 1 [helm-fuzzy-search "#" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input] 20 [helm-mm-3-search-base helm-mm-3-search helm-mm-search "#" helm--search-from-candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-value helm-get-candidates helm-get-cached-candidates helm-compute-matches helm--collect-matches helm-update] 2 [helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks apply run-hooks get-buffer-create generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 2 [persp--buffer-in-persps persp-kill-buffer-h kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply] 1 ["#" "#" map-keymap cl--map-keymap-recursively "#" map-keymap cl--map-keymap-recursively "#" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source] 1 [helm-score-candidate-for-pattern "#" sort helm-fuzzy-matching-default-sort-fn-1 "#" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler] 2 ["#" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#"] 1 [let* progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#" kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches] 1 [helm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 2 [helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal] 1 [+magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#" kill-buffer "#" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches apply] 1 [apply derived-mode-p and save-current-buffer +magit-buffer-p run-hook-with-args-until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#" kill-buffer] 1 [apply cl-intersection apply cl-nintersection helm-score-candidate-for-pattern "#" sort helm-fuzzy-matching-default-sort-fn-1 "#" apply helm-apply-functions-from-source helm-process-filtered-candidate-transformer helm-compute-matches helm--collect-matches helm-update helm-check-new-input] 1 [helm-insert-match helm-render-source helm-update helm-check-new-input helm-check-minibuffer-input "#" apply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command] 1 ["#" redisplay--update-region-highlight run-hook-with-args redisplay--pre-redisplay-functions apply "#" redisplay_internal\ \(C\ function\) read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x] 2 [select-frame-set-input-focus helm-frame-or-window-configuration helm-cleanup "#" helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively command-execute nil nil] 1 [profiler-report funcall-interactively call-interactively command-execute helm-M-x-execute-command helm-execute-selection-action-1 helm-execute-selection-action helm-internal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call-interactively] 1 [Automatic\ GC] 238024)) (24961 50047 823782 0) nil] > > Best, > Ihor > -- Sent from my Palm Pilot --000000000000061fd605cfd659dc Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
On Mon, Nov 1, 2021 at 10:25 PM Ihor Radc= henko <yantar92@gmail.com> = wrote:
The profile shows that bottleneck is undo-fu-session. Eve= n if
org-element-cache is the cause, it should be some strange interaction
with other external packages. org-element-cache itself does not change
buffer text. If anything, the new code should change buffer text
properties less than before because some of the older cache logic is
moved from using text properties to using org-element-cache.

I uninstalled undo-fu and re-ran the profiler. It tak= es even longer to save
org files now. Here's the profiler rep= ort now, does it look like helm-M-x is=C2=A0
now the bottleneck?<= /div>

[profiler-profile "24.3" cpu #s(hash-tab= le size 730 test equal rehash-size 1.5 rehash-threshold 0.8125 data ([profi= ler-start funcall-interactively call-interactively command-execute helm-M-x= -execute-command helm-execute-selection-action-1 helm-execute-selection-act= ion helm-internal apply helm apply helm helm-M-x-read-extended-command helm= -M-x funcall-interactively call-interactively] 1 [nil nil nil nil nil nil n= il nil nil nil nil nil nil nil nil nil] 388 [file-truename "#<compi= led 0x1ff1205bba71>" cl-some projectile-project-root let doom-proje= ct-root or cond let +doom-dashboard--get-pwd let if +doom-dashboard-update-= pwd-h cond +doom-dashboard-reload-maybe-h funcall] 1 [doom-modeline-segment= --major-mode eval format-mode-line doom-modeline-format--main eval redispla= y_internal\ \(C\ function\) nil nil nil nil nil nil nil nil nil nil] 1 [doo= m-modeline--get-buffers doom-modeline-segment--irc eval redisplay_internal\= \(C\ function\) nil nil nil nil nil nil nil nil nil nil nil nil] 1 [let co= nd let* save-restriction save-excursion catch org-element-context org-roam-= link-replace-at-point org-roam-link-replace-all funcall condition-case doom= -run-hook run-hook-wrapped condition-case let while] 1 [org-in-regexp org-r= oam-link-replace-at-point org-roam-link-replace-all funcall condition-case = doom-run-hook run-hook-wrapped condition-case let while let doom-run-hooks = apply run-hooks basic-save-buffer save-buffer] 1 [let* while let save-curre= nt-buffer org-element--cache-find and if setq let org-element-at-point or o= rg-element-at-point-no-context or let* save-restriction save-excursion] 1 [= "#<compiled 0x1ff11f7247a9>" apply prog1 let +org-inhibit-s= crolling-a apply toc-org-insert-toc funcall condition-case doom-run-hook ru= n-hook-wrapped condition-case let while let doom-run-hooks] 1 [abbreviate-f= ile-name org-scan-tags org-encrypt-entries funcall condition-case doom-run-= hook run-hook-wrapped condition-case let while let doom-run-hooks apply run= -hooks basic-save-buffer save-buffer] 1 [if org-element-property car eq if = or org-element--cache-key org-element--cache-key-less-p not or and if while= if let* save-restriction] 151 [let* while let save-current-buffer org-elem= ent--cache-find and let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to condition-case if] 4141 [if let* or org-= element--cache-key org-element--cache-key-less-p not or and if while if let= * save-restriction save-excursion let progn] 81 [org-element-type eq if if = if let* or org-element--cache-key org-element--cache-key-less-p not or and = if while if let*] 33 [setq progn if if if if while if let* save-restriction= save-excursion let progn progn let* org-element-cache-map] 134 [progn setq= cond let* while let save-current-buffer org-element--cache-find and let* s= ave-restriction save-excursion progn unwind-protect let catch] 15 [or org-e= lement--cache-key org-element--cache-key-less-p and or and if setq if if wh= ile if let* save-restriction save-excursion let] 1695 [progn if org-element= --cache-sync if if progn if let org-element-at-point progn if if if if whil= e if] 4 [symbolp cond org-element-type eq if if if let* or org-element--cac= he-key org-element--cache-key-less-p not or and if while] 13 [if while let = let* save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to org-element-type memq if if if] 243 [org-element--cache-acti= ve-p and let* save-restriction save-excursion progn unwind-protect let catc= h org-element--parse-to condition-case if setq let org-element-at-point pro= gn] 1 [if org-element-property car eq if or org-element--cache-key org-elem= ent--cache-key-less-p and or and if setq if if while] 26 [let let if save-c= urrent-buffer progn if org-element--cache-sync if if progn if let org-eleme= nt-at-point progn if if] 1409 [car eq if or org-element--cache-key org-elem= ent--cache-key-less-p and or and if setq if if while if let*] 1788 [cond le= t while let let* save-restriction save-excursion progn unwind-protect let c= atch org-element--parse-to condition-case if setq let] 460 [let* or org-ele= ment--cache-key org-element--cache-key-less-p not or and if while if let* s= ave-restriction save-excursion let progn progn] 7139 [let* save-restriction= save-excursion progn unwind-protect let catch org-element--parse-to org-el= ement-type memq if if if if while if] 938 [org-element--cache-key-less-p no= t or and if while if let* save-restriction save-excursion let progn progn l= et* org-element-cache-map let] 3605 [while let save-current-buffer org-elem= ent--cache-find and let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to condition-case if setq] 3962 [< and o= r if if while if let* save-restriction save-excursion let progn progn let* = org-element-cache-map let] 1302 [while let let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to condition-case if= setq let org-element-at-point progn] 433 [eq if if let* or org-element--ca= che-key org-element--cache-key-less-p not or and if while if let* save-rest= riction save-excursion] 3529 [cond let* save-restriction save-excursion pro= gn unwind-protect let catch org-element--parse-to org-element-type memq if = if if if while] 439 [memq if let* or org-element--cache-key org-element--ca= che-key-less-p not or and if while if let* save-restriction save-excursion = let] 3527 [or org-element--cache-key org-element--cache-key-less-p not or a= nd if while if let* save-restriction save-excursion let progn progn let*] 7= 245 [apply derived-mode-p and org-element--cache-active-p and if let org-el= ement--cache-verify-element and if let org-element-at-point progn if if if]= 232 [car eq if or org-element--cache-key org-element--cache-key-less-p not= or and if while if let* save-restriction save-excursion let] 7090 [> no= t or and if while if let* save-restriction save-excursion let progn progn l= et* org-element-cache-map let] 3108 [and if let org-element-at-point progn = if if if if while if let* save-restriction save-excursion let progn] 457 [e= q if if if let* or org-element--cache-key org-element--cache-key-less-p not= or and if while if let* save-restriction] 3602 [not or and if while if let= * save-restriction save-excursion let progn progn let* org-element-cache-ma= p let if] 3557 [org-element-type memq if if if if while if let* save-restri= ction save-excursion let progn progn let* org-element-cache-map] 743 [and o= rg-element--cache-active-p and if let org-element--cache-verify-element and= if let org-element-at-point progn if if if if while] 220 [nconc list let l= et* save-excursion org-element-headline-parser cond setq let save-excursion= org-element--current-element setq if if while let] 158 [and let* save-rest= riction save-excursion progn unwind-protect let catch org-element--parse-to= org-element-type memq if if if if while] 691 [car eq if or org-element--ca= che-key org-element--cache-key-less-p not and or if if while if let* save-r= estriction save-excursion] 937 [save-excursion org-element-headline-parser = cond setq let save-excursion org-element--current-element setq if if while = let let* save-restriction save-excursion progn] 150 [cond org-element-type = memq if let* or org-element--cache-key org-element--cache-key-less-p not or= and if while if let* save-restriction] 42 [save-restriction save-excursion= progn unwind-protect let catch org-element--parse-to condition-case if set= q let org-element-at-point progn if if if] 1363 [let* or org-element--cache= -key org-element--cache-key-less-p and or and if setq if if while if let* s= ave-restriction save-excursion] 1824 [if while let let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq let org-element-at-point] 245 [let* while let save-current-bu= ffer org-element--cache-find and let* save-restriction save-excursion progn= unwind-protect let catch org-element--parse-to org-element-type memq] 4069= [if save-current-buffer progn if org-element--cache-sync if if progn if le= t org-element-at-point progn if if if if] 454 [eq and if let org-element--c= ache-verify-element and if let org-element-at-point progn if if if if while= if] 204 [if if progn if let org-element-at-point progn if if if if while i= f let* save-restriction save-excursion] 662 [let catch org-element--parse-t= o condition-case if setq let org-element-at-point progn if if if if while i= f let*] 1265 [memq if let* or org-element--cache-key org-element--cache-key= -less-p and or and if setq if if while if let*] 862 [setcar if org-element-= put-property let let* save-excursion org-element-headline-parser setq progn= if cond let* save-restriction save-excursion progn unwind-protect] 12 [con= d let while let let* save-restriction save-excursion progn unwind-protect l= et catch org-element--parse-to org-element-type memq if if] 472 [while let = save-current-buffer org-element--cache-find and let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to org-element-= type memq if] 3890 [not and or if if while if let* save-restriction save-ex= cursion let progn progn let* org-element-cache-map let] 432 [let while let = let* save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to condition-case if setq let org-element-at-point] 635 [eq if = if let* or org-element--cache-key org-element--cache-key-less-p not and or = if if while if let* save-restriction] 454 [or if if if while if let* save-r= estriction save-excursion let progn progn let* org-element-cache-map let if= ] 15 [let* save-restriction save-excursion progn unwind-protect let catch o= rg-element--parse-to condition-case if setq let org-element-at-point progn = if if] 869 [or let let* save-restriction save-excursion progn unwind-protec= t let catch org-element--parse-to org-element-type memq if if if if] 479 [e= q if if if let* or org-element--cache-key org-element--cache-key-less-p and= or and if setq if if while] 859 [setcar if org-element-put-property if whi= le let let* save-restriction save-excursion progn unwind-protect let catch = org-element--parse-to let let] 8 [and or and if setq if if while if let* sa= ve-restriction save-excursion let progn progn let*] 889 [let* or org-elemen= t--cache-key org-element--cache-key-less-p not and or if if while if let* s= ave-restriction save-excursion let progn] 904 [catch org-element--parse-to = org-element-type memq if if if if while if let* save-restriction save-excur= sion let progn progn] 230 [apply derived-mode-p and org-element--cache-acti= ve-p and let* save-restriction save-excursion progn unwind-protect let catc= h org-element--parse-to org-element-type memq if] 116 [or org-element--cach= e-key org-element--cache-key-less-p not and or if if while if let* save-res= triction save-excursion let progn progn] 942 [save-restriction save-excursi= on progn unwind-protect let catch org-element--parse-to org-element-type me= mq if if if if while if let*] 1320 [memq if if if if while if let* save-res= triction save-excursion let progn progn let* org-element-cache-map let] 243= [eq if let org-element-at-point progn if if if if while if let* save-restr= iction save-excursion let progn] 258 [let cond let while let let* save-rest= riction save-excursion progn unwind-protect let catch org-element--parse-to= org-element-type memq if] 900 [and 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 progn if] 632 [save-current-buffer org-element--cac= he-find and let* save-restriction save-excursion progn unwind-protect let c= atch org-element--parse-to org-element-type memq if if if] 950 [let let* sa= ve-restriction save-excursion progn unwind-protect let catch org-element--p= arse-to condition-case if setq let org-element-at-point progn if] 418 [setq= progn if while if let* save-restriction save-excursion let progn progn let= * org-element-cache-map let if if] 697 [let cond let while let let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to condition-case if setq] 894 [org-element--cache-key-less-p and or and if= setq if if while if let* save-restriction save-excursion let progn progn] = 885 [setq if if while let let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to let let progn] 48 [eq if if let* o= r org-element--cache-key org-element--cache-key-less-p and or and if setq i= f if while if] 950 [<=3D and while let cond let* save-restriction save-e= xcursion progn unwind-protect let catch org-element--parse-to condition-cas= e if setq] 443 [progn if let save-excursion org-element--current-element se= tq if if while let let* save-restriction save-excursion progn unwind-protec= t let] 41 [progn if if if if while if let* save-restriction save-excursion = let progn progn let* org-element-cache-map let] 493 [rx--translate mapcar r= x--translate-seq rx--translate-counted-repetition rx--translate-repeat rx--= translate-form rx--translate mapcar rx--translate-seq rx--translate-form rx= --translate rx-to-string re-search-backward if progn unwind-protect] 17 [sa= ve-current-buffer org-element--cache-find and let* save-restriction save-ex= cursion progn unwind-protect let catch org-element--parse-to condition-case= if setq let org-element-at-point] 911 [while let let* save-restriction sav= e-excursion progn unwind-protect let catch org-element--parse-to org-elemen= t-type memq if if if if] 451 [=3D or if if if while if let* save-restrictio= n save-excursion let progn progn let* org-element-cache-map let] 457 [and i= f let org-element--cache-verify-element and if let org-element-at-point pro= gn if if if if while if let*] 983 [org-back-to-heading-or-point-min org-end= -of-subtree progn unwind-protect let* save-excursion let* save-excursion or= g-element-headline-parser cond setq let save-excursion org-element--current= -element setq if] 64 [<=3D and while let cond let* save-restriction save= -excursion progn unwind-protect let catch org-element--parse-to org-element= -type memq if] 458 [or let let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to let let progn if let org-element-= -cache-verify-element] 25 [save-excursion org-element-headline-parser setq = progn if cond let* save-restriction save-excursion progn unwind-protect let= catch org-element--parse-to let let] 177 [if setq let org-element-at-point= progn if if if if while if let* save-restriction save-excursion let progn]= 120 [nconc list let let* save-excursion org-element-headline-parser setq p= rogn if cond let* save-restriction save-excursion progn unwind-protect let]= 187 [progn unwind-protect let catch org-element--parse-to condition-case i= f setq let org-element-at-point progn if if if if while] 499 [save-restrict= ion save-excursion progn unwind-protect let catch org-element--parse-to let= let progn if let org-element--cache-verify-element save-restriction save-e= xcursion save-excursion] 3 [replace-regexp-in-string org-trim let* save-exc= ursion org-element-headline-parser cond setq let save-excursion org-element= --current-element setq if if while let let*] 377 [let progn if let org-elem= ent--cache-verify-element and if let org-element-at-point progn if if if if= while if] 50 [eq if if if let* or org-element--cache-key org-element--cach= e-key-less-p not and or if if while if let*] 452 [condition-case if setq le= t org-element-at-point progn if if if if while if let* save-restriction sav= e-excursion let] 665 [or let let* save-restriction save-excursion progn unw= ind-protect let catch org-element--parse-to condition-case if setq let org-= element-at-point progn] 485 [org-element--cache-key-less-p not and or if if= while if let* save-restriction save-excursion let progn progn let* org-ele= ment-cache-map] 457 [if if while if let* save-restriction save-excursion le= t progn progn let* org-element-cache-map let if if let*] 22 [< and or an= d if setq if if while if let* save-restriction save-excursion let progn pro= gn] 894 [org-end-of-subtree progn unwind-protect let* save-excursion let* s= ave-excursion org-element-headline-parser setq progn if cond let* save-rest= riction save-excursion progn] 84 [progn unwind-protect let* save-excursion = let* save-excursion org-element-headline-parser cond setq let save-excursio= n org-element--current-element setq if if while] 12 [let if save-current-bu= ffer progn if org-element--cache-sync if if progn if let org-element-at-poi= nt progn if if if] 246 [if if if while if let* save-restriction save-excurs= ion let progn progn let* org-element-cache-map let if if] 8 [cond let* save= -restriction save-excursion progn unwind-protect let catch org-element--par= se-to condition-case if setq let org-element-at-point progn if] 433 [let pr= ogn if cond let while let let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to let] 69 [let while let let* save-r= estriction save-excursion progn unwind-protect let catch org-element--parse= -to let let progn if let] 47 [let save-current-buffer org-element--cache-fi= nd and let* save-restriction save-excursion progn unwind-protect let catch = org-element--parse-to org-element-type memq if if] 20 [let while let let* s= ave-restriction save-excursion progn unwind-protect let catch org-element--= parse-to org-element-type memq if if if] 691 [let catch org-element--parse-= to org-element-type memq if if if if while if let* save-restriction save-ex= cursion let progn] 1554 [eq and if let progn if let org-element--cache-veri= fy-element and if let org-element-at-point progn if if if] 132 [apply rx-to= -string re-search-backward if progn unwind-protect let progn if cond let wh= ile let let* save-restriction save-excursion] 20 [let* save-excursion org-e= lement-headline-parser setq progn if cond let* save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to let] 113 [progn un= wind-protect let catch org-element--parse-to org-element-type memq if if if= if while if let* save-restriction save-excursion] 459 [if let org-element-= at-point progn if if if if while if let* save-restriction save-excursion le= t progn progn] 205 [rx--sequence rx--translate-seq rx--translate-form rx--t= ranslate rx-to-string re-search-forward and if if progn unwind-protect let = progn if cond let] 18 [org-element-at-point progn if if if if while if let*= save-restriction save-excursion let progn progn let* org-element-cache-map= ] 252 [progn and let* save-excursion org-element-headline-parser setq progn= if cond let* save-restriction save-excursion progn unwind-protect let catc= h] 43 [catch org-element--parse-to condition-case if setq let org-element-a= t-point progn if if if if while if let* save-restriction] 215 [memq if org-= element--parse-to let let progn if let org-element--cache-verify-element an= d if let org-element-at-point progn if if] 8 [< and if let org-element--= cache-verify-element and if let org-element-at-point progn if if if if whil= e if] 113 [1- cons cons cons cons cons cons rx-to-string re-search-forward = and if if progn unwind-protect let progn] 17 [memq if let* or org-element--= cache-key org-element--cache-key-less-p not and or if if while if let* save= -restriction save-excursion] 468 [save-excursion let* save-excursion org-el= ement-headline-parser setq progn if cond let* save-restriction save-excursi= on progn unwind-protect let catch org-element--parse-to] 15 [let let* save-= restriction save-excursion progn unwind-protect let catch org-element--pars= e-to org-element-type memq if if if if while] 447 [progn unwind-protect let= * save-excursion let* save-excursion org-element-headline-parser setq progn= if cond let* save-restriction save-excursion progn unwind-protect] 24 [app= ly derived-mode-p and org-element--cache-active-p if let org-element-at-poi= nt progn if if if if while if let* save-restriction] 116 [or and if while i= f let* save-restriction save-excursion let progn progn let* org-element-cac= he-map let if if] 68 [org-element-headline-parser cond setq let save-excurs= ion org-element--current-element setq if if while let let* save-restriction= save-excursion progn unwind-protect] 51 [and org-element--cache-active-p a= nd if let org-element-at-point progn if if if if while if let* save-restric= tion save-excursion] 105 [rx--translate mapcar rx--translate-seq rx--transl= ate-form rx--translate rx-to-string re-search-forward and if if progn unwin= d-protect let progn if cond] 14 [cond org-element-type eq if if if let* or = org-element--cache-key org-element--cache-key-less-p not or and if while if= ] 44 [apply replace-regexp-in-string org-trim let* save-excursion org-eleme= nt-headline-parser cond setq let save-excursion org-element--current-elemen= t setq if if while let] 71 [fset progn unwind-protect let* save-excursion l= et* save-excursion org-element-headline-parser setq progn if cond let* save= -restriction save-excursion progn] 1 [apply derived-mode-p and org-element-= -cache-active-p and if let org-element-at-point progn if if if if while if = let*] 117 [if let* or org-element--cache-key org-element--cache-key-less-p = and or and if setq if if while if let* save-restriction] 17 [and or if if w= hile if let* save-restriction save-excursion let progn progn let* org-eleme= nt-cache-map let if] 12 [memq not and if let org-element--cache-verify-elem= ent and if let org-element-at-point progn if if if if while] 216 [eq not if= if if let org-element-at-point progn if if if if while if let* save-restri= ction] 201 [progn and if while if let* save-restriction save-excursion let = progn progn let* org-element-cache-map let if if] 7 [org-at-heading-p org-b= ack-to-heading org-up-heading-safe org-up-heading-or-point-min progn unwind= -protect let* save-restriction save-excursion save-excursion let progn if l= et org-element--cache-verify-element and] 23 [save-excursion save-restricti= on save-excursion progn unwind-protect let catch org-element--parse-to cond= ition-case if setq let org-element-at-point progn if if] 26 [save-excursion= let progn if let org-element--cache-verify-element and if let org-element-= at-point progn if if if if while] 22 [if if if let* or org-element--cache-k= ey org-element--cache-key-less-p not and or if if while if let* save-restri= ction] 7 [if org-element-property car eq if or org-element--cache-key org-e= lement--cache-key-less-p not and or if if while if let*] 14 [and org-elemen= t--cache-active-p if let org-element-at-point progn if if if if while if le= t* save-restriction save-excursion let] 110 [while let let* save-restrictio= n save-excursion progn unwind-protect let catch org-element--parse-to let l= et progn if let org-element--cache-verify-element] 38 [progn and let* save-= excursion org-element-headline-parser cond setq let save-excursion org-elem= ent--current-element setq if if while let let*] 47 [cond let* while let sav= e-current-buffer org-element--cache-find and let* save-restriction save-exc= ursion progn unwind-protect let catch org-element--parse-to condition-case]= 68 [save-restriction save-excursion save-excursion let progn if let org-el= ement--cache-verify-element and if let org-element-at-point progn if if if]= 21 [let let* save-restriction save-excursion progn unwind-protect let catc= h org-element--parse-to let let progn if let org-element--cache-verify-elem= ent and] 20 [if while let let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to let let progn if let] 37 [and or a= nd org-element--cache-active-p and if let org-element--cache-verify-element= and if let org-element-at-point progn if if if] 8 [if setq if if while if = let* save-restriction save-excursion let progn progn let* org-element-cache= -map let if] 5 [let* save-restriction save-excursion progn unwind-protect l= et catch org-element--parse-to let let progn if let org-element--cache-veri= fy-element and if] 36 [setcar if org-element-put-property progn if let save= -excursion org-element--current-element setq if if while let let* save-rest= riction save-excursion] 18 [and org-element--cache-active-p and let* save-r= estriction save-excursion progn unwind-protect let catch org-element--parse= -to org-element-type memq if if if] 116 [cond org-element-type eq if if let= * or org-element--cache-key org-element--cache-key-less-p not or and if whi= le if let*] 30 [replace-regexp-in-string org-trim let* save-excursion org-e= lement-headline-parser setq progn if cond let* save-restriction save-excurs= ion progn unwind-protect let catch] 346 [rx--enclose rx--bracket rx--atomic= -regexp rx-to-string re-search-backward if progn unwind-protect let progn i= f cond let while let let*] 28 [org-end-of-subtree progn unwind-protect let*= save-excursion let* save-excursion org-element-headline-parser cond setq l= et save-excursion org-element--current-element setq if if] 78 [if org-eleme= nt-property let* or org-element--cache-key org-element--cache-key-less-p no= t or and if while if let* save-restriction save-excursion let] 57 [cons con= s rx-to-string re-search-backward if progn unwind-protect let progn if cond= let while let let* save-restriction] 10 [save-excursion org-element--curre= nt-element setq if if while let let* save-restriction save-excursion progn = unwind-protect let catch org-element--parse-to let] 30 [rx--translate-seq r= x--translate-form rx--translate rx-to-string re-search-backward if progn un= wind-protect let progn if cond let while let let*] 32 [if org-element-prope= rty let* while let save-current-buffer org-element--cache-find and let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to] 52 [apply derived-mode-p and if let org-element--cache-verify-eleme= nt and if let org-element-at-point progn if if if if while] 112 [or progn a= ref progn progn org-element--headline-cache-root if setq progn if if if if = while if let*] 4 [if let* save-restriction save-excursion let progn progn l= et* org-element-cache-map let if if let* save-restriction save-excursion le= t] 28 [apply replace-regexp-in-string org-trim let* save-excursion org-elem= ent-headline-parser setq progn if cond let* save-restriction save-excursion= progn unwind-protect let] 62 [and or and org-element--cache-active-p and l= et* save-restriction save-excursion progn unwind-protect let catch org-elem= ent--parse-to org-element-type memq if] 9 [plist-get if org-element-propert= y let* or org-element--cache-key org-element--cache-key-less-p not or and i= f while if let* save-restriction save-excursion] 14 [eq and if let progn if= let org-element--cache-verify-element save-restriction save-excursion save= -excursion let progn if let org-element--cache-verify-element] 7 [progn if = let org-element--cache-verify-element and if let org-element-at-point progn= if if if if while if let*] 18 [org-at-heading-p let* progn cond setq let s= ave-excursion org-element--current-element setq if if while let let* save-r= estriction save-excursion] 48 [if org-element-property < and or if if wh= ile if let* save-restriction save-excursion let progn progn let*] 12 [let l= et* save-excursion org-element-headline-parser setq progn if cond let* save= -restriction save-excursion progn unwind-protect let catch org-element--par= se-to] 40 [re-search-forward if let* save-excursion org-element-headline-pa= rser setq progn if cond let* save-restriction save-excursion progn unwind-p= rotect let catch] 14 [if while if let* save-restriction save-excursion let = progn progn let* org-element-cache-map let if if let* save-restriction] 53 = [apply derived-mode-p and org-element--cache-active-p and let* save-restric= tion save-excursion progn unwind-protect let catch org-element--parse-to co= ndition-case if setq] 131 [looking-at let and let* save-excursion org-eleme= nt-headline-parser cond setq let save-excursion org-element--current-elemen= t setq if if while let] 22 [if let* save-excursion org-element-headline-par= ser cond setq let save-excursion org-element--current-element setq if if wh= ile let let* save-restriction] 2 [let catch org-element--parse-to let let p= rogn if let org-element--cache-verify-element and if let org-element-at-poi= nt progn if if] 31 [save-restriction save-excursion progn unwind-protect le= t catch org-element--parse-to let let progn if let org-element--cache-verif= y-element and if let] 42 [let* save-excursion org-element-headline-parser c= ond setq let save-excursion org-element--current-element setq if if while l= et let* save-restriction save-excursion] 104 [org-trim let* save-excursion = org-element-headline-parser cond setq let save-excursion org-element--curre= nt-element setq if if while let let* save-restriction] 35 [and if let org-e= lement--cache-verify-element save-restriction save-excursion save-excursion= let progn if let org-element--cache-verify-element and if let org-element-= at-point] 28 [eq and if let org-element--cache-verify-element save-restrict= ion save-excursion save-excursion let progn if let org-element--cache-verif= y-element and if let] 6 [1- if list nconc list let let* save-excursion org-= element-headline-parser setq progn if cond let* save-restriction save-excur= sion] 55 [rx--translate-repeat rx--translate-form rx--translate mapcar rx--= translate-seq rx--translate-form rx--translate rx-to-string re-search-backw= ard if progn unwind-protect let progn if cond] 13 [org-up-heading-or-point-= min progn unwind-protect let* save-restriction save-excursion save-excursio= n let progn if let org-element--cache-verify-element and if let org-element= -at-point] 38 [org-element--get-time-properties let* save-excursion org-ele= ment-headline-parser setq progn if cond let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to] 42 [let* save-excur= sion let* save-excursion org-element-headline-parser setq progn if cond let= * save-restriction save-excursion progn unwind-protect let catch] 11 [rx--b= racket rx--atomic-regexp rx-to-string re-search-backward if progn unwind-pr= otect let progn if cond let while let let* save-restriction] 8 [/=3D and if= if progn unwind-protect let progn if cond let while let let* save-restrict= ion save-excursion] 19 [let let* save-excursion org-element-headline-parser= cond setq let save-excursion org-element--current-element setq if if while= let let* save-restriction] 42 [org-get-limited-outline-regexp org-before-f= irst-heading-p org-back-to-heading-or-point-min org-end-of-subtree progn un= wind-protect let* save-excursion let* save-excursion org-element-headline-p= arser cond setq let save-excursion org-element--current-element] 16 [apply = derived-mode-p and org-element--cache-active-p and if let org-element--cach= e-verify-element save-restriction save-excursion save-excursion let progn i= f let org-element--cache-verify-element] 9 [let* progn if cond let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to let let progn if] 42 [let let progn if let org-element--cache-verify-ele= ment and if let org-element-at-point progn if if if if while] 18 [if org-el= ement--cache-key-less-p not or and if while if let* save-restriction save-e= xcursion let progn progn let* org-element-cache-map] 26 [org-trim let* save= -excursion org-element-headline-parser setq progn if cond let* save-restric= tion save-excursion progn unwind-protect let catch org-element--parse-to] 3= 9 [if if let* or org-element--cache-key org-element--cache-key-less-p and o= r and if setq if if while if let*] 18 [org-element-property car eq if or or= g-element--cache-key org-element--cache-key-less-p not and or if if while i= f let* save-restriction] 4 [< and if let org-element--cache-verify-eleme= nt save-restriction save-excursion save-excursion let progn if let org-elem= ent--cache-verify-element and if let] 3 [save-excursion save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to org-eleme= nt-type memq if if if if while if] 74 [and org-element--cache-active-p and = let* save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to condition-case if setq let org-element-at-point] 122 [lookin= g-at let and let* save-excursion org-element-headline-parser setq progn if = cond let* save-restriction save-excursion progn unwind-protect let] 17 [org= -element-property let* or org-element--cache-key org-element--cache-key-les= s-p not or and if while if let* save-restriction save-excursion let progn] = 28 [org-element--cache-verify-element save-restriction save-excursion save-= excursion let progn if let org-element--cache-verify-element and if let org= -element-at-point progn if if] 8 [=3D or if save-restriction save-excursion= save-excursion let progn if let org-element--cache-verify-element and if l= et org-element-at-point progn] 14 [let save-current-buffer org-element--cac= he-find and let* save-restriction save-excursion progn unwind-protect let c= atch org-element--parse-to condition-case if setq let] 24 [setq progn if co= nd let* save-restriction save-excursion progn unwind-protect let catch org-= element--parse-to let let progn if] 14 [mapcar rx--translate-seq rx--transl= ate-counted-repetition rx--translate-bounded-repetition rx--translate-repea= t rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-f= orm rx--translate rx-to-string re-search-forward and if if] 6 [if if let* o= r org-element--cache-key org-element--cache-key-less-p not or and if while = if let* save-restriction save-excursion let] 55 [cons cons cons cons cons r= x-to-string re-search-backward if progn unwind-protect let progn if cond le= t while] 21 [org-at-heading-p org-back-to-heading org-up-heading-or-point-m= in progn unwind-protect let* save-restriction save-excursion save-excursion= let progn if let org-element--cache-verify-element and if] 20 [apply rx-to= -string re-search-forward and if if progn unwind-protect let progn if cond = let while let let*] 18 [org-at-heading-p org-back-to-heading org-back-to-he= ading-or-point-min org-end-of-subtree progn unwind-protect let* save-excurs= ion let* save-excursion org-element-headline-parser setq progn if cond let*= ] 55 [cond org-element-type eq if let org-element-at-point progn if if if i= f while if let* save-restriction save-excursion] 4 [org-element--parse-to o= rg-element-type memq if if if if while if let* save-restriction save-excurs= ion let progn progn let*] 9 [rx--translate-seq rx--translate-form rx--trans= late rx-to-string re-search-forward and if if progn unwind-protect let prog= n if cond let while] 19 [setq cond let while let let* save-restriction save= -excursion progn unwind-protect let catch org-element--parse-to let let pro= gn] 25 [org-element-type eq if if let* or org-element--cache-key org-elemen= t--cache-key-less-p not or and if while if let* save-restriction] 40 [symbo= lp cond org-element-type memq if let* or org-element--cache-key org-element= --cache-key-less-p not or and if while if let*] 13 [mapcar rx--translate-se= q rx--translate-form rx--translate rx-to-string re-search-forward and if if= progn unwind-protect let progn if cond let] 6 [progn setq if if setq if if= while if let* save-restriction save-excursion let progn progn let*] 2 [pro= gn if cond let while let let* save-restriction save-excursion progn unwind-= protect let catch org-element--parse-to let let] 9 [let* progn cond setq le= t save-excursion org-element--current-element setq if if while let let* sav= e-restriction save-excursion progn] 9 [org-element--get-node-properties let= * save-excursion org-element-headline-parser setq progn if cond let* save-r= estriction save-excursion progn unwind-protect let catch org-element--parse= -to] 33 [org-back-to-heading-or-point-min org-end-of-subtree progn unwind-p= rotect let* save-excursion let* save-excursion org-element-headline-parser = setq progn if cond let* save-restriction save-excursion] 68 [if org-element= -at-point progn if if if if while if let* save-restriction save-excursion l= et progn progn let*] 4 [let org-element--cache-verify-element and if let or= g-element-at-point progn if if if if while if let* save-restriction save-ex= cursion] 14 [rx--translate-bounded-repetition rx--translate-repeat rx--tran= slate-form rx--translate mapcar rx--translate-seq rx--translate-form rx--tr= anslate rx-to-string re-search-forward and if if progn unwind-protect let] = 23 [apply derived-mode-p org-end-of-subtree progn unwind-protect let* save-= excursion let* save-excursion org-element-headline-parser cond setq let sav= e-excursion org-element--current-element setq] 7 [progn progn setq while if= let* save-restriction save-excursion let progn progn let* org-element-cach= e-map let if if] 19 [rx--translate-counted-repetition rx--translate-bounded= -repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx= --translate-seq rx--translate-form rx--translate rx-to-string re-search-for= ward and if if progn unwind-protect] 20 [and or and org-element--cache-acti= ve-p and let* save-restriction save-excursion progn unwind-protect let catc= h org-element--parse-to condition-case if setq] 10 [and org-element--cache-= active-p and if let org-element--cache-verify-element save-restriction save= -excursion save-excursion let progn if let org-element--cache-verify-elemen= t and if] 11 [not cond org-element-type memq if let* or org-element--cache-= key org-element--cache-key-less-p not or and if while if let*] 16 [or cond = let* while let save-current-buffer org-element--cache-find and let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to] 22 [or if if while if let* save-restriction save-excursion let progn pr= ogn let* org-element-cache-map let if if] 9 [org-element--get-time-properti= es let* save-excursion org-element-headline-parser cond setq let save-excur= sion org-element--current-element setq if if while let let* save-restrictio= n] 31 [cond let* while let save-current-buffer org-element--cache-find and = let* save-restriction save-excursion progn unwind-protect let catch org-ele= ment--parse-to org-element-type] 61 [if if let* or org-element--cache-key o= rg-element--cache-key-less-p not and or if if while if let* save-restrictio= n save-excursion] 6 [catch let let if save-current-buffer progn if org-elem= ent--cache-sync if if progn if let org-element-at-point progn if] 7 [org-be= fore-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree pr= ogn unwind-protect let* save-excursion let* save-excursion org-element-head= line-parser cond setq let save-excursion org-element--current-element setq]= 2 [not cond let while let let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to condition-case if setq] 6 [while = if let* save-restriction save-excursion let progn progn let* org-element-ca= che-map let if if let* save-restriction save-excursion] 51 [org-element-pro= perty let* save-restriction save-excursion progn unwind-protect let catch o= rg-element--parse-to condition-case if setq let org-element-at-point progn = if] 1 [org-element-type eq if if if let* or org-element--cache-key org-elem= ent--cache-key-less-p and or and if setq if if] 13 [org-element-property an= d if let org-element--cache-verify-element and if let org-element-at-point = progn if if if if while if] 2 [org-element-property =3D or if save-restrict= ion save-excursion save-excursion let progn if let org-element--cache-verif= y-element and if let org-element-at-point] 18 [org-at-heading-p org-back-to= -heading org-back-to-heading-or-point-min org-end-of-subtree progn unwind-p= rotect let* save-excursion let* save-excursion org-element-headline-parser = cond setq let save-excursion org-element--current-element] 44 [cond org-ele= ment-type let while let let* save-restriction save-excursion progn unwind-p= rotect let catch org-element--parse-to org-element-type memq if] 5 [org-ele= ment--current-element setq if if while let let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to let let] 62 [org-= element--cache-key org-element--cache-key-less-p not or and if while if let= * save-restriction save-excursion let progn progn let* org-element-cache-ma= p] 37 [setq let save-excursion org-element--current-element setq if if whil= e let let* save-restriction save-excursion progn unwind-protect let catch] = 1 [setq cond let* while let save-current-buffer org-element--cache-find and= let* save-restriction save-excursion progn unwind-protect let catch org-el= ement--parse-to] 16 [rx--translate-counted-repetition rx--translate-repeat = rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-for= m rx--translate rx-to-string re-search-backward if progn unwind-protect let= progn if] 13 [if org-element--parse-to let let progn if let org-element--c= ache-verify-element and if let org-element-at-point progn if if if] 14 [set= -buffer save-current-buffer progn if org-element--cache-sync if if progn if= let org-element-at-point progn if if if if] 2 [or set-buffer save-current-= buffer progn if org-element--cache-sync if if progn if let org-element-at-p= oint progn if if if] 2 [cons cons cons cons rx-to-string re-search-backward= if progn unwind-protect let progn if cond let while let] 5 [plist-get if o= rg-element-property car eq if or org-element--cache-key org-element--cache-= key-less-p not and or if if while if] 2 [if let cond let* save-restriction = save-excursion progn unwind-protect let catch org-element--parse-to conditi= on-case if setq let org-element-at-point] 7 [org-get-limited-outline-regexp= let* progn if cond let* save-restriction save-excursion progn unwind-prote= ct let catch org-element--parse-to let let progn] 36 [rx--translate mapcar = rx--translate-seq rx--translate-counted-repetition rx--translate-bounded-re= petition rx--translate-repeat rx--translate-form rx--translate mapcar rx--t= ranslate-seq rx--translate-form rx--translate rx-to-string re-search-forwar= d and if] 26 [let org-element--cache-verify-element save-restriction save-e= xcursion save-excursion let progn if let org-element--cache-verify-element = save-restriction save-excursion save-excursion let progn if] 1 [not cond or= g-element-type let while let let* save-restriction save-excursion progn unw= ind-protect let catch org-element--parse-to org-element-type memq] 2 [setq = if if while if let* save-restriction save-excursion let progn progn let* or= g-element-cache-map let if if] 5 [progn unwind-protect let* save-restrictio= n save-excursion save-excursion let progn if let org-element--cache-verify-= element and if let org-element-at-point progn] 1 [cond org-element-type mem= q if let* or org-element--cache-key org-element--cache-key-less-p and or an= d if setq if if while] 13 [eq if or org-element--cache-key org-element--cac= he-key-less-p not and or if if while if let* save-restriction save-excursio= n let] 3 [plist-get if org-element-property car eq if or org-element--cache= -key org-element--cache-key-less-p not or and if while if let*] 29 [if org-= element-property let while let let* save-restriction save-excursion progn u= nwind-protect let catch org-element--parse-to org-element-type memq if] 6 [= or progn aref progn progn org-element--cache-root let save-current-buffer o= rg-element--cache-find and let* save-restriction save-excursion progn unwin= d-protect let] 6 [org-element-headline-parser setq progn if cond let* save-= restriction save-excursion progn unwind-protect let catch org-element--pars= e-to let let progn] 20 [org-element-type eq if if if let* or org-element--c= ache-key org-element--cache-key-less-p not and or if if while if] 3 [let an= d let* save-excursion org-element-headline-parser cond setq let save-excurs= ion org-element--current-element setq if if while let let*] 3 [if or org-el= ement--cache-key org-element--cache-key-less-p not or and if while if let* = save-restriction save-excursion let progn progn] 40 [unwind-protect let cat= ch org-element--parse-to org-element-type memq if if if if while if let* sa= ve-restriction save-excursion let] 5 [org-element--cache-interrupt-p if whi= le let let* save-restriction save-excursion progn unwind-protect let catch = org-element--parse-to condition-case if setq let] 3 [and if setq if if whil= e if let* save-restriction save-excursion let progn progn let* org-element-= cache-map let] 11 [if org-element-property let* save-restriction save-excur= sion progn unwind-protect let catch org-element--parse-to org-element-type = memq if if if if] 4 [plist-get if org-element-property let* while let save-= current-buffer org-element--cache-find and let* save-restriction save-excur= sion progn unwind-protect let catch] 21 [org-element-property let* or org-e= lement--cache-key org-element--cache-key-less-p not and or if if while if l= et* save-restriction save-excursion let] 3 [org-element-type memq if let* o= r org-element--cache-key org-element--cache-key-less-p not or and if while = if let* save-restriction save-excursion] 31 [plist-get if org-element-prope= rty let cond let while let let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to] 5 [eq if or org-element--cache-k= ey org-element--cache-key-less-p not or and if while if let* save-restricti= on save-excursion let progn] 25 [re-search-forward if let* save-excursion o= rg-element-headline-parser cond setq let save-excursion org-element--curren= t-element setq if if while let let*] 9 [not cond org-element-type eq if if = if let* or org-element--cache-key org-element--cache-key-less-p not or and = if while] 14 [plist-get if org-element-property let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to org-element-= type memq if if if] 3 [progn progn setq progn if while if let* save-restric= tion save-excursion let progn progn let* org-element-cache-map let] 15 [mem= q and or progn aref progn progn org-element--headline-cache-root if setq pr= ogn if if if if while] 6 [if org-element-property > not or and if while = if let* save-restriction save-excursion let progn progn let*] 22 [if org-el= ement-property and if let org-element--cache-verify-element and if let org-= element-at-point progn if if if if while] 7 [/=3D if save-current-buffer pr= ogn if org-element--cache-sync if if progn if let org-element-at-point prog= n if if if] 4 [and if while if let* save-restriction save-excursion let pro= gn progn let* org-element-cache-map let if if let*] 35 [progn if while if l= et* save-restriction save-excursion let progn progn let* org-element-cache-= map let if if let*] 27 [org-element--cache-key org-element--cache-key-less-= p and or and if setq if if while if let* save-restriction save-excursion le= t progn] 13 [if org-element-property let while let let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq] 3 [if org-element-property =3D or if if if while if let* sav= e-restriction save-excursion let progn progn let*] 3 [or and if setq if if = while if let* save-restriction save-excursion let progn progn let* org-elem= ent-cache-map] 13 [plist-get if org-element-property < and or if if whil= e if let* save-restriction save-excursion let progn progn] 4 [if setq progn= if if if if while if let* save-restriction save-excursion let progn progn = let*] 16 [progn setq while if let* save-restriction save-excursion let prog= n progn let* org-element-cache-map let if if let*] 9 [plist-get if org-elem= ent-property <=3D and while let cond let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to] 2 [if or org-elemen= t--cache-key org-element--cache-key-less-p not and or if if while if let* s= ave-restriction save-excursion let progn] 7 [progn progn and if while if le= t* save-restriction save-excursion let progn progn let* org-element-cache-m= ap let if] 19 [if save-excursion save-restriction save-excursion progn unwi= nd-protect let catch org-element--parse-to org-element-type memq if if if i= f while] 1 [if if if let* or org-element--cache-key org-element--cache-key-= less-p and or and if setq if if while if] 3 [setq while if let* save-restri= ction save-excursion let progn progn let* org-element-cache-map let if if l= et* save-restriction] 9 [if if if let* or org-element--cache-key org-elemen= t--cache-key-less-p not or and if while if let* save-restriction save-excur= sion] 20 [rx--translate-seq rx--translate-counted-repetition rx--translate-= bounded-repetition rx--translate-repeat rx--translate-form rx--translate ma= pcar rx--translate-seq rx--translate-form rx--translate rx-to-string re-sea= rch-forward and if if progn] 6 [org-element--cache-active-p and if let org-= element--cache-verify-element and if let org-element-at-point progn if if i= f if while if] 8 [plist-get if org-element-property > not or and if whil= e if let* save-restriction save-excursion let progn progn] 8 [cons rx-to-st= ring re-search-forward and if if progn unwind-protect let progn if cond let= while let let*] 6 [rx--enclose rx--bracket rx--atomic-regexp rx-to-string = re-search-forward and if if progn unwind-protect let progn if cond let whil= e] 27 [rx--sequence rx--translate-seq rx--translate-form rx--translate rx-t= o-string re-search-backward if progn unwind-protect let progn if cond let w= hile let] 22 [if let if save-current-buffer progn if org-element--cache-syn= c if if progn if let org-element-at-point progn if if] 8 [not or and if let= progn if let org-element--cache-verify-element and if let org-element-at-p= oint progn if if] 9 [memq and or and org-element--cache-active-p if let org= -element-at-point progn if if if if while if let*] 2 [if if setq if if whil= e if let* save-restriction save-excursion let progn progn let* org-element-= cache-map let] 7 [outline-on-heading-p org-at-heading-p let* progn cond set= q let save-excursion org-element--current-element setq if if while let let*= save-restriction] 3 [org-element-property car eq if or org-element--cache-= key org-element--cache-key-less-p not or and if while if let* save-restrict= ion save-excursion] 32 [progn aref progn progn org-element--cache-root let = save-current-buffer org-element--cache-find and let* save-restriction save-= excursion progn unwind-protect let catch] 10 [rx-to-string re-search-forwar= d and if if progn unwind-protect let progn if cond let while let let* save-= restriction] 6 [if org-element-property < and or and if setq if if while= if let* save-restriction save-excursion let] 6 [apply derived-mode-p org-g= et-limited-outline-regexp org-before-first-heading-p org-back-to-heading-or= -point-min org-end-of-subtree progn unwind-protect let* save-excursion let*= save-excursion org-element-headline-parser setq progn if] 3 [save-excursio= n let* save-excursion org-element-headline-parser cond setq let save-excurs= ion org-element--current-element setq if if while let let* save-restriction= ] 19 [let cond let while let let* save-restriction save-excursion progn unw= ind-protect let catch org-element--parse-to let let progn] 38 [org-element-= -get-node-properties let* save-excursion org-element-headline-parser cond s= etq let save-excursion org-element--current-element setq if if while let le= t* save-restriction] 36 [and or and org-element--cache-active-p if let org-= element-at-point progn if if if if while if let* save-restriction] 6 [mapca= r rx--translate-seq rx--translate-form rx--translate rx-to-string re-search= -backward if progn unwind-protect let progn if cond let while let] 10 [prog= n progn org-element--headline-cache-root if setq progn if if if if while if= let* save-restriction save-excursion let] 3 [catch org-element--parse-to l= et let progn if let org-element--cache-verify-element and if let org-elemen= t-at-point progn if if if] 1 [org-element-property or let let* save-restric= tion save-excursion progn unwind-protect let catch org-element--parse-to le= t let progn if let] 1 [cond org-element-type eq if if if let* or org-elemen= t--cache-key org-element--cache-key-less-p and or and if setq if] 9 [cond o= rg-element-type eq if if let* or org-element--cache-key org-element--cache-= key-less-p not and or if if while if] 8 [org-back-to-heading org-back-to-he= ading-or-point-min org-end-of-subtree progn unwind-protect let* save-excurs= ion let* save-excursion org-element-headline-parser cond setq let save-excu= rsion org-element--current-element setq] 8 [not cond org-element-type eq if= if if let* or org-element--cache-key org-element--cache-key-less-p and or = and if setq] 3 [org-element-property let while let let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if setq let] 3 [aref progn progn org-element--cache-root let save-cur= rent-buffer org-element--cache-find and let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to] 5 [or and org-eleme= nt--cache-active-p and if let org-element-at-point progn if if if if while = if let* save-restriction] 3 [symbolp cond org-element-type eq if if let* or= org-element--cache-key org-element--cache-key-less-p not or and if while i= f] 9 [org-up-heading-safe org-up-heading-or-point-min progn unwind-protect = let* save-restriction save-excursion save-excursion let progn if let org-el= ement--cache-verify-element and if let] 11 [cond let while let let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to let let progn if] 21 [memq and or progn aref progn progn org-element--ca= che-root let save-current-buffer org-element--cache-find and let* save-rest= riction save-excursion progn] 9 [org-element-property car eq if or org-elem= ent--cache-key org-element--cache-key-less-p and or and if setq if if while= if] 5 [and cond let while let let* save-restriction save-excursion progn u= nwind-protect let catch org-element--parse-to let let progn] 1 [apply deriv= ed-mode-p org-get-limited-outline-regexp let* progn if cond let* save-restr= iction save-excursion progn unwind-protect let catch org-element--parse-to = let] 3 [apply derived-mode-p and if let org-element--cache-verify-element s= ave-restriction save-excursion save-excursion let progn if let org-element-= -cache-verify-element and if] 5 [1- if list nconc list let let* save-excurs= ion org-element-headline-parser cond setq let save-excursion org-element--c= urrent-element setq if] 33 [progn if let if save-current-buffer progn if or= g-element--cache-sync if if progn if let org-element-at-point progn if] 11 = [progn progn let* while let save-current-buffer org-element--cache-find and= let* save-restriction save-excursion progn unwind-protect let catch org-el= ement--parse-to] 20 [not cond org-element-type eq if if let* or org-element= --cache-key org-element--cache-key-less-p not or and if while if] 14 [if or= g-element-property let 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] 11 [progn unwind-protect let catch org-element--parse-to let le= t progn if let org-element--cache-verify-element and if let org-element-at-= point progn] 12 [or and org-element--cache-active-p and let* save-restricti= on save-excursion progn unwind-protect let catch org-element--parse-to cond= ition-case if setq let] 3 [if progn if let org-element-at-point progn if if= if if while if let* save-restriction save-excursion let] 9 [symbolp cond o= rg-element-type let while let let* save-restriction save-excursion progn un= wind-protect let catch org-element--parse-to condition-case if] 2 [org-elem= ent-property <=3D and while let cond let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to condition-case if] 2= [plist-get if org-element-property let* or org-element--cache-key org-elem= ent--cache-key-less-p not and or if if while if let* save-restriction] 4 [o= rg-element-property > not or and if while if let* save-restriction save-= excursion let progn progn let* org-element-cache-map] 10 [if org-element-pr= operty let* or org-element--cache-key org-element--cache-key-less-p and or = and if setq if if while if let*] 12 [progn if save-excursion org-element--g= et-time-properties let* save-excursion org-element-headline-parser cond set= q let save-excursion org-element--current-element setq if if while] 1 [org-= element-type eq if if let* or org-element--cache-key org-element--cache-key= -less-p and or and if setq if if while] 12 [let cond let* save-restriction = save-excursion progn unwind-protect let catch org-element--parse-to conditi= on-case if setq let org-element-at-point progn] 8 [if org-element--cache-ke= y-less-p and or and if setq if if while if let* save-restriction save-excur= sion let progn] 8 [not cond let while let let* save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to org-element-type m= emq if] 5 [if if org-element--cache-key-less-p not or and if while if let* = save-restriction save-excursion let progn progn let*] 31 [org-element-prope= rty let* while let save-current-buffer org-element--cache-find and let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to org-element-type] 12 [not cond org-element-type eq if if let* or org= -element--cache-key org-element--cache-key-less-p and or and if setq if] 2 = [progn if if setq if if while if let* save-restriction save-excursion let p= rogn progn let* org-element-cache-map] 5 [org-get-limited-outline-regexp le= t* progn cond setq let save-excursion org-element--current-element setq if = if while let let* save-restriction save-excursion] 12 [progn if save-excurs= ion org-element--get-time-properties let* save-excursion org-element-headli= ne-parser setq progn if cond let* save-restriction save-excursion progn unw= ind-protect] 2 [let org-element-at-point progn if if if if while if let* sa= ve-restriction save-excursion let progn progn let*] 5 [plist-get if org-ele= ment-property car eq if or org-element--cache-key org-element--cache-key-le= ss-p and or and if setq if if] 4 [org-before-first-heading-p org-back-to-he= ading-or-point-min org-end-of-subtree progn unwind-protect let* save-excurs= ion let* save-excursion org-element-headline-parser setq progn if cond let*= save-restriction] 3 [throw cond let while let let* save-restriction save-e= xcursion progn unwind-protect let catch org-element--parse-to org-element-t= ype memq if] 5 [progn progn setq cond let* while let save-current-buffer or= g-element--cache-find and let* save-restriction save-excursion progn unwind= -protect let] 25 [aref progn progn org-element-property < and or and if = setq if if while if let* save-restriction] 2 [progn let* while let save-cur= rent-buffer org-element--cache-find and let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to org-element-type] 14= [plist-get if org-element-property let let* save-restriction save-excursio= n progn unwind-protect let catch org-element--parse-to condition-case if se= tq let] 2 [not cond org-element-type let while let let* save-restriction sa= ve-excursion progn unwind-protect let catch org-element--parse-to condition= -case if] 1 [cond org-element-type memq if if if if while if let* save-rest= riction save-excursion let progn progn let*] 4 [org-back-to-heading org-up-= heading-or-point-min progn unwind-protect let* save-restriction save-excurs= ion save-excursion let progn if let org-element--cache-verify-element and i= f let] 1 [if let cond let* save-restriction save-excursion progn unwind-pro= tect let catch org-element--parse-to org-element-type memq if if if] 7 [der= ived-mode-p and org-element--cache-active-p and if let org-element--cache-v= erify-element and if let org-element-at-point progn if if if if] 1 [memq an= d or and org-element--cache-active-p and let* save-restriction save-excursi= on progn unwind-protect let catch org-element--parse-to condition-case if] = 1 [org-element-property let* or org-element--cache-key org-element--cache-k= ey-less-p and or and if setq if if while if let* save-restriction] 7 [cond = org-element-type let while let let* save-restriction save-excursion progn u= nwind-protect let catch org-element--parse-to condition-case if setq] 6 [or= g-element--cache-verify-element and if let org-element-at-point progn if if= if if while if let* save-restriction save-excursion let] 11 [and cond let = while let let* save-restriction save-excursion progn unwind-protect let cat= ch org-element--parse-to condition-case if setq] 7 [org-element-property le= t* save-restriction save-excursion progn unwind-protect let catch org-eleme= nt--parse-to org-element-type memq if if if if while] 2 [org-element--cache= -sync if if progn if let org-element-at-point progn if if if if while if le= t* save-restriction] 4 [if let org-element--cache-verify-element and if let= org-element-at-point progn if if if if while if let* save-restriction] 16 = [outline-previous-heading let* progn if cond let* save-restriction save-exc= ursion progn unwind-protect let catch org-element--parse-to let let progn] = 4 [progn setq progn if while if let* save-restriction save-excursion let pr= ogn progn let* org-element-cache-map let if] 6 [org-element-property let* w= hile let save-current-buffer org-element--cache-find and let* save-restrict= ion save-excursion progn unwind-protect let catch org-element--parse-to con= dition-case] 10 [symbolp cond org-element-type eq and if let org-element--c= ache-verify-element and if let org-element-at-point progn if if if] 1 [save= -current-buffer progn if org-element--cache-sync if if progn if let org-ele= ment-at-point progn if if if if while] 3 [if org-element-property <=3D a= nd while let cond let* save-restriction save-excursion progn unwind-protect= let catch org-element--parse-to condition-case] 1 [cond org-element-type m= emq if let* or org-element--cache-key org-element--cache-key-less-p not and= or if if while if let*] 6 [org-outline-level org-up-heading-or-point-min p= rogn unwind-protect let* save-restriction save-excursion save-excursion let= progn if let org-element--cache-verify-element and if let] 1 [and let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to let let progn if let org-element--cache-verify-element and] 5 [org-b= ack-to-heading org-back-to-heading-or-point-min org-end-of-subtree progn un= wind-protect let* save-excursion let* save-excursion org-element-headline-p= arser setq progn if cond let* save-restriction] 5 [if if while let let* sav= e-restriction save-excursion progn unwind-protect let catch org-element--pa= rse-to let let progn if] 39 [mapcar rx--translate-seq rx--translate-counted= -repetition rx--translate-repeat rx--translate-form rx--translate mapcar rx= --translate-seq rx--translate-form rx--translate rx-to-string re-search-bac= kward if progn unwind-protect let] 8 [if org-element-property <=3D and w= hile let cond let* save-restriction save-excursion progn unwind-protect let= catch org-element--parse-to org-element-type] 3 [symbolp cond org-element-= type let while let let* save-restriction save-excursion progn unwind-protec= t let catch org-element--parse-to org-element-type memq] 2 [and or and org-= element--cache-active-p and if let org-element-at-point progn if if if if w= hile if let*] 7 [cons cons cons cons cons rx-to-string re-search-forward an= d if if progn unwind-protect let progn if cond] 5 [symbolp cond org-element= -type eq if if if let* or org-element--cache-key org-element--cache-key-les= s-p and or and if setq] 2 [progn let* while let save-current-buffer org-ele= ment--cache-find and let* save-restriction save-excursion progn unwind-prot= ect let catch org-element--parse-to condition-case] 10 [let* save-restricti= on save-excursion save-excursion let progn if let org-element--cache-verify= -element and if let org-element-at-point progn if if] 7 [not and if let org= -element--cache-verify-element and if let org-element-at-point progn if if = if if while if] 4 [cond setq let save-excursion org-element--current-elemen= t setq if if while let let* save-restriction save-excursion progn unwind-pr= otect let] 23 [plist-get if org-element-property let* save-restriction save= -excursion progn unwind-protect let catch org-element--parse-to condition-c= ase if setq let org-element-at-point] 4 [cons cons cons cons rx-to-string r= e-search-forward and if if progn unwind-protect let progn if cond let] 4 [l= et* save-excursion let* save-excursion org-element-headline-parser cond set= q let save-excursion org-element--current-element setq if if while let let*= ] 11 [rx--translate mapcar rx--translate-seq rx--translate-form rx--transla= te rx-to-string re-search-backward if progn unwind-protect let progn if con= d let while] 7 [let progn if let org-element--cache-verify-element save-res= triction save-excursion save-excursion let progn if let org-element--cache-= verify-element and if let] 2 [if org-element-property let cond let while le= t let* save-restriction save-excursion progn unwind-protect let catch org-e= lement--parse-to condition-case] 9 [cons cons rx-to-string re-search-forwar= d and if if progn unwind-protect let progn if cond let while let] 3 [symbol= p cond org-element-type memq not and if let org-element--cache-verify-eleme= nt and if let org-element-at-point progn if if] 2 [progn progn if if setq i= f if while if let* save-restriction save-excursion let progn progn let*] 4 = [org-element-type eq if let org-element-at-point progn if if if if while if= let* save-restriction save-excursion let] 2 [and while let cond let* save-= restriction save-excursion progn unwind-protect let catch org-element--pars= e-to org-element-type memq if if] 3 [not cond org-element-type let while le= t let* save-restriction save-excursion progn unwind-protect let catch org-e= lement--parse-to let let] 1 [if org-element--parse-to let let progn if let = org-element--cache-verify-element save-restriction save-excursion save-excu= rsion let progn if let org-element--cache-verify-element] 1 [org-element-ty= pe memq not and if let org-element--cache-verify-element and if let org-ele= ment-at-point progn if if if if] 4 [plist-get if org-element-property let* = or org-element--cache-key org-element--cache-key-less-p and or and if setq = if if while if] 6 [cond org-element-type eq not if if if let org-element-at= -point progn if if if if while if] 4 [if if if let org-element-at-point pro= gn if if if if while if let* save-restriction save-excursion let] 2 [if if = let org-element-at-point progn if if if if while if let* save-restriction s= ave-excursion let progn] 6 [symbolp cond org-element-type eq if if let* or = org-element--cache-key org-element--cache-key-less-p not and or if if while= ] 1 [org-element-property < and or and if setq if if while if let* save-= restriction save-excursion let progn] 7 [if let* save-excursion org-element= -headline-parser setq progn if cond let* save-restriction save-excursion pr= ogn unwind-protect let catch org-element--parse-to] 3 [derived-mode-p and o= rg-element--cache-active-p and if let org-element--cache-verify-element sav= e-restriction save-excursion save-excursion let progn if let org-element--c= ache-verify-element and] 1 [if org-element--cache-key-less-p not and or if = if while if let* save-restriction save-excursion let progn progn let*] 3 [o= rg-element--cache-key org-element--cache-key-less-p not and or if if while = if let* save-restriction save-excursion let progn progn let*] 4 [and let* s= ave-excursion org-element-headline-parser setq progn if cond let* save-rest= riction save-excursion progn unwind-protect let catch org-element--parse-to= ] 2 [org-element-property < and or if if while if let* save-restriction = save-excursion let progn progn let* org-element-cache-map] 6 [progn if let = cond let* save-restriction save-excursion progn unwind-protect let catch or= g-element--parse-to org-element-type memq if if] 2 [if org-element-property= let* or org-element--cache-key org-element--cache-key-less-p not and or if= if while if let* save-restriction save-excursion] 4 [re-search-forward and= if if progn unwind-protect let progn if cond let while let let* save-restr= iction save-excursion] 2 [if let* or org-element--cache-key org-element--ca= che-key-less-p not and or if if while if let* save-restriction save-excursi= on let] 7 [org-element-property <=3D and while let cond let* save-restri= ction save-excursion progn unwind-protect let catch org-element--parse-to o= rg-element-type memq] 2 [if if if if while if let* save-restriction save-ex= cursion let progn progn let* org-element-cache-map let if] 6 [setcar if org= -element-put-property let let* save-excursion org-element-headline-parser c= ond setq let save-excursion org-element--current-element setq if if while] = 6 [or setq if if while let let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to let let] 15 [org-element--cache-f= ind and let* save-restriction save-excursion progn unwind-protect let catch= org-element--parse-to condition-case if setq let org-element-at-point prog= n] 8 [and cond let* save-restriction save-excursion progn unwind-protect le= t catch org-element--parse-to let let progn if let org-element--cache-verif= y-element] 5 [progn progn org-element--cache-root let save-current-buffer o= rg-element--cache-find and let* save-restriction save-excursion progn unwin= d-protect let catch org-element--parse-to org-element-type] 3 [let and let*= save-excursion org-element-headline-parser setq progn if cond let* save-re= striction save-excursion progn unwind-protect let catch] 6 [let cond let* s= ave-restriction save-excursion progn unwind-protect let catch org-element--= parse-to org-element-type memq if if if if] 6 [if if org-element--cache-key= -less-p and or and if setq if if while if let* save-restriction save-excurs= ion let] 6 [org-get-limited-outline-regexp org-before-first-heading-p org-b= ack-to-heading-or-point-min org-end-of-subtree progn unwind-protect let* sa= ve-excursion let* save-excursion org-element-headline-parser setq progn if = cond let*] 19 [apply derived-mode-p org-get-limited-outline-regexp org-befo= re-first-heading-p org-back-to-heading-or-point-min org-end-of-subtree prog= n unwind-protect let* save-excursion let* save-excursion org-element-headli= ne-parser cond setq let] 4 [org-element-type eq if if let* or org-element--= cache-key org-element--cache-key-less-p not and or if if while if let*] 4 [= progn progn org-element-property < and or and if setq if if while if let= * save-restriction save-excursion] 3 [let* save-restriction save-excursion = progn unwind-protect let catch org-element--parse-to let let progn if let o= rg-element--cache-verify-element save-restriction save-excursion] 1 [and le= t* save-excursion org-element-headline-parser cond setq let save-excursion = org-element--current-element setq if if while let let* save-restriction] 4 = [memq not and if let org-element--cache-verify-element save-restriction sav= e-excursion save-excursion let progn if let org-element--cache-verify-eleme= nt and if] 6 [org-element--cache-active-p and if let org-element-at-point p= rogn if if if if while if let* save-restriction save-excursion let] 1 [if i= f org-element--cache-key-less-p not and or if if while if let* save-restric= tion save-excursion let progn progn] 5 [setq org-element-at-point progn if = if if if while if let* save-restriction save-excursion let progn progn let*= ] 2 [progn if let cond let* save-restriction save-excursion progn unwind-pr= otect let catch org-element--parse-to condition-case if setq let] 3 [setq l= et org-element-at-point progn if if if if while if let* save-restriction sa= ve-excursion let progn progn] 2 [cond org-element-type eq if if let* or org= -element--cache-key org-element--cache-key-less-p and or and if setq if if]= 7 [org-element-type memq if let* or org-element--cache-key org-element--ca= che-key-less-p not and or if if while if let* save-restriction] 4 [memq and= or and org-element--cache-active-p and if let org-element-at-point progn i= f if if if while if] 1 [if org-element-property let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to condition-ca= se if setq let org-element-at-point progn] 5 [cancel-timer progn if let if = save-current-buffer progn if org-element--cache-sync if if progn if let org= -element-at-point progn] 6 [progn org-element--cache-key org-element--cache= -key-less-p and or and if setq if if while if let* save-restriction save-ex= cursion let] 2 [if if save-excursion org-element--get-node-properties let* = save-excursion org-element-headline-parser setq progn if cond let* save-res= triction save-excursion progn unwind-protect] 1 [and if if progn unwind-pro= tect let progn if cond let while let let* save-restriction save-excursion p= rogn] 3 [save-excursion save-restriction save-excursion progn unwind-protec= t let catch org-element--parse-to let let progn if let org-element--cache-v= erify-element and if] 14 [cond org-element-type eq and if let org-element--= cache-verify-element and if let org-element-at-point progn if if if if] 4 [= rx--translate-form rx--translate rx-to-string re-search-forward and if if p= rogn unwind-protect let progn if cond let while let] 1 [if progn unwind-pro= tect let progn if cond let while let let* save-restriction save-excursion p= rogn unwind-protect let] 3 [let* save-restriction save-excursion save-excur= sion let progn if let org-element--cache-verify-element save-restriction sa= ve-excursion save-excursion let progn if let] 1 [and cond let while let let= * save-restriction save-excursion progn unwind-protect let catch org-elemen= t--parse-to org-element-type memq if] 3 [if org-element-property and if let= org-element--cache-verify-element save-restriction save-excursion save-exc= ursion let progn if let org-element--cache-verify-element and if] 1 [plist-= get if org-element-property =3D or if if if while if let* save-restriction = save-excursion let progn progn] 1 [if or org-element--cache-key org-element= --cache-key-less-p and or and if setq if if while if let* save-restriction = save-excursion] 10 [save-excursion progn unwind-protect let catch org-eleme= nt--parse-to org-element-type memq if if if if while if let* save-restricti= on] 5 [and or progn aref progn progn org-element--headline-cache-root if se= tq progn if if if if while if] 4 [progn if let org-element-at-point progn i= f if if if while if let* save-restriction save-excursion let progn] 3 [org-= reduced-level prog1 let* save-excursion org-element-headline-parser setq pr= ogn if cond let* save-restriction save-excursion progn unwind-protect let c= atch] 1 [if org-element-property let let* save-restriction save-excursion p= rogn unwind-protect let catch org-element--parse-to org-element-type memq i= f if if] 6 [rx-to-string re-search-backward if progn unwind-protect let pro= gn if cond let while let let* save-restriction save-excursion progn] 2 [rx-= -bracket rx--atomic-regexp rx-to-string re-search-forward and if if progn u= nwind-protect let progn if cond let while let] 6 [if save-excursion save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to condition-case if setq let org-element-at-point progn if] 1 [/=3D and co= nd let while let let* save-restriction save-excursion progn unwind-protect = let catch org-element--parse-to let let] 1 [symbolp cond org-element-type e= q if if if let* or org-element--cache-key org-element--cache-key-less-p not= and or if if] 2 [org-element--cache-active-p if let org-element-at-point p= rogn if if if if while if let* save-restriction save-excursion let progn] 5= [cond org-element-type eq if if if let* or org-element--cache-key org-elem= ent--cache-key-less-p not and or if if while] 4 [org-element-property let c= ond let while let let* save-restriction save-excursion progn unwind-protect= let catch org-element--parse-to condition-case if] 3 [or set-buffer save-c= urrent-buffer org-element--cache-find and let* save-restriction save-excurs= ion progn unwind-protect let catch org-element--parse-to condition-case if = setq] 2 [derived-mode-p and if let org-element--cache-verify-element and if= let org-element-at-point progn if if if if while if] 1 [progn unwind-prote= ct let catch org-element--parse-to let let progn if let org-element--cache-= verify-element save-restriction save-excursion save-excursion let progn] 1 = [cons rx-to-string re-search-backward if progn unwind-protect let progn if = cond let while let let* save-restriction save-excursion] 3 [org-element--ca= che-root let save-current-buffer org-element--cache-find and let* save-rest= riction save-excursion progn unwind-protect let catch org-element--parse-to= org-element-type memq if] 5 [symbolp cond org-element-type memq if let* or= org-element--cache-key org-element--cache-key-less-p and or and if setq if= if] 5 [if org-element--cache-put or setq if if while let let* save-restric= tion save-excursion progn unwind-protect let catch org-element--parse-to] 3= [rx--translate-form rx--translate mapcar rx--translate-seq rx--translate-f= orm rx--translate rx-to-string re-search-forward and if if progn unwind-pro= tect let progn if] 2 [if let cond let while let let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to condition-ca= se if] 3 [org-element-property let let* save-restriction save-excursion pro= gn unwind-protect let catch org-element--parse-to let let progn if let org-= element--cache-verify-element] 1 [timerp cancel-timer progn if let if save-= current-buffer progn if org-element--cache-sync if if progn if let org-elem= ent-at-point] 3 [org-element-type let while let let* save-restriction save-= excursion progn unwind-protect let catch org-element--parse-to org-element-= type memq if if] 2 [not cond org-element-type eq not if if if let org-eleme= nt-at-point progn if if if if while] 1 [org-element-type memq if let* or or= g-element--cache-key org-element--cache-key-less-p and or and if setq if if= while if] 9 [or and org-element--cache-active-p and if let org-element--ca= che-verify-element and if let org-element-at-point progn if if if if] 2 [if= org-element-property let cond let while let let* save-restriction save-exc= ursion progn unwind-protect let catch org-element--parse-to org-element-typ= e] 3 [aref progn progn org-element--headline-cache-root if setq progn if if= if if while if let* save-restriction save-excursion] 1 [org-element--cache= -find and let* save-restriction save-excursion progn unwind-protect let cat= ch org-element--parse-to org-element-type memq if if if if] 2 [plist-get if= org-element-property < and or and if setq if if while if let* save-rest= riction save-excursion] 1 [eq if or org-element--cache-key org-element--cac= he-key-less-p and or and if setq if if while if let* save-restriction] 2 [o= utline-on-heading-p org-at-heading-p org-back-to-heading org-up-heading-or-= point-min progn unwind-protect let* save-restriction save-excursion save-ex= cursion let progn if let org-element--cache-verify-element and] 1 [if org-e= lement-property or let let* save-restriction save-excursion progn unwind-pr= otect let catch org-element--parse-to condition-case if setq let] 3 [org-el= ement-type let while let let* save-restriction save-excursion progn unwind-= protect let catch org-element--parse-to condition-case if setq let] 2 [prog= n progn setq if if setq if if while if let* save-restriction save-excursion= let progn progn] 4 [or and org-element--cache-active-p and let* save-restr= iction save-excursion progn unwind-protect let catch org-element--parse-to = org-element-type memq if if] 3 [cons cons cons rx-to-string re-search-backw= ard if progn unwind-protect let progn if cond let while let let*] 2 [org-el= ement--headline-cache-root if setq progn if if if if while if let* save-res= triction save-excursion let progn progn] 2 [cond let save-current-buffer or= g-element--cache-find and let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to condition-case if setq] 2 [outline= -on-heading-p org-at-heading-p org-back-to-heading org-back-to-heading-or-p= oint-min org-end-of-subtree progn unwind-protect let* save-excursion let* s= ave-excursion org-element-headline-parser setq progn if cond] 1 [if org-ele= ment--cache-sync if if progn if let org-element-at-point progn if if if if = while if let*] 2 [rx--translate-repeat rx--translate-form rx--translate map= car rx--translate-seq rx--translate-form rx--translate rx-to-string re-sear= ch-forward and if if progn unwind-protect let progn] 1 [symbolp cond org-el= ement-type memq if let* or org-element--cache-key org-element--cache-key-le= ss-p not and or if if while if] 1 [apply derived-mode-p org-get-limited-out= line-regexp let* progn cond setq let save-excursion org-element--current-el= ement setq if if while let let*] 3 [if list nconc list let let* save-excurs= ion org-element-headline-parser cond setq let save-excursion org-element--c= urrent-element setq if if] 5 [progn progn org-element--cache-key org-elemen= t--cache-key-less-p and or and if setq if if while if let* save-restriction= save-excursion] 4 [org-up-heading-or-point-min progn unwind-protect let* s= ave-restriction save-excursion save-excursion let progn if let org-element-= -cache-verify-element save-restriction save-excursion save-excursion let] 2= [progn progn org-element--cache-root let save-current-buffer org-element--= cache-find and let* save-restriction save-excursion progn unwind-protect le= t catch org-element--parse-to condition-case] 1 [set-match-data unwind-prot= ect let catch org-element--parse-to org-element-type memq if if if if while= if let* save-restriction save-excursion] 2 [plist-get if org-element-prope= rty or let let* save-restriction save-excursion progn unwind-protect let ca= tch org-element--parse-to org-element-type memq if] 1 [fset unwind-protect = let* save-excursion let* save-excursion org-element-headline-parser cond se= tq let save-excursion org-element--current-element setq if if while] 1 [sav= e-excursion if if while let let* save-restriction save-excursion progn unwi= nd-protect let catch org-element--parse-to let let progn] 1 [progn org-elem= ent--headline-cache-root if setq progn if if if if while if let* save-restr= iction save-excursion let progn] 1 [plist-get if org-element-property let w= hile let let* save-restriction save-excursion progn unwind-protect let catc= h org-element--parse-to org-element-type memq] 1 [aref progn progn org-elem= ent--cache-key org-element--cache-key-less-p and or and if setq if if while= if let* save-restriction] 1 [progn aref progn progn org-element--headline-= cache-root if setq progn if if if if while if let* save-restriction] 1 [if = save-excursion org-element--get-node-properties let* save-excursion org-ele= ment-headline-parser setq progn if cond let* save-restriction save-excursio= n progn unwind-protect let] 2 [cond let* save-restriction save-excursion pr= ogn unwind-protect let catch org-element--parse-to let let progn if let org= -element--cache-verify-element save-restriction] 1 [if save-excursion org-e= lement--get-node-properties let* save-excursion org-element-headline-parser= cond setq let save-excursion org-element--current-element setq if if while= let] 2 [org-element--cache-interrupt-p if while let let* save-restriction = save-excursion progn unwind-protect let catch org-element--parse-to org-ele= ment-type memq if if] 1 [unwind-protect let catch org-element--parse-to con= dition-case if setq let org-element-at-point progn if if if if while if] 3 = [cond org-element-type memq not and if let org-element--cache-verify-elemen= t and if let org-element-at-point progn if if if] 1 [plist-get if org-eleme= nt-property =3D or if save-restriction save-excursion save-excursion let pr= ogn if let org-element--cache-verify-element and if] 1 [eq cond let save-cu= rrent-buffer org-element--cache-find and let* save-restriction save-excursi= on progn unwind-protect let catch org-element--parse-to condition-case if] = 2 [derived-mode-p and org-element--cache-active-p and if let org-element-at= -point progn if if if if while if let* save-restriction] 2 [save-excursion = progn unwind-protect let catch org-element--parse-to condition-case if setq= let org-element-at-point progn if if if if] 1 [cond let save-current-buffe= r org-element--cache-find and let* save-restriction save-excursion progn un= wind-protect let catch org-element--parse-to org-element-type memq if] 3 [o= rg-element-property eq and if let progn if let org-element--cache-verify-el= ement and if let org-element-at-point progn if if] 1 [catch org-element--pa= rse-to let let progn if let org-element--cache-verify-element save-restrict= ion save-excursion save-excursion let progn if let org-element--cache-verif= y-element] 1 [setq if if setq if if while if let* save-restriction save-exc= ursion let progn progn let* org-element-cache-map] 3 [throw cond let while = let let* save-restriction save-excursion progn unwind-protect let catch org= -element--parse-to condition-case if setq] 2 [apply derived-mode-p org-end-= of-subtree progn unwind-protect let* save-excursion let* save-excursion org= -element-headline-parser setq progn if cond let* save-restriction] 1 [cons = cons cons rx-to-string re-search-forward and if if progn unwind-protect let= progn if cond let while] 5 [org-element--parse-to condition-case if setq l= et org-element-at-point progn if if if if while if let* save-restriction sa= ve-excursion] 2 [and cond let* save-restriction save-excursion progn unwind= -protect let catch org-element--parse-to org-element-type memq if if if if]= 1 [org-element-property =3D or if if if while if let* save-restriction sav= e-excursion let progn progn let* org-element-cache-map] 1 [org-element-type= eq not if if if let org-element-at-point progn if if if if while if let*] = 1 [prog1 let* save-excursion org-element-headline-parser setq progn if cond= let* save-restriction save-excursion progn unwind-protect let catch org-el= ement--parse-to] 2 [org-outline-level org-end-of-subtree progn unwind-prote= ct let* save-excursion let* save-excursion org-element-headline-parser setq= progn if cond let* save-restriction save-excursion] 3 [while let cond let*= save-restriction save-excursion progn unwind-protect let catch org-element= --parse-to condition-case if setq let org-element-at-point] 4 [plist-get if= org-element-property and if let org-element--cache-verify-element and if l= et org-element-at-point progn if if if if] 1 [if org-element-property or le= t let* save-restriction save-excursion progn unwind-protect let catch org-e= lement--parse-to org-element-type memq if if] 2 [symbolp cond org-element-t= ype memq if if if if while if let* save-restriction save-excursion let prog= n progn] 2 [not cond org-element-type eq if if let* or org-element--cache-k= ey org-element--cache-key-less-p not and or if if while] 3 [not or and if l= et progn if let org-element--cache-verify-element save-restriction save-exc= ursion save-excursion let progn if let] 1 [org-element--cache-root let save= -current-buffer org-element--cache-find and let* save-restriction save-excu= rsion progn unwind-protect let catch org-element--parse-to condition-case i= f setq] 1 [symbolp cond org-element-type eq if if let* or org-element--cach= e-key org-element--cache-key-less-p and or and if setq if] 2 [prog1 let* sa= ve-excursion org-element-headline-parser cond setq let save-excursion org-e= lement--current-element setq if if while let let* save-restriction] 1 [if l= et org-element--cache-verify-element save-restriction save-excursion save-e= xcursion let progn if let org-element--cache-verify-element and if let org-= element-at-point progn] 1 [org-element-property let cond let while let let*= save-restriction save-excursion progn unwind-protect let catch org-element= --parse-to org-element-type memq] 1 [not cond org-element-type memq if let*= or org-element--cache-key org-element--cache-key-less-p not and or if if w= hile if] 1 [set-buffer save-current-buffer org-element--cache-find and let*= save-restriction save-excursion progn unwind-protect let catch org-element= --parse-to org-element-type memq if if] 1 [org-element-property let let* sa= ve-restriction save-excursion progn unwind-protect let catch org-element--p= arse-to org-element-type memq if if if if] 2 [let let* save-restriction sav= e-excursion progn unwind-protect let catch org-element--parse-to let let pr= ogn if let org-element--cache-verify-element save-restriction] 1 [while let= cond let* save-restriction save-excursion progn unwind-protect let catch o= rg-element--parse-to org-element-type memq if if if] 1 [cond org-element-ty= pe let while let let* save-restriction save-excursion progn unwind-protect = let catch org-element--parse-to let let progn] 1 [or set-buffer save-curren= t-buffer org-element--cache-find and let* save-restriction save-excursion p= rogn unwind-protect let catch org-element--parse-to org-element-type memq i= f] 1 [org-element--cache-active-p and let* save-restriction save-excursion = progn unwind-protect let catch org-element--parse-to org-element-type memq = if if if if] 1 [not cond org-element-type memq if let* or org-element--cach= e-key org-element--cache-key-less-p and or and if setq if if] 1 [symbolp co= nd org-element-type eq and if let progn if let org-element--cache-verify-el= ement and if let org-element-at-point progn] 1 [setq if let if save-current= -buffer progn if org-element--cache-sync if if progn if let org-element-at-= point progn if] 1 [symbolp cond org-element-type let while let let* save-re= striction save-excursion progn unwind-protect let catch org-element--parse-= to let let] 1 [progn org-element-property < and or and if setq if if whi= le if let* save-restriction save-excursion let] 1 [doom-modeline-segment--b= uffer-position eval redisplay_internal\ \(C\ function\) nil nil nil nil nil= nil nil nil nil nil nil nil nil] 1 [helm-source--persistent-help-string &q= uot;#<compiled 0x1ff11f62ad55>" apply "#<compiled 0x1ff1= 1e3f30a5>" apply helm--setup-source helm-make-source helm-M-x-read-= extended-command helm-M-x funcall-interactively call-interactively command-= execute nil nil nil nil] 1 [helm-comp-read-get-candidates "#<compil= ed 0x1ff11ee1d4c9>" "#<compiled 0x1ff11f6329f1>" ap= ply helm-apply-functions-from-source helm-compute-attr-in-sources helm-init= ial-setup helm-initialize helm-internal apply helm apply helm helm-M-x-read= -extended-command helm-M-x funcall-interactively] 3 ["#<compiled 0x= 1ff11f6329f1>" apply helm-apply-functions-from-source helm-compute-= attr-in-sources helm-initial-setup helm-initialize helm-internal apply helm= apply helm helm-M-x-read-extended-command helm-M-x funcall-interactively c= all-interactively command-execute] 1 [helm-init-candidates-in-buffer "= #<compiled 0x1ff11f6329f1>" apply helm-apply-functions-from-sour= ce helm-compute-attr-in-sources helm-initial-setup helm-initialize helm-int= ernal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall= -interactively call-interactively] 1 [let* +popup-display-buffer-stacked-si= de-window-fn funcall let progn and while let* and let* or let* +popup-buffe= r display-buffer helm-default-display-buffer helm-display-buffer] 1 [helm-M= -x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-fr= om-source helm-process-filtered-candidate-transformer helm-compute-matches = helm--collect-matches helm-update helm-read-from-minibuffer helm-internal a= pply helm apply helm helm-M-x-read-extended-command helm-M-x] 1 [helm-inter= nal apply helm apply helm helm-M-x-read-extended-command helm-M-x funcall-i= nteractively call-interactively command-execute nil nil nil nil nil nil] 1 = [read-from-minibuffer helm-read-from-minibuffer helm-internal apply helm ap= ply helm helm-M-x-read-extended-command helm-M-x funcall-interactively call= -interactively command-execute nil nil nil nil] 29 [helm-read-from-minibuff= er helm-internal apply helm apply helm helm-M-x-read-extended-command helm-= M-x funcall-interactively call-interactively command-execute nil nil nil ni= l nil] 361 ["#<compiled 0x1ff11f756785>" helm--search-from-= candidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buf= fer-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm= -interpret-value helm-get-candidates helm-get-cached-candidates helm-comput= e-matches helm--collect-matches helm-update helm-check-new-input helm-check= -minibuffer-input "#<compiled 0x1ff11db30631>"] 1 ["#&= lt;compiled 0x41ff0eab>" split-string helm-score-candidate-for-patt= ern "#<compiled 0x1ff11f993861>" sort helm-fuzzy-matching-d= efault-sort-fn-1 "#<compiled 0x1ff11f6acc49>" apply helm-ap= ply-functions-from-source helm-process-filtered-candidate-transformer helm-= compute-matches helm--collect-matches helm-update helm-check-new-input helm= -check-minibuffer-input "#<compiled 0x1ff11db30631>"] 1 [do= om-protect-fallback-buffer-h kill-buffer "#<compiled 0x1ff11f022d25= >" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-matches = apply helm-apply-functions-from-source helm-process-filtered-candidate-tran= sformer helm-compute-matches helm--collect-matches helm-update helm-check-n= ew-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631>= " apply timer-event-handler] 1 [generate-new-buffer helm-fuzzy-default= -highlight-match helm-fuzzy-highlight-matches apply helm-apply-functions-fr= om-source helm-process-filtered-candidate-transformer helm-compute-matches = helm--collect-matches helm-update helm-check-new-input helm-check-minibuffe= r-input "#<compiled 0x1ff11db30631>" apply timer-event-hand= ler read-from-minibuffer helm-read-from-minibuffer] 1 [replace-buffer-in-wi= ndows kill-buffer "#<compiled 0x1ff1205aa711>" helm-fuzzy-d= efault-highlight-match helm-fuzzy-highlight-matches apply helm-apply-functi= ons-from-source helm-process-filtered-candidate-transformer helm-compute-ma= tches helm--collect-matches helm-update helm-check-new-input helm-check-min= ibuffer-input "#<compiled 0x1ff11db30631>" apply timer-even= t-handler] 1 [helm-update helm-check-new-input helm-check-minibuffer-input = "#<compiled 0x1ff11db30631>" apply timer-event-handler read= -from-minibuffer helm-read-from-minibuffer helm-internal apply helm apply h= elm helm-M-x-read-extended-command helm-M-x funcall-interactively] 1 [cl--m= ap-keymap-recursively helm-M-x-get-major-mode-command-alist helm-M-x-curren= t-mode-map-alist helm-M-x-transformer-1 helm-M-x-transformer-no-sort apply = helm-apply-functions-from-source helm-process-filtered-candidate-transforme= r helm-compute-matches helm--collect-matches helm-update helm-check-new-inp= ut helm-check-minibuffer-input "#<compiled 0x1ff11db30631>"= apply timer-event-handler] 1 [run-hook-with-args-until-success not or and = progn if let* doom-real-buffer-p or doom-buffer-frame-predicate "#<= compiled 0x1ff11d81578d>" kill-buffer "#<compiled 0x1ff11e5= 692e1>" helm-fuzzy-default-highlight-match helm-fuzzy-highlight-mat= ches apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped condit= ion-case let while let doom-run-hooks apply run-hooks kill-buffer "#&l= t;compiled 0x1ff11f1f3ffd>" helm-fuzzy-default-highlight-match helm= -fuzzy-highlight-matches apply] 1 [hide-mode-line-mode if save-current-buff= er +helm--hide-mode-line apply helm-display-mode-line helm-move-selection-c= ommon helm--update-move-first-line helm-update helm-check-new-input helm-ch= eck-minibuffer-input "#<compiled 0x1ff11db30631>" apply tim= er-event-handler read-from-minibuffer helm-read-from-minibuffer] 1 [helm-fu= zzy-search "#<compiled 0x1ff11f7547e5>" helm--search-from-c= andidate-buffer-1 helm-search-from-candidate-buffer helm-candidates-in-buff= er-1 helm-candidates-in-buffer apply helm-apply-functions-from-source helm-= interpret-value helm-get-candidates helm-get-cached-candidates helm-compute= -matches helm--collect-matches helm-update helm-check-new-input helm-check-= minibuffer-input] 20 [helm-mm-3-search-base helm-mm-3-search helm-mm-search= "#<compiled 0x1ff11fb8e391>" helm--search-from-candidate-b= uffer-1 helm-search-from-candidate-buffer helm-candidates-in-buffer-1 helm-= candidates-in-buffer apply helm-apply-functions-from-source helm-interpret-= value helm-get-candidates helm-get-cached-candidates helm-compute-matches h= elm--collect-matches helm-update] 2 [helm-fuzzy-highlight-matches apply hel= m-apply-functions-from-source helm-process-filtered-candidate-transformer h= elm-compute-matches helm--collect-matches helm-update helm-check-new-input = helm-check-minibuffer-input "#<compiled 0x1ff11db30631>" ap= ply timer-event-handler read-from-minibuffer helm-read-from-minibuffer helm= -internal apply] 1 [funcall condition-case doom-run-hook run-hook-wrapped c= ondition-case let while let doom-run-hooks apply run-hooks get-buffer-creat= e generate-new-buffer helm-fuzzy-default-highlight-match helm-fuzzy-highlig= ht-matches apply] 2 [persp--buffer-in-persps persp-kill-buffer-h kill-buffe= r "#<compiled 0x1ff11f8a1c91>" helm-fuzzy-default-highlight= -match helm-fuzzy-highlight-matches apply helm-apply-functions-from-source = helm-process-filtered-candidate-transformer helm-compute-matches helm--coll= ect-matches helm-update helm-check-new-input helm-check-minibuffer-input &q= uot;#<compiled 0x1ff11db30631>" apply] 1 ["#<compiled 0x= 1ff11d811199>" "#<compiled 0x1ff11e2cd335>" map-key= map cl--map-keymap-recursively "#<compiled 0x1ff11d7e6221>"= map-keymap cl--map-keymap-recursively "#<compiled 0x1ff11d815701&g= t;" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-comm= and-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-t= ransformer-no-sort apply helm-apply-functions-from-source] 1 [helm-score-ca= ndidate-for-pattern "#<compiled 0x1ff11e694785>" sort helm-= fuzzy-matching-default-sort-fn-1 "#<compiled 0x1ff11f6acc49>&quo= t; apply helm-apply-functions-from-source helm-process-filtered-candidate-t= ransformer helm-compute-matches helm--collect-matches helm-update helm-chec= k-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db30631&= gt;" apply timer-event-handler] 2 ["#<compiled 0x1ff11ee32241&= gt;" map-keymap cl--map-keymap-recursively helm-M-x-get-major-mode-com= mand-alist helm-M-x-current-mode-map-alist helm-M-x-transformer-1 helm-M-x-= transformer-no-sort apply helm-apply-functions-from-source helm-process-fil= tered-candidate-transformer helm-compute-matches helm--collect-matches helm= -update helm-check-new-input helm-check-minibuffer-input "#<compile= d 0x1ff11db30631>"] 1 [let* progn if let* doom-real-buffer-p or doo= m-buffer-frame-predicate "#<compiled 0x1ff11d81578d>" kill-= buffer "#<compiled 0x1ff11ee9004d>" helm-fuzzy-default-high= light-match helm-fuzzy-highlight-matches apply helm-apply-functions-from-so= urce helm-process-filtered-candidate-transformer helm-compute-matches] 1 [h= elm-M-x-get-major-mode-command-alist helm-M-x-current-mode-map-alist helm-M= -x-transformer-1 helm-M-x-transformer-no-sort apply helm-apply-functions-fr= om-source helm-process-filtered-candidate-transformer helm-compute-matches = helm--collect-matches helm-update helm-check-new-input helm-check-minibuffe= r-input "#<compiled 0x1ff11db30631>" apply timer-event-hand= ler read-from-minibuffer] 1 [helm-M-x-transformer-1 helm-M-x-transformer-no= -sort apply helm-apply-functions-from-source helm-process-filtered-candidat= e-transformer helm-compute-matches helm--collect-matches helm-update helm-c= heck-new-input helm-check-minibuffer-input "#<compiled 0x1ff11db306= 31>" apply timer-event-handler read-from-minibuffer helm-read-from-= minibuffer helm-internal] 2 [helm-fuzzy-default-highlight-match helm-fuzzy-= highlight-matches apply helm-apply-functions-from-source helm-process-filte= red-candidate-transformer helm-compute-matches helm--collect-matches helm-u= pdate helm-check-new-input helm-check-minibuffer-input "#<compiled = 0x1ff11db30631>" apply timer-event-handler read-from-minibuffer hel= m-read-from-minibuffer helm-internal] 1 [+magit-buffer-p run-hook-with-args= -until-success or and progn if let* doom-real-buffer-p or doom-buffer-frame= -predicate "#<compiled 0x1ff11d81578d>" kill-buffer "#= <compiled 0x1ff11fe92639>" helm-fuzzy-default-highlight-match he= lm-fuzzy-highlight-matches apply] 1 [apply derived-mode-p and save-current-= buffer +magit-buffer-p run-hook-with-args-until-success or and progn if let= * doom-real-buffer-p or doom-buffer-frame-predicate "#<compiled 0x1= ff11d81578d>" kill-buffer] 1 [apply cl-intersection apply cl-ninter= section helm-score-candidate-for-pattern "#<compiled 0x1ff11d46dd11= >" sort helm-fuzzy-matching-default-sort-fn-1 "#<compiled 0= x1ff11f6acc49>" apply helm-apply-functions-from-source helm-process= -filtered-candidate-transformer helm-compute-matches helm--collect-matches = helm-update helm-check-new-input] 1 [helm-insert-match helm-render-source h= elm-update helm-check-new-input helm-check-minibuffer-input "#<comp= iled 0x1ff11db30631>" apply timer-event-handler read-from-minibuffe= r helm-read-from-minibuffer helm-internal apply helm apply helm helm-M-x-re= ad-extended-command] 1 ["#<compiled 0x4200381f>" redisplay-= -update-region-highlight run-hook-with-args redisplay--pre-redisplay-functi= ons apply "#<compiled 0x42158e59>" redisplay_internal\ \(C\= function\) read-from-minibuffer helm-read-from-minibuffer helm-internal ap= ply helm apply helm helm-M-x-read-extended-command helm-M-x] 2 [select-fram= e-set-input-focus helm-frame-or-window-configuration helm-cleanup "#&l= t;compiled 0x1ff11f168ff1>" helm-internal apply helm apply helm hel= m-M-x-read-extended-command helm-M-x funcall-interactively call-interactive= ly command-execute nil nil] 1 [profiler-report funcall-interactively call-i= nteractively command-execute helm-M-x-execute-command helm-execute-selectio= n-action-1 helm-execute-selection-action helm-internal apply helm apply hel= m helm-M-x-read-extended-command helm-M-x funcall-interactively call-intera= ctively] 1 [Automatic\ GC] 238024)) (24961 50047 823782 0) nil]

Best,
Ihor


--
Sent from my Palm Pilot
--000000000000061fd605cfd659dc--