[BUG] or-element-cache [9.5.5 ( @ /home/boudiccas/git/org-mode)]

[Sharon Kimble]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     https://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------

 ■  Warning (org-element-cache): org-element--cache: Org parser error in 
today.org::65284. Resetting.
 The error was: (wrong-number-of-arguments ((t) (element) "Return type of 
ELEMENT.

The function returns the type of the element or object provided.
It can also return the following special value:
  `plain-text'       for a string
  `org-data'         for a complete document
  nil                in any other case." (cond ((not (consp element)) (and 
(stringp element) 'plain-text)) ((symbolp (car element)) (car element)))) 2)
 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 was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (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 was: %S\\n Backtrace:\\n%S\\n Please report this to Org mode mailing list 
(M-x org-submit-bug-report).\" (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 was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (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 was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" (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 was: %S\\n 
Backtrace:\\n%S\\n Please report this to Org mode mailing list (M-x 
org-submit-bug-report).\" ... 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 
(save-current-buffer (set-buffer (or ... ...)) 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) cached-only)))))
  org-element-at-point(nil)
  (let (org-element-use-cache) (org-element-at-point pom))
  (or (org-element-at-point pom 'cached-only) (let (org-element-use-cache) 
(org-element-at-point pom)))
  org-element-at-point-no-context()
  (let* ((element (org-element-at-point-no-context)) (post-affiliated (let* 
((parray (and t (let* ... ...)))) (if parray (let* ((val ...)) (if (eq val ...) 
'nil (let ... val))) (let* ((val ...)) (cond (... ...) (... ...) (t ...))))))) 
(cond ((< (point) post-affiliated) (and (save-excursion (beginning-of-line) 
(let ((case-fold-search t)) (looking-at \"[ \\11]*#\\\\+CAPTION:\"))) (> 
(point) (match-end 0)) (org--flyspell-object-check-p element))) ((let ((log 
(org-log-into-drawer))) (and log (let ((drawer ...)) (and drawer 
(org-string-equal-ignore-case log ...))))) nil) (t (let* ((temp 
(org-element-type element))) (cond ((memql temp '...) t) ((eql temp 
'comment-block) (and (> ... post-affiliated) (save-excursion ... ... ...))) 
((eql temp 'keyword) (and (member ... ...) (save-excursion ...))) ((memql temp 
'...) (let (... ...) (and cbeg ... ... ...))))))))
  (if (org-at-heading-p) (and (save-excursion (beginning-of-line) (and (let 
((case-fold-search t)) (not (looking-at-p \"\\\\*+ END[ \\11]*$\"))) (let 
((case-fold-search nil)) (looking-at org-complex-heading-regexp)))) 
(match-beginning 4) (>= (point) (match-beginning 4)) (or (not (match-beginning 
5)) (< (point) (match-beginning 5))) (org--flyspell-object-check-p 
(org-element-at-point-no-context))) (let* ((element 
(org-element-at-point-no-context)) (post-affiliated (let* ((parray (and t 
...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... 
...)))))) (cond ((< (point) post-affiliated) (and (save-excursion 
(beginning-of-line) (let (...) (looking-at \"[ \\11]*#\\\\+CAPTION:\"))) (> 
(point) (match-end 0)) (org--flyspell-object-check-p element))) ((let ((log 
(org-log-into-drawer))) (and log (let (...) (and drawer ...)))) nil) (t (let* 
((temp (org-element-type element))) (cond ((memql temp ...) t) ((eql temp ...) 
(and ... ...)) ((eql temp ...) (and ... ...)) ((memql temp ...) (let ... 
...))))))))
  org-mode-flyspell-verify()
  flyspell-word()
  flyspell-post-command-hook()
"
 Please report this to Org mode mailing list (M-x org-submit-bug-report).


Emacs  : GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.38, 
cairo version 1.16.0)
 of 2023-11-16
Package: Org mode version 9.5.5 ( @ /home/boudiccas/git/org-mode)

-- 
A taste of linux = http://www.sharons.org.uk
TGmeds = http://www.tgmeds.org.uk
DrugFacts = https://www.drugfacts.org.uk
Debian 11.6, fluxbox 1.3.7, emacs 29.0.5.0, Org mode 9.5.5