From: William Denton <wtd@pobox.com>
To: emacs-orgmode@gnu.org
Subject: [BUG] Cache warning [9.6-pre (release_9.5.5-1086-g7f7280 @ /usr/local/src/org-mode/lisp/)]
Date: Tue, 8 Nov 2022 22:45:13 -0500 (EST) [thread overview]
Message-ID: <alpine.DEB.2.22.394.2211082244200.114388@shell3.miskatonic.org> (raw)
[-- Attachment #1: Type: text/plain, Size: 22363 bytes --]
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
next reply other threads:[~2022-11-09 3:46 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-11-09 3:45 William Denton [this message]
2022-11-09 5:02 ` [BUG] Cache warning [9.6-pre (release_9.5.5-1086-g7f7280 @ /usr/local/src/org-mode/lisp/)] 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=alpine.DEB.2.22.394.2211082244200.114388@shell3.miskatonic.org \
--to=wtd@pobox.com \
--cc=emacs-orgmode@gnu.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
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public 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).