ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix code block replacement with results 

* lisp/ob.el (org-babel-find-named-result): Fix code block replacement
  with results.
This commit is contained in:
Eric Schulte 2012-03-03 07:35:12 -07:00
parent 6dab0cd71f
commit 9915dc8905
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ob.el
View File

@ -1536,7 +1536,8 @@ buffer or nil if no such result exists."
(concat org-babel-result-regexp (concat org-babel-result-regexp
"[ \t]" (regexp-quote name) "[ \t\n\f\v\r]+") nil t) "[ \t]" (regexp-quote name) "[ \t\n\f\v\r]+") nil t)
(when (and (string= "name" (downcase (match-string 1))) (when (and (string= "name" (downcase (match-string 1)))
(or (looking-at org-babel-src-block-regexp) (or (beginning-of-line 1)
(looking-at org-babel-src-block-regexp)
(looking-at org-babel-multi-line-header-regexp))) (looking-at org-babel-multi-line-header-regexp)))
(throw 'is-a-code-block (org-babel-find-named-result name (point)))) (throw 'is-a-code-block (org-babel-find-named-result name (point))))
(beginning-of-line 0) (point))))) (beginning-of-line 0) (point)))))