mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-01 08:17:34 +00:00
Code

ob-lob: fixed problem in inline call line regexp

Browse Source 
* lisp/ob-lob.el (org-babel-inline-lob-one-liner-regexp): Updated to
  successfully match optional trailing header arguments in square
  brackets.
  (org-babel-lob-get-info): Updated to match the new regexp.
This commit is contained in:
Eric Schulte 2011-06-25 15:06:28 -07:00
parent 550d24aa8e
commit 7cfca9a969
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ob-lob.el
View File

@ -77,7 +77,7 @@ If you change the value of this variable then your files may
"\\([^\n]*\\)\\(?:"
(mapconcat #'regexp-quote org-babel-lob-call-aliases "\\|")
"\\)_\\([^\(\)\n]+?\\)\\(\\[\\(.*\\)\\]\\|\\(\\)\\)"
"\(\\([^\n]*\\)\)\\(\\[.+\\]\\|\\)\\(\\[\\([^\\[\\]]*\\)\\]\\)?")
"\(\\([^\n]*\\)\)\\(\\[\\(.*?\\)\\]\\)?")
"Regexp to match inline calls to predefined source block functions.")
(defconst org-babel-lob-one-liner-regexp
@ -113,8 +113,8 @@ if so then run the appropriate source block from the Library."
(if (not (= 0 (length (nonempty 5 13))))
(concat "[" (nonempty 5 13) "]") "")
(or (nonempty 7 16) "")
(or (nonempty 8 18) ""))
(nonempty 9 17)))
(or (nonempty 8 19) ""))
(nonempty 9 18)))
(list (length (nonempty 1 11)))))))))
(defun org-babel-lob-execute (info)