From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:306:2d92::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms9.migadu.com with LMTPS id EIL/Dqty32S0QgEASxT56A (envelope-from ) for ; Fri, 18 Aug 2023 15:31:23 +0200 Received: from aspmx1.migadu.com ([2001:41d0:306:2d92::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id KArFDaty32TsZgAAG6o9tA (envelope-from ) for ; Fri, 18 Aug 2023 15:31:23 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id B793D35791 for ; Fri, 18 Aug 2023 15:31:22 +0200 (CEST) Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=mailfence.com header.s=20210208-e7xh header.b=jaOTK112; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=quarantine) header.from=mailfence.com ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1692365482; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=bPR0PtZfUmEwOTjWu7vzWn8jyD1CtJ4Fr1eOo1iYuIc=; b=mxMOq20DdBokgmTVCCgYeIMGkZSxndekdLpA2trrAERCGG1PVDcM40BP8V01Ibf85NDPvI CVYPGp6LF4lZE4q1Fy/jGvM4zjKy3V3FBO3qPi3abGpwm/APde2SfUQbG5TtH9qFjPXGAc sBFKTHT8JfCoQXSbEZH/FBvu7/2Ev1aLwXPD8I5dLqVabiNidhdDkFOITHymc/7V5sxVBT fJYuxqdHWsaBt04m6x5dAhut0SpboZPi9ZjZAcJFM7QjcL3ZmBRKcTEW+LNhwzXwnnGfuf fZh9/Ly87s6dOzyVPMsOG1fZvk0XwJi4cBg0wnPcgp6jy+FT6whpztpcc0JkEA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=mailfence.com header.s=20210208-e7xh header.b=jaOTK112; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org"; dmarc=pass (policy=quarantine) header.from=mailfence.com ARC-Seal: i=1; s=key1; d=yhetil.org; t=1692365482; a=rsa-sha256; cv=none; b=Cxyc0yoH3zsc0fjEWaRA1QjdeSlV2lSN52dFdE4uMRgWrIiGy38CLifPl72waJMyrvhOAk LE1EFI8rGp+JjPz2863Mzp5tSDZ6AampxmXKOBnFIFCrzSSLB0R2ChFt3DkXPtzMlovid+ /p/mykn83fpzW+P8TSSKmgR7+UADKQwWaeA72PycU/603ivjwV5mweqeJUJbBj7G5ChkfI IyS0e+OzSW71WmirLh/OKUeBk/DkgqbQnVTbmleLRPjmf+FHp1++zPDRil2xkBOH5+A0rs u0Vcr/R4If+IYZ6x7jqX4ebjHZJ7zTrO8/v3DJ/0lkOsnfzgODx8yykUyTtl5A== Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1qWzYa-0003hx-0H; Fri, 18 Aug 2023 09:30:28 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qWzPI-0000wm-FI for emacs-orgmode@gnu.org; Fri, 18 Aug 2023 09:20:52 -0400 Received: from wilbur.contactoffice.com ([212.3.242.68]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1qWzPE-0008Bi-H2 for emacs-orgmode@gnu.org; Fri, 18 Aug 2023 09:20:52 -0400 Received: from ichabod.co-bxl (ichabod.co-bxl [10.2.0.36]) by wilbur.contactoffice.com (Postfix) with ESMTP id 356362B6 for ; Fri, 18 Aug 2023 15:20:42 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1692364842; s=20210208-e7xh; d=mailfence.com; i=edgarlux@mailfence.com; h=Date:Message-ID:MIME-Version:Content-Type:Subject:From:Content-Transfer-Encoding:To; l=19269; bh=bPR0PtZfUmEwOTjWu7vzWn8jyD1CtJ4Fr1eOo1iYuIc=; b=jaOTK112/zLQdrre3c2BQJBFkkjBl0Vni0sRQPWsdUXZHeigRX/Df4IgYioFgd/P y7lMfozGcqTd7lxCTxtI0rUSFg3M5Lyc8qcAvrpz7KziAQR5UDisIZHvAtgA7jG9E+7 6GJb1KOY2OQWGdTzET16lPqr3+yMK1tSGmxKntilSAjsTEHYSL1a5ORPMbFpWxEGJ+z VldElN8HaZBDZHpKQ2G+sfLlyZdMeWJcMDnRERYkcrXqcvzk/pCVNLAz+9ErqiGHmUl Uvl0hV5DoFmMApmnVeV5h3QLOkpsOePKW2CM7jUx389/+OLVYl/SPYIMkab72ygIrQk JAj1gA/h1w== Date: Fri, 18 Aug 2023 15:20:37 +0200 (CEST) Message-ID: <1650384805.753459.1692364837267@ichabod.co-bxl> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Subject: [BUG] Warning when creating preview From: Edgar Lux Content-Transfer-Encoding: quoted-printable To: Emacs Orgmode X-Mailer: ContactOffice Mail X-ContactOffice-Account: com:195124330 Received-SPF: pass client-ip=212.3.242.68; envelope-from=edgarlux@mailfence.com; helo=wilbur.contactoffice.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: emacs-orgmode-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN X-Migadu-Scanner: mx2.migadu.com X-Migadu-Spam-Score: -6.69 X-Spam-Score: -6.69 X-Migadu-Queue-Id: B793D35791 X-TUID: M1YQ7txa/Hcm 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 publ= icly, 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 k= now. * What happens When I type some equations and get the preview, I get this warning #+begin_quote \begin{gather} t =3D 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 ...\" (buff= er-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-ele= ment--cache-diagnostics-ring) (not (eq 'backtrace org-element--cache-self-v= erify))) format-string (prog1 (concat (format \"Warning(%s): \" (buffer-nam= e ...)) format-string \"\\nBacktrace:\\n \" (mapconcat #'identity (ring-el= ements 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)) (disp= lay-warning 'org-element-cache (concat \"org-element--cache: \" format-stri= ng)))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((f= ormat-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 'o= rg-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: = \" format-string)) (display-warning 'org-element-cache (concat \"org-elemen= t--cache: \" format-string)))) (org-element-cache-reset) (org-element--pars= e-to epom))) (if cached-only (if (and (org-element--cache-active-p) (or (not org-eleme= nt--cache-sync-requests) (< epom (aref (car org-element--cache-sync-request= s) 1)))) (progn (org-element--cache-find epom))) (condition-case err (org-e= lement--parse-to epom) ((debug error) (let* ((format-string (format \"Org p= arser 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-eleme= nt-cache (concat \"org-element--cache: \" format-string)))) (org-element-ca= che-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--cach= e-sync-requests) 1)))) (progn (org-element--cache-find epom))) (condition-c= ase 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-str= ing)) (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-elem= ent--cache) (org-element-cache-reset) (if cached-only nil (org-element--cac= he-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-cas= e err (org-element--parse-to epom) ((debug error) (let* ((format-string ...= ) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (dis= play-warning ... ...))) (org-element-cache-reset) (org-element--parse-to ep= om))))) (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 (=3D 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 cache= d-only (memq this-command org-element--cache-non-modifying-commands)) (prog= n (setq cached-only nil))) (let (element) (if (org-element--cache-active-p)= (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-o= nly 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 e= pom))))) (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-onl= y (not (and element (or ... ... ... ...)))) nil (if (not (eq (org-element-t= ype element t) 'section)) element (org-element-at-point (1+ epom) cached-on= ly)))))) (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-res= et) (if cached-only nil (org-element--cache-sync ... epom))))) (setq elemen= t (if cached-only (if (and (org-element--cache-active-p) (or ... ...)) (pro= gn (org-element--cache-find epom))) (condition-case err (org-element--parse= -to epom) ((debug error) (let* ... ...) (org-element-cache-reset) (org-elem= ent--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 ... ...)) elemen= t (org-element-at-point (1+ epom) cached-only))))))) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mep= om))) ((numberp --mepom)) (t (if (let* ((parray (and t ...))) (if parray (l= et* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))) (progn (set-b= uffer (let* (...) (if parray ... ...))))) (setq --mepom (let* ((parray (and= t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ..= . ...))))))) (save-excursion (save-restriction (widen) (goto-char (or --mep= om (point))) (if (and cached-only (memq this-command org-element--cache-non= -modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (o= rg-element--cache-active-p) (progn (if (not org-element--cache) (org-elemen= t-cache-reset) (if cached-only nil ...)))) (setq element (if cached-only (i= f (and ... ...) (progn ...)) (condition-case err (org-element--parse-to epo= m) (... ... ... ...)))) (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-buffe= r (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 --mepo= m (point))) (if (and cached-only (memq this-command org-element--cache-non-= modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (or= g-element--cache-active-p) (progn (if ... ... ...))) (setq element (if cach= ed-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-modifyin= g-commands)) (progn (setq cached-only nil))) (let (element) (if (org-elemen= t--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 (m= atch-string 1) org-element-parsed-keywords)) (throw 'objects-forbidden elem= ent)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-posi= tion))) ((and (match-beginning 2) (>=3D pos (match-beginning 2)) (< pos (ma= tch-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t (thro= w 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let= ((tag (org-element--property :tag element nil nil))) (if (or (not tag) (/= =3D (line-beginning-position) post)) (throw 'objects-forbidden element) (fo= rward-line 0) (search-forward tag (line-end-position)) (goto-char (match-be= ginning 0)) (if (and (>=3D pos ...) (< pos ...)) (narrow-to-region (point) = (match-end 0)) (throw 'objects-forbidden element))))) ((memq type '(headlin= e 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-beginn= ing 4)) (if (looking-at org-element-comment-string) (progn ...)) (if (>=3D = ... end) (throw ... element) (narrow-to-region ... end)))))) ((memq type '(= paragraph table-row verse-block)) (let ((cbeg (org-element-contents-begin e= lement)) (cend (org-element-contents-end element))) (if (and cbeg cend (>= =3D 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 typ= e)) (parent element) last) (catch 'exit (while t (let ((next (org-element--= object-lex restriction))) (if next (progn (if ... ... ...))) (if (or (not n= ext) (> ... 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-po= st-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (l= et ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((= not (member-ignore-case ... org-element-parsed-keywords)) (throw 'objects-f= orbidden element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (= line-end-position))) ((and (match-beginning 2) (>=3D pos ...) (< pos ...)) = (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-fo= rbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-e= lement--property :tag element nil nil))) (if (or (not tag) (/=3D ... post))= (throw 'objects-forbidden element) (forward-line 0) (search-forward tag (l= ine-end-position)) (goto-char (match-beginning 0)) (if (and ... ...) (narro= w-to-region ... ...) (throw ... element))))) ((memq type '(headline inlinet= ask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element))= (looking-at org-complex-heading-regexp) (let ((end ...)) (if (not end) (th= row ... element) (goto-char ...) (if ... ...) (if ... ... ...))))) ((memq t= ype '(paragraph table-row verse-block)) (let ((cbeg (org-element-contents-b= egin element)) (cend (org-element-contents-end element))) (if (and cbeg cen= d (>=3D pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) (throw 'object= s-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char = (point-min)) (let ((restriction (org-element-restriction type)) (parent ele= ment) 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)) (fo= rward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliat= ed-re)) (cond ((not ...) (throw ... element)) ((< ... pos) (narrow-to-regio= n ... ...)) ((and ... ... ...) (narrow-to-region ... ...)) (t (throw ... el= ement))) (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 ((ca= se-fold-search nil)) (goto-char (org-element-begin element)) (looking-at or= g-complex-heading-regexp) (let (...) (if ... ... ... ... ...)))) ((memq typ= e '(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 ((restric= tion (org-element-restriction type)) (parent element) last) (catch 'exit (w= hile 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-el= ement-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 'k= eyword)) ((eq type 'item) (let (...) (if ... ... ... ... ... ...))) ((memq = type '...) (let (...) (goto-char ...) (looking-at org-complex-heading-regex= p) (let ... ...))) ((memq type '...) (let (... ...) (if ... ... ...))) (t (= throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restrict= ion (org-element-restriction type)) (parent element) last) (catch 'exit (wh= ile 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) (mes= sage \"LaTeX preview removed\") (message \"Creating LaTeX preview...\") (or= g--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 bu= ffer\")) ((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-p= review (if (use-region-p) (region-beginning) (if (org-before-first-heading-= p) (point-min) (save-excursion (progn (defvar org-called-with-limited-level= s) (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-lim= ited-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-re= gion (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-p= review beg end) (message \"LaTeX preview removed\") (message \"Creating LaT= eX preview...\") (org--latex-preview-region beg end) (message \"Creating La= TeX 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* (... ... ... ...) (or= g-entry-end-position))))) (message \"Creating LaTeX previews in section...\= ") (org--latex-preview-region beg end) (message \"Creating LaTeX previews i= n 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). D= isable showing Disable logging --=20 Sent with https://mailfence.com =20 Secure and private email