From cac45d5469db6e9e31d5b1bdedb051ec11f5c368 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 1 May 2018 23:27:37 +0200 Subject: [PATCH] ox-beamer: Fix `org-beamer-select-environment' * lisp/ox-beamer.el (org-beamer-select-environment): Fix thinko. The error prevents the function to complete: only the tag is added, not the property. --- lisp/ox-beamer.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 1d2e338ac..a6a7eba01 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -1096,9 +1096,12 @@ aid, but the tag does not have any semantic meaning." (read-string "Frame reference (*Title, #custom-id, id:...): ")) (org-set-property "BEAMER_act" (read-string "Overlay specification: ")))) - ((let ((tags-re (concat "B_" (regexp-opt (mapcar #'car envs) t)))) - (cl-some (lambda (tag) (string-match tags-re tag)) tags)) - (org-entry-put nil "BEAMER_env" (match-string 1 tags))) + ((let* ((tags-re (concat "B_" (regexp-opt (mapcar #'car envs) t))) + (env (cl-some (lambda (tag) + (and (string-match tags-re tag) + (match-string 1 tag))) + tags))) + (and env (progn (org-entry-put nil "BEAMER_env" env) t)))) (t (org-entry-delete nil "BEAMER_env")))))) ;;;###autoload