ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
Dan Davison 2009-07-11 23:51:01 -04:00
parent a0e0fe17f4
commit 08eba0ceea
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-babel.el
View File

@ -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))