mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 07:06:28 +00:00
Code Releases Activity

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

Browse source
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))