emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]