Just a small addition to make sure we are on the right exporter...
Best, /PA
On Sun, 5 Jul 2026 at 19:47, Ihor Radchenko <[email protected]> wrote:
> Pedro Andres Aranda Gutierrez <[email protected]> writes:
>
> >> *(string-match-p (concat "^" label-str "=") s)
> >> Two arguments, not one.
> >>
> > Got me in this...
>
> Doing make test and looking at the warnings would reveal it early.
>
> >> Also, (regexp-quote label-str) is probably safer.
> >
> > Really? Looking at a quick test in my scratch buffer:
> > ```
> > (string-match-p
> > (regexp-quote (concat "^" "name" "="))
> > "name=pepe")
> > nil
> > (string-match-p
> > (concat "^" "name" "=")
> > "name=pepe")
> > 0
> > ```
>
> I meant (concat "^" (regexp-quote "name") "=").
> I went with it in the commit.
>
> > Subject: ox-beamer.el: add ltx-talk support
>
> Applied, onto main, with amendments.
> I have added regexp-quote + fixed formatting and typos in the commit
> message.
> I also fixed one failing test - your tests triggered duplicate detector.
> https://git.savannah.gnu.org/cgit/emacs/org-mode.git/commit/?id=13a25caeb
>
> --
> Ihor Radchenko // yantar92,
> Org mode maintainer,
> Learn more about Org mode at <https://orgmode.org/>.
> Support Org development at <https://liberapay.com/org-mode>,
> or support my work at <https://liberapay.com/yantar92>
>
--
Fragen sind nicht da, um beantwortet zu werden,
Fragen sind da um gestellt zu werden
Georg Kreisler
"Sagen's Paradeiser" (ORF: Als Radiohören gefährlich war) => write BE!
Year 2 of the New Koprocracy
This was produced by a human (implied virtues and weaknesses acknowledged)
I'd hate this being fed to any form of AS (sorry AI)...
lisp/ox-beamer.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el
index 4548d77bf..2af72ecaa 100644
--- a/lisp/ox-beamer.el
+++ b/lisp/ox-beamer.el
@@ -917,6 +917,8 @@ (defun org-beamer-template (contents info)
(let ((title (org-export-data (plist-get info :title) info))
(subtitle (org-export-data (plist-get info :subtitle) info))
(beamer-class (plist-get info :latex-class)))
+ (unless (member beamer-class '("beamer" "ltx-talk"))
+ (error "Beamer exporter: unsupported class `%s'" beamer-class))
(when (equal beamer-class "ltx-talk")
(unless (equal "lualatex" (plist-get info :latex-compiler))
(error "ox-beamer: `ltx-talk' needs LuaLaTeX!")))
