From 08eba0ceea6e6aefeee21be2ce2df3e5ede9a239 Mon Sep 17 00:00:00 2001 From: Dan Davison Date: Sat, 11 Jul 2009 23:51:01 -0400 Subject: [PATCH] Bugfix: my regexp was not allowing whitespace inside function call. --- lisp/org-babel.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index f72da959a..7cb6ade4b 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -500,11 +500,11 @@ takes into account some special considerations for certain parameters when merging lists." (let (params results vars var ref) (mapc (lambda (plist) - (mapc (lambda (pair) - (case (car pair) - (:var - ;; we want only one specification per variable - (when (string-match "\\([^= \f\t\n\r\v]+\\)=\\([^ \f\t\n\r\v]+\\)" (cdr pair)) + (mapc (lambda (pair) + (case (car pair) + (:var + ;; we want only one specification per variable + (when (string-match "^\\([^= \f\t\n\r\v]+\\)=\\([^\f\n\r\v]+\\)$" (cdr pair)) ;; TODO: When is this not true? Can there be whitespace around the '='? (setq var (intern (match-string 1 (cdr pair))) ref (match-string 2 (cdr pair))