emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: John Mathena <jmmathena@gmail.com>
To: emacs-orgmode@gnu.org
Subject: [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)]
Date: Sun, 7 Nov 2021 14:22:28 -0600	[thread overview]
Message-ID: <CADywB5+yY0A0j6wGD8eM3-41OhnewDMs19x1tG77tGd8tGwFtA@mail.gmail.com> (raw)

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

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(#<buffer *Ox-hugo Pre-processed bugfix.org *>
#<marker at 141 in *Ox-hugo Pre-processed bugfix.org *>)
  (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(#<marker at 141 in *Ox-hugo Pre-processed bugfix.org
*>)
  (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 () #<bytecode
0x157433e69025>)) 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 () #<bytecode 0x157433e69025>) (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 () #<bytecode 0x157433e69025>)
\"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
 )

[-- Attachment #2: Type: text/html, Size: 51560 bytes --]

             reply	other threads:[~2021-11-07 20:30 UTC|newest]

Thread overview: 15+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-11-07 20:22 John Mathena [this message]
2021-11-08  5:59 ` Ihor Radchenko
2021-12-16  2:29   ` Kaushal Modi
2021-12-16  2:34     ` Kaushal Modi
2021-12-16  4:20       ` Ihor Radchenko
2021-12-16 14:33         ` Kaushal Modi
2021-12-16 15:18           ` Ihor Radchenko
2021-12-16 16:16             ` Kaushal Modi
2021-12-18  4:35               ` Ihor Radchenko
2021-12-18 17:43                 ` Kaushal Modi
2021-12-19  9:47                   ` Ihor Radchenko
2022-04-24  3:37                 ` Difference seen in org-version strings when built from git Kaushal Modi
2022-04-24  3:59                   ` Ihor Radchenko
2022-01-06 11:17 ` [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)] Karl Voit
2022-01-06 12:25   ` Ihor Radchenko

Reply instructions:

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

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

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

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

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

  git send-email \
    --in-reply-to=CADywB5+yY0A0j6wGD8eM3-41OhnewDMs19x1tG77tGd8tGwFtA@mail.gmail.com \
    --to=jmmathena@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --subject='Re: [BUG] org-element--cache gives "Unregistered buffer modifications" warning [9.5 (9.5-g859984 @ /home/john/.emacs.d/straight/build/org/)]' \
    /path/to/YOUR_REPLY

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

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

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

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

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