瀏覽代碼

Bugfix: my regexp was not allowing whitespace inside function call.

Dan Davison 16 年之前
父節點
當前提交
08eba0ceea
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      lisp/org-babel.el

+ 5 - 5
lisp/org-babel.el

@@ -500,11 +500,11 @@ takes into account some special considerations for certain
 parameters when merging lists."
 parameters when merging lists."
   (let (params results vars var ref)
   (let (params results vars var ref)
     (mapc (lambda (plist)
     (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 '='?
 			 ;; TODO: When is this not true? Can there be whitespace around the '='?
 			 (setq var (intern (match-string 1 (cdr pair)))
 			 (setq var (intern (match-string 1 (cdr pair)))
 			       ref (match-string 2 (cdr pair))
 			       ref (match-string 2 (cdr pair))