diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-16 16:19:18 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-06-16 22:34:12 +0200 |
| commit | a04752d38cde7e6bc7596aebb0f178816e746cbd (patch) | |
| tree | 8b77e806f2d86d72af3946a4c42efd11616be343 | |
| parent | e3e52a45bb33f0b98c85dafa78d600beadd3139f (diff) | |
| download | org-mode-a04752d38cde7e6bc7596aebb0f178816e746cbd.tar.gz | |
org-element: Small fix
* lisp/org-element.el (org-element-inline-babel-call-parser): Empty
arguments return nil instead of the empty string, so as to be on par
with `org-element-babel-call-parser'.
| -rw-r--r-- | lisp/org-element.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 7233d2c..15e272c 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -2878,8 +2878,10 @@ Assume point is at the beginning of the babel call." (let ((p (org-element--parse-paired-brackets ?\[))) (and (org-string-nw-p p) (replace-regexp-in-string "\n[ \t]*" " " (org-trim p))))) - (arguments (or (org-element--parse-paired-brackets ?\() - (throw :no-object nil))) + (arguments (org-string-nw-p + (or (org-element--parse-paired-brackets ?\() + ;; Parenthesis are mandatory. + (throw :no-object nil)))) (end-header (let ((p (org-element--parse-paired-brackets ?\[))) (and (org-string-nw-p p) |