mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-27 10:02:53 +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." 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) (mapc (lambda (pair)
(case (car pair) (case (car pair)
(:var (:var
;; we want only one specification per variable ;; we want only one specification per variable
(when (string-match "\\([^= \f\t\n\r\v]+\\)=\\([^ \f\t\n\r\v]+\\)" (cdr pair)) (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))