I got following error:
#+begin_example
Please report this to Org mode mailing list (M-x org-submit-bug-report).
⛔ Warning (org-element-cache): org-element--cache: Org parser error in
Code.org::434180. Resetting.
The error was: (wrong-number-of-arguments ((t) nil "Return outline-regexp with
limited number of levels.
The number of levels is controlled by `org-inlinetask-min-level'." (cond ((not
(derived-mode-p 'org-mode)) outline-regexp) ((not (featurep 'org-inlinetask))
org-outline-regexp) (t (let* ((limit-level (1- org-inlinetask-min-level))
(nstars (if org-odd-levels-only (1- (* limit-level 2)) limit-level))) (format
"\\*\\{1,%d\\} " nstars))))) 1)
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)) epom 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)) epom 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 epom) ((debug 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)) epom 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 epom)))
(if cached-only (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< epom (aref (car
org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom)))
(condition-case err (org-element--parse-to epom) ((debug 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 ...) epom 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 epom))))
(setq element (if cached-only (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< epom (aref (car
org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom)))
(condition-case err (org-element--parse-to epom) ((debug 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).\" ... epom 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 epom)))))
(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) epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom (aref ... 1)))) (progn (org-element--cache-find epom))) (condition-case
err (org-element--parse-to epom) ((debug error) (let* ((format-string ...)
(format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...)
(display-warning ... ...))) (org-element-cache-reset) (org-element--parse-to
epom))))) (if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data)
nil (if (and cached-only (not (and element (or (= epom ...) (and ... ... ...)
(and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type
element t) 'section)) element (org-element-at-point (1+ epom) cached-only)))))
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (error \"`org-element-at-point' cannot be used
in non-Org buffer %S (%s)\" (current-buffer) major-mode)) (if (and cached-only
(memq this-command org-element--cache-non-modifying-commands)) (progn (setq
cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if
(not (save-current-buffer (set-buffer ...) org-element--cache))
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync
(current-buffer) epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom ...))) (progn (org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (let* (... ...) (if ... ... ...))
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not (and
element (or ... ... ... ...)))) nil (if (not (eq (org-element-type element t)
'section)) element (org-element-at-point (1+ epom) cached-only))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (error \"`org-element-at-point' cannot be
used in non-Org buffer %S (%s)\" (current-buffer) major-mode)) (if (and
cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if (not (save-current-buffer ...
org-element--cache)) (org-element-cache-reset) (if cached-only nil
(org-element--cache-sync ... epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or ... ...)) (progn (org-element--cache-find
epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let*
... ...) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not (and
element ...))) nil (if (not (eq ... ...)) element (org-element-at-point (1+
epom) cached-only)))))))
(save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer
--mepom))) ((numberp --mepom)) (t (if (let* ((parray (and t ...))) (if parray
(let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))) (progn
(set-buffer (let* (...) (if parray ... ...))))) (setq --mepom (let* ((parray
(and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ...
... ...))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom
(point))) (if (derived-mode-p 'org-mode) nil (error \"`org-element-at-point'
cannot be used in non-Org buffer %S (%s)\" (current-buffer) major-mode)) (if
(and cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if (not ...) (org-element-cache-reset)
(if cached-only nil ...)))) (setq element (if cached-only (if (and ... ...)
(progn ...)) (condition-case err (org-element--parse-to epom) (... ... ...
...)))) (if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data)
nil (if (and cached-only (not ...)) nil (if (not ...) element
(org-element-at-point ... cached-only))))))))
(let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let* ((parray ...)) (if
parray (let* ... ...) (let* ... ...))) (progn (set-buffer (let* ... ...))))
(setq --mepom (let* ((parray ...)) (if parray (let* ... ...) (let* ...
...)))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom
(point))) (if (derived-mode-p 'org-mode) nil (error \"`org-element-at-point'
cannot be used in non-Org buffer %S (%s)\" (current-buffer) major-mode)) (if
(and cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn (if ... ... ...))) (setq element (if
cached-only (if ... ...) (condition-case err ... ...))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element ...))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only ...) nil (if ... element ...))))))))
(if (org-element-type epom t) epom (setq epom (or epom (point))) (let
((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let* (...) (if parray ...
...)) (progn (set-buffer ...))) (setq --mepom (let* (...) (if parray ...
...))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom
(point))) (if (derived-mode-p 'org-mode) nil (error \"`org-element-at-point'
cannot be used in non-Org buffer %S (%s)\" (current-buffer) major-mode)) (if
(and cached-only (memq this-command org-element--cache-non-modifying-commands))
(progn (setq cached-only nil))) (let (element) (if
(org-element--cache-active-p) (progn ...)) (setq element (if cached-only ...
...)) (if (and ... element ...) (progn ...)) (if (eq ... ...) nil (if ... nil
...))))))))
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()
"
#+end_exampleSeems the `pom` is nil caused `org-element-at-point` this error. -- [ stardiviner ] I try to make every word tell the meaning that I want to express without misunderstanding. Blog: https://stardiviner.github.io/ IRC(libera.chat, freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
signature.asc
Description: PGP signature
