[BUG] Org Roam does not open capture buffer [9.7.11 (9.7.11-??-6a5d0ed34 @ /home/yonggan/.config/emacs/.local/straight/build-29.4/org/)]

[Yonggan <yonggan@obco.pro>]

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.