diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-11-24 14:29:53 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-11-24 14:29:53 +0100 |
commit | 5a24ffe004bacac719f4753c6f9b801e6e15fcd9 (patch) | |
tree | f3449b5b8f12907e78e781f92c7f151d0fc8d65e | |
parent | e401ec09ecb27d79911cc7e7d692d146e8e977e5 (diff) | |
download | org-mode-5a24ffe004bacac719f4753c6f9b801e6e15fcd9.tar.gz |
org-element: Fix parsing of src-block switches when there is more than one
* contrib/lisp/org-element.el (org-element-src-block-parser): Previous
regexp would only get the last switch if more than one were
provided.
-rw-r--r-- | contrib/lisp/org-element.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index 09c083d..0f469cc 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -1214,9 +1214,9 @@ and `:post-blank' keywords." (contents-begin (re-search-backward (concat "^[ \t]*#\\+begin_src" - "\\(?: +\\(\\S-+\\)\\)?" ; language - "\\(?:\\( +[-+][A-Za-z]\\)+\\)?" ; switches - "\\(.*\\)[ \t]*$") ; arguments + "\\(?: +\\(\\S-+\\)\\)?" ; language + "\\(\\(?: +[-+][A-Za-z]\\)*\\)" ; switches + "\\(.*\\)[ \t]*$") ; arguments nil t)) ;; Get language as a string. (language (org-match-string-no-properties 1)) |