From: Edgar Lux <edgarlux@mailfence.com>
To: Emacs Orgmode <emacs-orgmode@gnu.org>
Subject: [BUG] Warning when creating preview
Date: Fri, 18 Aug 2023 15:20:37 +0200 (CEST) [thread overview]
Message-ID: <1650384805.753459.1692364837267@ichabod.co-bxl> (raw)
Hi,
I don't really need help with this. Org has been telling me for days that I should report this, but I don't really want to share my configuration publicly, and I thought that it was only for a file on which I was working. It seems to be general for my configuration. I hope that it helps. If you have an encrypted personal account to which I can send my config file, let me know.
* What happens
When I type some equations and get the preview, I get this warning
#+begin_quote
\begin{gather}
t = 0
\end{gather}
#+end_quote
* My "system"
Emacs : GNU Emacs 28.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.36, cairo version 1.17.6)
of 2023-01-03
Package: Org mode version 9.4.6 (release_9.4.6-13-g4be129)
* The message
Warning (org-element-cache): org-element--cache: Org parser error in t.org::35. Resetting.
The error was: (error "Invalid search bound (wrong side of point)")
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)) (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 ...\" (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 ...\" (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 ...\" ... 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 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 (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) (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 (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) (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 (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) (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 (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 (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()
(or element (org-element-at-point))
(let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case (match-string 1) org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos (match-beginning 2)) (< pos (match-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-element--property :tag element nil nil))) (if (or (not tag) (/= (line-beginning-position) post)) (throw 'objects-forbidden element) (forward-line 0) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and (>= pos ...) (< pos ...)) (narrow-to-region (point) (match-end 0)) (throw 'objects-forbidden element))))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-end 4))) (if (not end) (throw 'objects-forbidden element) (goto-char (match-beginning 4)) (if (looking-at org-element-comment-string) (progn ...)) (if (>= ... end) (throw ... element) (narrow-to-region ... end)))))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg (org-element-contents-begin element)) (cend (org-element-contents-end element))) (if (and cbeg cend (>= pos cbeg) (or (< pos cend) (and ... ...))) (narrow-to-region cbeg cend) (throw 'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ((next (org-element--object-lex restriction))) (if next (progn (if ... ... ...))) (if (or (not next) (> ... pos)) (throw 'exit (or last parent)) (let (... ... ...) (cond ... ... ...))))))))
(save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case ... org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos ...) (< pos ...)) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-element--property :tag element nil nil))) (if (or (not tag) (/= ... post)) (throw 'objects-forbidden element) (forward-line 0) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and ... ...) (narrow-to-region ... ...) (throw ... element))))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let ((end ...)) (if (not end) (throw ... element) (goto-char ...) (if ... ...) (if ... ... ...))))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg (org-element-contents-begin element)) (cend (org-element-contents-end element))) (if (and cbeg cend (>= pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) (throw 'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ((next ...)) (if next (progn ...)) (if (or ... ...) (throw ... ...) (let ... ...))))))))
(save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not ...) (throw ... element)) ((< ... pos) (narrow-to-region ... ...)) ((and ... ... ...) (narrow-to-region ... ...)) (t (throw ... element))) (setq type 'keyword)) ((eq type 'item) (let ((tag ...)) (if (or ... ...) (throw ... element) (forward-line 0) (search-forward tag ...) (goto-char ...) (if ... ... ...)))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let (...) (if ... ... ... ... ...)))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg ...) (cend ...)) (if (and cbeg cend ... ...) (narrow-to-region cbeg cend) (throw ... element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let (...) (if next ...) (if ... ... ...))))))))
(catch 'objects-forbidden (save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let (...) (looking-at org-element--affiliated-re)) (cond (... ...) (... ...) (... ...) (t ...)) (setq type 'keyword)) ((eq type 'item) (let (...) (if ... ... ... ... ... ...))) ((memq type '...) (let (...) (goto-char ...) (looking-at org-complex-heading-regexp) (let ... ...))) ((memq type '...) (let (... ...) (if ... ... ...))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ... ... ...))))))))
org-element-context()
(let ((datum (org-element-context))) (and (memq (org-element-type datum t) '(latex-environment latex-fragment)) (let ((beg (org-element-begin datum)) (end (org-element-end datum))) (if (org-clear-latex-preview beg end) (message \"LaTeX preview removed\") (message \"Creating LaTeX preview...\") (org--latex-preview-region beg end) (message \"Creating LaTeX preview... done.\")) t)))
(cond ((not (display-graphic-p)) nil) ((equal arg '(64)) (org-clear-latex-preview (point-min) (point-max)) (message \"LaTeX previews removed from buffer\")) ((equal arg '(16)) (message \"Creating LaTeX previews in buffer...\") (org--latex-preview-region (point-min) (point-max)) (message \"Creating LaTeX previews in buffer... done.\")) ((equal arg '(4)) (org-clear-latex-preview (if (use-region-p) (region-beginning) (if (org-before-first-heading-p) (point-min) (save-excursion (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ... ...))))) (if (use-region-p) (region-end) (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-entry-end-position)))))) ((use-region-p) (message \"Creating LaTeX previews in region...\") (org--latex-preview-region (region-beginning) (region-end)) (message \"Creating LaTeX previews in region... done.\")) ((let ((datum (org-element-context))) (and (memq (org-element-type datum t) '(latex-environment latex-fragment)) (let ((beg (org-element-begin datum)) (end (org-element-end datum))) (if (org-clear-latex-preview beg end) (message \"LaTeX preview removed\") (message \"Creating LaTeX preview...\") (org--latex-preview-region beg end) (message \"Creating LaTeX preview... done.\")) t)))) (t (let ((beg (if (org-before-first-heading-p) (point-min) (save-excursion (progn ... ... ... ... ...)))) (end (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (org-entry-end-position))))) (message \"Creating LaTeX previews in section...\") (org--latex-preview-region beg end) (message \"Creating LaTeX previews in section... done.\"))))
org-latex-preview(nil)
funcall-interactively(org-latex-preview nil)
call-interactively(org-latex-preview nil nil)
command-execute(org-latex-preview)
"
Please report this to Org mode mailing list (M-x org-submit-bug-report). Disable showing Disable logging
--
Sent with https://mailfence.com
Secure and private email
next reply other threads:[~2023-08-18 13:31 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-08-18 13:20 Edgar Lux [this message]
2023-08-18 16:04 ` [BUG] Warning when creating preview Ihor Radchenko
2023-08-19 0:37 ` Edgar Lux
2023-08-22 16:29 ` Edgar Lux
2023-08-23 7:56 ` Ihor Radchenko
2023-08-26 15:39 ` Edgar Lux
2023-08-26 16:28 ` Ihor Radchenko
2023-08-27 11:13 ` Edgar Lux
2023-08-27 11:28 ` Ihor Radchenko
2023-08-27 17:26 ` Edgar Lux
2023-08-27 17:29 ` Ihor Radchenko
[not found] ` <1064170796.778390.1693179229311@ichabod.co-bxl>
2023-08-28 9:00 ` Ihor Radchenko
2023-09-28 14:21 ` Edgar Lux
2023-09-28 14:53 ` Edgar Lux
2023-10-02 10:14 ` Edgar Lux
2023-10-05 14:31 ` Ihor Radchenko
[not found] ` <1472786502.941.1696851881089@ichabod.co-bxl>
2023-10-09 13:59 ` Edgar Lux
2023-10-09 14:17 ` Edgar Lux
2023-10-11 9:11 ` Ihor Radchenko
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=1650384805.753459.1692364837267@ichabod.co-bxl \
--to=edgarlux@mailfence.com \
--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).