org-babel-parse-multiple-vars: Do no err on empty :var

* lisp/ob-core.el (org-babel-parse-multiple-vars): Parse empty :var
header argument into (:var) alist element.
This commit is contained in:
Ihor Radchenko 2023-04-24 14:00:49 +02:00
parent 9030cc394d
commit 6376237779
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 3 deletions

View File

@ -1662,9 +1662,11 @@ shown below.
(let (results)
(mapc (lambda (pair)
(if (eq (car pair) :var)
(mapcar (lambda (v) (push (cons :var (org-trim v)) results))
(org-babel-join-splits-near-ch
61 (org-babel-balanced-split (cdr pair) 32)))
(or
(mapcar (lambda (v) (push (cons :var (org-trim v)) results))
(org-babel-join-splits-near-ch
61 (org-babel-balanced-split (or (cdr pair) "") 32)))
(push `(:var) results))
(push pair results)))
header-arguments)
(nreverse results)))