babel: Fix regexp parsing of functional-style arguments

* lisp/ob.el (org-babel-get-src-block-info): Retrieve contents of
  parentheses, excluding parentheses themselves
This commit is contained in:
Dan Davison 2010-10-27 16:30:04 +01:00
parent 9f3348d42d
commit 9c1acbc667
1 changed files with 2 additions and 2 deletions

View File

@ -178,11 +178,11 @@ Returns a list
(nth 2 info))))
(when (looking-at org-babel-src-name-w-name-regexp)
(setq name (org-babel-clean-text-properties (match-string 4)))
(when (match-string 5)
(when (match-string 6)
(setf (nth 2 info) ;; merge functional-syntax vars and header-args
(org-babel-merge-params
(mapcar (lambda (ref) (cons :var ref))
(org-babel-ref-split-args (match-string 5)))
(org-babel-ref-split-args (match-string 6)))
(nth 2 info))))))
;; inline source block
(when (save-excursion (re-search-backward "[ \f\t\n\r\v]" nil t)