diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-09-29 10:30:50 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-09-29 10:30:50 +0200 |
commit | f485539d6365a0711129c28732e72bd75083105b (patch) | |
tree | a94fc952820b8e09186208936f054ac2e2949f87 | |
parent | cd5cccd6e9e67bc8eb35c936d5eb004e4a3eb830 (diff) | |
parent | d745cd1952cc76fdcc164e8cb2abccb543ac1201 (diff) | |
download | org-mode-f485539d6365a0711129c28732e72bd75083105b.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/ox-beamer.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lisp/ox-beamer.el b/lisp/ox-beamer.el index 8ad94d1..a975d24 100644 --- a/lisp/ox-beamer.el +++ b/lisp/ox-beamer.el @@ -539,12 +539,14 @@ used as a communication channel." ((not env) "column") ;; Use specified environment. (t env)))) - (env-format (unless (member environment '("column" "columns")) - (assoc environment - (append org-beamer-environments-special - org-beamer-environments-extra - org-beamer-environments-default)))) (raw-title (org-element-property :raw-value headline)) + (env-format + (cond ((member environment '("column" "columns")) nil) + ((assoc environment + (append org-beamer-environments-extra + org-beamer-environments-default))) + (t (user-error "Wrong block type at a headline named \"%s\"" + raw-title)))) (title (org-export-data (org-element-property :title headline) info)) (options (let ((options (org-element-property :BEAMER_OPT headline))) (if (not options) "" @@ -589,7 +591,7 @@ used as a communication channel." (if (equal environment "column") options "") (format "%s\\textwidth" column-width))) ;; Block's opening string. - (when env-format + (when (nth 2 env-format) (concat (org-fill-template (nth 2 env-format) @@ -617,8 +619,8 @@ used as a communication channel." (format "[%s]" raw-title)))))) "\n")) contents - ;; Block's closing string. - (when environment (concat (nth 3 env-format) "\n")) + ;; Block's closing string, if any. + (and (nth 3 env-format) (concat (nth 3 env-format) "\n")) (when column-width "\\end{column}\n") (when end-columns-p "\\end{columns}")))) |