Merge from emacs-23

[gnu-emacs] / lisp / org / org-beamer.el

diff --git a/lisp/org/org-beamer.el b/lisp/org/org-beamer.el
index d3f0f47e45ceeddd0b193d587b8d048008807df9..cccbcb27824b3feb2b8dc97b898399c2afb682ea 100644 (file)
--- a/lisp/org/org-beamer.el
+++ b/lisp/org/org-beamer.el
@@ -1,8 +1,8 @@
 ;;; org-beamer.el --- Beamer-specific LaTeX export for org-mode
 ;;
-;; Copyright (C) 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 ;;
-;; Version: 7.3
+;; Version: 7.4
 ;; Author: Carsten Dominik <carsten.dominik AT gmail DOT com>
 ;; Maintainer: Carsten Dominik <carsten.dominik AT gmail DOT com>
 ;; Keywords: org, wp, tex
@@ -246,14 +246,14 @@ in org-export-latex-classes."
       (if (and (string-match "\\`[0-9.]+\\'" tmp)
               (or (= (string-to-number tmp) 1.0)
                   (= (string-to-number tmp) 0.0)))
-         ;; column width 1 means cloase columns, go back to full width
+         ;; column width 1 means close columns, go back to full width
          (org-beamer-close-columns-maybe)
        (when (setq ass (assoc "BEAMER_envargs" props))
          (let (case-fold-search)
-           (when (string-match "C\\(\\[[^][]*\\]\\)" (cdr ass))
+           (while (string-match "C\\(\\[[^][]*\\]\\|<[^<>]*>\\)" (cdr ass))
              (setq columns-option (match-string 1 (cdr ass)))
              (setcdr ass (replace-match "" t t (cdr ass))))
-           (when (string-match "c\\(\\[[^][]*\\]\\)" (cdr ass))
+           (while (string-match "c\\(\\[[^][]*\\]\\|<[^<>]*>\\)" (cdr ass))
              (setq column-option (match-string 1 (cdr ass)))
              (setcdr ass (replace-match "" t t (cdr ass))))))
        (org-beamer-open-columns-maybe columns-option)
@@ -631,6 +631,5 @@ include square brackets."
 
 (provide 'org-beamer)
 
-;; arch-tag: 68bac91a-a946-43a3-8173-a9269306f67c
 
 ;;; org-beamer.el ends here