From 0bcb248ee68497fc1eca722eb299ba254bcc726e Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 21 Oct 2011 11:21:39 -0600 Subject: [PATCH] quick fix for a tiny bug * lisp/ob.el (org-babel-parse-header-arguments): Quick fix for a tiny bug. --- lisp/ob.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 4d8636752..274d50a3d 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1138,16 +1138,16 @@ instances of \"[ \t]:\" set ALTS to '((32 9) . 58)." (defun org-babel-parse-header-arguments (arg-string) "Parse a string of header arguments returning an alist." (when (> (length arg-string) 0) - (delq nil - (mapcar - (lambda (arg) - (if (string-match - "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]+\\([^ \f\t\n\r\v]+.*\\)" - arg) - (cons (intern (match-string 1 arg)) - (org-babel-read (org-babel-chomp (match-string 2 arg)))) - (cons (intern (org-babel-chomp arg)) nil))) - (org-babel-parse-multiple-vars + (org-babel-parse-multiple-vars + (delq nil + (mapcar + (lambda (arg) + (if (string-match + "\\([^ \f\t\n\r\v]+\\)[ \f\t\n\r\v]+\\([^ \f\t\n\r\v]+.*\\)" + arg) + (cons (intern (match-string 1 arg)) + (org-babel-read (org-babel-chomp (match-string 2 arg)))) + (cons (intern (org-babel-chomp arg)) nil))) (org-babel-balanced-split arg-string '((32 9) . 58))))))) (defun org-babel-parse-multiple-vars (header-arguments) -- 2.11.4.GIT