[BUG] Warning when creating preview

[Edgar Lux]

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