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.
------------------------------------------------------------------------
Emacs : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, X toolkit, cairo
version 1.18.2, Xaw3d scroll bars)
Package: Org mode version 9.7.11 (9.7.11-??-6a5d0ed34 @
/home/yonggan/.config/emacs/.local/straight/build-29.4/org/)
current state:
==============
State could not be dumped due to the following error:
(user-error Tree-Sitter mode is not enabled for this buffer!)
⛔ Warning (org-element): ‘org-element-at-point’ cannot be used in
non-Org buffer #<buffer init.el> (emacs-lisp-mode)
⛔ Warning (org-element): org-element--cache: Org parser error in
init.el::9354. Resetting.
The error was: (error "rx ‘**’ range error")
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)) 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 ...\" (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)) (setq org--warnings (cons
(concat \"org-element--cache: \" format-string) org--warnings))
(display-warning '(org-element 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 ...\" (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)) (setq org--warnings (cons
(concat \"org-element--cache: \" format-string) org--warnings))
(display-warning '(org-element 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 ...\" (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)) (setq org--warnings (cons
(concat \"org-element--cache: \" format-string) org--warnings))
(display-warning '(org-element 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 ...\" ... epom err ...)) (format-string (if ...
format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\"
(concat \"org-element--cache: \" format-string)) (setq org--warnings
(cons ... org--warnings)) (display-warning '... (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\" ...) (setq org--warnings ...) (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 (display-warning '(org-element
org-element-parser) (format-message \"`org-element-at-point' cannot be
used in non-Org b...\" (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 (display-warning
'(org-element org-element-parser) (format-message
\"`org-element-at-point' cannot be used in non-Org b...\"
(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 ((idx (or 14 14))) (let*
((parray ...)) (if parray (let* ... ...) (let* ... ...)))) (progn
(set-buffer (let (...) (let* ... ...))))) (setq --mepom (let ((idx (or 0
0))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...)))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom
(point))) (if (derived-mode-p 'org-mode) nil (display-warning
'(org-element org-element-parser) (format-message
\"`org-element-at-point' cannot be used in non-Org b...\"
(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
((idx ...)) (let* (...) (if parray ... ...))) (progn (set-buffer (let
... ...)))) (setq --mepom (let ((idx ...)) (let* (...) (if parray ...
...)))))) (save-excursion (save-restriction (widen) (goto-char (or
--mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning
'(org-element org-element-parser) (format-message
\"`org-element-at-point' cannot be used in non-Org b...\"
(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 (...) (let*
... ...)) (progn (set-buffer ...))) (setq --mepom (let (...) (let* ...
...))))) (save-excursion (save-restriction (widen) (goto-char (or
--mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning
'... (format-message \"`org-element-at-point' cannot be used in non-Org
b...\" ... 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)
(org-element-lineage (org-element-at-point epom) '(headline inlinetask
org-data) 'with-self)
(setq epom (org-element-lineage (org-element-at-point epom) '(headline
inlinetask org-data) 'with-self))
org--property-local-values(\"ID\" nil nil)
(let* ((local (org--property-local-values property literal-nil epom))
(value (and local (mapconcat #'identity (delq nil local)
(org--property-get-separator property))))) (if literal-nil value
(org-not-nil value)))
(cond ((member-ignore-case property (cons \"CATEGORY\"
org-special-properties)) (cdr (assoc-string property
(org-entry-properties epom property)))) ((and inherit (or (not (eq
inherit 'selective)) (org-property-inherit-p property)))
(org-entry-get-with-inheritance property literal-nil epom)) (t (let*
((local (org--property-local-values property literal-nil epom)) (value
(and local (mapconcat #'identity (delq nil local)
(org--property-get-separator property))))) (if literal-nil value
(org-not-nil value)))))
org-entry-get(nil \"ID\" nil)
(let ((id (org-entry-get epom \"ID\" (and inherit t)))) (cond ((and id
(stringp id) (string-match \"\\\\S-\" id)) id) (create (setq id
(org-id-new prefix)) (org-entry-put epom \"ID\" id) (let ((--mepom
epom)) (save-excursion (cond ((markerp --mepom) (set-buffer ...))
((numberp --mepom)) (t (if ... ...) (setq --mepom ...))) (save-excursion
(save-restriction (widen) (goto-char ...) (org-id-add-location id
...))))) id)))
org-id-get()
(and (org-id-get) (not (org-entry-get (point) \"ROAM_EXCLUDE\"))
(funcall org-roam-db-node-include-function))
org-roam-db-node-p()
(or (org-roam-db-node-p) (bobp) (eq (funcall outline-level)
(save-excursion (org-roam-up-heading-or-point-min) (funcall
outline-level))))
(not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level)
(save-excursion (org-roam-up-heading-or-point-min) (funcall
outline-level)))))
(while (not (or (org-roam-db-node-p) (bobp) (eq (funcall outline-level)
(save-excursion (org-roam-up-heading-or-point-min) (funcall
outline-level))))) (org-roam-up-heading-or-point-min))
(save-restriction (widen) (while (not (or (org-roam-db-node-p) (bobp)
(eq (funcall outline-level) (save-excursion
(org-roam-up-heading-or-point-min) (funcall outline-level)))))
(org-roam-up-heading-or-point-min)) (let* ((id (and t (org-id-get))))
(if id (org-roam-populate (record 'org-roam-node nil nil nil nil nil id
nil (point) nil nil nil nil nil nil nil nil nil nil)) nil)))
(save-excursion (save-restriction (widen) (while (not (or
(org-roam-db-node-p) (bobp) (eq (funcall outline-level) (save-excursion
(org-roam-up-heading-or-point-min) (funcall outline-level)))))
(org-roam-up-heading-or-point-min)) (let* ((id (and t (org-id-get))))
(if id (org-roam-populate (record 'org-roam-node nil nil nil nil nil id
nil (point) nil nil nil nil nil nil nil nil nil nil)) nil))))
(cond ((and it (magit-section-match-1 'org-roam-node-section it))
(eieio-oref it 'node)) ((and it (magit-section-match-1
'org-roam-preview-section it)) (save-excursion (magit-section-up)
(org-roam-node-at-point))) (t (save-excursion (save-restriction (widen)
(while (not (or (org-roam-db-node-p) (bobp) (eq ... ...)))
(org-roam-up-heading-or-point-min)) (let* ((id (and t ...))) (if id
(org-roam-populate (record ... nil nil nil nil nil id nil ... nil nil
nil nil nil nil nil nil nil nil)) nil))))))
(let* ((it (magit-current-section))) (cond ((and it
(magit-section-match-1 'org-roam-node-section it)) (eieio-oref it
'node)) ((and it (magit-section-match-1 'org-roam-preview-section it))
(save-excursion (magit-section-up) (org-roam-node-at-point))) (t
(save-excursion (save-restriction (widen) (while (not (or ... ... ...))
(org-roam-up-heading-or-point-min)) (let* ((id ...)) (if id
(org-roam-populate ...) nil)))))))
(or (let* ((it (magit-current-section))) (cond ((and it
(magit-section-match-1 'org-roam-node-section it)) (eieio-oref it
'node)) ((and it (magit-section-match-1 'org-roam-preview-section it))
(save-excursion (magit-section-up) (org-roam-node-at-point))) (t
(save-excursion (save-restriction (widen) (while (not ...)
(org-roam-up-heading-or-point-min)) (let* (...) (if id ... nil)))))))
(and assert (user-error \"No node at point\")))
org-roam-node-at-point()
(and t (org-roam-node-at-point))
(let* ((node (and t (org-roam-node-at-point)))) (if node (if (equal node
org-roam-buffer-current-node) nil (progn (setq
org-roam-buffer-current-node node) (setq
org-roam-buffer-current-directory org-roam-directory))
(save-current-buffer (set-buffer (get-buffer-create org-roam-buffer))
(org-roam-buffer-render-contents) (add-hook 'kill-buffer-hook
#'org-roam-buffer--persistent-cleanup-h nil t))) nil))
org-roam-buffer-persistent-redisplay()
(progn (display-buffer (get-buffer-create org-roam-buffer))
(org-roam-buffer-persistent-redisplay))
(let nil (progn (display-buffer (get-buffer-create org-roam-buffer))
(org-roam-buffer-persistent-redisplay)))
(cond ((eq val 'visible) (let nil (progn (quit-window nil
(get-buffer-window org-roam-buffer)) (remove-hook 'post-command-hook
#'org-roam-buffer--redisplay-h)))) ((memq val '(none exists)) (let nil
(progn (display-buffer (get-buffer-create org-roam-buffer))
(org-roam-buffer-persistent-redisplay)))))
(let* ((val (org-roam-buffer--visibility))) (cond ((eq val 'visible)
(let nil (progn (quit-window nil (get-buffer-window org-roam-buffer))
(remove-hook 'post-command-hook #'org-roam-buffer--redisplay-h))))
((memq val '(none exists)) (let nil (progn (display-buffer
(get-buffer-create org-roam-buffer))
(org-roam-buffer-persistent-redisplay))))))
org-roam-buffer-toggle()
funcall-interactively(org-roam-buffer-toggle)
command-execute(org-roam-buffer-toggle record)
execute-extended-command(nil \"org-roam-buffer-toggle\"
#(\"org-roam-buffer-toggle\" 0 22 (ws-butler-chg chg)))
funcall-interactively(execute-extended-command nil
\"org-roam-buffer-toggle\" #(\"org-roam-buffer-toggle\" 0 22
(ws-butler-chg chg)))
command-execute(execute-extended-command)
"
Please report this to Org mode mailing list (M-x org-submit-bug-report).
You should still send this bug report.
