tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-e-beamer: Do not normalize empty arguments 

* contrib/lisp/org-e-beamer.el (org-e-beamer--normalize-argument): Do
  not normalize empty arguments.
This commit is contained in:
Nicolas Goaziou 2012-08-22 17:45:18 +02:00
parent cd9ce4b914
commit 436c2a0794
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
contrib/lisp/org-e-beamer.el
View File

@ -227,19 +227,20 @@ TYPE is a symbol among the following:
`action' Return ARGUMENT within angular brackets.
`defaction' Return ARGUMENT within both square and angular brackets.
`option' Return ARGUMENT within square brackets."
(case type
(action (if (string-match "\\`<.*>\\'" argument) argument
(format "<%s>" argument)))
(defaction (cond
((string-match "\\`\\[<.*>\\]\\'" argument) argument)
((string-match "\\`<.*>\\'" argument)
(format "[%s]" argument))
((string-match "\\`\\[\\(.*\\)\\]\\'" argument)
(format "[<%s>]" (match-string 1 argument)))
(t (format "[<%s>]" argument))))
(option (if (string-match "\\`\\[.*\\]\\'" argument) argument
(format "[%s]" argument)))
(otherwise argument)))
(if (not (string-match "\\S-" argument)) ""
(case type
(action (if (string-match "\\`<.*>\\'" argument) argument
(format "<%s>" argument)))
(defaction (cond
((string-match "\\`\\[<.*>\\]\\'" argument) argument)
((string-match "\\`<.*>\\'" argument)
(format "[%s]" argument))
((string-match "\\`\\[\\(.*\\)\\]\\'" argument)
(format "[<%s>]" (match-string 1 argument)))
(t (format "[<%s>]" argument))))
(option (if (string-match "\\`\\[.*\\]\\'" argument) argument
(format "[%s]" argument)))
(otherwise argument))))
(defun org-e-beamer--element-has-overlay-p (element)
"Non-nil when ELEMENT has an overlay specified.