Browse Source

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

Dan Davison 17 năm trước cách đây
mục cha
commit
08eba0ceea
1 tập tin đã thay đổi với 5 bổ sung5 xóa
  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))