[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 6376237779 1/2: org-babel-parse-multiple-vars: Do n
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 6376237779 1/2: org-babel-parse-multiple-vars: Do no err on empty :var |
Date: |
Mon, 24 Apr 2023 07:59:12 -0400 (EDT) |
branch: externals/org
commit 6376237779313b3e51dde9f8a37adf16a9428313
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
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.
---
lisp/ob-core.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 471887a3a7..0ca74ce27c 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -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)))