don't allow newlines in source names in noweb references

* lisp/ob.el (org-babel-expand-noweb-references): Don't allow newlines
  in source names in noweb references.
This commit is contained in:
Eric Schulte 2012-01-30 18:27:33 -07:00
parent 794319dfd9
commit 7b59410c30
1 changed files with 1 additions and 1 deletions

View File

@ -2150,7 +2150,7 @@ block but are passed literally to the \"example-block\"."
(with-temp-buffer
(insert body) (goto-char (point-min))
(setq index (point))
(while (and (re-search-forward "<<\\([^ \t].+?[^ \t]\\|[^ \t]\\)>>"
(while (and (re-search-forward "<<\\([^ \t\n].+?[^ \t\n]\\|[^ \t\n]\\)>>"
nil t))
(save-match-data (setf source-name (match-string 1)))
(save-match-data (setq evaluate (string-match "\(.*\)" source-name)))