浏览代码

org-babel: match multiple noweb references on same line correctly.

Dan Davison 15 年之前
父节点
当前提交
8b33a47410
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      contrib/babel/lisp/org-babel.el

+ 1 - 1
contrib/babel/lisp/org-babel.el

@@ -764,7 +764,7 @@ these arguments are not evaluated in the current source-code block but are passe
                                            (cdr (assoc lang org-src-lang-modes))))
                                      lang) "-mode")))
         (setq index (point))
-        (while (and (re-search-forward "<<\\(.+\\)>>" nil t))
+        (while (and (re-search-forward "<<\\(.+?\\)>>" nil t))
           (save-match-data (setf source-name (match-string 1)))
           (save-match-data (setq evaluate (string-match "\(.*\)" source-name)))
           ;; add interval to new-body (removing noweb reference)