From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id qN7iBGexkGJFZQEAbAwnHQ (envelope-from ) for ; Fri, 27 May 2022 13:09:27 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id oAnjBGexkGL9mgAA9RJhRA (envelope-from ) for ; Fri, 27 May 2022 13:09:27 +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 20DAFF7C9 for ; Fri, 27 May 2022 13:09:26 +0200 (CEST) Received: from localhost ([::1]:57236 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nuXqO-0002ph-Q6 for larch@yhetil.org; Fri, 27 May 2022 07:09:24 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:36884) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nuXk2-0002jg-O6 for emacs-orgmode@gnu.org; Fri, 27 May 2022 07:02:50 -0400 Received: from mout-p-102.mailbox.org ([2001:67c:2050:0:465::102]:55248) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_CHACHA20_POLY1305:256) (Exim 4.90_1) (envelope-from ) id 1nuXjw-0004B7-V1 for emacs-orgmode@gnu.org; Fri, 27 May 2022 07:02:50 -0400 Received: from smtp202.mailbox.org (smtp202.mailbox.org [10.196.197.202]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange ECDHE (P-384) server-signature RSA-PSS (4096 bits) server-digest SHA256) (No client certificate requested) by mout-p-102.mailbox.org (Postfix) with ESMTPS id 4L8hj75KLGz9t16 for ; Fri, 27 May 2022 13:02:35 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=guelker.eu; s=MBO0001; t=1653649355; h=from:from: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; bh=pnsVNhXbXzv9vs75FoqOJeVogPqhxlKQJKYI0rtx6pw=; b=GodEUWlN2iA8pm41i40HYrap+SgxHbK2DmUZAVYffF3QaiFfJc+WDYjCEoe9/kaks0XfKk QC88x7B8beW3bhxdCLTGBQ3O03BfYlh7/53xwMrg4AepVwhvwEwZJunEMF+632if1VGy7v vbHypMFydd6RT1d8g2Pahk8R8tBGNXyTZsKXkN+RcZVb4hLmhS5ovnd3IYQeA7/Cw0NmGC bXKMl+IaHuvnIxz1ya6byXdn+QXPxLcBxM3CAfH4qSLewEqhgJDqZCQHziDeJGMNG6l2IX jG8cGG/yPmGdmjgZ5pktlC2WALa0xUtYffiEjHDBQunxouHKMvlBxQWJ4elLlg== From: Marvin =?utf-8?Q?G=C3=BClker?= To: emacs-orgmode@gnu.org Subject: [BUG] Setting compile command causes fontification error [9.5 (release_9.5-661-g5e0afb @ /home/quintus/.emacs.d/org-mode/lisp/)] Mail-Followup-To: emacs-orgmode@gnu.org Date: Fri, 27 May 2022 13:02:34 +0200 Message-ID: <87k0a7kzlh.fsf@guelker.eu> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=2001:67c:2050:0:465::102; envelope-from=post+orgmodeml@guelker.eu; helo=mout-p-102.mailbox.org X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 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, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 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" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1653649766; 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=pnsVNhXbXzv9vs75FoqOJeVogPqhxlKQJKYI0rtx6pw=; b=SEfY+NuEu6bZNEiNSkGgusIjbREko8yTVkLNDEDnIVlqizS2fTpBQqLJDXiHZDo9NSd/Qv 4UA3NCOuXLVmHf4NyZUET41g4bIMfiB/xaKXnwqMm+/bFpwquZHRen/4r1mTi9xzRSKs+h JpWy5M1E1ERDjJsFPPm8V7pm+6+1TGRkye09wsqDx0S/ANaFz/rJ9EAD3CIFWkYqWi1Btj Tqwpny1zxvZxquhWyvif7zmHTaRkUOvy3DLfSkolyVOs+aHhIX07Oi5n4Bsba3WbwIocsI Q+dqT3brryknKv/wZJjirS8IHS3pUUn5pdczXFUDhmJYp84yhYcHAD1n23UPmA== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1653649766; a=rsa-sha256; cv=none; b=FF4y3xhAOGtUBcZwAewE4ElC2tpFXhWzLSm6G6NhMDy4sRu7P7I5RtuIg6CXVGh31c2T/1 AivKp4laMf35zGpp5B3j3IVYFBLfMMGm7jMVnqjd9dhNWT5BLpZ6NQMsn2Jrd0XLxeJrWI cumEAzjeedx1DlYZZpjoOVdpTsO9fWANCcVsw4ariXvbBNt60e8BtEh5nww1i90eIE8uRX s+FfV9AW6edzZlaSNL9HlXm5p8dXEwSmV4rNli/i1O9T5lrO6RcZjQ6FnaemJPIAp7jcRq acXrAUX5a7coHZ7QrbtJ8iS21tjQ3uUiz/CyMEA8Pgf7SFBQ4owjBWTfPHdMPQ== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=guelker.eu header.s=MBO0001 header.b=GodEUWlN; dmarc=none; 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" X-Migadu-Spam-Score: -8.64 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=guelker.eu header.s=MBO0001 header.b=GodEUWlN; dmarc=none; 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" X-Migadu-Queue-Id: 20DAFF7C9 X-Spam-Score: -8.64 X-Migadu-Scanner: scn0.migadu.com X-TUID: cdv1dJHhWKLx 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. ------------------------------------------------------------------------ Dear all, trying to access a file with the content shown further below results in this message: Org mode fontification error in # at 31 Trying to export said file to HTML yields this backtrace: Debugger entered--Lisp error: (wrong-type-argument arrayp nil) substring(nil 0 0) replace-regexp-in-string("[^-0-9a-zA-Z_./\n]" "\\\\\\&" nil) shell-quote-argument(nil) (concat "lualatex " (shell-quote-argument (buffer-file-name))) (set (make-local-variable 'compile-command) (concat "lualatex " (shel= l-quote-argument (buffer-file-name)))) (lambda nil (set (make-local-variable 'compile-command) (concat "lual= atex " (shell-quote-argument (buffer-file-name)))))() run-hooks(change-major-mode-after-body-hook text-mode-hook tex-mode-h= ook latex-mode-hook) apply(run-hooks (change-major-mode-after-body-hook text-mode-hook tex= -mode-hook latex-mode-hook)) run-mode-hooks(latex-mode-hook) latex-mode() funcall(latex-mode) (progn (funcall lang-mode) (insert code) (org-font-lock-ensure) (save= -excursion (let ((beg (point-min)) (end (point-max))) (goto-char beg) (whil= e (progn (end-of-line) (< (point) end)) (put-text-property (point) (1+ (poi= nt)) 'face nil) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p n= il) (let ((org-html-htmlize-output-type output-type) (org-html-htmlize-font= -prefix font-prefix)) (org-html-htmlize-region-for-paste (point-min) (point= -max)))) (unwind-protect (progn (funcall lang-mode) (insert code) (org-font-lo= ck-ensure) (save-excursion (let ((beg (point-min)) (end (point-max))) (goto= -char beg) (while (progn (end-of-line) (< (point) end)) (put-text-property = (point) (1+ (point)) 'face nil) (forward-char 1)))) (org-src-mode) (set-buf= fer-modified-p nil) (let ((org-html-htmlize-output-type output-type) (org-h= tml-htmlize-font-prefix font-prefix)) (org-html-htmlize-region-for-paste (p= oint-min) (point-max)))) (and (buffer-name temp-buffer) (kill-buffer temp-b= uffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn = (funcall lang-mode) (insert code) (org-font-lock-ensure) (save-excursion (l= et ((beg (point-min)) (end (point-max))) (goto-char beg) (while (progn (end= -of-line) (< ... end)) (put-text-property (point) (1+ ...) 'face nil) (forw= ard-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let ((org-html-h= tmlize-output-type output-type) (org-html-htmlize-font-prefix font-prefix))= (org-html-htmlize-region-for-paste (point-min) (point-max)))) (and (buffer= -name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-bu= ffer (set-buffer temp-buffer) (unwind-protect (progn (funcall lang-mode) (i= nsert code) (org-font-lock-ensure) (save-excursion (let ((beg ...) (end ...= )) (goto-char beg) (while (progn ... ...) (put-text-property ... ... ... ni= l) (forward-char 1)))) (org-src-mode) (set-buffer-modified-p nil) (let ((or= g-html-htmlize-output-type output-type) (org-html-htmlize-font-prefix font-= prefix)) (org-html-htmlize-region-for-paste (point-min) (point-max)))) (and= (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((output-type org-html-htmlize-output-type) (font-prefix org-htm= l-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer (generate-= new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwi= nd-protect (progn (funcall lang-mode) (insert code) (org-font-lock-ensure) = (save-excursion (let (... ...) (goto-char beg) (while ... ... ...))) (org-s= rc-mode) (set-buffer-modified-p nil) (let ((org-html-htmlize-output-type ou= tput-type) (org-html-htmlize-font-prefix font-prefix)) (org-html-htmlize-re= gion-for-paste (point-min) (point-max)))) (and (buffer-name temp-buffer) (k= ill-buffer temp-buffer)))))) (setq code (let ((output-type org-html-htmlize-output-type) (font-pre= fix org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer= (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-bu= ffer) (unwind-protect (progn (funcall lang-mode) (insert code) (org-font-lo= ck-ensure) (save-excursion (let ... ... ...)) (org-src-mode) (set-buffer-mo= dified-p nil) (let (... ...) (org-html-htmlize-region-for-paste ... ...))) = (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))) (cond ((not (functionp lang-mode)) (org-html-encode-plain-text code))= (t (setq code (let ((output-type org-html-htmlize-output-type) (font-prefi= x org-html-htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer (= generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buff= er) (unwind-protect (progn ... ... ... ... ... ... ...) (and ... ...)))))) = (let* ((beg (and (string-match "\\`]*>\n?" code) (match-end 0))) (en= d (and beg (string-match "\\'" code)))) (if (and beg end) (substring = code beg end) code)))) (let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond= ((not (functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq c= ode (let ((output-type org-html-htmlize-output-type) (font-prefix org-html-= htmlize-font-prefix) (inhibit-read-only t)) (let ((temp-buffer ...)) (save-= current-buffer (set-buffer temp-buffer) (unwind-protect ... ...))))) (let* = ((beg (and (string-match "\\`]*>\n?" code) (match-end 0))) (end (and= beg (string-match "\\'" code)))) (if (and beg end) (substring code b= eg end) code))))) (cond ((not lang) (org-html-encode-plain-text code)) ((not org-html-h= tmlize-output-type) (org-html-encode-plain-text code)) ((not (progn (requir= e 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "Cannot fo= ntify source block (htmlize.el >=3D 1.34 re...") (org-html-encode-plain-tex= t code)) (t (setq lang (or (assoc-default lang org-src-lang-modes) lang)) (= let* ((lang-mode (and lang (intern (format "%s-mode" lang))))) (cond ((not = (functionp lang-mode)) (org-html-encode-plain-text code)) (t (setq code (le= t (... ... ...) (let ... ...))) (let* ((beg ...) (end ...)) (if (and beg en= d) (substring code beg end) code))))))) (progn (cond ((not lang) (org-html-encode-plain-text code)) ((not org= -html-htmlize-output-type) (org-html-encode-plain-text code)) ((not (progn = (require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (message "Ca= nnot fontify source block (htmlize.el >=3D 1.34 re...") (org-html-encode-pl= ain-text code)) (t (setq lang (or (assoc-default lang org-src-lang-modes) l= ang)) (let* ((lang-mode (and lang (intern ...)))) (cond ((not (functionp la= ng-mode)) (org-html-encode-plain-text code)) (t (setq code (let ... ...)) (= let* (... ...) (if ... ... code)))))))) (if code (progn (cond ((not lang) (org-html-encode-plain-text code)) = ((not org-html-htmlize-output-type) (org-html-encode-plain-text code)) ((no= t (progn (require 'htmlize nil t) (fboundp 'htmlize-region-for-paste))) (me= ssage "Cannot fontify source block (htmlize.el >=3D 1.34 re...") (org-html-= encode-plain-text code)) (t (setq lang (or (assoc-default lang org-src-lang= -modes) lang)) (let* ((lang-mode (and lang ...))) (cond ((not ...) (org-htm= l-encode-plain-text code)) (t (setq code ...) (let* ... ...)))))))) org-html-fontify-code("\\documentclass[a4paper,english,11pt]{scrartcl= }\n\\us..." "latex") (let* ((code-lines (split-string code "\n")) (code-length (length cod= e-lines)) (num-fmt (and num-start (format "%%%ds: " (length (number-to-stri= ng (+ code-length num-start)))))) (code (org-html-fontify-code code lang)))= (org-export-format-code code #'(lambda (loc line-num ref) (setq loc (conca= t (if num-start (progn ...)) (if wrap-lines (format "%s" ...= loc) loc) (if (and ref retain-labels) (progn ...)))) (if (not ref) loc (fo= rmat "%s := input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-st= rict" :html-container "div" :html-content-class "content" :description nil = :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) (let* ((lang (org-element-property :language src-block)) (code (org-h= tml-format-code src-block info)) (label (let ((lbl (org-html--reference src= -block info t))) (if lbl (format " id=3D\"%s\"" lbl) ""))) (klipsify (and (= plist-get info :html-klipsify-src) (member lang '("javascript" "js" "ruby" = "scheme" "clojure" "php" "html"))))) (if (not lang) (format "
\n%s
" label code) (format "
\n%s%s\n
" (let ((caption (org-export-get-caption src-block))) (= if (not caption) "" (let ((listing-number ...)) (format "" listing-number (org-trim ...))))) (if klipsify = (format "
%s
" lang label = (if (string=3D lang "html") " data-editor-type=3D\"html\"" "") code) (forma= t "
%s
" lang label code))))) (if (org-export-read-attribute :attr_html src-block :textarea) (org-h= tml--textarea-block src-block) (let* ((lang (org-element-property :language= src-block)) (code (org-html-format-code src-block info)) (label (let ((lbl= (org-html--reference src-block info t))) (if lbl (format " id=3D\"%s\"" lb= l) ""))) (klipsify (and (plist-get info :html-klipsify-src) (member lang '(= "javascript" "js" "ruby" "scheme" "clojure" "php" "html"))))) (if (not lang= ) (format "
\n%s
" label code) (format "\n%s%s\n" (let ((caption (org-export-g= et-caption src-block))) (if (not caption) "" (let (...) (format "" listing-number ...)))) (if klipsify (fo= rmat "
%s
" lang label (if= (string=3D lang "html") " data-editor-type=3D\"html\"" "") code) (format "= 
%s
" lang label code)))))) org-html-src-block((src-block (:language "latex" :switches nil :param= eters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain= -labels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,eng.= .." :post-blank 0 :post-affiliated 43 ...)) nil (:export-options nil :back-= end #s(org-export-backend :name html :parent nil :transcoders (... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters = (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alis= t ((bold . org-html-bold) (center-block . org-html-center-block) (clock . o= rg-html-clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-b= lock . org-html-dynamic-block) (entity . org-html-entity) (example-block . = org-html-example-block) (export-block . org-html-export-block) (export-snip= pet . org-html-export-snippet) (fixed-width . org-html-fixed-width) (footno= te-reference . org-html-footnote-reference) (headline . org-html-headline) = (horizontal-rule . org-html-horizontal-rule) (inline-src-block . org-html-i= nline-src-block) (inlinetask . org-html-inlinetask) (inner-template . org-h= tml-inner-template) (italic . org-html-italic) (item . org-html-item) (keyw= ord . org-html-keyword) (latex-environment . org-html-latex-environment) (l= atex-fragment . org-html-latex-fragment) (line-break . org-html-line-break)= (link . org-html-link) (node-property . org-html-node-property) (paragraph= . org-html-paragraph) ...) :exported-data #= :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-= strict" :html-container "div" :html-content-class "content" :description ni= l :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) funcall(org-html-src-block (src-block (:language "latex" :switches ni= l :parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent nil= :retain-labels t :use-labels t :label-fmt nil :value "\\documentclass[a4pa= per,eng..." :post-blank 0 :post-affiliated 43 ...)) nil (:export-options ni= l :back-end #s(org-export-backend :name html :parent nil :transcoders (... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) := filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :transl= ate-alist ((bold . org-html-bold) (center-block . org-html-center-block) (c= lock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (d= ynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example-= block . org-html-example-block) (export-block . org-html-export-block) (exp= ort-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width)= (footnote-reference . org-html-footnote-reference) (headline . org-html-he= adline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . or= g-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-template= . org-html-inner-template) (italic . org-html-italic) (item . org-html-ite= m) (keyword . org-html-keyword) (latex-environment . org-html-latex-environ= ment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-lin= e-break) (link . org-html-link) (node-property . org-html-node-property) (p= aragraph . org-html-paragraph) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctype= "xhtml-strict" :html-container "div" :html-content-class "content" :descri= ption nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil ..= .)) (progn (funcall transcoder data nil info)) (condition-case err (progn (funcall transcoder data nil info)) (org-l= ink-broken (let* ((val (plist-get info :with-broken-links))) (cond ((null v= al) (user-error "Unable to resolve link: %S" (nth 1 err))) ((eq val 'mark) = (org-export-data (format "[BROKEN LINK: %s]" (nth 1 err)) info)) (t nil))))) (and (functionp transcoder) (condition-case err (progn (funcall trans= coder data nil info)) (org-link-broken (let* ((val (plist-get info :with-br= oken-links))) (cond ((null val) (user-error "Unable to resolve link: %S" (n= th 1 err))) ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" ..= .) info)) (t nil)))))) (or (and (functionp transcoder) (condition-case err (progn (funcall t= ranscoder data nil info)) (org-link-broken (let* ((val (plist-get info :wit= h-broken-links))) (cond ((null val) (user-error "Unable to resolve link: %S= " ...)) ((eq val ...) (org-export-data ... info)) (t nil)))))) (and (eq typ= e 'export-snippet) "")) (let ((transcoder (org-export-transcoder data info))) (or (and (funct= ionp transcoder) (condition-case err (progn (funcall transcoder data nil in= fo)) (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil)))= ))) (and (eq type 'export-snippet) ""))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)= (car (org-element-contents data))) ((eq type 'plain-text) (org-export-filt= er-apply-functions (plist-get info :filter-plain-text) (let ((transcoder (o= rg-export-transcoder data info))) (if transcoder (funcall transcoder data i= nfo) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data = obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type '= headline) (eq (plist-get info :with-archived-trees) 'headline) (org-element= -property :archivedp data))) (let ((transcoder (org-export-transcoder data = info))) (or (and (functionp transcoder) (condition-case err (progn (funcall= transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq typ= e 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder data = info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (contents= ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) (let* ((type (org-element-type data)) (parent (org-export-get-parent = data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq = type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-e= xport-filter-apply-functions (plist-get info :filter-plain-text) (let (...)= (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...)= data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ..= . ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or= (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (p= rogn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil or= g-data plain-text raw)) results) (t (org-export-filter-apply-functions (pli= st-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq= ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info := exported-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-= element-type data)) (parent (org-export-get-parent data)) (results (cond ((= memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-ele= ment-contents data))) ((eq type 'plain-text) (org-export-filter-apply-funct= ions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (= mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or = ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not= results) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-= export-filter-apply-functions (plist-get info (intern ...)) (let (...) (if = ... ... ...)) info))) (plist-get info :exported-data)))) org-export-data((src-block (:language "latex" :switches nil :paramete= rs nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-la= bels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,eng..."= :post-blank 0 :post-affiliated 43 ...)) (:export-options nil :back-end #s(= org-export-backend :name html :parent nil :transcoders (... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ..= . ...) :blocks nil :menu (104 "Export to HTML" ...)) :translate-alist ((bol= d . org-html-bold) (center-block . org-html-center-block) (clock . org-html= -clock) (code . org-html-code) (drawer . org-html-drawer) (dynamic-block . = org-html-dynamic-block) (entity . org-html-entity) (example-block . org-htm= l-example-block) (export-block . org-html-export-block) (export-snippet . o= rg-html-export-snippet) (fixed-width . org-html-fixed-width) (footnote-refe= rence . org-html-footnote-reference) (headline . org-html-headline) (horizo= ntal-rule . org-html-horizontal-rule) (inline-src-block . org-html-inline-s= rc-block) (inlinetask . org-html-inlinetask) (inner-template . org-html-inn= er-template) (italic . org-html-italic) (item . org-html-item) (keyword . o= rg-html-keyword) (latex-environment . org-html-latex-environment) (latex-fr= agment . org-html-latex-fragment) (line-break . org-html-line-break) (link = . org-html-link) (node-property . org-html-node-property) (paragraph . org-= html-paragraph) ...) :exported-data # :input= -buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-strict"= :html-container "div" :html-content-class "content" :description nil :keyw= ords nil :html-html5-fancy nil :html-link-use-abs-url nil ...)) (closure ((objectp) (greaterp section special-block table org-data) (= transcoder . org-html-section) (parent org-data (:begin 1 :contents-begin 1= :contents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 := post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" :gr= anularity nil) (section ... ... ... ...)) (type . section) (info :export-op= tions nil :back-end #s(org-export-backend :name html :parent nil :transcode= rs ... :options ... :filters ... :blocks nil :menu ...) :translate-alist (.= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :htm= l-doctype "xhtml-strict" :html-container "div" :html-content-class "content= " :description nil :keywords nil :html-html5-fancy nil :html-link-use-abs-u= rl nil :html-link-home "" ...) (data section (:begin 1 :end 522 :contents-b= egin 1 :contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :pos= t-affiliated 1 :mode first-section :granularity nil :parent ...) (keyword .= ..) (paragraph ... ...) (src-block ...)) cl-struct-org-export-backend-tags = org-publish-project-alist t) (element) (org-export-data element info))((src= -block (:language "latex" :switches nil :parameters nil :begin 43 :end 522 = :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :labe= l-fmt nil :value "\\documentclass[a4paper,english,11pt]{scrartcl}\n\\us..."= :post-blank 0 :post-affiliated 43 :mode nil :granularity nil :parent (sect= ion (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 = :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section :granu= larity nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 522 = :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1 := path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) #35)= ) (keyword (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank = 1 :post-affiliated 1 :mode top-comment :granularity nil :parent #35)) (para= graph (:begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1 = :post-affiliated 23 :mode nil :granularity nil :parent #35) #("Test code fo= llows:\n" 0 19 (:parent #39))) #1)))) mapconcat((closure ((objectp) (greaterp section special-block table o= rg-data) (transcoder . org-html-section) (parent org-data (:begin 1 :conten= ts-begin 1 :contents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post= -blank 0 :post-affiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY = "test" :granularity nil) (section (:begin 1 :end 522 :contents-begin 1 :con= tents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliate= d 1 :mode first-section :granularity nil :parent #8) (keyword ...) (paragra= ph ... ...) (src-block ...))) (type . section) (info :export-options nil :b= ack-end #s(org-export-backend :name html :parent nil :transcoders (... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) := options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .= .. ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export to HT= ML" ...)) :translate-alist ((bold . org-html-bold) (center-block . org-html= -center-block) (clock . org-html-clock) (code . org-html-code) (drawer . or= g-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org-html-= entity) (example-block . org-html-example-block) (export-block . org-html-e= xport-block) (export-snippet . org-html-export-snippet) (fixed-width . org-= html-fixed-width) (footnote-reference . org-html-footnote-reference) (headl= ine . org-html-headline) (horizontal-rule . org-html-horizontal-rule) (inli= ne-src-block . org-html-inline-src-block) (inlinetask . org-html-inlinetask= ) (inner-template . org-html-inner-template) (italic . org-html-italic) (it= em . org-html-item) (keyword . org-html-keyword) (latex-environment . org-h= tml-latex-environment) (latex-fragment . org-html-latex-fragment) (line-bre= ak . org-html-line-break) (link . org-html-link) (node-property . org-html-= node-property) (paragraph . org-html-paragraph) (plain-list . org-html-plai= n-list) (plain-text . org-html-plain-text) (planning . org-html-planning) (= property-drawer . org-html-property-drawer) (quote-block . org-html-quote-b= lock) (radio-target . org-html-radio-target) (section . org-html-section) (= special-block . org-html-special-block) (src-block . org-html-src-block) (s= tatistics-cookie . org-html-statistics-cookie) (strike-through . org-html-s= trike-through) (subscript . org-html-subscript) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.o= rg" :html-doctype "xhtml-strict" :html-container "div" :html-content-class = "content" :description nil :keywords nil :html-html5-fancy nil :html-link-u= se-abs-url nil :html-link-home "" :html-link-up "" :html-mathjax "" :html-e= quation-reference-format "\\eqref{%s}" :html-postamble auto :html-preamble = ...) (data section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 := robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first= -section :granularity nil :parent (org-data ... #11)) (keyword (:key "TITLE= " :value "Test export" :begin 1 :end 23 :post-blank 1 :post-affiliated 1 :m= ode top-comment :granularity nil :parent #11)) (paragraph (:begin 23 :end 4= 3 :contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 :mo= de nil :granularity nil :parent #11) #("Test code follows:\n" 0 19 ...)) (s= rc-block (:language "latex" :switches nil :parameters nil :begin 43 :end 52= 2 :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :la= bel-fmt nil :value "\\documentclass[a4paper,english,11pt]{s..." :post-blank= 0 :post-affiliated 43 :mode nil :granularity nil :parent #11))) cl-struct-= org-export-backend-tags org-publish-project-alist t) (element) (org-export-= data element info)) ((keyword (:key "TITLE" :value "Test export" :begin 1 := end 23 :post-blank 1 :post-affiliated 1 :mode top-comment :granularity nil = :parent (section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :ro= bust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-s= ection :granularity nil :parent ...) . #2))) (paragraph (:begin 23 :end 43 = :contents-begin 23 :contents-end 42 :post-blank 1 :post-affiliated 23 :mode= nil :granularity nil :parent (section (:begin 1 :end 522 :contents-begin 1= :contents-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affi= liated 1 :mode first-section :granularity nil :parent ...) . #2)) #("Test c= ode follows:\n" 0 19 (:parent #4))) (src-block (:language "latex" :switches= nil :parameters nil :begin 43 :end 522 :number-lines nil :preserve-indent = nil :retain-labels t :use-labels t :label-fmt nil :value "\\documentclass[a= 4paper,english,11pt]{s..." :post-blank 0 :post-affiliated 43 :mode nil :gra= nularity nil :parent (section (:begin 1 :end 522 :contents-begin 1 :content= s-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 = :mode first-section :granularity nil :parent ...) . #2)))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (= and (not greaterp) (memq type org-element-recursive-objects))) (contents (m= apconcat #'(lambda (element) (org-export-data element info)) (org-element-c= ontents (if (or greaterp objectp) data (org-element-normalize-contents data= (and ... ... ... ...)))) ""))) (condition-case err (progn (funcall transco= der data (if (not greaterp) contents (org-element-normalize-string contents= )) info)) (org-link-broken (let* ((val (plist-get info :with-broken-links))= ) (cond ((null val) (user-error "Unable to resolve link: %S" (nth 1 err))) = ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" ...) info)) (t= nil)))))) (progn (let* ((greaterp (memq type org-element-greater-elements)) (ob= jectp (and (not greaterp) (memq type org-element-recursive-objects))) (cont= ents (mapconcat #'(lambda (element) (org-export-data element info)) (org-el= ement-contents (if (or greaterp objectp) data (org-element-normalize-conten= ts data ...))) ""))) (condition-case err (progn (funcall transcoder data (i= f (not greaterp) contents (org-element-normalize-string contents)) info)) (= org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((n= ull val) (user-error "Unable to resolve link: %S" ...)) ((eq val ...) (org-= export-data ... info)) (t nil))))))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater= -elements)) (objectp (and (not greaterp) (memq type org-element-recursive-o= bjects))) (contents (mapconcat #'(lambda ... ...) (org-element-contents (if= ... data ...)) ""))) (condition-case err (progn (funcall transcoder data (= if (not greaterp) contents (org-element-normalize-string contents)) info)) = (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil)))))))) (let ((transcoder (org-export-transcoder data info))) (if transcoder = (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp = (and (not greaterp) (memq type org-element-recursive-objects))) (contents (= mapconcat #'... (org-element-contents ...) ""))) (condition-case err (progn= (funcall transcoder data (if ... contents ...) info)) (org-link-broken (le= t* (...) (cond ... ... ...)))))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)= (car (org-element-contents data))) ((eq type 'plain-text) (org-export-filt= er-apply-functions (plist-get info :filter-plain-text) (let ((transcoder (o= rg-export-transcoder data info))) (if transcoder (funcall transcoder data i= nfo) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data = obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type '= headline) (eq (plist-get info :with-archived-trees) 'headline) (org-element= -property :archivedp data))) (let ((transcoder (org-export-transcoder data = info))) (or (and (functionp transcoder) (condition-case err (progn (funcall= transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq typ= e 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder data = info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (contents= ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) (let* ((type (org-element-type data)) (parent (org-export-get-parent = data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq = type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-e= xport-filter-apply-functions (plist-get info :filter-plain-text) (let (...)= (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...)= data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ..= . ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or= (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (p= rogn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil or= g-data plain-text raw)) results) (t (org-export-filter-apply-functions (pli= st-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq= ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info := exported-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-= element-type data)) (parent (org-export-get-parent data)) (results (cond ((= memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-ele= ment-contents data))) ((eq type 'plain-text) (org-export-filter-apply-funct= ions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (= mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or = ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not= results) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-= export-filter-apply-functions (plist-get info (intern ...)) (let (...) (if = ... ... ...)) info))) (plist-get info :exported-data)))) org-export-data((section (:begin 1 :end 522 :contents-begin 1 :conten= ts-end 522 :robust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1= :mode first-section :granularity nil :parent (org-data ... #1)) (keyword (= :key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1 :post-affi= liated 1 :mode top-comment :granularity nil :parent #1)) (paragraph (:begin= 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1 :post-affilia= ted 23 :mode nil :granularity nil :parent #1) #("Test code follows:\n" 0 19= ...)) (src-block (:language "latex" :switches nil :parameters nil :begin 4= 3 :end 522 :number-lines nil :preserve-indent nil :retain-labels t :use-lab= els t :label-fmt nil :value "\\documentclass[a4paper,eng..." :post-blank 0 = :post-affiliated 43 ...))) (:export-options nil :back-end #s(org-export-bac= kend :name html :parent nil :transcoders (... ... ... ... ... ... ... ... .= .. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)= :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ...) :blocks= nil :menu (104 "Export to HTML" ...)) :translate-alist ((bold . org-html-b= old) (center-block . org-html-center-block) (clock . org-html-clock) (code = . org-html-code) (drawer . org-html-drawer) (dynamic-block . org-html-dynam= ic-block) (entity . org-html-entity) (example-block . org-html-example-bloc= k) (export-block . org-html-export-block) (export-snippet . org-html-export= -snippet) (fixed-width . org-html-fixed-width) (footnote-reference . org-ht= ml-footnote-reference) (headline . org-html-headline) (horizontal-rule . or= g-html-horizontal-rule) (inline-src-block . org-html-inline-src-block) (inl= inetask . org-html-inlinetask) (inner-template . org-html-inner-template) (= italic . org-html-italic) (item . org-html-item) (keyword . org-html-keywor= d) (latex-environment . org-html-latex-environment) (latex-fragment . org-h= tml-latex-fragment) (line-break . org-html-line-break) (link . org-html-lin= k) (node-property . org-html-node-property) (paragraph . org-html-paragraph= ) ...) :exported-data # :input-buffer "test.= org" :input-file "/tmp/test.org" :html-doctype "xhtml-strict" :html-contain= er "div" :html-content-class "content" :description nil :keywords nil :html= -html5-fancy nil :html-link-use-abs-url nil ...)) (closure ((objectp) (greaterp org-data) (transcoder closure ... ... c= ontents) (parent) (type . org-data) (info :export-options nil :back-end ...= :translate-alist ... :exported-data # :inpu= t-buffer "test.org" :input-file "/tmp/test.org" :html-doctype "xhtml-strict= " :html-container "div" :html-content-class "content" :description nil :key= words ...) (data org-data ... ...) cl-struct-org-export-backend-tags org-pu= blish-project-alist t) (element) (org-export-data element info))((section (= :begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begin 1 :robu= st-end 520 :post-blank 0 :post-affiliated 1 :mode first-section :granularit= y nil :parent (org-data (:begin 1 :contents-begin 1 :contents-end 522 :end = 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated 1 :path = "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) #1)) (key= word (:key "TITLE" :value "Test export" :begin 1 :end 23 :post-blank 1 :pos= t-affiliated 1 :mode top-comment :granularity nil :parent #1)) (paragraph (= :begin 23 :end 43 :contents-begin 23 :contents-end 42 :post-blank 1 :post-a= ffiliated 23 :mode nil :granularity nil :parent #1) #("Test code follows:\n= " 0 19 (:parent #5))) (src-block (:language "latex" :switches nil :paramete= rs nil :begin 43 :end 522 :number-lines nil :preserve-indent nil :retain-la= bels t :use-labels t :label-fmt nil :value "\\documentclass[a4paper,english= ,11pt]{scrartcl}\n\\us..." :post-blank 0 :post-affiliated 43 :mode nil :gra= nularity nil :parent #1)))) mapconcat((closure ((objectp) (greaterp org-data) (transcoder closure= ((type . org-data) (info :export-options nil :back-end ... :translate-alis= t ... :exported-data # :input-buffer "test.o= rg" :input-file "/tmp/test.org" :html-doctype "xhtml-strict" :html-containe= r "div" :html-content-class "content" :description nil :keywords nil :html-= html5-fancy nil :html-link-use-abs-url nil :html-link-home "" :html-link-up= "" :html-mathjax "" :html-equation-reference-format "\\eqref{%s}" :html-po= stamble auto :html-preamble ...) (blob org-data ... ...) cl-struct-org-expo= rt-backend-tags org-publish-project-alist t) (_datum contents _info) conten= ts) (parent) (type . org-data) (info :export-options nil :back-end #s(org-e= xport-backend :name html :parent nil :transcoders (... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ...= ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..= . ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) = :filters (... ... ...) :blocks nil :menu (104 "Export to HTML" ...)) :trans= late-alist ((bold . org-html-bold) (center-block . org-html-center-block) (= clock . org-html-clock) (code . org-html-code) (drawer . org-html-drawer) (= dynamic-block . org-html-dynamic-block) (entity . org-html-entity) (example= -block . org-html-example-block) (export-block . org-html-export-block) (ex= port-snippet . org-html-export-snippet) (fixed-width . org-html-fixed-width= ) (footnote-reference . org-html-footnote-reference) (headline . org-html-h= eadline) (horizontal-rule . org-html-horizontal-rule) (inline-src-block . o= rg-html-inline-src-block) (inlinetask . org-html-inlinetask) (inner-templat= e . org-html-inner-template) (italic . org-html-italic) (item . org-html-it= em) (keyword . org-html-keyword) (latex-environment . org-html-latex-enviro= nment) (latex-fragment . org-html-latex-fragment) (line-break . org-html-li= ne-break) (link . org-html-link) (node-property . org-html-node-property) (= paragraph . org-html-paragraph) (plain-list . org-html-plain-list) (plain-t= ext . org-html-plain-text) (planning . org-html-planning) (property-drawer = . org-html-property-drawer) (quote-block . org-html-quote-block) (radio-tar= get . org-html-radio-target) (section . org-html-section) (special-block . = org-html-special-block) (src-block . org-html-src-block) (statistics-cookie= . org-html-statistics-cookie) (strike-through . org-html-strike-through) (= subscript . org-html-subscript) ...) :exported-data # :input-buffer "test.org" :input-file "/tmp/test.org" :html-doctyp= e "xhtml-strict" :html-container "div" :html-content-class "content" :descr= iption nil :keywords nil :html-html5-fancy nil :html-link-use-abs-url nil := html-link-home "" :html-link-up "" :html-mathjax "" :html-equation-referenc= e-format "\\eqref{%s}" :html-postamble auto :html-preamble ...) (data org-d= ata (:begin 1 :contents-begin 1 :contents-end 522 :end 522 :robust-begin 3 = :robust-end 520 :post-blank 0 :post-affiliated 1 :path "/tmp/test.org" :mod= e org-data :CATEGORY "test" :granularity nil) (section (:begin 1 :end 522 := contents-begin 1 :contents-end 522 :robust-begin 1 :robust-end 520 :post-bl= ank 0 :post-affiliated 1 :mode first-section :granularity nil :parent #11) = (keyword ...) (paragraph ... ...) (src-block ...))) cl-struct-org-export-ba= ckend-tags org-publish-project-alist t) (element) (org-export-data element = info)) ((section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :ro= bust-begin 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-s= ection :granularity nil :parent (org-data (:begin 1 :contents-begin 1 :cont= ents-end 522 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-a= ffiliated 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" :granular= ity nil) . #2)) (keyword (:key "TITLE" :value "Test export" :begin 1 :end 2= 3 :post-blank 1 :post-affiliated 1 :mode top-comment :granularity nil :pare= nt #3)) (paragraph (:begin 23 :end 43 :contents-begin 23 :contents-end 42 := post-blank 1 :post-affiliated 23 :mode nil :granularity nil :parent #3) #("= Test code follows:\n" 0 19 (:parent #7))) (src-block (:language "latex" :sw= itches nil :parameters nil :begin 43 :end 522 :number-lines nil :preserve-i= ndent nil :retain-labels t :use-labels t :label-fmt nil :value "\\documentc= lass[a4paper,english,11pt]{s..." :post-blank 0 :post-affiliated 43 :mode ni= l :granularity nil :parent #3)))) "") (let* ((greaterp (memq type org-element-greater-elements)) (objectp (= and (not greaterp) (memq type org-element-recursive-objects))) (contents (m= apconcat #'(lambda (element) (org-export-data element info)) (org-element-c= ontents (if (or greaterp objectp) data (org-element-normalize-contents data= (and ... ... ... ...)))) ""))) (condition-case err (progn (funcall transco= der data (if (not greaterp) contents (org-element-normalize-string contents= )) info)) (org-link-broken (let* ((val (plist-get info :with-broken-links))= ) (cond ((null val) (user-error "Unable to resolve link: %S" (nth 1 err))) = ((eq val 'mark) (org-export-data (format "[BROKEN LINK: %s]" ...) info)) (t= nil)))))) (progn (let* ((greaterp (memq type org-element-greater-elements)) (ob= jectp (and (not greaterp) (memq type org-element-recursive-objects))) (cont= ents (mapconcat #'(lambda (element) (org-export-data element info)) (org-el= ement-contents (if (or greaterp objectp) data (org-element-normalize-conten= ts data ...))) ""))) (condition-case err (progn (funcall transcoder data (i= f (not greaterp) contents (org-element-normalize-string contents)) info)) (= org-link-broken (let* ((val (plist-get info :with-broken-links))) (cond ((n= ull val) (user-error "Unable to resolve link: %S" ...)) ((eq val ...) (org-= export-data ... info)) (t nil))))))) (if transcoder (progn (let* ((greaterp (memq type org-element-greater= -elements)) (objectp (and (not greaterp) (memq type org-element-recursive-o= bjects))) (contents (mapconcat #'(lambda ... ...) (org-element-contents (if= ... data ...)) ""))) (condition-case err (progn (funcall transcoder data (= if (not greaterp) contents (org-element-normalize-string contents)) info)) = (org-link-broken (let* ((val ...)) (cond (... ...) (... ...) (t nil)))))))) (let ((transcoder (org-export-transcoder data info))) (if transcoder = (progn (let* ((greaterp (memq type org-element-greater-elements)) (objectp = (and (not greaterp) (memq type org-element-recursive-objects))) (contents (= mapconcat #'... (org-element-contents ...) ""))) (condition-case err (progn= (funcall transcoder data (if ... contents ...) info)) (org-link-broken (le= t* (...) (cond ... ... ...)))))))) (cond ((memq data (plist-get info :ignore-list)) nil) ((eq type 'raw)= (car (org-element-contents data))) ((eq type 'plain-text) (org-export-filt= er-apply-functions (plist-get info :filter-plain-text) (let ((transcoder (o= rg-export-transcoder data info))) (if transcoder (funcall transcoder data i= nfo) data)) info)) ((not type) (mapconcat #'(lambda (obj) (org-export-data = obj info)) data "")) ((or (not (org-element-contents data)) (and (eq type '= headline) (eq (plist-get info :with-archived-trees) 'headline) (org-element= -property :archivedp data))) (let ((transcoder (org-export-transcoder data = info))) (or (and (functionp transcoder) (condition-case err (progn (funcall= transcoder data nil info)) (org-link-broken (let* ... ...)))) (and (eq typ= e 'export-snippet) "")))) (t (let ((transcoder (org-export-transcoder data = info))) (if transcoder (progn (let* ((greaterp ...) (objectp ...) (contents= ...)) (condition-case err (progn ...) (org-link-broken ...)))))))) (let* ((type (org-element-type data)) (parent (org-export-get-parent = data)) (results (cond ((memq data (plist-get info :ignore-list)) nil) ((eq = type 'raw) (car (org-element-contents data))) ((eq type 'plain-text) (org-e= xport-filter-apply-functions (plist-get info :filter-plain-text) (let (...)= (if transcoder ... data)) info)) ((not type) (mapconcat #'(lambda ... ...)= data "")) ((or (not (org-element-contents data)) (and (eq type ...) (eq ..= . ...) (org-element-property :archivedp data))) (let ((transcoder ...)) (or= (and ... ...) (and ... "")))) (t (let ((transcoder ...)) (if transcoder (p= rogn ...))))))) (puthash data (cond ((not results) "") ((memq type '(nil or= g-data plain-text raw)) results) (t (org-export-filter-apply-functions (pli= st-get info (intern (format ":filter-%s" type))) (let ((blank ...)) (if (eq= ... ...) (concat results ...) (concat ... ...))) info))) (plist-get info := exported-data))) (or (gethash data (plist-get info :exported-data)) (let* ((type (org-= element-type data)) (parent (org-export-get-parent data)) (results (cond ((= memq data (plist-get info :ignore-list)) nil) ((eq type 'raw) (car (org-ele= ment-contents data))) ((eq type 'plain-text) (org-export-filter-apply-funct= ions (plist-get info :filter-plain-text) (let ... ...) info)) ((not type) (= mapconcat #'... data "")) ((or (not ...) (and ... ... ...)) (let (...) (or = ... ...))) (t (let (...) (if transcoder ...)))))) (puthash data (cond ((not= results) "") ((memq type '(nil org-data plain-text raw)) results) (t (org-= export-filter-apply-functions (plist-get info (intern ...)) (let (...) (if = ... ... ...)) info))) (plist-get info :exported-data)))) org-export-data((org-data (:begin 1 :contents-begin 1 :contents-end 5= 22 :end 522 :robust-begin 3 :robust-end 520 :post-blank 0 :post-affiliated = 1 :path "/tmp/test.org" :mode org-data :CATEGORY "test" :granularity nil) (= section (:begin 1 :end 522 :contents-begin 1 :contents-end 522 :robust-begi= n 1 :robust-end 520 :post-blank 0 :post-affiliated 1 :mode first-section :g= ranularity nil :parent #1) (keyword ...) (paragraph ... ...) (src-block ...= ))) (:export-options nil :back-end #s(org-export-backend :name html :parent= nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ... ... = ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...= ... ... ... ... ...) :filters (... ... ...) :blocks nil :menu (104 "Export= to HTML" ...)) :translate-alist ((bold . org-html-bold) (center-block . or= g-html-center-block) (clock . org-html-clock) (code . org-html-code) (drawe= r . org-html-drawer) (dynamic-block . org-html-dynamic-block) (entity . org= -html-entity) (example-block . org-html-example-block) (export-block . org-= html-export-block) (export-snippet . org-html-export-snippet) (fixed-width = . org-html-fixed-width) (footnote-reference . org-html-footnote-reference) = (headline . org-html-headline) (horizontal-rule . org-html-horizontal-rule)= (inline-src-block . org-html-inline-src-block) (inlinetask . org-html-inli= netask) (inner-template . org-html-inner-template) (italic . org-html-itali= c) (item . org-html-item) (keyword . org-html-keyword) (latex-environment .= org-html-latex-environment) (latex-fragment . org-html-latex-fragment) (li= ne-break . org-html-line-break) (link . org-html-link) (node-property . org= -html-node-property) (paragraph . org-html-paragraph) ...) :exported-data #= :input-buffer "test.org" :input-file "/tmp/= test.org" :html-doctype "xhtml-strict" :html-container "div" :html-content-= class "content" :description nil :keywords nil :html-html5-fancy nil :html-= link-use-abs-url nil ...)) (or (org-export-data tree info) "") (org-element-normalize-string (or (org-export-data tree info) "")) (let* ((body (org-element-normalize-string (or (org-export-data tree = info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info :tra= nslate-alist)))) (full-body (org-export-filter-apply-functions (plist-get i= nfo :filter-body) (if (not (functionp inner-template)) body (funcall inner-= template body info)) info)) (template (cdr (assq 'template (plist-get info = :translate-alist)))) (output (if (or (not (functionp template)) body-only) = full-body (funcall template full-body info)))) (setq output (org-cite-final= ize-export output info)) (org-no-properties (org-export-filter-apply-functi= ons (plist-get info :filter-final-output) output info))) (progn (run-hook-with-args 'org-export-before-processing-hook (progn = (or (and (memq (type-of backend) cl-struct-org-export-backend-tags) t) (sig= nal 'wrong-type-argument (list 'org-export-backend backend))) (aref backend= 1))) (org-export-expand-include-keyword) (org-export--delete-comment-trees= ) (org-macro-initialize-templates org-export-global-macros) (org-macro-repl= ace-all org-macro-templates parsed-keywords) (org-set-regexps-and-options) = (org-update-radio-target-regexp) (if org-export-use-babel (progn (org-babel= -exp-process-buffer) (org-macro-replace-all '(("results" . "$1")) parsed-ke= ywords) (org-set-regexps-and-options) (org-update-radio-target-regexp))) (g= oto-char (point-min)) (save-excursion (run-hook-with-args 'org-export-befor= e-parsing-hook (progn (or (and (memq (type-of backend) cl-struct-org-export= -backend-tags) t) (signal 'wrong-type-argument (list 'org-export-backend ba= ckend))) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radi= o-target-regexp) (setq info (org-combine-plists info (org-export-get-enviro= nment backend subtreep ext-plist))) (org-cite-store-bibliography info) (org= -cite-store-export-processor info) (let ((--dolist-tail-- (append (org-expo= rt-get-all-options backend) org-export-options-alist))) (while --dolist-tai= l-- (let ((entry (car --dolist-tail--))) (if (consp entry) (let* ((x857 ...= ) (x858 ...)) (if (consp x858) (let* ... ...) nil)) nil) (setq --dolist-tai= l-- (cdr --dolist-tail--))))) (setq info (org-export-install-filters info))= (let ((backend-name (progn (or (and (memq ... cl-struct-org-export-backend= -tags) t) (signal 'wrong-type-argument (list ... backend))) (aref backend 1= )))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --dol= ist-tail-- (let ((filter (car --dolist-tail--))) (let ((result ...)) (if re= sult (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (setq t= ree (org-element-parse-buffer nil visible-only)) (org-export--prune-tree tr= ee info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-= export-filter-apply-functions (plist-get info :filter-parse-tree) tree info= )) (setq info (org-export--collect-tree-properties tree info)) (org-cite-pr= ocess-citations info) (org-cite-process-bibliography info) (let* ((body (or= g-element-normalize-string (or (org-export-data tree info) ""))) (inner-tem= plate (cdr (assq 'inner-template (plist-get info :translate-alist)))) (full= -body (org-export-filter-apply-functions (plist-get info :filter-body) (if = (not (functionp inner-template)) body (funcall inner-template body info)) i= nfo)) (template (cdr (assq 'template (plist-get info :translate-alist)))) (= output (if (or (not (functionp template)) body-only) full-body (funcall tem= plate full-body info)))) (setq output (org-cite-finalize-export output info= )) (org-no-properties (org-export-filter-apply-functions (plist-get info :f= ilter-final-output) output info)))) (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) = (progn (run-hook-with-args 'org-export-before-processing-hook (progn (or (a= nd (memq (type-of backend) cl-struct-org-export-backend-tags) t) (signal 'w= rong-type-argument (list 'org-export-backend backend))) (aref backend 1))) = (org-export-expand-include-keyword) (org-export--delete-comment-trees) (org= -macro-initialize-templates org-export-global-macros) (org-macro-replace-al= l org-macro-templates parsed-keywords) (org-set-regexps-and-options) (org-u= pdate-radio-target-regexp) (if org-export-use-babel (progn (org-babel-exp-p= rocess-buffer) (org-macro-replace-all '(("results" . "$1")) parsed-keywords= ) (org-set-regexps-and-options) (org-update-radio-target-regexp))) (goto-ch= ar (point-min)) (save-excursion (run-hook-with-args 'org-export-before-pars= ing-hook (progn (or (and (memq ... cl-struct-org-export-backend-tags) t) (s= ignal 'wrong-type-argument (list ... backend))) (aref backend 1)))) (org-se= t-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-com= bine-plists info (org-export-get-environment backend subtreep ext-plist))) = (org-cite-store-bibliography info) (org-cite-store-export-processor info) (= let ((--dolist-tail-- (append (org-export-get-all-options backend) org-expo= rt-options-alist))) (while --dolist-tail-- (let ((entry (car --dolist-tail-= -))) (if (consp entry) (let* (... ...) (if ... ... nil)) nil) (setq --dolis= t-tail-- (cdr --dolist-tail--))))) (setq info (org-export-install-filters i= nfo)) (let ((backend-name (progn (or (and ... t) (signal ... ...)) (aref ba= ckend 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (whil= e --dolist-tail-- (let ((filter ...)) (let (...) (if result ...)) (setq --d= olist-tail-- (cdr --dolist-tail--)))))) (setq tree (org-element-parse-buffe= r nil visible-only)) (org-export--prune-tree tree info) (org-export--remove= -uninterpreted-data tree info) (setq tree (org-export-filter-apply-function= s (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--c= ollect-tree-properties tree info)) (org-cite-process-citations info) (org-c= ite-process-bibliography info) (let* ((body (org-element-normalize-string (= or (org-export-data tree info) ""))) (inner-template (cdr (assq 'inner-temp= late (plist-get info :translate-alist)))) (full-body (org-export-filter-app= ly-functions (plist-get info :filter-body) (if (not ...) body (funcall inne= r-template body info)) info)) (template (cdr (assq 'template (plist-get inf= o :translate-alist)))) (output (if (or (not ...) body-only) full-body (func= all template full-body info)))) (setq output (org-cite-finalize-export outp= ut info)) (org-no-properties (org-export-filter-apply-functions (plist-get = info :filter-final-output) output info))))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-ch= ar (point-min)) (progn (run-hook-with-args 'org-export-before-processing-ho= ok (progn (or (and (memq ... cl-struct-org-export-backend-tags) t) (signal = 'wrong-type-argument (list ... backend))) (aref backend 1))) (org-export-ex= pand-include-keyword) (org-export--delete-comment-trees) (org-macro-initial= ize-templates org-export-global-macros) (org-macro-replace-all org-macro-te= mplates parsed-keywords) (org-set-regexps-and-options) (org-update-radio-ta= rget-regexp) (if org-export-use-babel (progn (org-babel-exp-process-buffer)= (org-macro-replace-all '(...) parsed-keywords) (org-set-regexps-and-option= s) (org-update-radio-target-regexp))) (goto-char (point-min)) (save-excursi= on (run-hook-with-args 'org-export-before-parsing-hook (progn (or (and ... = t) (signal ... ...)) (aref backend 1)))) (org-set-regexps-and-options) (org= -update-radio-target-regexp) (setq info (org-combine-plists info (org-expor= t-get-environment backend subtreep ext-plist))) (org-cite-store-bibliograph= y info) (org-cite-store-export-processor info) (let ((--dolist-tail-- (appe= nd (org-export-get-all-options backend) org-export-options-alist))) (while = --dolist-tail-- (let ((entry ...)) (if (consp entry) (let* ... ...) nil) (s= etq --dolist-tail-- (cdr --dolist-tail--))))) (setq info (org-export-instal= l-filters info)) (let ((backend-name (progn (or ... ...) (aref backend 1)))= ) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --dolist= -tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))) (setq tree = (org-element-parse-buffer nil visible-only)) (org-export--prune-tree tree i= nfo) (org-export--remove-uninterpreted-data tree info) (setq tree (org-expo= rt-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (= setq info (org-export--collect-tree-properties tree info)) (org-cite-proces= s-citations info) (org-cite-process-bibliography info) (let* ((body (org-el= ement-normalize-string (or ... ""))) (inner-template (cdr (assq ... ...))) = (full-body (org-export-filter-apply-functions (plist-get info :filter-body)= (if ... body ...) info)) (template (cdr (assq ... ...))) (output (if (or .= .. body-only) full-body (funcall template full-body info)))) (setq output (= org-cite-finalize-export output info)) (org-no-properties (org-export-filte= r-apply-functions (plist-get info :filter-final-output) output info))))) (a= nd (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf= -copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-cu= rrent-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-ho= ok-with-args 'org-export-before-processing-hook (progn (or (and ... t) (sig= nal ... ...)) (aref backend 1))) (org-export-expand-include-keyword) (org-e= xport--delete-comment-trees) (org-macro-initialize-templates org-export-glo= bal-macros) (org-macro-replace-all org-macro-templates parsed-keywords) (or= g-set-regexps-and-options) (org-update-radio-target-regexp) (if org-export-= use-babel (progn (org-babel-exp-process-buffer) (org-macro-replace-all '...= parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-re= gexp))) (goto-char (point-min)) (save-excursion (run-hook-with-args 'org-ex= port-before-parsing-hook (progn (or ... ...) (aref backend 1)))) (org-set-r= egexps-and-options) (org-update-radio-target-regexp) (setq info (org-combin= e-plists info (org-export-get-environment backend subtreep ext-plist))) (or= g-cite-store-bibliography info) (org-cite-store-export-processor info) (let= ((--dolist-tail-- (append ... org-export-options-alist))) (while --dolist-= tail-- (let (...) (if ... ... nil) (setq --dolist-tail-- ...)))) (setq info= (org-export-install-filters info)) (let ((backend-name (progn ... ...))) (= let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...)))) (se= tq tree (org-element-parse-buffer nil visible-only)) (org-export--prune-tre= e tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (= org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree = info)) (setq info (org-export--collect-tree-properties tree info)) (org-cit= e-process-citations info) (org-cite-process-bibliography info) (let* ((body= (org-element-normalize-string ...)) (inner-template (cdr ...)) (full-body = (org-export-filter-apply-functions ... ... info)) (template (cdr ...)) (out= put (if ... full-body ...))) (setq output (org-cite-finalize-export output = info)) (org-no-properties (org-export-filter-apply-functions (plist-get inf= o :filter-final-output) output info))))) (and (buffer-live-p --buf-copy) (p= rogn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-= p nil)) (kill-buffer --buf-copy))))) (let* ((org-export-current-backend (progn (or (and (memq (type-of bac= kend) cl-struct-org-export-backend-tags) t) (signal 'wrong-type-argument (l= ist 'org-export-backend backend))) (aref backend 1))) (info (org-combine-pl= ists (org-export--get-export-attributes backend subtreep visible-only body-= only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (map= car #'(lambda (o) (and ... ...)) (append (org-export-get-all-options backen= d) org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-bu= ffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-= char (point-min)) (progn (run-hook-with-args 'org-export-before-processing-= hook (progn (or ... ...) (aref backend 1))) (org-export-expand-include-keyw= ord) (org-export--delete-comment-trees) (org-macro-initialize-templates org= -export-global-macros) (org-macro-replace-all org-macro-templates parsed-ke= ywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (if = org-export-use-babel (progn (org-babel-exp-process-buffer) (org-macro-repla= ce-all ... parsed-keywords) (org-set-regexps-and-options) (org-update-radio= -target-regexp))) (goto-char (point-min)) (save-excursion (run-hook-with-ar= gs 'org-export-before-parsing-hook (progn ... ...))) (org-set-regexps-and-o= ptions) (org-update-radio-target-regexp) (setq info (org-combine-plists inf= o (org-export-get-environment backend subtreep ext-plist))) (org-cite-store= -bibliography info) (org-cite-store-export-processor info) (let ((--dolist-= tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (setq info (org-exp= ort-install-filters info)) (let ((backend-name ...)) (let (...) (while --do= list-tail-- ...))) (setq tree (org-element-parse-buffer nil visible-only)) = (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data t= ree info) (setq tree (org-export-filter-apply-functions (plist-get info :fi= lter-parse-tree) tree info)) (setq info (org-export--collect-tree-propertie= s tree info)) (org-cite-process-citations info) (org-cite-process-bibliogra= phy info) (let* ((body ...) (inner-template ...) (full-body ...) (template = ...) (output ...)) (setq output (org-cite-finalize-export output info)) (or= g-no-properties (org-export-filter-apply-functions ... output info))))) (an= d (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-= copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))) (save-restriction (cond ((org-region-active-p) (narrow-to-region (reg= ion-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char = (point-min)) (org-end-of-meta-data) (narrow-to-region (point) (point-max)))= ) (let* ((org-export-current-backend (progn (or (and (memq ... cl-struct-or= g-export-backend-tags) t) (signal 'wrong-type-argument (list ... backend)))= (aref backend 1))) (info (org-combine-plists (org-export--get-export-attri= butes backend subtreep visible-only body-only) (org-export--get-buffer-attr= ibutes))) (parsed-keywords (delq nil (mapcar #'(lambda ... ...) (append (or= g-export-get-all-options backend) org-export-options-alist)))) tree) (let (= (--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer= (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args= 'org-export-before-processing-hook (progn ... ...)) (org-export-expand-inc= lude-keyword) (org-export--delete-comment-trees) (org-macro-initialize-temp= lates org-export-global-macros) (org-macro-replace-all org-macro-templates = parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-reg= exp) (if org-export-use-babel (progn ... ... ... ...)) (goto-char (point-mi= n)) (save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-opti= ons) (org-update-radio-target-regexp) (setq info (org-combine-plists info .= ..)) (org-cite-store-bibliography info) (org-cite-store-export-processor in= fo) (let (...) (while --dolist-tail-- ...)) (setq info (org-export-install-= filters info)) (let (...) (let ... ...)) (setq tree (org-element-parse-buff= er nil visible-only)) (org-export--prune-tree tree info) (org-export--remov= e-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functio= ns ... tree info)) (setq info (org-export--collect-tree-properties tree inf= o)) (org-cite-process-citations info) (org-cite-process-bibliography info) = (let* (... ... ... ... ...) (setq output ...) (org-no-properties ...)))) (a= nd (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf= -copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))) (save-excursion (save-restriction (cond ((org-region-active-p) (narro= w-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subt= ree) (goto-char (point-min)) (org-end-of-meta-data) (narrow-to-region (poin= t) (point-max)))) (let* ((org-export-current-backend (progn (or (and ... t)= (signal ... ...)) (aref backend 1))) (info (org-combine-plists (org-export= --get-export-attributes backend subtreep visible-only body-only) (org-expor= t--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar #'... (appen= d ... org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy= -buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (go= to-char (point-min)) (progn (run-hook-with-args ... ...) (org-export-expand= -include-keyword) (org-export--delete-comment-trees) (org-macro-initialize-= templates org-export-global-macros) (org-macro-replace-all org-macro-templa= tes parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target= -regexp) (if org-export-use-babel ...) (goto-char ...) (save-excursion ...)= (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info = ...) (org-cite-store-bibliography info) (org-cite-store-export-processor in= fo) (let ... ...) (setq info ...) (let ... ...) (setq tree ...) (org-export= --prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (= setq tree ...) (setq info ...) (org-cite-process-citations info) (org-cite-= process-bibliography info) (let* ... ... ...))) (and (buffer-live-p --buf-c= opy) (progn (save-current-buffer ... ...) (kill-buffer --buf-copy)))))))) org-export-as(html nil nil nil (:output-file "test.html")) (let ((output (org-export-as backend subtreep visible-only body-only = ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-cur= rent-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output)= (let ((coding-system-for-write encoding)) (write-file file))) (and (buffer= -name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy= -to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (= or (and (functionp post-process) (funcall post-process file)) file)) (if async (org-export-async-start #'(lambda (file) (org-export-add-to= -stack (expand-file-name file) backend)) (list 'let (list (list 'output (li= st 'org-export-as (list 'quote backend) subtreep visible-only body-only (li= st 'quote ext-plist)))) (list 'with-temp-buffer '(insert output) (list 'let= (list (list 'coding-system-for-write (list ... encoding))) (list 'write-fi= le file))) (list 'or (list 'ignore-errors (list 'funcall (list 'quote post-= process) file)) file))) (let ((output (org-export-as backend subtreep visib= le-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *t= emp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (pro= gn (insert output) (let (...) (write-file file))) (and (buffer-name temp-bu= ffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring= -p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (func= tionp post-process) (funcall post-process file)) file))) (let ((ext-plist (org-combine-plists (list ':output-file file) ext-pl= ist)) (encoding (or org-export-coding-system buffer-file-coding-system)) au= to-mode-alist) (if async (org-export-async-start #'(lambda (file) (org-expo= rt-add-to-stack (expand-file-name file) backend)) (list 'let (list (list 'o= utput (list 'org-export-as (list ... backend) subtreep visible-only body-on= ly (list ... ext-plist)))) (list 'with-temp-buffer '(insert output) (list '= let (list (list ... ...)) (list 'write-file file))) (list 'or (list 'ignore= -errors (list 'funcall (list ... post-process) file)) file))) (let ((output= (org-export-as backend subtreep visible-only body-only ext-plist))) (let (= (temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-bu= ffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (an= d (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-exp= ort--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new ou= tput))) (or (and (functionp post-process) (funcall post-process file)) file= )))) (if (not (file-writable-p file)) (error "Output file not writable") (= let ((ext-plist (org-combine-plists (list ':output-file file) ext-plist)) (= encoding (or org-export-coding-system buffer-file-coding-system)) auto-mode= -alist) (if async (org-export-async-start #'(lambda (file) (org-export-add-= to-stack (expand-file-name file) backend)) (list 'let (list (list 'output (= list ... ... subtreep visible-only body-only ...))) (list 'with-temp-buffer= '(insert output) (list 'let (list ...) (list ... file))) (list 'or (list '= ignore-errors (list ... ... file)) file))) (let ((output (org-export-as bac= kend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (gener= ate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (= unwind-protect (progn ... ...) (and ... ...)))) (if (and (org-export--copy-= to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (o= r (and (functionp post-process) (funcall post-process file)) file))))) org-export-to-file(html "test.html" nil nil nil nil nil) (let* ((extension (concat (if (> (length org-html-extension) 0) (prog= n ".")) (or (plist-get ext-plist :html-extension) org-html-extension "html"= ))) (file (org-export-output-file-name extension subtreep)) (org-export-cod= ing-system org-html-coding-system)) (org-export-to-file 'html file async su= btreep visible-only body-only ext-plist)) org-html-export-to-html(nil nil nil nil) funcall(org-html-export-to-html nil nil nil nil) (save-excursion (if arg (progn (if (eq (marker-buffer org-export-disp= atch-last-position) (org-base-buffer (current-buffer))) (goto-char org-expo= rt-dispatch-last-position) (move-marker org-export-dispatch-last-position n= il)))) (funcall action (and (memq 'async optns) t) (and (memq 'subtree optn= s) t) (and (memq 'visible optns) t) (and (memq 'body optns) t))) (cond ((eql action 'template) (org-export-insert-default-template nil= optns)) ((eql action 'stack) (org-export-stack)) ((eql action 'publish-cur= rent-file) (org-publish-current-file (memq 'force optns) (memq 'async optns= ))) ((eql action 'publish-current-project) (org-publish-current-project (me= mq 'force optns) (memq 'async optns))) ((eql action 'publish-choose-project= ) (org-publish (assoc (completing-read "Publish project: " org-publish-proj= ect-alist nil t) org-publish-project-alist) (memq 'force optns) (memq 'asyn= c optns))) ((eql action 'publish-all) (org-publish-all (memq 'force optns) = (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq (marker-buf= fer org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char or= g-export-dispatch-last-position) (move-marker org-export-dispatch-last-posi= tion nil)))) (funcall action (and (memq 'async optns) t) (and (memq 'subtre= e optns) t) (and (memq 'visible optns) t) (and (memq 'body optns) t))))) (let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg org-export= -dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...)= (set-window-configuration wconfig)))))) (action (car input)) (optns (cdr i= nput))) (if (memq 'subtree optns) nil (move-marker org-export-dispatch-last= -position nil)) (cond ((eql action 'template) (org-export-insert-default-te= mplate nil optns)) ((eql action 'stack) (org-export-stack)) ((eql action 'p= ublish-current-file) (org-publish-current-file (memq 'force optns) (memq 'a= sync optns))) ((eql action 'publish-current-project) (org-publish-current-p= roject (memq 'force optns) (memq 'async optns))) ((eql action 'publish-choo= se-project) (org-publish (assoc (completing-read "Publish project: " org-pu= blish-project-alist nil t) org-publish-project-alist) (memq 'force optns) (= memq 'async optns))) ((eql action 'publish-all) (org-publish-all (memq 'for= ce optns) (memq 'async optns))) (t (save-excursion (if arg (progn (if (eq .= .. ...) (goto-char org-export-dispatch-last-position) (move-marker org-expo= rt-dispatch-last-position nil)))) (funcall action (and (memq 'async optns) = t) (and (memq 'subtree optns) t) (and (memq 'visible optns) t) (and (memq '= body optns) t)))))) org-export-dispatch(nil) funcall-interactively(org-export-dispatch nil) call-interactively(org-export-dispatch nil nil) command-execute(org-export-dispatch) In order to reproduce this error, it is necessary to load htmlize.el and set the variable `compile-command' in the `latex-mode-hook' hook. Following is the entire content of an elisp file to be used with emacs -Q in order to reproduce the problem: (setq debug-on-error t debug-on-signal nil debug-on-quit nil) (require 'package) (add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t) (package-initialize) (add-to-list 'load-path "/home/quintus/.emacs.d/org-mode/lisp") (add-to-list 'load-path "/home/quintus/.emacs.d/citeproc-el") (require 'citeproc) (require 'org) (require 'oc-csl) (require 'htmlize) (add-hook 'latex-mode-hook (lambda() (set (make-local-variable 'compile-command) (concat "lualatex " (shell-quote-argu= ment (buffer-file-name)))))) Where ~/.emacs.d/org-mode/lisp contains the current HEAD from org=E2=80=99s repository and htmlize is installed from MELPA. The problematic org file in question is /tmp/test.org and it has the following content: #+TITLE: Test export Test code follows: #+BEGIN_SRC latex \documentclass[a4paper,english,11pt]{scrartcl} \usepackage{babel} \usepackage[T1]{fontenc} \usepackage[utf8]{inputenc} \providecommand\defpandocbool{ \newif\ifrunsinpandoc \runsinpandocfalse} \defpandocbool{} \begin{document} \title{Test} \author{John Doe} \date{\today} \maketitle{} This will always be included. \ifrunsinpandoc The document was processed by Pandoc. \else The document was processed by ordinary \LaTeX{}. \fi \end{document} #+END_SRC When this file is visited with emacs -Q as prepared above, it will show the fontification error message. Exporting it to HTML causes the error message reproduced above. It is worth noting that htmlize itself seems to process the LaTeX code just fine when I tried to htmlize a buffer with just the LaTeX code in it using `htmlize-buffer'. -quintus Emacs : GNU Emacs 27.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.20) of 2022-02-25 Package: Org mode version 9.5 (release_9.5-661-g5e0afb @ /home/quintus/.ema= cs.d/org-mode/lisp/) current state: =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D (setq org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-confi= gure-edit-buffer) org-link-shell-confirm-function 'yes-or-no-p org-metadown-hook '(org-babel-pop-to-session-maybe) org-persist-before-write-hook '(org-element--cache-persist-before-write) org-mode-hook '((closure (org--rds reftex-docstruct-symbol org-element-greater-elements visual-f= ill-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-compi= led org-clock-current-task org-clock-effort org-agenda-skip-function org-a= genda-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-block= ed-by-checkboxes org-state org-agenda-headline-snapshot-before-repeat org-agenda-buffer= -name org-agenda-start-on-weekday org-agenda-buffer-tmp-name org-priority-re= gexp org-mode-abbrev-table org-mode-syntax-table org-element-use-cache org-= element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu org-en= tities org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-= file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-e= mbedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rule= s-list org-emphasis-alist org-emphasis-regexp-components org-export-registered-backends org-modu= les crm-separator org-babel-load-languages org-id-overriding-file-name org-indent-indent= ation-per-level org-element--timestamp-regexp org-element-cache-map-continue-from org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-m= in-level t) nil (add-hook 'change-major-mode-hook 'org-fold-show-all 'append 'local= )) (closure (org-src-window-setup *this* org-babel-confirm-evaluate-answer-no org-babel-tangle-uncomment-comments org-src-preserve-indentation org-s= rc-lang-modes org-edit-src-content-indentation org-babel-library-of-babel t) nil (add-hook 'change-major-mode-hook #'org-babel-show-result-all 'appe= nd 'local)) org-babel-result-hide-spec org-babel-hide-all-hashes) org-archive-hook '(org-attach-archive-delete-maybe) org-persist-before-read-hook '(org-element--cache-persist-before-read) org-confirm-elisp-link-function 'yes-or-no-p org-agenda-before-write-hook '(org-agenda-add-entry-text) org-metaup-hook '(org-babel-load-in-session-maybe) org-persist-after-read-hook '(org-element--cache-persist-after-read) org-bibtex-headline-format-function '(closure (org-id-locations org-agenda-search-view-always-boolean org-agenda-overriding-header t) (entry) (cdr (assq :title entry))) org-babel-pre-tangle-hook '(save-buffer) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-a= rg-expand) org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-he= ader-arg-expand) org-agenda-loop-over-headlines-in-active-region nil org-fold-core-isearch-open-function 'org-fold--isearch-reveal org-occur-hook '(org-first-headline-recenter) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lin= es org-cycle-optimize-window-after-visibility-change) org-speed-command-hook '(org-speed-command-activate org-babel-speed-comman= d-activate) org-export-before-parsing-hook '(org-attach-expand-links) org-confirm-shell-link-function 'yes-or-no-p org-link-parameters '(("attachment" :follow org-attach-follow :complete or= g-attach-complete-link) ("id" :follow org-id-open) ("eww" :follow org-eww-open :store org-= eww-store-link) ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link :export org= -irc-export) ("info" :follow org-info-open :export org-info-export :store org-i= nfo-store-link) ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" :follow org-docview-open :export org-docview-export :st= ore org-docview-store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete or= g-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("doi" :follow org-link-doi-open :export org-link-doi-export) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("elfeed" :follow elfeed-link-open :store elfeed-link-store-link) = ("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell) ("news" :follow (closure ((scheme . "news") (--dolist-tail--) org-ts-regexp org-time-stamp-forma= ts org-src-source-file-name org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id org-highlight-links org-comment-string org-a= genda-buffer-name clean-buffer-list-kill-buffer-names t) (url arg) (browse-url (concat scheme ":" url) arg)) ) ("mailto" :follow (closure ((scheme . "mailto") (--dolist-tail--) org-ts-regexp org-time-stamp-for= mats org-src-source-file-name org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id org-highlight-links org-comment-string org-a= genda-buffer-name clean-buffer-list-kill-buffer-names t) (url arg) (browse-url (concat scheme ":" url) arg)) ) ("https" :follow (closure ((scheme . "https") (--dolist-tail--) org-ts-regexp org-time-stamp-form= ats org-src-source-file-name org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id org-highlight-links org-comment-string org-a= genda-buffer-name clean-buffer-list-kill-buffer-names t) (url arg) (browse-url (concat scheme ":" url) arg)) ) ("http" :follow (closure ((scheme . "http") (--dolist-tail--) org-ts-regexp org-time-stamp-forma= ts org-src-source-file-name org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id org-highlight-links org-comment-string org-a= genda-buffer-name clean-buffer-list-kill-buffer-names t) (url arg) (browse-url (concat scheme ":" url) arg)) ) ("ftp" :follow (closure ((scheme . "ftp") (--dolist-tail--) org-ts-regexp org-time-stamp-formats org-src-source-file-name org-outline-regexp-bol org-inhibit-startup org-id-link-to-org-use-id org-highlight-links org-comment-string org-a= genda-buffer-name clean-buffer-list-kill-buffer-names t) (url arg) (browse-url (concat scheme ":" url) arg)) ) ("help" :follow org-link--open-help :store org-link--store-help) ("file" :complete org-link-complete-file) ("elisp" :follow org-lin= k--open-elisp)) org-link-elisp-confirm-function 'yes-or-no-p ) -- Dipl.-Jur. M. G=C3=BClker | https://mg.guelker.eu | PGP: Siehe Webseite Passau, Deutschland | kontakt@guelker.eu | O<