Explorar o código

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

Dan Davison %!s(int64=15) %!d(string=hai) anos
pai
achega
8b33a47410
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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)