From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 4KwrH2c3iGELbAAAgWs5BA (envelope-from ) for ; Sun, 07 Nov 2021 21:30:31 +0100 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id EATMGmc3iGELJwAAB5/wlQ (envelope-from ) for ; Sun, 07 Nov 2021 20:30:31 +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 7C337260B1 for ; Sun, 7 Nov 2021 21:30:30 +0100 (CET) Received: from [::1] (port=60452 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mjoo9-0006rc-N8 for larch@yhetil.org; Sun, 07 Nov 2021 15:30:29 -0500 Received: from eggs.gnu.org ([209.51.188.92]:35786) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mjon9-0006rU-5l for emacs-orgmode@gnu.org; Sun, 07 Nov 2021 15:29:27 -0500 Received: from [2607:f8b0:4864:20::434] (port=46615 helo=mail-pf1-x434.google.com) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mjon1-0003el-Pq for emacs-orgmode@gnu.org; Sun, 07 Nov 2021 15:29:26 -0500 Received: by mail-pf1-x434.google.com with SMTP id o4so46900pfp.13 for ; Sun, 07 Nov 2021 12:29:18 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:from:date:message-id:subject:to; bh=sUw89kvMDwYQgrDN7h4Mv5IMP7kmYH1PJwiBNLoq2SY=; b=gRdeFK0wEZw2kVajdMg5IiLdkH2GmQ4EdWPnIl75SoGgaQvTVSkorBT1FbJKjh/Rn/ j5B6N4pn6b7ur3TRkOOmk5hdnPDH3kXx/qRPGgETs4CGFYcwLXy/KftmLbGgcMLdAiqt rYPyFdApDl4c9miDdFbBd1KTkS2QgpI0ja+SIEzviYSZKEhtH+UTEI92f+2V+Grn6LxZ tWplkXdwDEoEBqbYp5vEE9iE7renZjaazctaV7ulwVzjspgXT/52iLD7JsYK/kCGvKxh tgxN7CDU+EGNA8UNsYKLkOq9InMHgXhfJRPjJo/4UGmhp75TveAs4YtKZ8L38iL6CDTZ wiOw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:from:date:message-id:subject:to; bh=sUw89kvMDwYQgrDN7h4Mv5IMP7kmYH1PJwiBNLoq2SY=; b=66nWgtbX87lReVIHBuygOvAnwm4/ulPkLftMR87yL8WQttda+YHmqi/ghTiXrEFg0U sWHfn2GQP7abER7Ufp6wNe7RE0awoLl/Z4ROf4bgXhHbe4XU8LVf/3X1W0bQK5/7z+k9 Y8yCh2TGbtGDFJBgH46g5p6TFmiFMjqumxfw+Ys3kBF08E79ipSI2EsRLaL3dC3ElYmv CkcDdX6JnqzAKAyFq/RrIJrfdu4VLcezUTDAbz8WaIHPMk1Yio6qdIp8yWNCX8uSFskg T2W9rQAHnA/5rmwo1CQxJdGs+13ZhTC28Yb1KonTiAMutqJ9x5X4zkyg1q0D/hNeHsFy RhnQ== X-Gm-Message-State: AOAM530NhuvFnHFjIRIBADKazhaba0RhSsUotUVk7gZzPAVNmS21neev Ed8xGTS8/e2TqwbW46Eq2KOMg+41Fc3Nq+734iidLkLD X-Google-Smtp-Source: ABdhPJzpeiKF7KH2s+Xi3PoAcnomY3YJAOa+ABbfSqsuNP0VuLZzU0n9D5/mS1jNSPMLhP8RCzxEo4kVOOrZZkkXTSE= X-Received: by 2002:a63:8148:: with SMTP id t69mr42614391pgd.17.1636316561421; Sun, 07 Nov 2021 12:22:41 -0800 (PST) MIME-Version: 1.0 From: John Mathena Date: Sun, 7 Nov 2021 14:22:28 -0600 Message-ID: Subject: [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)] To: emacs-orgmode@gnu.org Content-Type: multipart/alternative; boundary="0000000000006239b705d038a336" X-Host-Lookup-Failed: Reverse DNS lookup failed for 2607:f8b0:4864:20::434 (failed) Received-SPF: pass client-ip=2607:f8b0:4864:20::434; envelope-from=jmmathena@gmail.com; helo=mail-pf1-x434.google.com X-Spam_score_int: -12 X-Spam_score: -1.3 X-Spam_bar: - X-Spam_report: (-1.3 / 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, PDS_HP_HELO_NORDNS=0.001, RCVD_IN_DNSWL_NONE=-0.0001, RDNS_NONE=0.793, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no 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: , 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=1636317031; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=sUw89kvMDwYQgrDN7h4Mv5IMP7kmYH1PJwiBNLoq2SY=; b=Ulqkhc1qk+g0ZfqebPTsDfG1HcO0/TnSI7pftZgUT0KUZdewApFPvBWaqKqPAgIvZjOtZl aqbioGDNk997CdBbU+d47e60Kn59WiT9Dfgk0UIMjbQ/e9oYbtWLzB9FPGU0axpLUSonLM ExtKku1qsvQRveHtUu+nx0Lefg++OHuymz0ZVBTJcQcxX/xUFPK25ljWXWApgDYW7T3CwV 7ysWAOwJUmZKe+XOdV74cc91ojAZASVVIMmlPQkTVuLZnYH89xznkj9PNFISAQBZSvBLed +srWetzUGgDJqEcmhzpLJ7d7Jb/wq5j40/M9lGgrzNKfINzQq5dDc+369SKnNg== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1636317031; a=rsa-sha256; cv=none; b=Y6vJ4zBx06elNQId/pSpSAX56lgc982rs1qoJNFxpJcULGnw7NL4wLOjFhH/E2bH3md1ZI i/h6/TwnigenY0jFLHC5tHG93ykcoaDce1FaxUL1Eyx5zR9ZmST98zBCnKvMv8l0L6IKJz zweFHF9dUZ/FdSKLIIjHcQsEPMzI7Vtn1SlNzox7jwywqWhAv/moqTkc6NYuTA5wBOCvBA 31JDYyNTFJVnCaETIk1py3+/mwTDuigrZ1H7HStytVDDGlHN0rrnF/57loqWtvVXcI2w0D PmONSk6xpJqJGZVNLZE8/txxTBwlJHUM/uemFtPRmEz5+HnG666Xy/bedq9bIA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=gRdeFK0w; 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=gRdeFK0w; 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: 7C337260B1 X-Spam-Score: -3.12 X-Migadu-Scanner: scn0.migadu.com X-TUID: TRH0d5Go9N5l --0000000000006239b705d038a336 Content-Type: text/plain; charset="UTF-8" First time sending mail to the list; please let me know if I commit any breaches of etiquette or convention (e.g. on attaching backtraces as a file vs sending in message body). I'll add a data point to the people that have been having trouble with org-element--cache recently; I get the warning shown below semi-frequently while I'm editing org files, seemingly at random, although I'll continue looking into what circumstances provoke it. At present, I can reproduce the error consistently using ox-hugo. I do: $ emacs -Q -l ~/.emacs.d/straight/repos/straight.el/bootstrap.el Then `M-x eval buffer` on the following buffer: (straight-use-package 'org) (straight-use-package 'ox-hugo) (with-eval-after-load 'ox (require 'backtrace) ;;org-hugo-export-wim-to-md calls org-element--cache-sync, which uses backtrace-get-frames, which isn't autoloaded (require 'ox-hugo)) I then navigate to the following org-mode buffer, do `C-u M-x org-reload`, and do `C-c C-e H A` to try and export it using ox-hugo. #+hugo_base_dir: ~ * Posts ** Emacs :PROPERTIES: :EXPORT_FILE_NAME: emacs :END: It's great! Upon trying this, I get the following warning (Org setup and machine specs at the bottom). Best, John Warning (emacs): org-element--cache: Unregistered buffer modifications detected. Resetting. If this warning appears regularly, please report it to Org mode mailing list (M-x org-submit-bug-report). The buffer is: *Ox-hugo Pre-processed bugfix.org * Current command: org-export-dispatch Backtrace: " backtrace-to-string(nil) (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace))) (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq 'backtrace org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n \" (mapconcat #'identity (ring-elements org-element--cache-diagnostics-ring) \"\\n \")) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrace)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq ... org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" ...) format-string \"\\nBacktrace:\\n \" (mapconcat ... ... \"\\n \")) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to-string (backtrace-get-frames ...)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat ... format-string \"\\nBacktrace:\\n \" ...) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if (or org-element--cache-diagnostics ...) (progn ...)))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn ...)) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ... ...) (if ... ...) (let* ... ...))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))) (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" (buffer-name ...) this-command (backtrace-to-string ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if ... ...))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next ...) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn ... ... ...)) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected. Resett...\" ... this-command ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (warn \"%s\" (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn ...)) (while org-element--cache-sync-requests (setq request ... next ...) (org-element--cache-process-request request ... threshold ... future-change) (setq request ... next ...) (if next ...) (setq org-element--cache-sync-requests ...)))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))) (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (warn \"%s\" ...))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit ...)) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests ...) (while org-element--cache-sync-requests ... ... ... ... ...))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))))) org-element--cache-sync(# #) (if cached-only nil (org-element--cache-sync (current-buffer) pom)) (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))) (let (element) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))) (setq element (if cached-only (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (org-element--cache-key-less-p pom (aref (car org-element--cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-case err (org-element--parse-to pom) (error (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (warn \"%s\" ...))) (org-element-cache-reset) (org-element--parse-to pom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to pom)))) (if (eq 'org-data (org-element-type element)) nil (if (and cached-only (not (and element (or (= pom ...) (and ... ... ...) (and ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type element) 'section)) element (org-element-at-point (1+ pom) cached-only))))) org-element-at-point(#) (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn (goto-char from-pos) (org-element-property :begin (progn ... ...))))) (prev after-element) (node (if (memq granularity '(headline headline+inlinetask)) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or (byte-code-function-p func) (and (symbolp func) (subrp ...)) (and (symbolp func) (fboundp ...) (native-comp-available-p) (fboundp ...) (subr-native-elisp-p ...)) (version< emacs-version \"29\")) func (let ((warning-minimum-log-level :error) (inhibit-message t)) (condition-case nil (if ... ... ...) (error func))))) (next-element-re (let* ((pcase-0 #'...)) (cond ((eq granularity ...) (funcall pcase-0)) ((eq ... restrict-elements) (funcall pcase-0)) ((eq granularity ...) (cons ... ...)) (t nil)))) (next-re (if (and next-re (string= next-re (or ... next-element-re))) nil next-re)) (fail-re (if (and fail-re (string= fail-re (or ... next-element-re))) nil fail-re)) (restrict-elements (or restrict-elements (cond ((eq granularity ...) '...) ((eq granularity ...) '...) ((eq granularity ...) org-element-greater-elements) (t nil)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (or (not next-element-re) (re-search-forward ... nil ...)) (if (or ... ...) nil (if ... ... ...) (if ... ...)) (setq continue-flag t node nil))) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq granularity 'element) (or next-re fail-re))) nil (let ((org-element-cache-map--recurse t)) (org-element-cache-map #'ignore :granularity granularity) (setq node (if (memq granularity ...) (org-element--headline-cache-root) (org-element--cache-root)))) (let* ((p (if ... ... ...)) (v org-element--cache-change-tic)) (progn (if p (setcdr p v) (setq org-element--cache-gapless ...)) v))) (while node (setq data (progn (progn (aref node 2)))) (if (and leftp (progn (progn ...)) (or (not prev) (not ...)) (or (not start) (not ...))) (progn (setq stack (cons node stack)) (setq node (progn ...))) (if (or (and start ...) (and prev ...)) nil (if (or ... ...) (let ... ... ...) (if ... ...) (if node ...))) (if continue-flag (setq continue-flag nil) (setq node (if ... ... ...)))))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> (- (float-time) time) org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- (float-time) time) predicate-time (if (= 0 (+ count-predicate-calls-match count-predicate-calls-fail)) 0 (/ predicate-time (+ count-predicate-calls-match count-predicate-calls-fail))) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result))) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn (goto-char from-pos) (org-element-property :begin ...)))) (prev after-element) (node (if (memq granularity '...) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or (byte-code-function-p func) (and ... ...) (and ... ... ... ... ...) (version< emacs-version \"29\")) func (let (... ...) (condition-case nil ... ...)))) (next-element-re (let* ((pcase-0 ...)) (cond (... ...) (... ...) (... ...) (t nil)))) (next-re (if (and next-re (string= next-re ...)) nil next-re)) (fail-re (if (and fail-re (string= fail-re ...)) nil fail-re)) (restrict-elements (or restrict-elements (cond (... ...) (... ...) (... org-element-greater-elements) (t nil)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if (or ... ...) (if ... nil ... ...) (setq continue-flag t node nil))) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq granularity ...) (or next-re fail-re))) nil (let ((org-element-cache-map--recurse t)) (org-element-cache-map #'ignore :granularity granularity) (setq node (if ... ... ...))) (let* ((p ...) (v org-element--cache-change-tic)) (progn (if p ... ...) v))) (while node (setq data (progn (progn ...))) (if (and leftp (progn ...) (or ... ...) (or ... ...)) (progn (setq stack ...) (setq node ...)) (if (or ... ...) nil (if ... ... ... ...)) (if continue-flag (setq continue-flag nil) (setq node ...))))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> (- ... time) org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- (float-time) time) predicate-time (if (= 0 ...) 0 (/ predicate-time ...)) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result)))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn ... ...))) (prev after-element) (node (if (memq granularity ...) (org-element--headline-cache-root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or ... ... ... ...) func (let ... ...))) (next-element-re (let* (...) (cond ... ... ... ...))) (next-re (if (and next-re ...) nil next-re)) (fail-re (if (and fail-re ...) nil fail-re)) (restrict-elements (or restrict-elements (cond ... ... ... ...))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (if ... ... ...)) (set-match-data save-match-data-internal 'evaporate))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cache-change-tic ...) (and ... ...)) nil (let (...) (org-element-cache-map ... :granularity granularity) (setq node ...)) (let* (... ...) (progn ... v))) (while node (setq data (progn ...)) (if (and leftp ... ... ...) (progn ... ...) (if ... nil ...) (if continue-flag ... ...)))) (if (and org-element--cache-map-statistics (or (not org-element--cache-map-statistics-threshold) (> ... org-element--cache-map-statistics-threshold))) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" (current-buffer) count-predicate-calls-match (+ count-predicate-calls-match count-predicate-calls-fail) (- ... time) predicate-time (if ... 0 ...) granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result))))) (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos ...)) (prev after-element) (node (if ... ... ...)) data (stack (list nil)) (leftp t) result (last-match t) continue-flag (func (if ... func ...)) (next-element-re (let* ... ...)) (next-re (if ... nil next-re)) (fail-re (if ... nil fail-re)) (restrict-elements (or restrict-elements ...)) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) (if (and start (>= start to-pos)) nil (if (or org-element-cache-map--recurse ... ...) nil (let ... ... ...) (let* ... ...)) (while node (setq data ...) (if ... ... ... ...))) (if (and org-element--cache-map-statistics (or ... ...)) (progn (message \"Mapped over elements in %S. %d/%d predicate matche...\" ... count-predicate-calls-match ... ... predicate-time ... granularity restrict-elements next-re fail-re from-pos to-pos limit-count after-element))) (nreverse result)))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:granularity :restrict-elements :next-re :fail-re :from-pos :to-pos :after-element :limit-count :narrow :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error \"Keyword argument %s not one of (:granularity :rest...\" (car --cl-keys--)))))) (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start ...) (prev after-element) (node ...) data (stack ...) (leftp t) result (last-match t) continue-flag (func ...) (next-element-re ...) (next-re ...) (fail-re ...) (restrict-elements ...) (time ...) (predicate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start ...)) (let (...) (unwind-protect ... ...)) (if (and start ...) nil (if ... nil ... ...) (while node ... ...)) (if (and org-element--cache-map-statistics ...) (progn ...)) (nreverse result))))))) (let* ((granularity (car (cdr (or (plist-member --cl-rest-- ':granularity) '(nil headline+inlinetask))))) (restrict-elements (car (cdr (plist-member --cl-rest-- ':restrict-elements)))) (next-re (car (cdr (plist-member --cl-rest-- ':next-re)))) (fail-re (car (cdr (plist-member --cl-rest-- ':fail-re)))) (from-pos (car (cdr (plist-member --cl-rest-- ':from-pos)))) (to-pos (car (cdr (or (plist-member --cl-rest-- ':to-pos) (list nil (point-max-marker)))))) (after-element (car (cdr (plist-member --cl-rest-- ':after-element)))) (limit-count (car (cdr (plist-member --cl-rest-- ':limit-count)))) (narrow (car (cdr (plist-member --cl-rest-- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error \"Keyword argument %s not one of (:granularity :rest...\" (car --cl-keys--)))))) (progn (if (org-element--cache-active-p) nil (error \"Cache must be active.\")) (if (memq granularity '(headline headline+inlinetask greater-element element)) nil (error \"Unsupported granularity: %S\" granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) (let* (... ... ... data ... ... result ... continue-flag ... ... ... ... ... ... ... ... ...) (goto-char ...) (let ... ...) (if ... nil ... ...) (if ... ...) (nreverse result)))))))) org-element-cache-map((closure ((fast-re . \"^\\\\*+ \") (ts-date-pair) (ts-date-type) (ts-date) (priority) (entry) (marker) (todo) (txt) (i) (category) (level) (rtn1) (rtn) (llast . 0) (tags-alist (0)) (tags-list) (tags) (lspos) (props face default done-face org-agenda-done undone-face default mouse-face highlight org-not-done-regexp \"\\\\(TODO\\\\)\" org-todo-regexp \"\\\\(DONE\\\\|TODO\\\\)\" org-complex-heading-regexp \"^\\\\(\\\\*+\\\\)\\\\(?: +\\\\(DONE\\\\|TODO\\\\)\\\\)?\\\\(?: +\\\\(\\\\[#.\\\\]\\\\)\\\\)?...\" help-echo \"mouse-2 or RET jump to Org file \\\"~/bugfix.org\\\"\") (re . \"^\\\\*+ *\\\\(\\\\<\\\\(DONE\\\\|TODO\\\\)\\\\>\\\\)? *\\\\(.*?\\\\)\\\\([ \\11]:\\\\(?:...\") (start-level) (todo-only) (matcher lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-string<> ... \"\"))))) (action . #f(compiled-function () #)) org-agenda-archives-mode org-end-time-was-given org-time-was-given org-blocked-by-checkboxes org-state org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-agenda-start-on-weekday org-agenda-buffer-tmp-name buffer-face-mode-face org-struct-menu org-last-state org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-export-registered-backends crm-separator org-indent-indentation-per-level org-agenda-buffer-name ...) (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp (point)) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (catch :skip (if (and (and (or (not todo-only) (member todo org-todo-keywords-1)) (if (functionp matcher) (let ... ...) matcher)) (progn (if (eq action ...) nil (org-agenda-skip el)) t) (or (not todo-only) (and (member todo org-todo-keywords-1) (or ... ...)))) (progn (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...)) ((eq action ...) (let* ... ... ...) (goto-char ...) (setq marker ...) (org-add-props txt props ... marker ... marker ... category ... todo ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp action) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (user-error \"Invalid action\"))) (if org-tags-match-list-sublevels nil (goto-char (1- ...)))))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re \"^\\\\*+ \" :fail-re \"^\\\\*+ \" :narrow t) (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp ...) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (catch :skip (if (and (and ... ...) (progn ... t) (or ... ...)) (progn (cond ... ... ... ...) (if org-tags-match-list-sublevels nil ...)))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re fast-re :fail-re fast-re :narrow t)) (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair ... ts-date ... ts-date-type ...))) (catch :skip (if (and ... ... ...) (progn ... ...))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim (match-string-no-properties 4)))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp (point)) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (setq i llast llast level) (while (>= i level) (if (setq entry (assoc i tags-alist)) (progn (setq tags-alist (delete entry tags-alist)))) (setq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\") tags-alist (cons (cons level tags) tags-alist)))) (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar 'cdr (reverse tags-alist))) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr (car tags-alist) (mapcar #'... (cdr ...))))) (if (and tags org-use-tag-inheritance (or (not (eq t org-use-tag-inheritance)) org-tags-exclude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninherited-tags (cdr ...))))) (if (and (and (or (not todo-only) (member todo org-todo-keywords-1)) (if (functionp matcher) (let ... ...) matcher)) (progn (if (eq action ...) nil (org-agenda-skip)) t) (or (not todo-only) (and (member todo org-todo-keywords-1) (or ... ...)))) (progn (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...)) ((eq action ...) (setq txt ... priority ...) (goto-char lspos) (setq marker ...) (org-add-props txt props ... marker ... marker ... category ... todo ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp action) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (user-error \"Invalid action\"))) (if org-tags-match-list-sublevels nil (org-end-of-subtree t) (backward-char 1))))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1))))) (save-excursion (goto-char (point-min)) (if (eq action 'sparse-tree) (progn (org-overview) (org-remove-occur-highlights))) (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" ... \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (org-element-property :todo-keyword el) level (org-element-property :level el) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action ...) (progn ...)) (catch :skip (if ... ...)) (if org-map-continue-from (progn ...)) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim (match-string-no-properties 4)))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp ...) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (setq i llast llast level) (while (>= i level) (if (setq entry (assoc i tags-alist)) (progn (setq tags-alist ...))) (setq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\") tags-alist (cons ... tags-alist)))) (setq tags-list (if org-use-tag-inheritance (apply 'append (mapcar ... ...)) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr (car tags-alist) (mapcar ... ...)))) (if (and tags org-use-tag-inheritance (or (not ...) org-tags-exclude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninherited-tags ...)))) (if (and (and (or ... ...) (if ... ... matcher)) (progn (if ... nil ...) t) (or (not todo-only) (and ... ...))) (progn (cond (... ... ...) (... ... ... ... ... ...) (... ... ...) (t ...)) (if org-tags-match-list-sublevels nil (org-end-of-subtree t) (backward-char 1))))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1)))))) (let* ((re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \"\\\\} \") org-outline-regexp) \" *\\\\(\" (regexp-opt org-todo-keywords-1 'words) \"\\\\)?\" \" *\\\\(.*?\\\\)\\\\([ \\11]:\\\\(?:\" org-tag-re \":\\\\)+\\\\)?[ \\11]*$\")) (props (list 'face 'default 'done-face 'org-agenda-done 'undone-face 'default 'mouse-face 'highlight 'org-not-done-regexp org-not-done-regexp 'org-todo-regexp org-todo-regexp 'org-complex-heading-regexp org-complex-heading-regexp 'help-echo (format \"mouse-2 or RET jump to Org file %S\" (abbreviate-file-name (or (buffer-file-name ...) (buffer-name ...)))))) (org-map-continue-from nil) lspos tags tags-list (tags-alist (list (cons 0 org-file-tags))) (llast 0) rtn rtn1 level category i txt todo marker entry priority ts-date ts-date-type ts-date-pair) (if (or (member action '(agenda sparse-tree)) (functionp action)) nil (setq action (list 'lambda nil action))) (save-excursion (goto-char (point-min)) (if (eq action 'sparse-tree) (progn (org-overview) (org-remove-occur-highlights))) (if (org-element--cache-active-p) (let ((fast-re (concat \"^\" (if start-level ... org-outline-regexp)))) (org-element-cache-map #'(lambda (el) (goto-char ...) (setq todo ... level ... category ... tags-list ... org-scanner-tags tags-list) (if ... ...) (catch :skip ...) (if org-map-continue-from ...) nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp ...) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (org-trim ...))) (goto-char (setq lspos (match-beginning 0))) (setq level (org-reduced-level (org-outline-level)) category (org-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair ... ts-date ... ts-date-type ...))) (setq i llast llast level) (while (>= i level) (if (setq entry ...) (progn ...)) (setq i (1- i))) (if tags (progn (setq tags ... tags-alist ...))) (setq tags-list (if org-use-tag-inheritance (apply ... ...) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr ... ...))) (if (and tags org-use-tag-inheritance (or ... org-tags-exclude-from-inheritance)) (progn (setcdr ... ...))) (if (and (and ... ...) (progn ... t) (or ... ...)) (progn (cond ... ... ... ...) (if org-tags-match-list-sublevels nil ... ...)))) (if org-map-continue-from (goto-char org-map-continue-from) (and (= (point) lspos) (end-of-line 1)))))) (if (and (eq action 'sparse-tree) (not org-sparse-tree-open-archived-trees)) (progn (org-hide-archived-subtrees (point-min) (point-max)))) (nreverse rtn)) org-scan-tags(#f(compiled-function () #) (lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-string<> (or (org-cached-entry-get nil \"EXPORT_FILE_NAME\") \"\") \"\"))))) nil nil) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level)) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction (widen) (goto-char ...) (setq res ...)))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (outline-next-heading)) (setq start-level (org-current-level))))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and (bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) (save-excursion (save-restriction ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-level)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-char ...) (if ... nil ...) (setq start-level ...)))) (narrow-to-region (region-beginning) (save-excursion (goto-char (region-end)) (if (and ... ...) nil (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (list ...))))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file ...)) (save-current-buffer (set-buffer ...) (save-excursion ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))))) (let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope ...) (eq scope ...)) (org-region-active-p)) (if start-level (progn (save-excursion ... ... ...))) (narrow-to-region (region-beginning) (save-excursion (goto-char ...) (if ... nil ...) (point))) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symbolp ...)) (setq scope (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope (and buffer-file-name ...))) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files ...)))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let (...) (save-current-buffer ... ...) (setq --dolist-tail-- ...))))))) res) (if (and (or (eq scope 'region) (eq scope 'region-start-level)) (not (org-region-active-p))) nil (let* ((org-agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(comment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq scope 'region-start-level)) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or ... ...) (org-region-active-p)) (if start-level (progn ...)) (narrow-to-region (region-beginning) (save-excursion ... ... ...)) (setq scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file-name ...)) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-level))) (cond ((and scope ... ...) (setq scope ...)) ((eq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...))) (org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ... ... ...)))))) res)) org-map-entries(#f(compiled-function () #) \"EXPORT_FILE_NAME<>\\\"\\\"\") org-hugo-export-wim-to-md(:all-subtrees nil nil) (lambda (a _s v _b) (org-hugo-export-wim-to-md :all-subtrees a v))(nil nil nil nil) org-export-dispatch(nil) funcall-interactively(org-export-dispatch nil) call-interactively(org-export-dispatch nil nil) command-execute(org-export-dispatch) Emacs : GNU Emacs 27.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.27, cairo version 1.17.4) of 2021-03-26 Package: Org mode version 9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/) current state: ============== (setq org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-link-shell-confirm-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function org-odt-format-headline-function 'org-odt-format-headline-default-function org-persist-before-write-hook '(org-element--cache-persist-before-write) org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-mode-hook '((closure (org--rds reftex-docstruct-symbol visual-fill-column-width org-clock-history org-agenda-current-date org-with-time org-defdecode org-def org-read-date-inactive org-ans2 org-ans1 org-columns-current-fmt-compiled org-clock-current-task org-clock-effort org-agenda-skip-function org-agenda-skip-comment-trees org-agenda-archives-mode org-end-time-was-given org-time-was-given org-blocked-by-checkboxes org-state org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-agenda-start-on-weekday org-agenda-buffer-tmp-name buffer-face-mode-face org-struct-menu org-last-state org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-export-registered-backends crm-separator org-indent-indentation-per-level org-agenda-buffer-name org-inlinetask-min-level t) nil (add-hook 'change-major-mode-hook 'org-show-all 'append 'local)) (closure (*this* org-babel-confirm-evaluate-answer-no t) nil (add-hook 'change-major-mode-hook #'org-babel-show-result-all 'append 'local)) #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-all append local] 5] #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-archive-hook '(org-attach-archive-delete-maybe) org-persist-before-read-hook '(org-element--cache-persist-before-read) org-confirm-elisp-link-function 'yes-or-no-p org-agenda-before-write-hook '(org-agenda-add-entry-text) org-metaup-hook '(org-babel-load-in-session-maybe) org-persist-after-read-hook '(org-element--cache-persist-after-read) org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3 "\n\n(fn ENTRY)"] org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"] org-babel-pre-tangle-hook '(save-buffer) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"] org-agenda-loop-over-headlines-in-active-region nil org-occur-hook '(org-first-headline-recenter) org-export-before-processing-hook '(org-blackfriday--reset-org-blackfriday--code-block-num-backticks) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate) org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function org-export-before-parsing-hook '(org-attach-expand-links) org-confirm-shell-link-function 'yes-or-no-p org-link-parameters '(("attachment" :follow org-attach-follow :complete org-attach-complete-link) ("id" :follow org-id-open) ("eww" :follow org-eww-open :store org-eww-store-link) ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link :export org-irc-export) ("info" :follow org-info-open :export org-info-export :store org-info-store-link) ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("doi" :follow org-link-doi-open :export org-link-doi-export) ("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell) ("news" :follow #[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("mailto" :follow #[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("https" :follow #[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("http" :follow #[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("help" :follow org-link--open-help :store org-link--store-help) ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)) org-latex-format-headline-function 'org-latex-format-headline-default-function org-link-elisp-confirm-function 'yes-or-no-p org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-html-format-headline-function 'org-html-format-headline-default-function ) ("news" :follow #[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("mailto" :follow #[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("https" :follow #[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("http" :follow #[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"]) ("help" :follow org-link--open-help :store org-link--store-help) ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)) org-latex-format-headline-function 'org-latex-format-headline-default-function org-link-elisp-confirm-function 'yes-or-no-p org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-html-format-headline-function 'org-html-format-headline-default-function ) --0000000000006239b705d038a336 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
First time sending mail to the list; please let me kn= ow if I commit any breaches of etiquette or convention (e.g. on attaching b= acktraces as a file vs sending in message body).

