From: Greg Minshall <minshall@umich.edu>
To: emacs-orgmode@gnu.org
Subject: [BUG] crash [9.7-pre (release_9.6.11-927-g819cd7 @ /home/minshall/.emacs.d/straight/build/org/)]
Date: Mon, 15 Apr 2024 08:38:04 +0300 [thread overview]
Message-ID: <484488.1713159484@archlinux> (raw)
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.
------------------------------------------------------------------------
i was editing a buffer, but it was in read-only mode, so i closed the
buffer and re-visited the file, then hit something like carriage return
and got the crash.
(it's possible, i suppose, that i was doing some for of "org-capture"
for that buffer?)
cheers.
-----
⛔ Warning (org-element-cache): org-element--cache: Org parser error in sysnotes.org::2622892. Resetting.
The error was: (error "org-element--cache: Emergency exit")
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 (warn \"`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 (warn \"`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 (warn \"`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 (warn \"`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 (warn \"`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()
(if org-return-follows-link (org-element-context) (org-element-at-point))
(let* ((context (if org-return-follows-link (org-element-context) (org-element-at-point))) (element-type (org-element-type context))) (cond ((or (and (eq 'table element-type) (not (eq 'table.el (org-element--property :type context nil nil))) (>= (point) (org-element-contents-begin context)) (< (point) (org-element-contents-end context))) (org-element-lineage context '(table-row table-cell) t)) (if (or (looking-at-p \"[ \\11]*$\") (save-excursion (skip-chars-backward \" \\11\") (bolp))) (insert \"\\n\") (org-table-justify-field-maybe) (call-interactively #'org-table-next-row))) ((and org-return-follows-link (or (and (eq 'link element-type) (let (...) (let ... ...))) (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-element-lineage context '(citation citation-reference) 'include-self) (org-in-regexp org-link-any-re nil t))) (call-interactively #'org-open-at-point)) ((and (not (bolp)) (let ((case-fold-search nil)) (org-match-line org-complex-heading-regexp))) (let ((tags-column (and (match-beginning 5) (save-excursion ... ...))) (string (if (and ... ...) (progn ...)))) (cond ((not (and tags-column string))) (org-auto-align-tags (org-align-tags)) (t (org--align-tags-here tags-column))) (end-of-line) (org-fold-show-entry 'hide-drawers) (org--newline indent arg interactive) (if string (progn (save-excursion (insert ...)))))) ((and (not (eolp)) (org-element-lineage context 'item)) (let ((trailing-data (delete-and-extract-region (point) (line-end-position)))) (org--newline indent arg interactive) (save-excursion (insert trailing-data)))) (t (let ((auto-fill-function (and (not ...) auto-fill-function))) (org--newline indent arg interactive)))))
(closure (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-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-element-cache-persistent org-element-cache-version 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 ...) (&optional indent arg interactive) \"Goto next table row or insert a newline.\\n\\nCalls `org-table-next-row' or `newline', depending on context.\\n\\nWhen optional INDENT argument is non-nil, call\\n`newline-and-indent' with ARG, otherwise call `newline' with ARG\\nand INTERACTIVE.\\n\\nWhen `org-return-follows-link' is non-nil and point is on\\na timestamp, a link or a citation, call `org-open-at-point'.\\nHowever, it will not happen if point is in a table or on a \\\"dead\\\"\\nobject (e.g., within a comment). In these case, you need to use\\n`org-open-at-point' directly.\" (interactive \"i\\nP\\np\") (let* ((context (if org-return-follows-link (org-element-context) (org-element-at-point))) (element-type (org-element-type context))) (cond ((or (and ... ... ... ...) (org-element-lineage context ... t)) (if (or ... ...) (insert \"\\n\") (org-table-justify-field-maybe) (call-interactively ...))) ((and org-return-follows-link (or ... ... ... ... ...)) (call-interactively #'org-open-at-point)) ((and (not ...) (let ... ...)) (let (... ...) (cond ... ... ...) (end-of-line) (org-fold-show-entry ...) (org--newline indent arg interactive) (if string ...))) ((and (not ...) (org-element-lineage context ...)) (let (...) (org--newline indent arg interactive) (save-excursion ...))) (t (let (...) (org--newline indent arg interactive))))))(nil nil 1)
apply((closure (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-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-element-cache-persistent org-element-cache-version 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 ...) (&optional indent arg interactive) \"Goto next table row or insert a newline.\\n\\nCalls `org-table-next-row' or `newline', depending on context.\\n\\nWhen optional INDENT argument is non-nil, call\\n`newline-and-indent' with ARG, otherwise call `newline' with ARG\\nand INTERACTIVE.\\n\\nWhen `org-return-follows-link' is non-nil and point is on\\na timestamp, a link or a citation, call `org-open-at-point'.\\nHowever, it will not happen if point is in a table or on a \\\"dead\\\"\\nobject (e.g., within a comment). In these case, you need to use\\n`org-open-at-point' directly.\" (interactive \"i\\nP\\np\") (let* ((context (if org-return-follows-link (org-element-context) (org-element-at-point))) (element-type (org-element-type context))) (cond ((or (and (eq ... element-type) (not ...) (>= ... ...) (< ... ...)) (org-element-lineage context '... t)) (if (or (looking-at-p \"[ \\11]*$\") (save-excursion ... ...)) (insert \"\\n\") (org-table-justify-field-maybe) (call-interactively #'org-table-next-row))) ((and org-return-follows-link (or (and ... ...) (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-element-lineage context ... ...) (org-in-regexp org-link-any-re nil t))) (call-interactively #'org-open-at-point)) ((and (not (bolp)) (let (...) (org-match-line org-complex-heading-regexp))) (let ((tags-column ...) (string ...)) (cond (...) (org-auto-align-tags ...) (t ...)) (end-of-line) (org-fold-show-entry 'hide-drawers) (org--newline indent arg interactive) (if string (progn ...)))) ((and (not (eolp)) (org-element-lineage context 'item)) (let ((trailing-data ...)) (org--newline indent arg interactive) (save-excursion (insert trailing-data)))) (t (let ((auto-fill-function ...)) (org--newline indent arg interactive)))))) (nil nil 1))
org-return(nil nil 1)
funcall-interactively(org-return nil nil 1)
call-interactively(org-return nil nil)
command-execute(org-return)
"
Please report this to Org mode mailing list (M-x org-submit-bug-report).
----
Emacs : GNU Emacs 30.0.50 (build 14, x86_64-pc-linux-gnu, GTK+ Version 3.24.38, cairo version 1.18.0)
of 2023-11-20
Package: Org mode version 9.7-pre (release_9.6.11-927-g819cd7 @ /home/minshall/.emacs.d/straight/build/org/)
next reply other threads:[~2024-04-15 5:39 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2024-04-15 5:38 Greg Minshall [this message]
2024-04-15 11:23 ` [BUG] crash [9.7-pre (release_9.6.11-927-g819cd7 @ /home/minshall/.emacs.d/straight/build/org/)] Ihor Radchenko
2024-04-15 11:58 ` Ihor Radchenko
2024-04-17 6:07 ` Greg Minshall
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=484488.1713159484@archlinux \
--to=minshall@umich.edu \
--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).