mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-06 02:13:30 +00:00
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:
parent
9f3348d42d
commit
9c1acbc667
|
@ -178,11 +178,11 @@ Returns a list
|
||||||
(nth 2 info))))
|
(nth 2 info))))
|
||||||
(when (looking-at org-babel-src-name-w-name-regexp)
|
(when (looking-at org-babel-src-name-w-name-regexp)
|
||||||
(setq name (org-babel-clean-text-properties (match-string 4)))
|
(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
|
(setf (nth 2 info) ;; merge functional-syntax vars and header-args
|
||||||
(org-babel-merge-params
|
(org-babel-merge-params
|
||||||
(mapcar (lambda (ref) (cons :var ref))
|
(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))))))
|
(nth 2 info))))))
|
||||||
;; inline source block
|
;; inline source block
|
||||||
(when (save-excursion (re-search-backward "[ \f\t\n\r\v]" nil t)
|
(when (save-excursion (re-search-backward "[ \f\t\n\r\v]" nil t)
|
||||||
|
|
Loading…
Reference in a new issue