[BUG] Warning when creating preview

[Edgar Lux <edgarlux@mailfence.com>]

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