From 0a6fa24cc5aeec338721463d66736693284253a2 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sat, 11 Jul 2009 03:01:54 -0400 Subject: [PATCH] bugfix: org-babel-parse-header-arguments was creating nonsense when passed an empty string. --- lisp/org-babel.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index 3b2c40cd6..f224e79d4 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -321,14 +321,15 @@ of the following form. (language body header-arguments-alist)" (defun org-babel-parse-header-arguments (arg-string) "Parse a string of header arguments returning an alist." - (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 (concat ":" (match-string 1 arg))) - (org-babel-chomp (match-string 2 arg))) - (cons (intern (concat ":" arg)) nil))) - (split-string (concat " " arg-string) "[ \f\t\n\r\v]+:" t)))) + (if (> (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 (concat ":" (match-string 1 arg))) + (org-babel-chomp (match-string 2 arg))) + (cons (intern (concat ":" arg)) nil))) + (split-string (concat " " arg-string) "[ \f\t\n\r\v]+:" t))))) (defun org-babel-where-is-src-block-head () "Return the point at the beginning of the current source -- 2.11.4.GIT