mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-babel-exp: bug fix, once again allowing export of non-babel source blocks

This commit is contained in:
Eric Schulte 2009-11-13 10:47:11 -07:00
parent 1affd3bbb6
commit d4a43d28e7
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/babel/lisp/org-babel-exp.el
View File

@ -71,11 +71,11 @@ results - just like none only the block is run on export ensuring
none ----- do not display either code or results upon export"
(interactive)
(message "org-babel-exp processing...")
(let ((info (save-excursion
(if (re-search-backward org-babel-src-block-regexp nil t)
(org-babel-get-src-block-info)
(error "Failed to find src block.")))))
(org-babel-exp-do-export info 'block)))
(or (and (re-search-backward org-babel-src-block-regexp nil t)
(org-babel-exp-do-export (org-babel-get-src-block-info) 'block))
(and (re-search-backward org-block-regexp nil t)
(match-string 0))
(error "Unmatched block [bug in `org-babel-exp-src-blocks'].")))
(defun org-babel-exp-inline-src-blocks (start end)
"Process inline src blocks between START and END for export.