I started Emacs fresh and it threw this warning. Below is a lot of ugly
backtrace and configuration.
Warning (org-element-cache): org-element--cache: Org parser error in
l2a.org::71537. Resetting.
The error was: (search-failed "|")
Backtrace:
" backtrace-to-string(nil)
(progn (backtrace-to-string (backtrace-get-frames 'backtrace)))
(if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string))
(progn (backtrace-to-string (backtrace-get-frames 'backtrace))))
(format \"Org parser error in %s::%S. Resetting.\\n The error ...\"
(buffer-name (current-buffer)) pom err (if (and (fboundp 'backtrace-get-frames) (fboundp
'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))))
(let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\" (buffer-name (current-buffer)) pom err (if (and
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames ...)))))) (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)) (display-warning 'org-element-cache (concat
\"org-element--cache: \" format-string))))
(condition-case err (org-element--parse-to pom) (error (let* ((format-string (format \"Org parser error in %s::%S.
Resetting.\\n The error ...\" (buffer-name (current-buffer)) pom err (if (and ... ...) (progn ...)))) (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)) (display-warning 'org-element-cache (concat
\"org-element--cache: \" format-string)))) (org-element-cache-reset) (org-element--parse-to pom)))
(if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< pom (aref (car
org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find pom))) (condition-case err (org-element--parse-to
pom) (error (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The error ...\"
(buffer-name ...) pom err (if ... ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boundp
'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string))
(display-warning 'org-element-cache (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)
(org-element--parse-to pom))))
(setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
pom (aref (car org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find pom))) (condition-case err
(org-element--parse-to pom) (error (let* ((format-string (format \"Org parser error in %s::%S. Resetting.\\n The
error ...\" ... pom err ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test)
(error \"%s\" (concat \"org-element--cache: \" format-string)) (display-warning 'org-element-cache
(concat \"org-element--cache: \" format-string)))) (org-element-cache-reset) (org-element--parse-to 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 (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< pom (aref ... 1)))) (progn (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\" ...)
(display-warning ... ...))) (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 ... ... ...))))) nil (if (not (eq (org-element-type element) 'section))
element (org-element-at-point (1+ pom) c
ached-only)))))
org-element-at-point()
(or element (org-element-at-point))
(let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-property :post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case (match-string 1) org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos (match-beginning 2)) (< pos (match-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-element-property :tag element))) (if (or (not tag) (/= (line-beginning-position) post)) (throw 'objects-forbidden element) (beginning-of-line) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and (>= pos ...) (< pos ...)) (narrow-to-region (point) (match-end 0)) (throw
'objects-forbidden element))))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-end 4))) (if (not end) (throw 'objects-forbidden element) (goto-char (match-beginning 4)) (if (looking-at org-element-comment-string) (progn ...)) (if (>= ... end) (throw ... element) (narrow-to-region ... end)))))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg (org-element-property :contents-begin element)) (cend (org-element-property :contents-end element))) (if (and cbeg cend (>= pos cbeg) (or (< pos cend) (and ... ...))) (narrow-to-region cbeg cend) (throw 'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ((next (org-element--object-lex restriction))) (if next (progn (org-element-put-property next :parent parent))) (if
(or (not next) (> ... pos)) (throw 'exit (or last parent)) (let (... ... ...) (cond ... ... ...))))))))
(save-restriction (widen) (let* ((pos (point)) (element (or element
(org-element-at-point))) (type (org-element-type element)) (post (org-element-property
:post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let
((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not
(member-ignore-case ... org-element-parsed-keywords)) (throw 'objects-forbidden element))
((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and
(match-beginning 2) (>= pos ...) (< pos ...)) (narrow-to-region (match-beginning 2)
(match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type
'item) (let ((tag (org-element-property :tag element))) (if (or (not tag) (/= ... post))
(throw 'objects-forbidden element) (beginning-of-line) (search-forward tag
(line-end-position)) (goto-char (match-beginning 0)) (if (and ... ...) (narrow-to-region
... ...) (throw ... element))))) ((memq type '(headline inlinetask)) (let ((case-f
old-search nil)) (goto-char (org-element-property :begin element)) (looking-at
org-complex-heading-regexp) (let ((end ...)) (if (not end) (throw ... element)
(goto-char ...) (if ... ...) (if ... ... ...))))) ((memq type '(paragraph
table-row verse-block)) (let ((cbeg (org-element-property :contents-begin
element)) (cend (org-element-property :contents-end element))) (if (and cbeg cend
(>= pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) (throw
'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char
(point-min)) (let ((restriction (org-element-restriction type)) (parent element)
last) (catch 'exit (while t (let ((next ...)) (if next (progn ...)) (if (or ...
...) (throw ... ...) (let ... ...))))))))
(save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element
(org-element-at-point))) (type (org-element-type element)) (post
(org-element-property :post-affiliated element))) (cond ((and post (< pos post))
(beginning-of-line) (let ((case-fold-search t)) (looking-at
org-element--affiliated-re)) (cond ((not ...) (throw ... element)) ((< ... pos)
(narrow-to-region ... ...)) ((and ... ... ...) (narrow-to-region ... ...)) (t (throw
... element))) (setq type 'keyword)) ((eq type 'item) (let ((tag ...)) (if (or ...
...) (throw ... element) (beginning-of-line) (search-forward tag ...) (goto-char ...)
(if ... ... ...)))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil))
(goto-char (org-element-property :begin element)) (looking-at
org-complex-heading-regexp) (let (...) (if ... ... ... ... ...)))) ((memq type
'(paragraph table-row verse-block)) (let ((cbeg ...) (cend ...)) (if (and cbeg cend
... ...) (narrow-to-region cbeg cend) (throw ... element))))
(t (throw 'objects-forbidden element))) (goto-char (point-min)) (let
((restriction (org-element-restriction type)) (parent element) last) (catch
'exit (while t (let (...) (if next ...) (if ... ... ...))))))))
(catch 'objects-forbidden (save-excursion (save-restriction (widen) (let* ((pos
(point)) (element (or element (org-element-at-point))) (type (org-element-type
element)) (post (org-element-property :post-affiliated element))) (cond ((and post
(< pos post)) (beginning-of-line) (let (...) (looking-at
org-element--affiliated-re)) (cond (... ...) (... ...) (... ...) (t ...)) (setq
type 'keyword)) ((eq type 'item) (let (...) (if ... ... ... ... ... ...))) ((memq
type '...) (let (...) (goto-char ...) (looking-at org-complex-heading-regexp) (let
... ...))) ((memq type '...) (let (... ...) (if ... ... ...))) (t (throw
'objects-forbidden element))) (goto-char (point-min)) (let ((restriction
(org-element-restriction type)) (parent element) last) (catch 'exit (while t (let
... ... ...))))))))
(progn (catch 'objects-forbidden (save-excursion (save-restriction (widen)
(let* ((pos (point)) (element (or element ...)) (type (org-element-type
element)) (post (org-element-property :post-affiliated element))) (cond ((and
post ...) (beginning-of-line) (let ... ...) (cond ... ... ... ...) (setq type
...)) ((eq type ...) (let ... ...)) ((memq type ...) (let ... ... ... ...))
((memq type ...) (let ... ...)) (t (throw ... element))) (goto-char
(point-min)) (let ((restriction ...) (parent element) last) (catch 'exit (while
t ...))))))))
(unwind-protect (progn (catch 'objects-forbidden (save-excursion
(save-restriction (widen) (let* ((pos ...) (element ...) (type ...) (post ...))
(cond (... ... ... ... ...) (... ...) (... ...) (... ...) (t ...)) (goto-char
(point-min)) (let (... ... last) (catch ... ...))))))) (set-match-data
saved-match-data t))
(let ((saved-match-data (match-data))) (unwind-protect (progn (catch
'objects-forbidden (save-excursion (save-restriction (widen) (let* (... ... ...
...) (cond ... ... ... ... ...) (goto-char ...) (let ... ...))))))
(set-match-data saved-match-data t)))
org-element-context()
org-appear--current-elem()
org-appear--post-cmd()
"
Please report this to Org mode mailing list (M-x org-submit-bug-report).
Emacs : GNU Emacs 29.0.50 (build 18, x86_64-pc-linux-gnu, GTK+ Version
3.24.20, cairo version 1.16.0)
of 2022-11-08
Package: Org mode version 9.6-pre (release_9.5.5-1086-g7f7280 @
/usr/local/src/org-mode/lisp/)
current state:
==============
(setq
org-link-elisp-confirm-function 'yes-or-no-p
org-ditaa-jar-path "/usr/share/ditaa/ditaa.jar"
org-hide-emphasis-markers t
org-bibtex-headline-format-function '(closure
(org-agenda-search-view-always-boolean
org-agenda-overriding-header t)
(entry)
(cdr
(assq :title entry)
)
)
org-babel-after-execute-hook '(org-redisplay-inline-images)
org-link-abbrev-alist '(("DOI" .
"http://dx.doi.org/%s")
("WP" .
"https://en.wikipedia.org/wiki/%s")
("YUL" .
"https://www.library.yorku.ca/find/Record/%s")
)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-archive-hook '(org-attach-archive-delete-maybe)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change
org-cycle-display-inline-images)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-image-actual-width nil
org-mode-hook '((lambda nil
(org-superstar-mode 1))
wtd/org-ispell
add-org-toggle-src-key
org-appear-mode
turn-on-flyspell
(lambda nil
(setq
prettify-symbols-alist
(cons '("<=" . 8804)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons '(">=" . 8805)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons '("|>" . 9655)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+BEGIN_SRC" . 9121)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+END_SRC" . 9123)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+begin_src" . 9121)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+end_src" . 9123)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+BEGIN_QUOTE" .
10077)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+END_QUOTE" . 10078)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+begin_quote" .
10077)
prettify-symbols-alist)
)
(setq
prettify-symbols-alist
(cons
'("#+end_quote" . 10078)
prettify-symbols-alist)
)
)
add-org-close-all-drawers-key
(lambda
nil
(setq ispell-parser 'tex)
)
(lambda nil
(org-toggle-inline-images))
org-clock-load
(closure
(org--rds
reftex-docstruct-symbol
org--single-lines-list-is-paragraph
org-element-greater-elements 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-log-note-extra org-log-note-purpose org-log-post-message
org-last-inserted-timestamp org-last-changed-timestamp
org-entry-property-inherited-from 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 org-priority-regexp
org-mode-abbrev-table org-mode-syntax-table org-element-use-cache
org-element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu
org-struct-menu org-entities org-last-state org-id-track-globally
org-clock-start-time texmathp-why remember-data-file
org-agenda-tags-todo-honor-ignore-options calc-embedded-open-mode
calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list
org-emphasis-alist org-emphasis-regexp-components
org-export-registered-backends org-modules org-babel-load-languages
org-id-overriding-file-name org-indent-indentation-per-level
org-element--timestamp-regexp org-element-cache-map-continue-from
org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-min-level
t)
nil
(add-hook
'change-major-mode-hook
'org-fold-show-all
'append 'local)
)
(closure
(org-src-window-setup
*this*
org-babel-confirm-evaluate-answer-no
org-babel-tangle-uncomment-comments org-src-preserve-indentation
org-src-lang-modes org-edit-src-content-indentation org-babel-library-of-babel
t)
nil
(add-hook
'change-major-mode-hook
#'org-babel-show-result-all 'append 'local)
)
org-babel-result-hide-spec
org-babel-hide-all-hashes
(closure
(org-agenda-skip-regexp
org-fold-core-style
org-table1-hline-regexp
org-table-tab-recognizes-table.el org-table-dataline-regexp
org-table-any-border-regexp org-agenda-restriction-lock-overlay
org-agenda-overriding-restriction org-agenda-diary-file
org-complex-heading-regexp calendar-mode-map t)
nil
(setq
imenu-create-index-function 'org-imenu-get-tree)
)
wrap-region-mode)
org-babel-load-languages '((ditaa . t)
(dot . t)
(latex . t)
(lilypond . t)
(python . t)
(R . t)
(ruby . t)
(shell . t)
(sql . t)
(sqlite . t))
org-src-window-setup 'current-window
org-ellipsis " ⬎"
org-confirm-shell-link-function 'yes-or-no-p
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-startup-indented t
org-highlight-latex-and-related '(latex)
org-use-speed-commands t
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-src-preserve-indentation t
org-babel-tangle-lang-exts '(("ruby" . "rb")
("python" .
"py")
("LilyPond" .
"ly")
("latex" .
"tex")
("emacs-lisp"
. "el")
("elisp" .
"el")
)
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-confirm-elisp-link-function 'yes-or-no-p
org-cycle-separator-lines 0
org-superstar-headline-bullets-list '("⊢"
"ǁ"
"ǀ"
"⋱"
"◉"
"○")
org-support-shift-select t
org-pretty-entities t
org-fontify-whole-heading-line t
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-export-backends '(html latex md odt
beamer)
org-confirm-babel-evaluate nil
org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
org-clock-persist 'history
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-link-shell-confirm-function 'yes-or-no-p
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("attachment" :follow
org-attach-follow
:complete
org-attach-complete-link)
("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
:insert-description
org-info-description-as-command)
("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)
("id" :follow
org-id-open)
("file+sys")
("file+emacs")
("shell" :follow
org-link--open-shell)
("news" :follow
(closure
((scheme . "news"))
(url arg)
(browse-url
(concat scheme ":"
url)
arg)
)
)
("mailto" :follow
(closure
((scheme . "mailto")
)
(url arg)
(browse-url
(concat scheme ":"
url)
arg)
)
)
("https" :follow
(closure
((scheme . "https"))
(url arg)
(browse-url
(concat scheme ":"
url)
arg)
)
)
("http" :follow
(closure
((scheme . "http"))
(url arg)
(browse-url
(concat scheme ":"
url)
arg)
)
)
("ftp" :follow
(closure
((scheme . "ftp"))
(url arg)
(browse-url
(concat scheme ":"
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-metaup-hook '(org-babel-load-in-session-maybe)
org-startup-with-inline-images t
org-return-follows-link t
org-special-ctrl-a/e t
org-tags-column 120
org-hide-macro-markers t
org-footnote-section nil
org-list-allow-alphabetical t
)
--
--
William Denton
https://www.miskatonic.org/
Librarian, artist and licensed private investigator.
Toronto, Canada