Hi!
Not sure exactly when it began (probably starting with Org 9.7.30), but I'm no
longer able to export my Org files to PDF files (via LaTeX) if they contain
references and if I'm using the CSL backend. More precisely, on a minimal
reproducible example hosted here:
https://github.com/frederic-santos/mwe-citeproc, I'm getting:
```
citeproc-proc--parse-csl-var-val: Wrong type argument: listp, "A robust tangent
"
```
(given that "A robust tangent" is the title of the first ref mentioned in the
document, but I have a similar behavior with all other Org documents)
To reproduce the bug on the repo:
1. Start Emacs with `emacs -q -l init.el`
2. Try to export the Org document to PDF with `C-c C-e l p`.
I also attach a backtrace obtained with M-x toggle-debug-on-error.
Thanks!
------------------------------------------------------------------------
Emacs : GNU Emacs 30.1 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.49,
cairo version 1.18.4)
Package: Org mode version 9.7.30 (9.7.30-84f18c @
/home/fsantos/.emacs.d/elpa/org-9.7.30/)
current state:
==============
(setq
org-latex-pdf-process '("latexmk -shell-escape -bibtex -f -pdf %f")
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-html-format-headline-function 'org-html-format-headline-default-function
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-confirm-elisp-link-function 'yes-or-no-p
org-latex-format-headline-function 'org-latex-format-headline-default-function
org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
org-mode-hook '(#[nil ((add-hook 'change-major-mode-hook 'org-fold-show-all
'append 'local))
(org--rds reftex-docstruct-symbol visual-fill-column-width
org-clock-history
org-with-time org-defdecode org-def org-read-date-inactive
org-ans2 org-ans1
org-columns-current-fmt-compiled org-clock-current-task
org-clock-effort
org-end-time-was-given org-time-was-given org-state
org-agenda-headline-snapshot-before-repeat
buffer-face-mode-face org-struct-menu
org-last-state org-clock-start-time remember-data-file
calc-embedded-open-mode
calc-embedded-open-formula calc-embedded-close-formula
align-mode-rules-list
org-indent-indentation-per-level org-inlinetask-min-level t)
]
#[nil
((add-hook 'change-major-mode-hook
#'org-babel-show-result-all 'append 'local))
(*this* org-babel-confirm-evaluate-answer-no t)]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-fold-show-all append
local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-babel-show-result-all
append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
org-confirm-shell-link-function 'yes-or-no-p
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-archive-hook '(org-attach-archive-delete-maybe)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-occur-hook '(org-first-headline-recenter)
org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME CONTENTS
WIDTH)"]
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-link-parameters '(("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-info-store-link :insert-description
org-info-description-as-command)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("docview" :follow org-docview-open :export
org-docview-export :store
org-docview-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete
org-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)
("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("id" :follow org-id-open :store
org-id-store-link-maybe) ("file+sys")
("file+emacs") ("shell" :follow org-link--open-shell)
("news" :follow
#[(url arg) ((browse-url (concat scheme ":" url) arg))
((scheme . "news"))])
("mailto" :follow
#[(url arg) ((browse-url (concat scheme ":" url) arg))
((scheme . "mailto"))]
)
("https" :follow
#[(url arg) ((browse-url (concat scheme ":" url) arg))
((scheme . "https"))])
("http" :follow
#[(url arg) ((browse-url (concat scheme ":" url) arg))
((scheme . "http"))])
("ftp" :follow
#[(url arg) ((browse-url (concat scheme ":" url) arg))
((scheme . "ftp"))])
("help" :follow org-link--open-help :store
org-link--store-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link--open-elisp))
org-persist-directory "/tmp/org-persist-mieuPa"
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-sort-function 'string-collate-lessp
org--warnings nil
org-babel-pre-tangle-hook '(save-buffer)
org-export-before-parsing-hook '(org-attach-expand-links)
org-link-shell-confirm-function 'yes-or-no-p
org-fold-core-isearch-open-function 'org-fold--isearch-reveal
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-link-elisp-confirm-function 'yes-or-no-p
org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function
org-src-lang-modes '(("beamer" . LaTeX) ("latex" . LaTeX) ("beamer" . LaTeX)
("latex" . LaTeX)
("C" . c) ("C++" . c++) ("asymptote" . asy) ("beamer" .
latex)
("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist)
("desktop" . conf-desktop) ("dot" . fundamental) ("elisp"
. emacs-lisp)
("ocaml" . tuareg) ("screen" . shell-script) ("sqlite" .
sql)
("toml" . conf-toml) ("shell" . sh) ("ash" . sh) ("sh" .
sh) ("bash" . sh)
("jsh" . sh) ("bash2" . sh) ("dash" . sh) ("dtksh" . sh)
("ksh" . sh)
("es" . sh) ("rc" . sh) ("itcsh" . sh) ("tcsh" . sh)
("jcsh" . sh)
("csh" . sh) ("ksh88" . sh) ("oash" . sh) ("pdksh" . sh)
("mksh" . sh)
("posix" . sh) ("wksh" . sh) ("wsh" . sh) ("zsh" . sh)
("rpm" . sh))
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines
org-cycle-optimize-window-after-visibility-change
org-cycle-display-inline-images)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
)
Debugger entered--Lisp error: (wrong-type-argument listp "A robust tangent ")
citeproc-rt-from-str("A robust tangent <span class=\"nocase\"><span
class=\"nocase\">PCA</span></span> via shape restoration for shape variability
analysis")
citeproc-proc--parse-csl-var-val("A robust tangent <span
class=\"nocase\"><span class=\"nocase\">PCA</span></span> via shape restoration
for shape variability analysis" title #s(citeproc-proc :style #s(citeproc-style
:category "author-date" :info nil :opts (... ... ... ... ...) :bib-opts (...
... ... ... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t t t t)
:bib-layout (lambda ... ...) :cite-opts (... ... ... ... ... ... ... ... ...
...) :cite-sort (lambda ... ...) :cite-sort-orders (t t t t) :cite-layout
(lambda ... ...) :cite-layout-attrs (... ... ...) :locale-opts (... ...)
:macros (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :uses-ys-var t :date-text (... ... ... ...) :date-numeric (... ... ...
...) :locale "fr") :getter #f(compiled-function (x) #<bytecode
0x1bbb9e62ee4b9e2a>) :itemdata #<hash-table equal 0/0 0x10cc79e07ca4 ...>
:citations #s(queue :head nil :tail nil) :names #<hash-table equal 0/0
0x10cc79e05156 ...> :finalized t :uncited nil :bib-filters nil))
#f(compiled-function (it) #<bytecode 0x77c1b8ce3d70107>)((title . "A robust
tangent <span class=\"nocase\"><span class=\"nocase\">PCA</span></span> via
shape restoration for shape variability analysis"))
citeproc-proc--internalize-item(#s(citeproc-proc :style #s(citeproc-style
:category "author-date" :info nil :opts (... ... ... ... ...) :bib-opts (...
... ... ... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t t t t)
:bib-layout (lambda ... ...) :cite-opts (... ... ... ... ... ... ... ... ...
...) :cite-sort (lambda ... ...) :cite-sort-orders (t t t t) :cite-layout
(lambda ... ...) :cite-layout-attrs (... ... ...) :locale-opts (... ...)
:macros (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :uses-ys-var t :date-text (... ... ... ...) :date-numeric (... ... ...
...) :locale "fr") :getter #f(compiled-function (x) #<bytecode
0x1bbb9e62ee4b9e2a>) :itemdata #<hash-table equal 0/0 0x10cc79e07ca4 ...>
:citations #s(queue :head nil :tail nil) :names #<hash-table equal 0/0
0x10cc79e05156 ...> :finalized t :uncited nil :bib-filters nil)
((container-title . "Pattern analysis and applications") (title . "A robust
tangent <span class=\"nocase\"><span class=\"nocase\">PCA</span></span> via
shape restoration for shape variability analysis") (issue . "2") (issued
(date-parts ...)) (blt-type . "article") (type . "article-journal") (language .
"en-US") (author (... ...) (... ...) (... ...)) (volume . "23") (page .
"653â671") (ISSN . "1433-7541, 1433-755X") (DOI .
"10.1007/s10044-019-00822-2") (accessed (date-parts ...))))
citeproc-proc--put-item(#s(citeproc-proc :style #s(citeproc-style :category
"author-date" :info nil :opts (... ... ... ... ...) :bib-opts (... ... ... ...
... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t t t t) :bib-layout
(lambda ... ...) :cite-opts (... ... ... ... ... ... ... ... ... ...)
:cite-sort (lambda ... ...) :cite-sort-orders (t t t t) :cite-layout (lambda
... ...) :cite-layout-attrs (... ... ...) :locale-opts (... ...) :macros (...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ...) :terms (... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :uses-ys-var t
:date-text (... ... ... ...) :date-numeric (... ... ... ...) :locale "fr")
:getter #f(compiled-function (x) #<bytecode 0x1bbb9e62ee4b9e2a>) :itemdata
#<hash-table equal 0/0 0x10cc79e07ca4 ...> :citations #s(queue :head nil :tail
nil) :names #<hash-table equal 0/0 0x10cc79e05156 ...> :finalized t :uncited
nil :bib-filters nil) ((container-title . "Pattern analysis and applications")
(title . "A robust tangent <span class=\"nocase\"><span
class=\"nocase\">PCA</span></span> via shape restoration for shape variability
analysis") (issue . "2") (issued (date-parts ...)) (blt-type . "article") (type
. "article-journal") (language . "en-US") (author (... ...) (... ...) (...
...)) (volume . "23") (page . "653â671") (ISSN . "1433-7541, 1433-755X") (DOI
. "10.1007/s10044-019-00822-2") (accessed (date-parts ...)))
"abboud2020_RobustTangentPCA")
citeproc-proc-put-items-by-id(#s(citeproc-proc :style #s(citeproc-style
:category "author-date" :info nil :opts (... ... ... ... ...) :bib-opts (...
... ... ... ... ...) :bib-sort (lambda ... ...) :bib-sort-orders (t t t t t)
:bib-layout (lambda ... ...) :cite-opts (... ... ... ... ... ... ... ... ...
...) :cite-sort (lambda ... ...) :cite-sort-orders (t t t t) :cite-layout
(lambda ... ...) :cite-layout-attrs (... ... ...) :locale-opts (... ...)
:macros (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ...) :terms (... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
...) :uses-ys-var t :date-text (... ... ... ...) :date-numeric (... ... ...
...) :locale "fr") :getter #f(compiled-function (x) #<bytecode
0x1bbb9e62ee4b9e2a>) :itemdata #<hash-table equal 0/0 0x10cc79e07ca4 ...>
:citations #s(queue :head nil :tail nil) :names #<hash-table equal 0/0
0x10cc79e05156 ...> :finalized t :uncited nil :bib-filters nil)
("abboud2020_RobustTangentPCA" "abbott2015_UnderstandingAnalysis"))
citeproc-append-citations((#s(citeproc-citation :cites (...) :note-index nil
:mode textual :suppress-affixes nil :capitalize-first nil :ignore-et-al nil
:grouped nil) #s(citeproc-citation :cites (...) :note-index nil :mode nil
:suppress-affixes nil :capitalize-first nil :ignore-et-al nil :grouped nil))
#s(citeproc-proc :style #s(citeproc-style :category "author-date" :info nil
:opts (... ... ... ... ...) :bib-opts (... ... ... ... ... ...) :bib-sort
(lambda ... ...) :bib-sort-orders (t t t t t) :bib-layout (lambda ... ...)
:cite-opts (... ... ... ... ... ... ... ... ... ...) :cite-sort (lambda ...
...) :cite-sort-orders (t t t t) :cite-layout (lambda ... ...)
:cite-layout-attrs (... ... ...) :locale-opts (... ...) :macros (... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...) :terms (... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ...) :uses-ys-var t
:date-text (... ... ... ...) :date-numeric (... ... ... ...) :locale "fr")
:getter #f(compiled-function (x) #<bytecode 0x1bbb9e62ee4b9e2a>) :itemdata
#<hash-table equal 0/0 0x10cc79e07ca4 ...> :citations #s(queue :head nil :tail
nil) :names #<hash-table equal 0/0 0x10cc79e05156 ...> :finalized t :uncited
nil :bib-filters nil))
(let ((structures (mapcar #'(lambda (c) (org-cite-csl--create-structure c
info)) (nreverse normal-citations)))) (citeproc-append-citations structures
processor))
(let ((citations (org-cite-list-citations info)) (processor
(org-cite-csl--processor info)) normal-citations nocite-ids) (let ((tail
citations)) (while tail (let ((citation (car tail))) (if
(org-cite-csl--nocite-p citation info) (setq nocite-ids (append
(org-cite-get-references citation t) nocite-ids)) (setq normal-citations (cons
citation normal-citations))) (setq tail (cdr tail))))) (let ((structures
(mapcar #'(lambda (c) (org-cite-csl--create-structure c info)) (nreverse
normal-citations)))) (citeproc-append-citations structures processor)) (if
nocite-ids (progn (citeproc-add-uncited nocite-ids processor)))
(org-cite-csl--rendered-bibliographies info) (let (result (rendered
(citeproc-render-citations processor (org-cite-csl--output-format info)
(org-cite-csl--no-citelinks-p info)))) (let ((tail citations)) (while tail (let
((citation (car tail))) (setq result (cons (cons citation ...) result)) (setq
tail (cdr tail))))) (setq result (nreverse result)) (plist-put info
:cite-citeproc-rendered-citations result) result))
(or (plist-get info :cite-citeproc-rendered-citations) (let ((citations
(org-cite-list-citations info)) (processor (org-cite-csl--processor info))
normal-citations nocite-ids) (let ((tail citations)) (while tail (let
((citation (car tail))) (if (org-cite-csl--nocite-p citation info) (setq
nocite-ids (append ... nocite-ids)) (setq normal-citations (cons citation
normal-citations))) (setq tail (cdr tail))))) (let ((structures (mapcar
#'(lambda ... ...) (nreverse normal-citations)))) (citeproc-append-citations
structures processor)) (if nocite-ids (progn (citeproc-add-uncited nocite-ids
processor))) (org-cite-csl--rendered-bibliographies info) (let (result
(rendered (citeproc-render-citations processor (org-cite-csl--output-format
info) (org-cite-csl--no-citelinks-p info)))) (let ((tail citations)) (while
tail (let ((citation ...)) (setq result (cons ... result)) (setq tail (cdr
tail))))) (setq result (nreverse result)) (plist-put info
:cite-citeproc-rendered-citations result) result)))
org-cite-csl--rendered-citations((:export-options nil :back-end
#s(org-export-backend :name latex :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...)
:blocks nil :menu (108 "Export to LaTeX" ...)) :translate-alist ((bold .
org-latex-bold) (center-block . org-latex-center-block) (clock .
org-latex-clock) (code . org-latex-code) (drawer . org-latex-drawer)
(dynamic-block . org-latex-dynamic-block) (entity . org-latex-entity)
(example-block . org-latex-example-block) (export-block .
org-latex-export-block) (export-snippet . org-latex-export-snippet)
(fixed-width . org-latex-fixed-width) (footnote-definition .
org-latex-footnote-definition) (footnote-reference .
org-latex-footnote-reference) (headline . org-latex-headline) (horizontal-rule
. org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block)
(inlinetask . org-latex-inlinetask) (italic . org-latex-italic) (item .
org-latex-item) (keyword . org-latex-keyword) (latex-environment .
org-latex-latex-environment) (latex-fragment . org-latex-latex-fragment)
(line-break . org-latex-line-break) (link . org-latex-link) (node-property .
org-latex-node-property) (paragraph . org-latex-paragraph) ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org"
:latex-class "article" :latex-class-options nil :latex-header nil
:latex-header-extra nil :description nil :keywords nil :subtitle nil ...))
(assq citation (org-cite-csl--rendered-citations info))
(cdr (assq citation (org-cite-csl--rendered-citations info)))
(let ((output (cdr (assq citation (org-cite-csl--rendered-citations info)))))
(if (not (eq 'org (org-cite-csl--output-format info))) output
(org-cite-parse-objects output)))
org-cite-csl-render-citation((citation (:standard-properties ... :style "t")
(citation-reference ...)) ("t") #s(org-export-backend :name latex :parent nil
:transcoders (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ...) :options (... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ...) :filters (... ... ... ...) :blocks nil
:menu (108 "Export to LaTeX" ...)) (:export-options nil :back-end
#s(org-export-backend :name latex :parent nil :transcoders ... :options ...
:filters ... :blocks nil :menu ...) :translate-alist (... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org"
:latex-class "article" :latex-class-options nil :latex-header nil
:latex-header-extra nil ...))
funcall(org-cite-csl-render-citation (citation (:standard-properties ...
:style "t") (citation-reference ...)) ("t") #s(org-export-backend :name latex
:parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ...) :options (... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...)
:blocks nil :menu (108 "Export to LaTeX" ...)) (:export-options nil :back-end
#s(org-export-backend :name latex :parent nil :transcoders ... :options ...
:filters ... :blocks nil :menu ...) :translate-alist (... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org"
:latex-class "article" :latex-class-options nil :latex-header nil
:latex-header-extra nil ...))
(let ((p x184)) (funcall (let* ((cl-x (org-cite-get-processor p))) (progn (or
(let* ((cl-x cl-x)) (progn (and ... t))) (signal 'wrong-type-argument (list
'org-cite-processor cl-x))) (aref cl-x 5))) citation (org-cite-citation-style
citation info) (plist-get info :back-end) info))
(if (null x189) (let ((p x184)) (funcall (let* ((cl-x (org-cite-get-processor
p))) (progn (or (let* (...) (progn ...)) (signal 'wrong-type-argument (list ...
cl-x))) (aref cl-x 5))) citation (org-cite-citation-style citation info)
(plist-get info :back-end) info)) (let ((other val)) (error "Invalid
`:cite-export' value: %S" other)))
(let* ((x189 (cdr-safe x187))) (if (null x189) (let ((p x184)) (funcall (let*
((cl-x (org-cite-get-processor p))) (progn (or (let* ... ...) (signal ... ...))
(aref cl-x 5))) citation (org-cite-citation-style citation info) (plist-get
info :back-end) info)) (let ((other val)) (error "Invalid `:cite-export' value:
%S" other))))
(if (consp x187) (let* ((x189 (cdr-safe x187))) (if (null x189) (let ((p
x184)) (funcall (let* ((cl-x ...)) (progn (or ... ...) (aref cl-x 5))) citation
(org-cite-citation-style citation info) (plist-get info :back-end) info)) (let
((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let ((other
val)) (error "Invalid `:cite-export' value: %S" other)))
(let* ((x187 (cdr-safe x185))) (if (consp x187) (let* ((x189 (cdr-safe
x187))) (if (null x189) (let ((p x184)) (funcall (let* (...) (progn ... ...))
citation (org-cite-citation-style citation info) (plist-get info :back-end)
info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
(let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
(if (consp x185) (let* ((x187 (cdr-safe x185))) (if (consp x187) (let* ((x189
(cdr-safe x187))) (if (null x189) (let ((p x184)) (funcall (let* ... ...)
citation (org-cite-citation-style citation info) (plist-get info :back-end)
info)) (let ((other val)) (error "Invalid `:cite-export' value: %S" other))))
(let ((other val)) (error "Invalid `:cite-export' value: %S" other)))) (let
((other val)) (error "Invalid `:cite-export' value: %S" other)))
(let* ((x184 (car-safe val)) (x185 (cdr-safe val))) (if (consp x185) (let*
((x187 (cdr-safe x185))) (if (consp x187) (let* ((x189 (cdr-safe x187))) (if
(null x189) (let (...) (funcall ... citation ... ... info)) (let (...) (error
"Invalid `:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid
`:cite-export' value: %S" other)))) (let ((other val)) (error "Invalid
`:cite-export' value: %S" other))))
(cond ((null val) 'nil) ((consp val) (let* ((x184 (car-safe val)) (x185
(cdr-safe val))) (if (consp x185) (let* ((x187 (cdr-safe x185))) (if (consp
x187) (let* (...) (if ... ... ...)) (let (...) (error "Invalid `:cite-export'
value: %S" other)))) (let ((other val)) (error "Invalid `:cite-export' value:
%S" other))))) (t (let ((other val)) (error "Invalid `:cite-export' value: %S"
other))))
(let* ((val (plist-get info :cite-export))) (cond ((null val) 'nil) ((consp
val) (let* ((x184 (car-safe val)) (x185 (cdr-safe val))) (if (consp x185) (let*
((x187 ...)) (if (consp x187) (let* ... ...) (let ... ...))) (let ((other val))
(error "Invalid `:cite-export' value: %S" other))))) (t (let ((other val))
(error "Invalid `:cite-export' value: %S" other)))))
org-cite-export-citation((citation (:standard-properties [197 nil 205 233 234
0 ... nil nil nil nil nil nil nil #<buffer org-cite.org<2>> nil nil ...] :style
"t") (citation-reference (:standard-properties ... :key
"abboud2020_RobustTangentPCA"))) nil (:export-options nil :back-end
#s(org-export-backend :name latex :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...)
:blocks nil :menu (108 "Export to LaTeX" ...)) :translate-alist ((bold .
org-latex-bold) (center-block . org-latex-center-block) (clock .
org-latex-clock) (code . org-latex-code) (drawer . org-latex-drawer)
(dynamic-block . org-latex-dynamic-block) (entity . org-latex-entity)
(example-block . org-latex-example-block) (export-block .
org-latex-export-block) (export-snippet . org-latex-export-snippet)
(fixed-width . org-latex-fixed-width) (footnote-definition .
org-latex-footnote-definition) (footnote-reference .
org-latex-footnote-reference) (headline . org-latex-headline) (horizontal-rule
. org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block)
(inlinetask . org-latex-inlinetask) (italic . org-latex-italic) (item .
org-latex-item) (keyword . org-latex-keyword) (latex-environment .
org-latex-latex-environment) (latex-fragment . org-latex-latex-fragment)
(line-break . org-latex-line-break) (link . org-latex-link) (node-property .
org-latex-node-property) (paragraph . org-latex-paragraph) ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org"
:latex-class "article" :latex-class-options nil :latex-header nil
:latex-header-extra nil :description nil :keywords nil :subtitle nil ...))
(let ((replacement (org-cite-export-citation cite nil info)) (blanks (or
(org-element-post-blank cite) 0))) (if (null replacement)
(org-cite--set-previous-post-blank cite blanks info) (let ((previous
(org-export-get-previous-element cite info))) (if (and (org-string-nw-p
previous) (string-suffix-p "\"" previous)) (progn
(org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement)
(let nil (let ((output ...)) (org-element-insert-before (org-export-raw-string
output) cite)))) ((consp replacement) (let* ((x196 (car-safe replacement))) (if
(symbolp x196) (let nil (org-cite--set-post-blank replacement blanks)
(org-element-insert-before replacement cite)) (let nil (let ... ... ...))))) (t
(let nil (error "Invalid return value from citation export processor: %S"
replacement))))) (org-element-extract cite))
(let ((cite (car tail))) (let ((replacement (org-cite-export-citation cite
nil info)) (blanks (or (org-element-post-blank cite) 0))) (if (null
replacement) (org-cite--set-previous-post-blank cite blanks info) (let
((previous (org-export-get-previous-element cite info))) (if (and
(org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn
(org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement)
(let nil (let (...) (org-element-insert-before ... cite)))) ((consp
replacement) (let* ((x196 ...)) (if (symbolp x196) (let nil ... ...) (let nil
...)))) (t (let nil (error "Invalid return value from citation export
processor: %S" replacement))))) (org-element-extract cite)) (setq tail (cdr
tail)))
(while tail (let ((cite (car tail))) (let ((replacement
(org-cite-export-citation cite nil info)) (blanks (or (org-element-post-blank
cite) 0))) (if (null replacement) (org-cite--set-previous-post-blank cite
blanks info) (let ((previous (org-export-get-previous-element cite info))) (if
(and (org-string-nw-p previous) (string-suffix-p "\"" previous)) (progn
(org-cite--set-previous-post-blank cite 1 info)))) (cond ((stringp replacement)
(let nil (let ... ...))) ((consp replacement) (let* (...) (if ... ... ...))) (t
(let nil (error "Invalid return value from citation export processor: %S"
replacement))))) (org-element-extract cite)) (setq tail (cdr tail))))
(let ((tail (org-cite-list-citations info))) (while tail (let ((cite (car
tail))) (let ((replacement (org-cite-export-citation cite nil info)) (blanks
(or (org-element-post-blank cite) 0))) (if (null replacement)
(org-cite--set-previous-post-blank cite blanks info) (let ((previous ...)) (if
(and ... ...) (progn ...))) (cond ((stringp replacement) (let nil ...)) ((consp
replacement) (let* ... ...)) (t (let nil ...)))) (org-element-extract cite))
(setq tail (cdr tail)))))
org-cite-process-citations((:export-options nil :back-end
#s(org-export-backend :name latex :parent nil :transcoders (... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ...) :options (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ...) :filters (... ... ... ...)
:blocks nil :menu (108 "Export to LaTeX" ...)) :translate-alist ((bold .
org-latex-bold) (center-block . org-latex-center-block) (clock .
org-latex-clock) (code . org-latex-code) (drawer . org-latex-drawer)
(dynamic-block . org-latex-dynamic-block) (entity . org-latex-entity)
(example-block . org-latex-example-block) (export-block .
org-latex-export-block) (export-snippet . org-latex-export-snippet)
(fixed-width . org-latex-fixed-width) (footnote-definition .
org-latex-footnote-definition) (footnote-reference .
org-latex-footnote-reference) (headline . org-latex-headline) (horizontal-rule
. org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block)
(inlinetask . org-latex-inlinetask) (italic . org-latex-italic) (item .
org-latex-item) (keyword . org-latex-keyword) (latex-environment .
org-latex-latex-environment) (latex-fragment . org-latex-latex-fragment)
(line-break . org-latex-line-break) (link . org-latex-link) (node-property .
org-latex-node-property) (paragraph . org-latex-paragraph) ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org"
:latex-class "article" :latex-class-options nil :latex-header nil
:latex-header-extra nil :description nil :keywords nil :subtitle nil ...))
(progn (org-cite-process-citations info) (org-cite-process-bibliography info))
(if (plist-get info :with-cite-processors) (progn (org-cite-process-citations
info) (org-cite-process-bibliography info)))
(let ((parsed-keywords (delq nil (mapcar #'(lambda (o) (and ... ...)) (append
(org-export-get-all-options backend) org-export-options-alist)))) tree
modified-tick) (run-hook-with-args 'org-export-before-processing-hook (let*
((cl-x backend)) (progn (or (let* ((cl-x cl-x)) (progn (and ... t))) (signal
'wrong-type-argument (list 'org-export-backend cl-x))) (aref cl-x 1))))
(org-export-expand-include-keyword nil nil nil nil (plist-get info
:expand-links)) (org-export--delete-comment-trees)
(org-macro-initialize-templates org-export-global-macros)
(org-macro-replace-all org-macro-templates parsed-keywords)
(org-set-regexps-and-options) (org-update-radio-target-regexp) (setq
modified-tick (buffer-chars-modified-tick)) (if org-export-use-babel (progn
(org-babel-exp-process-buffer) (org-macro-replace-all '(("results" . "$1"))
parsed-keywords) (if (eq modified-tick (buffer-chars-modified-tick)) nil
(org-set-regexps-and-options) (org-update-radio-target-regexp)) (setq
modified-tick (buffer-chars-modified-tick)))) (goto-char (point-min))
(save-excursion (run-hook-with-args 'org-export-before-parsing-hook (let*
((cl-x backend)) (progn (or (let* (...) (progn ...)) (signal
'wrong-type-argument (list ... cl-x))) (aref cl-x 1))))) (if (eq modified-tick
(buffer-chars-modified-tick)) nil (org-set-regexps-and-options)
(org-update-radio-target-regexp)) (setq modified-tick
(buffer-chars-modified-tick)) (setq info (org-combine-plists info
(org-export-get-environment backend subtreep ext-plist))) (if (plist-get info
:with-cite-processors) (progn (org-cite-store-bibliography info)
(org-cite-store-export-processor info))) (let ((tail (append
(org-export-get-all-options backend) org-export-options-alist))) (while tail
(let ((entry (car tail))) (if (consp entry) (let* ((x592 ...) (x593 ...)) (if
(consp x593) (let* ... ...) 'nil)) 'nil) (setq tail (cdr tail))))) (setq info
(org-export-install-filters info)) (let ((backend-name (let* ((cl-x backend))
(progn (or (let* ... ...) (signal ... ...)) (aref cl-x 1))))) (let ((tail
(plist-get info :filter-options))) (while tail (let ((filter (car tail))) (let
((result ...)) (if result (progn ...))) (setq tail (cdr tail)))))) (setq tree
(org-element-parse-buffer nil visible-only 'defer)) (org-export--prune-tree
tree info) (org-export--remove-uninterpreted-data tree info)
(org-export--expand-links 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)) (if
(plist-get info :with-cite-processors) (progn (org-cite-process-citations info)
(org-cite-process-bibliography info))) info)
org-export--annotate-info(#s(org-export-backend :name latex :parent nil
:transcoders ((bold . org-latex-bold) (center-block . org-latex-center-block)
(clock . org-latex-clock) (code . org-latex-code) (drawer . org-latex-drawer)
(dynamic-block . org-latex-dynamic-block) (entity . org-latex-entity)
(example-block . org-latex-example-block) (export-block .
org-latex-export-block) (export-snippet . org-latex-export-snippet)
(fixed-width . org-latex-fixed-width) (footnote-definition .
org-latex-footnote-definition) (footnote-reference .
org-latex-footnote-reference) (headline . org-latex-headline) (horizontal-rule
. org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block)
(inlinetask . org-latex-inlinetask) (italic . org-latex-italic) (item .
org-latex-item) (keyword . org-latex-keyword) (latex-environment .
org-latex-latex-environment) (latex-fragment . org-latex-latex-fragment)
(line-break . org-latex-line-break) (link . org-latex-link) (node-property .
org-latex-node-property) (paragraph . org-latex-paragraph) ...) :options
((:latex-class "LATEX_CLASS" nil org-latex-default-class t)
(:latex-class-options "LATEX_CLASS_OPTIONS" nil nil t) (:latex-header
"LATEX_HEADER" nil nil newline) (:latex-header-extra "LATEX_HEADER_EXTRA" nil
nil newline) (:description "DESCRIPTION" nil nil parse) (:keywords "KEYWORDS"
nil nil parse) (:subtitle "SUBTITLE" nil nil parse)
(:latex-active-timestamp-format nil nil org-latex-active-timestamp-format)
(:latex-caption-above nil nil org-latex-caption-above) (:latex-classes nil nil
org-latex-classes) (:latex-default-figure-position nil nil
org-latex-default-figure-position) (:latex-default-table-environment nil nil
org-latex-default-table-environment) (:latex-default-quote-environment nil nil
org-latex-default-quote-environment) (:latex-default-table-mode nil nil
org-latex-default-table-mode) (:latex-default-footnote-command
"LATEX_FOOTNOTE_COMMAND" nil org-latex-default-footnote-command)
(:latex-diary-timestamp-format nil nil org-latex-diary-timestamp-format)
(:latex-engraved-options nil nil org-latex-engraved-options)
(:latex-engraved-preamble nil nil org-latex-engraved-preamble)
(:latex-engraved-theme "LATEX_ENGRAVED_THEME" nil org-latex-engraved-theme)
(:latex-footnote-defined-format nil nil org-latex-footnote-defined-format)
(:latex-footnote-separator nil nil org-latex-footnote-separator)
(:latex-format-drawer-function nil nil org-latex-format-drawer-function)
(:latex-format-headline-function nil nil org-latex-format-headline-function)
(:latex-format-inlinetask-function nil nil
org-latex-format-inlinetask-function) (:latex-hyperref-template nil nil
org-latex-hyperref-template t) (:latex-image-default-scale nil nil
org-latex-image-default-scale) ...) :filters ((:filter-options .
org-latex-math-block-options-filter) (:filter-paragraph .
org-latex-clean-invalid-line-breaks) (:filter-parse-tree
org-latex-math-block-tree-filter org-latex-matrices-tree-filter
org-latex-image-link-filter) (:filter-verse-block .
org-latex-clean-invalid-line-breaks)) :blocks nil :menu (108 "Export to LaTeX"
(... ... ... ...))) (:export-options nil :back-end #s(org-export-backend :name
latex :parent nil :transcoders (... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) :options (... ...
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ... ...) :filters (... ... ... ...) :blocks nil :menu (108 "Export
to LaTeX" ...)) :translate-alist ((bold . org-latex-bold) (center-block .
org-latex-center-block) (clock . org-latex-clock) (code . org-latex-code)
(drawer . org-latex-drawer) (dynamic-block . org-latex-dynamic-block) (entity .
org-latex-entity) (example-block . org-latex-example-block) (export-block .
org-latex-export-block) (export-snippet . org-latex-export-snippet)
(fixed-width . org-latex-fixed-width) (footnote-definition .
org-latex-footnote-definition) (footnote-reference .
org-latex-footnote-reference) (headline . org-latex-headline) (horizontal-rule
. org-latex-horizontal-rule) (inline-src-block . org-latex-inline-src-block)
(inlinetask . org-latex-inlinetask) (italic . org-latex-italic) (item .
org-latex-item) (keyword . org-latex-keyword) (latex-environment .
org-latex-latex-environment) (latex-fragment . org-latex-latex-fragment)
(line-break . org-latex-line-break) (link . org-latex-link) (node-property .
org-latex-node-property) (paragraph . org-latex-paragraph) ...) :exported-data
#<hash-table eq 1/4001 0x10cc79ec21d5 ...> :input-buffer "org-cite.org"
:input-file
"/home/fsantos/PACEA_MyCore/Logiciels/Emacs/Bug_reports/org-cite.org") nil nil
(:output-file "org-cite.tex"))
(setq info (org-export--annotate-info backend info subtreep visible-only
ext-plist))
(progn (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq
info (org-export--annotate-info backend info subtreep visible-only ext-plist))
(let* ((body (org-element-normalize-string (or (org-export-data (plist-get info
:parse-tree) info) ""))) (inner-template (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)) 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)))) (if (plist-get info
:with-cite-processors) (progn (setq output (org-cite-finalize-export output
info)))) (org-no-properties (org-export-filter-apply-functions (plist-get info
:filter-final-output) output info))))
(prog1 (progn (org-export--set-variables --bind-variables) (font-lock-mode
-1) (setq info (org-export--annotate-info backend info subtreep visible-only
ext-plist)) (let* ((body (org-element-normalize-string (or (org-export-data ...
info) ""))) (inner-template (cdr (assq 'inner-template (plist-get info
:translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get
info :filter-body) (if (not ...) body (funcall inner-template body info))
info)) (template (cdr (assq 'template (plist-get info :translate-alist))))
(output (if (or (not ...) body-only) full-body (funcall template full-body
info)))) (if (plist-get info :with-cite-processors) (progn (setq output
(org-cite-finalize-export output info)))) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (setq buffer-file-name nil))
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1
(progn (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq
info (org-export--annotate-info backend info subtreep visible-only ext-plist))
(let* ((body (org-element-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)))) (if
(plist-get info :with-cite-processors) (progn (setq output
(org-cite-finalize-export output info)))) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (setq buffer-file-name nil)))
(unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char
(point-min)) (prog1 (progn (org-export--set-variables --bind-variables)
(font-lock-mode -1) (setq info (org-export--annotate-info backend info subtreep
visible-only ext-plist)) (let* ((body (org-element-normalize-string ...))
(inner-template (cdr ...)) (full-body (org-export-filter-apply-functions ...
... info)) (template (cdr ...)) (output (if ... full-body ...))) (if (plist-get
info :with-cite-processors) (progn (setq output ...))) (org-no-properties
(org-export-filter-apply-functions (plist-get info :filter-final-output) output
info)))) (setq buffer-file-name nil))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil))
(if nil nil (kill-buffer --buf-copy)))))
(let ((--buf-copy (org-element-copy-buffer :to-buffer nil :drop-visibility
nil :drop-narrowing nil :drop-contents nil :drop-locals nil))) (unwind-protect
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1
(progn (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq
info (org-export--annotate-info backend info subtreep visible-only ext-plist))
(let* ((body ...) (inner-template ...) (full-body ...) (template ...) (output
...)) (if (plist-get info :with-cite-processors) (progn ...))
(org-no-properties (org-export-filter-apply-functions ... output info)))) (setq
buffer-file-name nil))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil))
(if nil nil (kill-buffer --buf-copy))))))
(let ((--bind-variables (org-export--list-bound-variables))) (let
((--buf-copy (org-element-copy-buffer :to-buffer nil :drop-visibility nil
:drop-narrowing nil :drop-contents nil :drop-locals nil))) (unwind-protect
(save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (prog1
(progn (org-export--set-variables --bind-variables) (font-lock-mode -1) (setq
info (org-export--annotate-info backend info subtreep visible-only ext-plist))
(let* (... ... ... ... ...) (if ... ...) (org-no-properties ...))) (setq
buffer-file-name nil))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil))
(if nil nil (kill-buffer --buf-copy)))))))
(let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or (let*
(...) (progn ...)) (signal 'wrong-type-argument (list ... cl-x))) (aref cl-x
1)))) (info (org-combine-plists (org-export--get-export-attributes backend
subtreep visible-only body-only) (org-export--get-buffer-attributes)))) (let
((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy
(org-element-copy-buffer :to-buffer nil :drop-visibility nil :drop-narrowing
nil :drop-contents nil :drop-locals nil))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char (point-min)) (prog1 (progn
(org-export--set-variables --bind-variables) (font-lock-mode -1) (setq info
...) (let* ... ... ...)) (setq buffer-file-name nil))) (and (buffer-live-p
--buf-copy) (progn (save-current-buffer (set-buffer --buf-copy)
(restore-buffer-modified-p nil)) (if nil nil (kill-buffer --buf-copy))))))))
(save-restriction (cond ((org-region-active-p) (narrow-to-region
(region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char
(point-min)) (org-end-of-meta-data) (if (bolp) (progn (forward-char (- (or nil
1))))) (narrow-to-region (point) (point-max)))) (let*
((org-export-current-backend (let* ((cl-x backend)) (progn (or (let* ... ...)
(signal ... ...)) (aref cl-x 1)))) (info (org-combine-plists
(org-export--get-export-attributes backend subtreep visible-only body-only)
(org-export--get-buffer-attributes)))) (let ((--bind-variables
(org-export--list-bound-variables))) (let ((--buf-copy (org-element-copy-buffer
:to-buffer nil :drop-visibility nil :drop-narrowing nil :drop-contents nil
:drop-locals nil))) (unwind-protect (save-current-buffer (set-buffer
--buf-copy) (goto-char (point-min)) (prog1 (progn ... ... ... ...) (setq
buffer-file-name nil))) (and (buffer-live-p --buf-copy) (progn
(save-current-buffer ... ...) (if nil nil ...))))))))
(save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region (region-beginning) (region-end))) (subtreep
(org-narrow-to-subtree) (goto-char (point-min)) (org-end-of-meta-data) (if
(bolp) (progn (forward-char (- ...)))) (narrow-to-region (point) (point-max))))
(let* ((org-export-current-backend (let* ((cl-x backend)) (progn (or ... ...)
(aref cl-x 1)))) (info (org-combine-plists (org-export--get-export-attributes
backend subtreep visible-only body-only) (org-export--get-buffer-attributes))))
(let ((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy
(org-element-copy-buffer :to-buffer nil :drop-visibility nil :drop-narrowing
nil :drop-contents nil :drop-locals nil))) (unwind-protect (save-current-buffer
(set-buffer --buf-copy) (goto-char ...) (prog1 ... ...)) (and (buffer-live-p
--buf-copy) (progn ... ...))))))))
(progn (save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region (region-beginning) (region-end))) (subtreep
(org-narrow-to-subtree) (goto-char (point-min)) (org-end-of-meta-data) (if
(bolp) (progn (forward-char ...))) (narrow-to-region (point) (point-max))))
(let* ((org-export-current-backend (let* (...) (progn ... ...))) (info
(org-combine-plists (org-export--get-export-attributes backend subtreep
visible-only body-only) (org-export--get-buffer-attributes)))) (let
((--bind-variables (org-export--list-bound-variables))) (let ((--buf-copy ...))
(unwind-protect (save-current-buffer ... ... ...) (and ... ...))))))))
(unwind-protect (progn (save-excursion (save-restriction (cond
((org-region-active-p) (narrow-to-region (region-beginning) (region-end)))
(subtreep (org-narrow-to-subtree) (goto-char (point-min))
(org-end-of-meta-data) (if (bolp) (progn ...)) (narrow-to-region (point)
(point-max)))) (let* ((org-export-current-backend (let* ... ...)) (info
(org-combine-plists ... ...))) (let ((--bind-variables ...)) (let (...)
(unwind-protect ... ...))))))) (setq
org-fold-core--last-buffer-chars-modified-tick (buffer-chars-modified-tick)))
(let ((org-fold-core--ignore-modifications t)) (unwind-protect (progn
(save-excursion (save-restriction (cond ((org-region-active-p)
(narrow-to-region ... ...)) (subtreep (org-narrow-to-subtree) (goto-char ...)
(org-end-of-meta-data) (if ... ...) (narrow-to-region ... ...))) (let*
((org-export-current-backend ...) (info ...)) (let (...) (let ... ...))))))
(setq org-fold-core--last-buffer-chars-modified-tick
(buffer-chars-modified-tick))))
org-export-as(latex nil nil nil (:output-file "org-cite.tex"))
(let ((output (org-export-as backend subtreep visible-only body-only
ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*" t)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
output) (if (bolp) nil (insert "\n")) (let ((coding-system-for-write encoding))
(write-region nil nil 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 (list
'org-export-as (list 'quote backend) subtreep visible-only body-only (list
'quote ext-plist)))) (list 'with-temp-buffer '(insert output) '(unless (bolp)
(insert "\n")) (list 'let (list (list 'coding-system-for-write (list ...
encoding))) (list 'write-region nil nil file))) (list 'or (list 'ignore-errors
(list 'funcall (list 'quote post-process) file)) file))) (let ((output
(org-export-as backend subtreep visible-only body-only ext-plist))) (let
((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (insert output) (if (bolp) nil
(insert "\n")) (let (...) (write-region nil nil 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)))
(let ((ext-plist (org-combine-plists (list ':output-file file) ext-plist))
(encoding (or org-export-coding-system buffer-file-coding-system))) (if async
(org-export-async-start #'(lambda (file) (org-export-add-to-stack
(expand-file-name file) backend)) (list 'let (list (list 'output (list
'org-export-as (list ... backend) subtreep visible-only body-only (list ...
ext-plist)))) (list 'with-temp-buffer '(insert output) '(unless (bolp) (insert
"\n")) (list 'let (list (list ... ...)) (list 'write-region nil nil 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*" t)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
output) (if ... nil ...) (let ... ...)) (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 (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))) (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)
'(unless ... ...) (list 'let (list ...) (list ... nil nil file))) (list 'or
(list 'ignore-errors (list ... ... file)) file))) (let ((output (org-export-as
backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer
(generate-new-buffer " *temp*" t))) (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))) (or (and (functionp post-process) (funcall post-process
file)) file)))))
org-export-to-file(latex "org-cite.tex" nil nil nil nil nil org-latex-compile)
(let ((outfile (org-export-output-file-name ".tex" subtreep)))
(org-export-to-file 'latex outfile async subtreep visible-only body-only
ext-plist #'org-latex-compile))
org-latex-export-to-pdf(nil nil nil nil)
funcall(org-latex-export-to-pdf nil nil nil nil)
(save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer (current-buffer)))
(goto-char org-export-dispatch-last-position) (move-marker
org-export-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)))
(cond ((eql action 'template) (org-export-insert-default-template nil optns))
((eql action 'stack) (org-export-stack)) ((eql action 'publish-current-file)
(org-publish-current-file (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-current-project) (org-publish-current-project (memq 'force
optns) (memq 'async optns))) ((eql action 'publish-choose-project) (org-publish
(assoc (completing-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-all) (org-publish-all (memq 'force optns) (memq 'async optns)))
(t (save-excursion (if arg (progn (if (eq (marker-buffer
org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-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)))))
(let* ((input (cond ((equal arg '(16)) '(stack)) ((and arg
org-export-dispatch-last-action)) (t (unwind-protect (progn (move-marker
org-export-dispatch-last-position ... ...) (setq
org-export-dispatch-last-action ...)) (and (get-buffer-window "*Org Export
Dispatcher*" t) (quit-window ... ...)) (and (get-buffer "*Org Export
Dispatcher*") (kill-buffer "*Org Export Dispatcher*")))))) (action (car input))
(optns (cdr input))) (if (memq 'subtree optns) nil (move-marker
org-export-dispatch-last-position nil)) (cond ((eql action 'template)
(org-export-insert-default-template nil optns)) ((eql action 'stack)
(org-export-stack)) ((eql action 'publish-current-file)
(org-publish-current-file (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-current-project) (org-publish-current-project (memq 'force
optns) (memq 'async optns))) ((eql action 'publish-choose-project) (org-publish
(assoc (completing-read "Publish project: " org-publish-project-alist nil t)
org-publish-project-alist) (memq 'force optns) (memq 'async optns))) ((eql
action 'publish-all) (org-publish-all (memq 'force optns) (memq 'async optns)))
(t (save-excursion (if arg (progn (if (eq ... ...) (goto-char
org-export-dispatch-last-position) (move-marker
org-export-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)
command-execute(org-export-dispatch)
