mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:07:46 +00:00
Code Releases Activity

ox-beamer: Fix `org-beamer-select-environment'

Browse source 
* 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.
This commit is contained in:
Nicolas Goaziou 2018-05-01 23:27:37 +02:00
parent 8efcb62dc4
commit cac45d5469
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ox-beamer.el
View file

@ -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