I'll add a data= point to the people that have been having trouble with org-element--cache = recently; I get the warning shown below semi-frequently while I'm editi= ng org files, seemingly at random, although I'll continue looking into = what circumstances provoke it. At present, I can reproduce the error consis= tently using ox-hugo. I do:

$ emacs -Q -l ~/.emacs.d/straight/repos/= straight.el/bootstrap.el

Then `M-x eval buffer` on the following buf= fer:

(straight-use-package 'org)
(straight-use-package 'o= x-hugo)
(with-eval-after-load 'ox
=C2=A0 (require 'backtrace)= ;;org-hugo-export-wim-to-md calls org-element--cache-sync, which uses back= trace-get-frames, which isn't autoloaded
=C2=A0 (require 'ox-hug= o))

I then navigate to the following org-mode buffer, do `C-u M-x or= g-reload`, and do `C-c C-e H A` to try and export it using ox-hugo.

= #+hugo_base_dir: ~
* Posts
** Emacs
:PROPERTIES:
:EXPORT_FILE_N= AME: emacs
:END:
It's great!


Upon trying this, I get t= he following warning (Org setup and machine specs at the bottom).

Best,
John

Warning (emacs): org= -element--cache: Unregistered buffer modifications detected. Resetting.
= If this warning appears regularly, please report it to Org mode mailing lis= t (M-x org-submit-bug-report).
The buffer is: *Ox-hugo Pre-processed bugfix.org *
=C2=A0Curr= ent command: org-export-dispatch
=C2=A0Backtrace:
" =C2=A0backtr= ace-to-string(nil)
=C2=A0 (format \"Unregistered buffer modificatio= ns detected. Resett...\" (buffer-name (current-buffer)) this-command (= backtrace-to-string (backtrace-get-frames 'backtrace)))
=C2=A0 (let*= ((format-string (format \"Unregistered buffer modifications detected.= Resett...\" (buffer-name (current-buffer)) this-command (backtrace-to= -string (backtrace-get-frames 'backtrace)))) (format-string (if (or (no= t org-element--cache-diagnostics-ring) (not (eq 'backtrace org-element-= -cache-self-verify))) format-string (prog1 (concat (format \"Warning(%= s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n =C2=A0= \" (mapconcat #'identity (ring-elements org-element--cache-diagnos= tics-ring) \"\\n =C2=A0\")) (setq org-element--cache-diagnostics-= ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error = \"%s\" (concat \"org-element--cache: \" format-string))= (warn \"%s\" (concat \"org-element--cache: \" format-s= tring))))
=C2=A0 (progn (let* ((format-string (format \"Unregistere= d buffer modifications detected. Resett...\" (buffer-name (current-buf= fer)) this-command (backtrace-to-string (backtrace-get-frames 'backtrac= e)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not= (eq ... org-element--cache-self-verify))) format-string (prog1 (concat (fo= rmat \"Warning(%s): \" ...) format-string \"\\nBacktrace:\\n= =C2=A0\" (mapconcat ... ... \"\\n =C2=A0\")) (setq org-elem= ent--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) = org-batch-test) (error \"%s\" (concat \"org-element--cache: = \" format-string)) (warn \"%s\" (concat \"org-element--= cache: \" format-string)))) (org-element-cache-reset))
=C2=A0 (if (= /=3D org-element--cache-change-tic (buffer-chars-modified-tick)) (progn (le= t* ((format-string (format \"Unregistered buffer modifications detecte= d. Resett...\" (buffer-name (current-buffer)) this-command (backtrace-= to-string (backtrace-get-frames ...)))) (format-string (if (or (not org-ele= ment--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat ... f= ormat-string \"\\nBacktrace:\\n =C2=A0\" ...) (setq org-element--= cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-b= atch-test) (error \"%s\" (concat \"org-element--cache: \&quo= t; format-string)) (warn \"%s\" (concat \"org-element--cache= : \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit = t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-el= ement--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer)= )) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catc= h 'org-element--cache-interrupt (if org-element--cache-sync-requests (p= rogn (if (or org-element--cache-diagnostics ...) (progn ...)))) (while org-= element--cache-sync-requests (setq request (car org-element--cache-sync-req= uests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-p= rocess-request request (if next (progn ...)) threshold (if threshold nil ti= me-limit) future-change) (setq request (car org-element--cache-sync-request= s) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ...= ...) (if ... ...) (let* ... ...))) (setq org-element--cache-sync-requests = (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requ= ests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-ke= ys-value (1+ org-element--cache-sync-keys-value)))))
=C2=A0 (save-curren= t-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/=3D org= -element--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((for= mat-string (format \"Unregistered buffer modifications detected. Reset= t...\" (buffer-name ...) this-command (backtrace-to-string ...))) (for= mat-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boun= dp 'org-batch-test) org-batch-test) (error \"%s\" (concat \&q= uot;org-element--cache: \" format-string)) (warn \"%s\" (con= cat \"org-element--cache: \" format-string)))) (org-element-cache= -reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-inte= rrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer o= rg-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element= -cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-el= ement--cache-sync-requests (progn (if ... ...))) (while org-element--cache-= sync-requests (setq request (car org-element--cache-sync-requests) next (nt= h 1 org-element--cache-sync-requests)) (org-element--cache-process-request = request (if next ...) threshold (if threshold nil time-limit) future-change= ) (setq request (car org-element--cache-sync-requests) next (nth 1 org-elem= ent--cache-sync-requests)) (if next (progn ... ... ...)) (setq org-element-= -cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-ele= ment--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-e= lement--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))<= br>=C2=A0 (progn (save-current-buffer (set-buffer (or (buffer-base-buffer b= uffer) buffer)) (if (/=3D org-element--cache-change-tic (buffer-chars-modif= ied-tick)) (progn (let* ((format-string (format \"Unregistered buffer = modifications detected. Resett...\" ... this-command ...)) (format-str= ing (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (err= or \"%s\" (concat \"org-element--cache: \" format-strin= g)) (warn \"%s\" (concat \"org-element--cache: \" forma= t-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next= ) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sy= nc-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-= limit (time-add nil org-element-cache-sync-duration))) (catch 'org-elem= ent--cache-interrupt (if org-element--cache-sync-requests (progn ...)) (whi= le org-element--cache-sync-requests (setq request ... next ...) (org-elemen= t--cache-process-request request ... threshold ... future-change) (setq req= uest ... next ...) (if next ...) (setq org-element--cache-sync-requests ...= )))) (if org-element--cache-sync-requests (org-element--cache-set-timer buf= fer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-k= eys-value)))))))
=C2=A0 (if (buffer-live-p buffer) (progn (save-current-= buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (/=3D org-e= lement--cache-change-tic (buffer-chars-modified-tick)) (progn (let* ((forma= t-string ...) (format-string ...)) (if (and ... org-batch-test) (error \&qu= ot;%s\" ...) (warn \"%s\" ...))) (org-element-cache-reset)) = (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g= -count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-elemen= t--cache-sync-timer))) (let ((time-limit ...)) (catch 'org-element--cac= he-interrupt (if org-element--cache-sync-requests ...) (while org-element--= cache-sync-requests ... ... ... ... ...))) (if org-element--cache-sync-requ= ests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-ke= ys-value (1+ org-element--cache-sync-keys-value))))))))
=C2=A0 org-eleme= nt--cache-sync(#<buffer *Ox-hugo Pre-processed bugfix.org *> #<marker at 141 in *Ox-hugo = Pre-processed bugfix.org *>)
=C2=A0 (if cached-only nil (org-element--cache-sync (current-bu= ffer) pom))
=C2=A0 (if (not org-element--cache) (org-element-cache-reset= ) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))
= =C2=A0 (progn (if (not org-element--cache) (org-element-cache-reset) (if ca= ched-only nil (org-element--cache-sync (current-buffer) pom))))
=C2=A0 (= if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-e= lement-cache-reset) (if cached-only nil (org-element--cache-sync (current-b= uffer) pom)))))
=C2=A0 (let (element) (if (org-element--cache-active-p) = (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-on= ly nil (org-element--cache-sync (current-buffer) pom))))) (setq element (if= cached-only (and (org-element--cache-active-p) (or (not org-element--cache= -sync-requests) (org-element--cache-key-less-p pom (aref (car org-element--= cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-case er= r (org-element--parse-to pom) (error (let* ((format-string ...) (format-str= ing ...)) (if (and ... org-batch-test) (error \"%s\" ...) (warn \= "%s\" ...))) (org-element-cache-reset) (org-element--parse-to pom= ))))) (if (and (org-element--cache-active-p) element (org-element--cache-ve= rify-element element)) (progn (setq element (org-element--parse-to pom)))) = (if (eq 'org-data (org-element-type element)) nil (if (and cached-only = (not (and element (or (=3D pom ...) (and ... ... ...) (and ... ... ...) (an= d ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type ele= ment) 'section)) element (org-element-at-point (1+ pom) cached-only))))= )
=C2=A0 org-element-at-point(#<marker at 141 in *Ox-hugo Pre-process= ed bugfix.org *>)=C2=A0 (save-restriction (if narrow nil (widen)) (org-element-at-point to-= pos) (let* ((start (and from-pos (progn (goto-char from-pos) (org-element-p= roperty :begin (progn ... ...))))) (prev after-element) (node (if (memq gra= nularity '(headline headline+inlinetask)) (org-element--headline-cache-= root) (org-element--cache-root))) data (stack (list nil)) (leftp t) result = (last-match t) continue-flag (func (if (or (byte-code-function-p func) (and= (symbolp func) (subrp ...)) (and (symbolp func) (fboundp ...) (native-comp= -available-p) (fboundp ...) (subr-native-elisp-p ...)) (version< emacs-v= ersion \"29\")) func (let ((warning-minimum-log-level :error) (in= hibit-message t)) (condition-case nil (if ... ... ...) (error func))))) (ne= xt-element-re (let* ((pcase-0 #'...)) (cond ((eq granularity ...) (func= all pcase-0)) ((eq ... restrict-elements) (funcall pcase-0)) ((eq granulari= ty ...) (cons ... ...)) (t nil)))) (next-re (if (and next-re (string=3D nex= t-re (or ... next-element-re))) nil next-re)) (fail-re (if (and fail-re (st= ring=3D fail-re (or ... next-element-re))) nil fail-re)) (restrict-elements= (or restrict-elements (cond ((eq granularity ...) '...) ((eq granulari= ty ...) '...) ((eq granularity ...) org-element-greater-elements) (t ni= l)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match 0= ) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let (= (save-match-data-internal (match-data))) (unwind-protect (progn (if (or (no= t next-element-re) (re-search-forward ... nil ...)) (if (or ... ...) nil (i= f ... ... ...) (if ... ...)) (setq continue-flag t node nil))) (set-match-d= ata save-match-data-internal 'evaporate))) (if (and start (>=3D star= t to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cach= e-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq g= ranularity 'element) (or next-re fail-re))) nil (let ((org-element-cach= e-map--recurse t)) (org-element-cache-map #'ignore :granularity granula= rity) (setq node (if (memq granularity ...) (org-element--headline-cache-ro= ot) (org-element--cache-root)))) (let* ((p (if ... ... ...)) (v org-element= --cache-change-tic)) (progn (if p (setcdr p v) (setq org-element--cache-gap= less ...)) v))) (while node (setq data (progn (progn (aref node 2)))) (if (= and leftp (progn (progn ...)) (or (not prev) (not ...)) (or (not start) (no= t ...))) (progn (setq stack (cons node stack)) (setq node (progn ...))) (if= (or (and start ...) (and prev ...)) nil (if (or ... ...) (let ... ... ...)= (if ... ...) (if node ...))) (if continue-flag (setq continue-flag nil) (s= etq node (if ... ... ...)))))) (if (and org-element--cache-map-statistics (= or (not org-element--cache-map-statistics-threshold) (> (- (float-time) = time) org-element--cache-map-statistics-threshold))) (progn (message \"= ;Mapped over elements in %S. %d/%d predicate matche...\" (current-buff= er) count-predicate-calls-match (+ count-predicate-calls-match count-predic= ate-calls-fail) (- (float-time) time) predicate-time (if (=3D 0 (+ count-pr= edicate-calls-match count-predicate-calls-fail)) 0 (/ predicate-time (+ cou= nt-predicate-calls-match count-predicate-calls-fail))) granularity restrict= -elements next-re fail-re from-pos to-pos limit-count after-element))) (nre= verse result)))
=C2=A0 (save-excursion (save-restriction (if narrow nil = (widen)) (org-element-at-point to-pos) (let* ((start (and from-pos (progn (= goto-char from-pos) (org-element-property :begin ...)))) (prev after-elemen= t) (node (if (memq granularity '...) (org-element--headline-cache-root)= (org-element--cache-root))) data (stack (list nil)) (leftp t) result (last= -match t) continue-flag (func (if (or (byte-code-function-p func) (and ... = ...) (and ... ... ... ... ...) (version< emacs-version \"29\")= ) func (let (... ...) (condition-case nil ... ...)))) (next-element-re (let= * ((pcase-0 ...)) (cond (... ...) (... ...) (... ...) (t nil)))) (next-re (= if (and next-re (string=3D next-re ...)) nil next-re)) (fail-re (if (and fa= il-re (string=3D fail-re ...)) nil fail-re)) (restrict-elements (or restric= t-elements (cond (... ...) (... ...) (... org-element-greater-elements) (t = nil)))) (time (float-time)) (predicate-time 0) (count-predicate-calls-match= 0) (count-predicate-calls-fail 0)) (goto-char (or start (point-min))) (let= ((save-match-data-internal (match-data))) (unwind-protect (progn (if (or .= .. ...) (if ... nil ... ...) (setq continue-flag t node nil))) (set-match-d= ata save-match-data-internal 'evaporate))) (if (and start (>=3D star= t to-pos)) nil (if (or org-element-cache-map--recurse (eq org-element--cach= e-change-tic (alist-get granularity org-element--cache-gapless)) (and (eq g= ranularity ...) (or next-re fail-re))) nil (let ((org-element-cache-map--re= curse t)) (org-element-cache-map #'ignore :granularity granularity) (se= tq node (if ... ... ...))) (let* ((p ...) (v org-element--cache-change-tic)= ) (progn (if p ... ...) v))) (while node (setq data (progn (progn ...))) (i= f (and leftp (progn ...) (or ... ...) (or ... ...)) (progn (setq stack ...)= (setq node ...)) (if (or ... ...) nil (if ... ... ... ...)) (if continue-f= lag (setq continue-flag nil) (setq node ...))))) (if (and org-element--cach= e-map-statistics (or (not org-element--cache-map-statistics-threshold) (>= ; (- ... time) org-element--cache-map-statistics-threshold))) (progn (messa= ge \"Mapped over elements in %S. %d/%d predicate matche...\" (cur= rent-buffer) count-predicate-calls-match (+ count-predicate-calls-match cou= nt-predicate-calls-fail) (- (float-time) time) predicate-time (if (=3D 0 ..= .) 0 (/ predicate-time ...)) granularity restrict-elements next-re fail-re = from-pos to-pos limit-count after-element))) (nreverse result))))
=C2=A0= (let ((gc-cons-threshold 1073741824)) (save-excursion (save-restriction (i= f narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and from= -pos (progn ... ...))) (prev after-element) (node (if (memq granularity ...= ) (org-element--headline-cache-root) (org-element--cache-root))) data (stac= k (list nil)) (leftp t) result (last-match t) continue-flag (func (if (or .= .. ... ... ...) func (let ... ...))) (next-element-re (let* (...) (cond ...= ... ... ...))) (next-re (if (and next-re ...) nil next-re)) (fail-re (if (= and fail-re ...) nil fail-re)) (restrict-elements (or restrict-elements (co= nd ... ... ... ...))) (time (float-time)) (predicate-time 0) (count-predica= te-calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (poi= nt-min))) (let ((save-match-data-internal (match-data))) (unwind-protect (p= rogn (if ... ... ...)) (set-match-data save-match-data-internal 'evapor= ate))) (if (and start (>=3D start to-pos)) nil (if (or org-element-cache= -map--recurse (eq org-element--cache-change-tic ...) (and ... ...)) nil (le= t (...) (org-element-cache-map ... :granularity granularity) (setq node ...= )) (let* (... ...) (progn ... v))) (while node (setq data (progn ...)) (if = (and leftp ... ... ...) (progn ... ...) (if ... nil ...) (if continue-flag = ... ...)))) (if (and org-element--cache-map-statistics (or (not org-element= --cache-map-statistics-threshold) (> ... org-element--cache-map-statisti= cs-threshold))) (progn (message \"Mapped over elements in %S. %d/%d pr= edicate matche...\" (current-buffer) count-predicate-calls-match (+ co= unt-predicate-calls-match count-predicate-calls-fail) (- ... time) predicat= e-time (if ... 0 ...) granularity restrict-elements next-re fail-re from-po= s to-pos limit-count after-element))) (nreverse result)))))
=C2=A0 (prog= n (if (org-element--cache-active-p) nil (error \"Cache must be active.= \")) (if (memq granularity '(headline headline+inlinetask greater-= element element)) nil (error \"Unsupported granularity: %S\" gran= ularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk= to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-exc= ursion (save-restriction (if narrow nil (widen)) (org-element-at-point to-p= os) (let* ((start (and from-pos ...)) (prev after-element) (node (if ... ..= . ...)) data (stack (list nil)) (leftp t) result (last-match t) continue-fl= ag (func (if ... func ...)) (next-element-re (let* ... ...)) (next-re (if .= .. nil next-re)) (fail-re (if ... nil fail-re)) (restrict-elements (or rest= rict-elements ...)) (time (float-time)) (predicate-time 0) (count-predicate= -calls-match 0) (count-predicate-calls-fail 0)) (goto-char (or start (point= -min))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (= set-match-data save-match-data-internal ...))) (if (and start (>=3D star= t to-pos)) nil (if (or org-element-cache-map--recurse ... ...) nil (let ...= ... ...) (let* ... ...)) (while node (setq data ...) (if ... ... ... ...))= ) (if (and org-element--cache-map-statistics (or ... ...)) (progn (message = \"Mapped over elements in %S. %d/%d predicate matche...\" ... cou= nt-predicate-calls-match ... ... predicate-time ... granularity restrict-el= ements next-re fail-re from-pos to-pos limit-count after-element))) (nrever= se result))))))
=C2=A0 (progn (let ((--cl-keys-- --cl-rest--)) (while --= cl-keys-- (cond ((memq (car --cl-keys--) '(:granularity :restrict-eleme= nts :next-re :fail-re :from-pos :to-pos :after-element :limit-count :narrow= :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr= (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error \"Keyword = argument %s not one of (:granularity :rest...\" (car --cl-keys--))))))= (progn (if (org-element--cache-active-p) nil (error \"Cache must be a= ctive.\")) (if (memq granularity '(headline headline+inlinetask gr= eater-element element)) nil (error \"Unsupported granularity: %S\"= ; granularity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-mar= ker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (sa= ve-excursion (save-restriction (if narrow nil (widen)) (org-element-at-poin= t to-pos) (let* ((start ...) (prev after-element) (node ...) data (stack ..= .) (leftp t) result (last-match t) continue-flag (func ...) (next-element-r= e ...) (next-re ...) (fail-re ...) (restrict-elements ...) (time ...) (pred= icate-time 0) (count-predicate-calls-match 0) (count-predicate-calls-fail 0= )) (goto-char (or start ...)) (let (...) (unwind-protect ... ...)) (if (and= start ...) nil (if ... nil ... ...) (while node ... ...)) (if (and org-ele= ment--cache-map-statistics ...) (progn ...)) (nreverse result)))))))
=C2= =A0 (let* ((granularity (car (cdr (or (plist-member --cl-rest-- ':granu= larity) '(nil headline+inlinetask))))) (restrict-elements (car (cdr (pl= ist-member --cl-rest-- ':restrict-elements)))) (next-re (car (cdr (plis= t-member --cl-rest-- ':next-re)))) (fail-re (car (cdr (plist-member --c= l-rest-- ':fail-re)))) (from-pos (car (cdr (plist-member --cl-rest-- &#= 39;:from-pos)))) (to-pos (car (cdr (or (plist-member --cl-rest-- ':to-p= os) (list nil (point-max-marker)))))) (after-element (car (cdr (plist-membe= r --cl-rest-- ':after-element)))) (limit-count (car (cdr (plist-member = --cl-rest-- ':limit-count)))) (narrow (car (cdr (plist-member --cl-rest= -- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-ke= ys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...)))= ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error \"Keyword argument= %s not one of (:granularity :rest...\" (car --cl-keys--)))))) (progn = (if (org-element--cache-active-p) nil (error \"Cache must be active.\&= quot;)) (if (memq granularity '(headline headline+inlinetask greater-el= ement element)) nil (error \"Unsupported granularity: %S\" granul= arity)) (if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk t= o-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824)) (save-excur= sion (save-restriction (if narrow nil (widen)) (org-element-at-point to-pos= ) (let* (... ... ... data ... ... result ... continue-flag ... ... ... ... = ... ... ... ... ...) (goto-char ...) (let ... ...) (if ... nil ... ...) (if= ... ...) (nreverse result))))))))
=C2=A0 org-element-cache-map((closure= ((fast-re . \"^\\\\*+ \") (ts-date-pair) (ts-date-type) (ts-date= ) (priority) (entry) (marker) (todo) (txt) (i) (category) (level) (rtn1) (r= tn) (llast . 0) (tags-alist (0)) (tags-list) (tags) (lspos) (props face def= ault done-face org-agenda-done undone-face default mouse-face highlight org= -not-done-regexp \"\\\\(TODO\\\\)\" org-todo-regexp \"\\\\(D= ONE\\\\|TODO\\\\)\" org-complex-heading-regexp \"^\\\\(\\\\*+\\\\= )\\\\(?: +\\\\(DONE\\\\|TODO\\\\)\\\\)?\\\\(?: +\\\\(\\\\[#.\\\\]\\\\)\\\\)= ?...\" help-echo \"mouse-2 or RET jump to Org file \\\"~/bugfix.org\\\"\"= ) (re . \"^\\\\*+ =C2=A0*\\\\(\\\\<\\\\(DONE\\\\|TODO\\\\)\\\\>\= \\\)? *\\\\(.*?\\\\)\\\\([ \\11]:\\\\(?:...\") (start-level) (todo-onl= y) (matcher lambda (todo tags-list level) (progn (setq org-cached-props nil= ) (or (and (org-string<> ... \"\"))))) (action . #f(compile= d-function () #<bytecode 0x157433e69025>)) org-agenda-archives-mode o= rg-end-time-was-given org-time-was-given org-blocked-by-checkboxes org-stat= e org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-age= nda-start-on-weekday org-agenda-buffer-tmp-name buffer-face-mode-face org-s= truct-menu org-last-state org-clock-start-time texmathp-why remember-data-f= ile org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-em= bedded-open-mode calc-embedded-open-formula calc-embedded-close-formula ali= gn-mode-rules-list org-export-registered-backends crm-separator org-indent-= indentation-per-level org-agenda-buffer-name ...) (el) (goto-char (org-elem= ent-property :begin el)) (setq todo (org-element-property :todo-keyword el)= level (org-element-property :level el) category (org-entry-get-with-inheri= tance \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanne= r-tags tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair (or= g-agenda-entry-get-agenda-timestamp (point)) ts-date (car ts-date-pair) ts-= date-type (cdr ts-date-pair)))) (catch :skip (if (and (and (or (not todo-on= ly) (member todo org-todo-keywords-1)) (if (functionp matcher) (let ... ...= ) matcher)) (progn (if (eq action ...) nil (org-agenda-skip el)) t) (or (no= t todo-only) (and (member todo org-todo-keywords-1) (or ... ...)))) (progn = (cond ((eq action ...) (and org-highlight-sparse-tree-matches ... ... ...) = (org-show-context ...)) ((eq action ...) (let* ... ... ...) (goto-char ...)= (setq marker ...) (org-add-props txt props ... marker ... marker ... categ= ory ... todo ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp = action) (setq org-map-continue-from nil) (save-excursion ... ...)) (t (user= -error \"Invalid action\"))) (if org-tags-match-list-sublevels ni= l (goto-char (1- ...)))))) (if org-map-continue-from (progn (goto-char org-= map-continue-from))) nil) :next-re \"^\\\\*+ \" :fail-re \"^= \\\\*+ \" :narrow t)
=C2=A0 (let ((fast-re (concat \"^\" = (if start-level (concat \"\\\\*\\\\{\" (number-to-string start-le= vel) \"\\\\} \") org-outline-regexp)))) (org-element-cache-map #&= #39;(lambda (el) (goto-char (org-element-property :begin el)) (setq todo (o= rg-element-property :todo-keyword el) level (org-element-property :level el= ) category (org-entry-get-with-inheritance \"CATEGORY\" nil el) t= ags-list (org-get-tags el) org-scanner-tags tags-list) (if (eq action '= agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-timestamp ..= .) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)))) (catch :sk= ip (if (and (and ... ...) (progn ... t) (or ... ...)) (progn (cond ... ... = ... ...) (if org-tags-match-list-sublevels nil ...)))) (if org-map-continue= -from (progn (goto-char org-map-continue-from))) nil) :next-re fast-re :fai= l-re fast-re :narrow t))
=C2=A0 (if (org-element--cache-active-p) (let (= (fast-re (concat \"^\" (if start-level (concat \"\\\\*\\\\{\= " (number-to-string start-level) \"\\\\} \") org-outline-reg= exp)))) (org-element-cache-map #'(lambda (el) (goto-char (org-element-p= roperty :begin el)) (setq todo (org-element-property :todo-keyword el) leve= l (org-element-property :level el) category (org-entry-get-with-inheritance= \"CATEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tag= s tags-list) (if (eq action 'agenda) (progn (setq ts-date-pair ... ts-d= ate ... ts-date-type ...))) (catch :skip (if (and ... ... ...) (progn ... .= ..))) (if org-map-continue-from (progn (goto-char org-map-continue-from))) = nil) :next-re fast-re :fail-re fast-re :narrow t)) (while (let (case-fold-s= earch) (re-search-forward re nil t)) (setq org-map-continue-from nil) (catc= h :skip (if (and (fboundp 'org-inlinetask-end-p) (org-inlinetask-end-p)= ) (progn (throw :skip t))) (setq todo (and (match-end 1) (match-string-no-p= roperties 1))) (setq tags (and (match-end 4) (org-trim (match-string-no-pro= perties 4)))) (goto-char (setq lspos (match-beginning 0))) (setq level (org= -reduced-level (org-outline-level)) category (org-get-category)) (if (eq ac= tion 'agenda) (progn (setq ts-date-pair (org-agenda-entry-get-agenda-ti= mestamp (point)) ts-date (car ts-date-pair) ts-date-type (cdr ts-date-pair)= ))) (setq i llast llast level) (while (>=3D i level) (if (setq entry (as= soc i tags-alist)) (progn (setq tags-alist (delete entry tags-alist)))) (se= tq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\&q= uot;) tags-alist (cons (cons level tags) tags-alist)))) (setq tags-list (if= org-use-tag-inheritance (apply 'append (mapcar 'cdr (reverse tags-= alist))) tags) org-scanner-tags tags-list) (if org-use-tag-inheritance (pro= gn (setcdr (car tags-alist) (mapcar #'... (cdr ...))))) (if (and tags o= rg-use-tag-inheritance (or (not (eq t org-use-tag-inheritance)) org-tags-ex= clude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninhe= rited-tags (cdr ...))))) (if (and (and (or (not todo-only) (member todo org= -todo-keywords-1)) (if (functionp matcher) (let ... ...) matcher)) (progn (= if (eq action ...) nil (org-agenda-skip)) t) (or (not todo-only) (and (memb= er todo org-todo-keywords-1) (or ... ...)))) (progn (cond ((eq action ...) = (and org-highlight-sparse-tree-matches ... ... ...) (org-show-context ...))= ((eq action ...) (setq txt ... priority ...) (goto-char lspos) (setq marke= r ...) (org-add-props txt props ... marker ... marker ... category ... todo= ... ts-date ... priority ... ...) (setq rtn ...)) ((functionp action) (set= q org-map-continue-from nil) (save-excursion ... ...)) (t (user-error \&quo= t;Invalid action\"))) (if org-tags-match-list-sublevels nil (org-end-o= f-subtree t) (backward-char 1))))) (if org-map-continue-from (goto-char org= -map-continue-from) (and (=3D (point) lspos) (end-of-line 1)))))
=C2=A0 = (save-excursion (goto-char (point-min)) (if (eq action 'sparse-tree) (p= rogn (org-overview) (org-remove-occur-highlights))) (if (org-element--cache= -active-p) (let ((fast-re (concat \"^\" (if start-level (concat \= "\\\\*\\\\{\" ... \"\\\\} \") org-outline-regexp)))) (o= rg-element-cache-map #'(lambda (el) (goto-char (org-element-property :b= egin el)) (setq todo (org-element-property :todo-keyword el) level (org-ele= ment-property :level el) category (org-entry-get-with-inheritance \"CA= TEGORY\" nil el) tags-list (org-get-tags el) org-scanner-tags tags-lis= t) (if (eq action ...) (progn ...)) (catch :skip (if ... ...)) (if org-map-= continue-from (progn ...)) nil) :next-re fast-re :fail-re fast-re :narrow t= )) (while (let (case-fold-search) (re-search-forward re nil t)) (setq org-m= ap-continue-from nil) (catch :skip (if (and (fboundp 'org-inlinetask-en= d-p) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (matc= h-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (or= g-trim (match-string-no-properties 4)))) (goto-char (setq lspos (match-begi= nning 0))) (setq level (org-reduced-level (org-outline-level)) category (or= g-get-category)) (if (eq action 'agenda) (progn (setq ts-date-pair (org= -agenda-entry-get-agenda-timestamp ...) ts-date (car ts-date-pair) ts-date-= type (cdr ts-date-pair)))) (setq i llast llast level) (while (>=3D i lev= el) (if (setq entry (assoc i tags-alist)) (progn (setq tags-alist ...))) (s= etq i (1- i))) (if tags (progn (setq tags (org-split-string tags \":\&= quot;) tags-alist (cons ... tags-alist)))) (setq tags-list (if org-use-tag-= inheritance (apply 'append (mapcar ... ...)) tags) org-scanner-tags tag= s-list) (if org-use-tag-inheritance (progn (setcdr (car tags-alist) (mapcar= ... ...)))) (if (and tags org-use-tag-inheritance (or (not ...) org-tags-e= xclude-from-inheritance)) (progn (setcdr (car tags-alist) (org-remove-uninh= erited-tags ...)))) (if (and (and (or ... ...) (if ... ... matcher)) (progn= (if ... nil ...) t) (or (not todo-only) (and ... ...))) (progn (cond (... = ... ...) (... ... ... ... ... ...) (... ... ...) (t ...)) (if org-tags-matc= h-list-sublevels nil (org-end-of-subtree t) (backward-char 1))))) (if org-m= ap-continue-from (goto-char org-map-continue-from) (and (=3D (point) lspos)= (end-of-line 1))))))
=C2=A0 (let* ((re (concat \"^\" (if star= t-level (concat \"\\\\*\\\\{\" (number-to-string start-level) \&q= uot;\\\\} \") org-outline-regexp) \" *\\\\(\" (regexp-opt or= g-todo-keywords-1 'words) \"\\\\)?\" \" *\\\\(.*?\\\\)\\= \\([ \\11]:\\\\(?:\" org-tag-re \":\\\\)+\\\\)?[ \\11]*$\"))= (props (list 'face 'default 'done-face 'org-agenda-done &#= 39;undone-face 'default 'mouse-face 'highlight 'org-not-don= e-regexp org-not-done-regexp 'org-todo-regexp org-todo-regexp 'org-= complex-heading-regexp org-complex-heading-regexp 'help-echo (format \&= quot;mouse-2 or RET jump to Org file %S\" (abbreviate-file-name (or (b= uffer-file-name ...) (buffer-name ...)))))) (org-map-continue-from nil) lsp= os tags tags-list (tags-alist (list (cons 0 org-file-tags))) (llast 0) rtn = rtn1 level category i txt todo marker entry priority ts-date ts-date-type t= s-date-pair) (if (or (member action '(agenda sparse-tree)) (functionp a= ction)) nil (setq action (list 'lambda nil action))) (save-excursion (g= oto-char (point-min)) (if (eq action 'sparse-tree) (progn (org-overview= ) (org-remove-occur-highlights))) (if (org-element--cache-active-p) (let ((= fast-re (concat \"^\" (if start-level ... org-outline-regexp)))) = (org-element-cache-map #'(lambda (el) (goto-char ...) (setq todo ... le= vel ... category ... tags-list ... org-scanner-tags tags-list) (if ... ...)= (catch :skip ...) (if org-map-continue-from ...) nil) :next-re fast-re :fa= il-re fast-re :narrow t)) (while (let (case-fold-search) (re-search-forward= re nil t)) (setq org-map-continue-from nil) (catch :skip (if (and (fboundp= ...) (org-inlinetask-end-p)) (progn (throw :skip t))) (setq todo (and (mat= ch-end 1) (match-string-no-properties 1))) (setq tags (and (match-end 4) (o= rg-trim ...))) (goto-char (setq lspos (match-beginning 0))) (setq level (or= g-reduced-level (org-outline-level)) category (org-get-category)) (if (eq a= ction 'agenda) (progn (setq ts-date-pair ... ts-date ... ts-date-type .= ..))) (setq i llast llast level) (while (>=3D i level) (if (setq entry .= ..) (progn ...)) (setq i (1- i))) (if tags (progn (setq tags ... tags-alist= ...))) (setq tags-list (if org-use-tag-inheritance (apply ... ...) tags) o= rg-scanner-tags tags-list) (if org-use-tag-inheritance (progn (setcdr ... .= ..))) (if (and tags org-use-tag-inheritance (or ... org-tags-exclude-from-i= nheritance)) (progn (setcdr ... ...))) (if (and (and ... ...) (progn ... t)= (or ... ...)) (progn (cond ... ... ... ...) (if org-tags-match-list-sublev= els nil ... ...)))) (if org-map-continue-from (goto-char org-map-continue-f= rom) (and (=3D (point) lspos) (end-of-line 1)))))) (if (and (eq action '= ;sparse-tree) (not org-sparse-tree-open-archived-trees)) (progn (org-hide-a= rchived-subtrees (point-min) (point-max)))) (nreverse rtn))
=C2=A0 org-s= can-tags(#f(compiled-function () #<bytecode 0x157433e69025>) (lambda = (todo tags-list level) (progn (setq org-cached-props nil) (or (and (org-str= ing<> (or (org-cached-entry-get nil \"EXPORT_FILE_NAME\") \= "\") \"\"))))) nil nil)
=C2=A0 (setq res (org-scan-t= ags func matcher org--matcher-tags-todo-only start-level))
=C2=A0 (progn= (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name))= ) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start-l= evel)))
=C2=A0 (if (not scope) (progn (org-agenda-prepare-buffers (and b= uffer-file-name (list buffer-file-name))) (setq res (org-scan-tags func mat= cher org--matcher-tags-todo-only start-level))) (cond ((and scope (listp sc= ope) (symbolp (car scope))) (setq scope (eval scope))) ((eq scope 'agen= da) (setq scope (org-agenda-files t))) ((eq scope 'agenda-with-archives= ) (setq scope (org-agenda-files t)) (setq scope (org-add-archive-files scop= e))) ((eq scope 'file) (setq scope (and buffer-file-name (list buffer-f= ile-name)))) ((eq scope 'file-with-archives) (setq scope (org-add-archi= ve-files (list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (= let ((--dolist-tail-- scope)) (while --dolist-tail-- (let ((file (car --dol= ist-tail--))) (save-current-buffer (set-buffer (org-find-base-buffer-visiti= ng file)) (save-excursion (save-restriction (widen) (goto-char ...) (setq r= es ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
=C2=A0 (save= -restriction (cond ((eq scope 'tree) (org-back-to-heading t) (org-narro= w-to-subtree) (setq scope nil)) ((and (or (eq scope 'region) (eq scope = 'region-start-level)) (org-region-active-p)) (if start-level (progn (sa= ve-excursion (goto-char (region-beginning)) (if (org-at-heading-p) nil (out= line-next-heading)) (setq start-level (org-current-level))))) (narrow-to-re= gion (region-beginning) (save-excursion (goto-char (region-end)) (if (and (= bolp) (org-at-heading-p)) nil (outline-next-heading)) (point))) (setq scope= nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buffer-file= -name (list buffer-file-name))) (setq res (org-scan-tags func matcher org--= matcher-tags-todo-only start-level))) (cond ((and scope (listp scope) (symb= olp (car scope))) (setq scope (eval scope))) ((eq scope 'agenda) (setq = scope (org-agenda-files t))) ((eq scope 'agenda-with-archives) (setq sc= ope (org-agenda-files t)) (setq scope (org-add-archive-files scope))) ((eq = scope 'file) (setq scope (and buffer-file-name (list buffer-file-name))= )) ((eq scope 'file-with-archives) (setq scope (org-add-archive-files (= list (buffer-file-name)))))) (org-agenda-prepare-buffers scope) (let ((--do= list-tail-- scope)) (while --dolist-tail-- (let ((file (car --dolist-tail--= ))) (save-current-buffer (set-buffer (org-find-base-buffer-visiting file)) = (save-excursion (save-restriction ... ... ...))) (setq --dolist-tail-- (cdr= --dolist-tail--)))))))
=C2=A0 (save-excursion (save-restriction (cond (= (eq scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq = scope nil)) ((and (or (eq scope 'region) (eq scope 'region-start-le= vel)) (org-region-active-p)) (if start-level (progn (save-excursion (goto-c= har ...) (if ... nil ...) (setq start-level ...)))) (narrow-to-region (regi= on-beginning) (save-excursion (goto-char (region-end)) (if (and ... ...) ni= l (outline-next-heading)) (point))) (setq scope nil))) (if (not scope) (pro= gn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-file-name= ))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-only start= -level))) (cond ((and scope (listp scope) (symbolp (car scope))) (setq scop= e (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t)))= ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (s= etq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope= (and buffer-file-name (list buffer-file-name)))) ((eq scope 'file-with= -archives) (setq scope (org-add-archive-files (list ...))))) (org-agenda-pr= epare-buffers scope) (let ((--dolist-tail-- scope)) (while --dolist-tail-- = (let ((file ...)) (save-current-buffer (set-buffer ...) (save-excursion ...= )) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
=C2=A0 (let* ((org= -agenda-archives-mode nil) (org-agenda-skip-archived-trees (memq 'archi= ve skip)) (org-agenda-skip-comment-trees (memq 'comment skip)) (org-age= nda-skip-function (car (org-delete-all '(comment archive) skip))) (org-= tags-match-list-sublevels t) (start-level (eq scope 'region-start-level= )) matcher res org-todo-keywords-for-agenda org-done-keywords-for-agenda or= g-todo-keyword-alist-for-agenda org-tag-alist-for-agenda org--matcher-tags-= todo-only) (cond ((eq match t) (setq matcher t)) ((eq match nil) (setq matc= her t)) (t (setq matcher (if match (cdr (org-make-tags-matcher match)) t)))= ) (save-excursion (save-restriction (cond ((eq scope 'tree) (org-back-t= o-heading t) (org-narrow-to-subtree) (setq scope nil)) ((and (or (eq scope = ...) (eq scope ...)) (org-region-active-p)) (if start-level (progn (save-ex= cursion ... ... ...))) (narrow-to-region (region-beginning) (save-excursion= (goto-char ...) (if ... nil ...) (point))) (setq scope nil))) (if (not sco= pe) (progn (org-agenda-prepare-buffers (and buffer-file-name (list buffer-f= ile-name))) (setq res (org-scan-tags func matcher org--matcher-tags-todo-on= ly start-level))) (cond ((and scope (listp scope) (symbolp ...)) (setq scop= e (eval scope))) ((eq scope 'agenda) (setq scope (org-agenda-files t)))= ((eq scope 'agenda-with-archives) (setq scope (org-agenda-files t)) (s= etq scope (org-add-archive-files scope))) ((eq scope 'file) (setq scope= (and buffer-file-name ...))) ((eq scope 'file-with-archives) (setq sco= pe (org-add-archive-files ...)))) (org-agenda-prepare-buffers scope) (let (= (--dolist-tail-- scope)) (while --dolist-tail-- (let (...) (save-current-bu= ffer ... ...) (setq --dolist-tail-- ...))))))) res)
=C2=A0 (if (and (or = (eq scope 'region) (eq scope 'region-start-level)) (not (org-region= -active-p))) nil (let* ((org-agenda-archives-mode nil) (org-agenda-skip-arc= hived-trees (memq 'archive skip)) (org-agenda-skip-comment-trees (memq = 'comment skip)) (org-agenda-skip-function (car (org-delete-all '(co= mment archive) skip))) (org-tags-match-list-sublevels t) (start-level (eq s= cope 'region-start-level)) matcher res org-todo-keywords-for-agenda org= -done-keywords-for-agenda org-todo-keyword-alist-for-agenda org-tag-alist-f= or-agenda org--matcher-tags-todo-only) (cond ((eq match t) (setq matcher t)= ) ((eq match nil) (setq matcher t)) (t (setq matcher (if match (cdr (org-ma= ke-tags-matcher match)) t)))) (save-excursion (save-restriction (cond ((eq = scope 'tree) (org-back-to-heading t) (org-narrow-to-subtree) (setq scop= e nil)) ((and (or ... ...) (org-region-active-p)) (if start-level (progn ..= .)) (narrow-to-region (region-beginning) (save-excursion ... ... ...)) (set= q scope nil))) (if (not scope) (progn (org-agenda-prepare-buffers (and buff= er-file-name ...)) (setq res (org-scan-tags func matcher org--matcher-tags-= todo-only start-level))) (cond ((and scope ... ...) (setq scope ...)) ((eq = scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...) (setq scope .= ..)) ((eq scope ...) (setq scope ...)) ((eq scope ...) (setq scope ...))) (= org-agenda-prepare-buffers scope) (let ((--dolist-tail-- scope)) (while --d= olist-tail-- (let ... ... ...)))))) res))
=C2=A0 org-map-entries(#f(comp= iled-function () #<bytecode 0x157433e69025>) \"EXPORT_FILE_NAME&= lt;>\\\"\\\"\")
=C2=A0 org-hugo-export-wim-to-md(:all-= subtrees nil nil)
=C2=A0 (lambda (a _s v _b) (org-hugo-export-wim-to-md = :all-subtrees a v))(nil nil nil nil)
=C2=A0 org-export-dispatch(nil)
= =C2=A0 funcall-interactively(org-export-dispatch nil)
=C2=A0 call-intera= ctively(org-export-dispatch nil nil)
=C2=A0 command-execute(org-export-d= ispatch)


Emacs =C2=A0: GNU Emacs 27.2 (build 1, x86_64-pc-linux-= gnu, GTK+ Version 3.24.27, cairo version 1.17.4)
=C2=A0of 2021-03-26
= Package: Org mode version 9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/b= uild/org/)


current state:
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D
(setq
=C2=A0org-src-mode-hook '(org-src-babel-configure= -edit-buffer org-src-mode-configure-edit-buffer)
=C2=A0org-link-shell-co= nfirm-function 'yes-or-no-p
=C2=A0org-metadown-hook '(org-babel-= pop-to-session-maybe)
=C2=A0org-html-format-inlinetask-function 'org= -html-format-inlinetask-default-function
=C2=A0org-odt-format-headline-f= unction 'org-odt-format-headline-default-function
=C2=A0org-persist-= before-write-hook '(org-element--cache-persist-before-write)
=C2=A0o= rg-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-defaul= t
=C2=A0org-mode-hook '((closure
=C2=A0(org--rds reftex-docstr= uct-symbol visual-fill-column-width org-clock-history
=C2=A0 org-agen= da-current-date org-with-time org-defdecode org-def org-read-date-inactive = org-ans2
=C2=A0 org-ans1 org-columns-current-fmt-compiled org-clock-c= urrent-task org-clock-effort
=C2=A0 org-agenda-skip-function org-agen= da-skip-comment-trees org-agenda-archives-mode
=C2=A0 org-end-time-wa= s-given org-time-was-given org-blocked-by-checkboxes org-state
=C2=A0= org-agenda-headline-snapshot-before-repeat org-agenda-buffer-name org-agen= da-start-on-weekday
=C2=A0 org-agenda-buffer-tmp-name buffer-face-mod= e-face org-struct-menu org-last-state
=C2=A0 org-clock-start-time tex= mathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options
= =C2=A0 iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-f= ormula
=C2=A0 calc-embedded-close-formula align-mode-rules-list org-e= xport-registered-backends crm-separator
=C2=A0 org-indent-indentation= -per-level org-agenda-buffer-name org-inlinetask-min-level t)
=C2=A0n= il (add-hook 'change-major-mode-hook 'org-show-all 'append '= ;local))
(closure (*this* org-babel-confirm-evaluate-answer-no t) nil=
=C2=A0(add-hook 'change-major-mode-hook #'org-babel-show-res= ult-all 'append 'local))
#[0 "\300\301\302\303\304$\207&= quot; [add-hook change-major-mode-hook org-show-all append local] 5]
= #[0 "\300\301\302\303\304$\207"
=C2=A0 [add-hook change-maj= or-mode-hook org-babel-show-result-all append local] 5]
org-babel-res= ult-hide-spec org-babel-hide-all-hashes)
=C2=A0org-odt-format-drawer-fun= ction #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
= =C2=A0org-archive-hook '(org-attach-archive-delete-maybe)
=C2=A0org-= persist-before-read-hook '(org-element--cache-persist-before-read)
= =C2=A0org-confirm-elisp-link-function 'yes-or-no-p
=C2=A0org-agenda-= before-write-hook '(org-agenda-add-entry-text)
=C2=A0org-metaup-hook= '(org-babel-load-in-session-maybe)
=C2=A0org-persist-after-read-hoo= k '(org-element--cache-persist-after-read)
=C2=A0org-bibtex-headline= -format-function #[257 "\300 \236A\207" [:title] 3 "\n\n(fn = ENTRY)"]
=C2=A0org-latex-format-drawer-function #[514 "\207&qu= ot; [] 3 "\n\n(fn _ CONTENTS)"]
=C2=A0org-babel-pre-tangle-hoo= k '(save-buffer)
=C2=A0org-tab-first-hook '(org-babel-hide-resul= t-toggle-maybe org-babel-header-arg-expand)
=C2=A0org-ascii-format-drawe= r-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)&= quot;]
=C2=A0org-agenda-loop-over-headlines-in-active-region nil
=C2= =A0org-occur-hook '(org-first-headline-recenter)
=C2=A0org-export-be= fore-processing-hook '(org-blackfriday--reset-org-blackfriday--code-blo= ck-num-backticks)
=C2=A0org-cycle-hook '(org-cycle-hide-archived-sub= trees org-cycle-hide-drawers org-cycle-show-empty-lines
=C2=A0org-opt= imize-window-after-visibility-change)
=C2=A0org-speed-command-hook '= (org-speed-command-activate org-babel-speed-command-activate)
=C2=A0org-= odt-format-inlinetask-function 'org-odt-format-inlinetask-default-funct= ion
=C2=A0org-export-before-parsing-hook '(org-attach-expand-links)<= br>=C2=A0org-confirm-shell-link-function 'yes-or-no-p
=C2=A0org-link= -parameters '(("attachment" :follow org-attach-follow :comple= te org-attach-complete-link)
=C2=A0 =C2=A0 =C2=A0 ("id" :fo= llow org-id-open) ("eww" :follow org-eww-open :store org-eww-stor= e-link)
=C2=A0 =C2=A0 =C2=A0 ("rmail" :follow org-rmail-ope= n :store org-rmail-store-link)
=C2=A0 =C2=A0 =C2=A0 ("mhe" = :follow org-mhe-open :store org-mhe-store-link)
=C2=A0 =C2=A0 =C2=A0 = ("irc" :follow org-irc-visit :store org-irc-store-link :export or= g-irc-export)
=C2=A0 =C2=A0 =C2=A0 ("info" :follow org-info= -open :export org-info-export :store org-info-store-link)
=C2=A0 =C2= =A0 =C2=A0 ("gnus" :follow org-gnus-open :store org-gnus-store-li= nk)
=C2=A0 =C2=A0 =C2=A0 ("docview" :follow org-docview-ope= n :export org-docview-export :store
org-docview-store-link)
=C2= =A0 =C2=A0 =C2=A0 ("bibtex" :follow org-bibtex-open :store org-bi= btex-store-link)
=C2=A0 =C2=A0 =C2=A0 ("bbdb" :follow org-b= bdb-open :export org-bbdb-export :complete org-bbdb-complete-link
:st= ore org-bbdb-store-link)
=C2=A0 =C2=A0 =C2=A0 ("w3m" :store= org-w3m-store-link)
=C2=A0 =C2=A0 =C2=A0 ("doi" :follow or= g-link-doi-open :export org-link-doi-export) ("file+sys") ("= file+emacs")
=C2=A0 =C2=A0 =C2=A0 ("shell" :follow org= -link--open-shell)
=C2=A0 =C2=A0 =C2=A0 ("news" :follow
= #[514 "\301\300\302 Q \"\207" ["news" browse-ur= l ":"] 6 "\n\n(fn URL ARG)"])
=C2=A0 =C2=A0 =C2= =A0 ("mailto" :follow
#[514 "\301\300\302 Q \"\20= 7" ["mailto" browse-url ":"] 6 "\n\n(fn URL A= RG)"])
=C2=A0 =C2=A0 =C2=A0 ("https" :follow
#[5= 14 "\301\300\302 Q \"\207" ["https" browse-url &qu= ot;:"] 6 "\n\n(fn URL ARG)"])
=C2=A0 =C2=A0 =C2=A0 (&q= uot;http" :follow
#[514 "\301\300\302 Q \"\207" [= "http" browse-url ":"] 6 "\n\n(fn URL ARG)"])=
=C2=A0 =C2=A0 =C2=A0 ("ftp" :follow #[514 "\301\300\3= 02 Q \"\207" ["ftp" browse-url ":"] 6 "\= n\n(fn URL ARG)"])
=C2=A0 =C2=A0 =C2=A0 ("help" :follo= w org-link--open-help :store org-link--store-help)
=C2=A0 =C2=A0 =C2= =A0 ("file" :complete org-link-complete-file) ("elisp" = :follow org-link--open-elisp))
=C2=A0org-latex-format-headline-function = 'org-latex-format-headline-default-function
=C2=A0org-link-elisp-con= firm-function 'yes-or-no-p
=C2=A0org-latex-format-inlinetask-functio= n 'org-latex-format-inlinetask-default-function
=C2=A0org-html-forma= t-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)&= quot;]
=C2=A0org-html-format-headline-function 'org-html-format-head= line-default-function
=C2=A0)
=C2=A0 =C2=A0 =C2=A0 ("news&quo= t; :follow
#[514 "\301\300\302 Q \"\207" ["news&q= uot; browse-url ":"] 6 "\n\n(fn URL ARG)"])
=C2= =A0 =C2=A0 =C2=A0 ("mailto" :follow
#[514 "\301\300\30= 2 Q \"\207" ["mailto" browse-url ":"] 6 "= ;\n\n(fn URL ARG)"])
=C2=A0 =C2=A0 =C2=A0 ("https" :fo= llow
#[514 "\301\300\302 Q \"\207" ["https" = browse-url ":"] 6 "\n\n(fn URL ARG)"])
=C2=A0 =C2= =A0 =C2=A0 ("http" :follow
#[514 "\301\300\302 Q \&quo= t;\207" ["http" browse-url ":"] 6 "\n\n(fn UR= L ARG)"])
=C2=A0 =C2=A0 =C2=A0 ("ftp" :follow #[514 &q= uot;\301\300\302 Q \"\207" ["ftp" browse-url ":&qu= ot;] 6 "\n\n(fn URL ARG)"])
=C2=A0 =C2=A0 =C2=A0 ("hel= p" :follow org-link--open-help :store org-link--store-help)
=C2= =A0 =C2=A0 =C2=A0 ("file" :complete org-link-complete-file) (&quo= t;elisp" :follow org-link--open-elisp))
=C2=A0org-latex-format-head= line-function 'org-latex-format-headline-default-function
=C2=A0org-= link-elisp-confirm-function 'yes-or-no-p
=C2=A0org-latex-format-inli= netask-function 'org-latex-format-inlinetask-default-function
=C2=A0= org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn N= AME CONTENTS)"]
=C2=A0org-html-format-headline-function 'org-ht= ml-format-headline-default-function
=C2=A0)
--0000000000006239b705d038a336--