ox-beamer.org: Simplify filters

diff --git a/exporters/beamer/ox-beamer.org b/exporters/beamer/ox-beamer.org
index 005fc01..7bcef2b 100644 (file)
--- a/exporters/beamer/ox-beamer.org
+++ b/exporters/beamer/ox-beamer.org
@@ -122,20 +122,20 @@ As a simple example; the =ox-beamer= translates *bold text* as
 =\alert{bold text}=.  To revert this back to the old behaviour, you
 can you a filter like this:
 #+begin_src emacs-lisp :eval no
-  (defun my-beamer-bold (contents backend info)
-    (if (not (eq backend 'beamer)) contents
-      (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\textbf" contents)))
-  
-  (add-to-list 'org-export-filter-bold-functions 'my-beamer-bold)
+(defun my-beamer-bold (contents backend info)
+  (when (eq backend 'beamer)
+    (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\textbf" contents)))
+
+(add-to-list 'org-export-filter-bold-functions 'my-beamer-bold)
 #+end_src
 Another example would be to translate +strike through text+ to
 =\structure{strike through text}= with the following filter.
 #+begin_src emacs-lisp :eval no
-  (defun my-beamer-structure (contents backend info)
-    (if (not (eq backend 'beamer)) contents
-      (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\structure" contents)))
-  
-  (add-to-list 'org-export-filter-strike-through-functions 'my-beamer-structure)
+(defun my-beamer-structure (contents backend info)
+  (when (eq backend 'beamer)
+    (replace-regexp-in-string "\\`\\\\[A-Za-z0-9]+" "\\\\structure" contents)))
+
+(add-to-list 'org-export-filter-strike-through-functions 'my-beamer-structure)
 #+end_src
 
 * Structure editing, environments and markup