Adding a couple more safe predicates to ox-beamer.el
-- 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
From 99883291b908fa8735d435c9b52033f655504163 Mon Sep 17 00:00:00 2001 From: "Pedro A. Aranda" <[email protected]> Date: Sat, 18 Apr 2026 07:38:29 +0200 Subject: [PATCH] Add safe predicate to custom variables in ox-beamer ox-beamer.el (org-beamer-theme), (org-beamer-outline-frame-title), (org-beamer-outline-frame-options), (org-beamer-subtitle-format): Add safe predicate. --- lisp/ox-beamer.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 72fe18acd..8f2a70adb 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -95,6 +95,7 @@ For example, it could be set to \"allowframebreaks\"." :group 'org-export-beamer :version "24.4" :package-version '(Org . "8.0") + :safe #'string-or-null-p :type '(choice (const :tag "Do not insert a Beamer theme" nil) (string :tag "Beamer theme"))) @@ -129,12 +130,14 @@ close The closing string of the environment." (defcustom org-beamer-outline-frame-title "Outline" "Default title of a frame containing an outline." :group 'org-export-beamer + :safe #'stringp :type '(string :tag "Outline frame title")) (defcustom org-beamer-outline-frame-options "" "Outline frame options appended after \\begin{frame}. You might want to put e.g. \"allowframebreaks=0.9\" here." :group 'org-export-beamer + :safe #'stringp :type '(string :tag "Outline frame options")) @@ -144,6 +147,7 @@ The format string should have at most one \"%s\"-expression, which is replaced with the subtitle." :group 'org-export-beamer :version "26.1" + :safe #'stringp :package-version '(Org . "8.3") :type '(string :tag "Format string")) -- 2.43.0
