Browse Source

quick fix for a tiny bug

* lisp/ob.el (org-babel-parse-header-arguments): Quick fix for a tiny bug.
Eric Schulte 13 years ago
parent
commit
0bcb248ee6
1 changed files with 10 additions and 10 deletions
  1. 10 10
      lisp/ob.el

+ 10 - 10
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)