mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-27 07:37:25 +00:00
Code

Don't error on empty code block body.

Browse Source 
* lisp/ob.el (org-babel-parse-src-block-match): Don't error on empty
  code block body.
This commit is contained in:
Eric Schulte 2011-09-13 08:57:29 -06:00
parent dbf0e6d5bc
commit 597e1eb4fe
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

@ -1021,7 +1021,8 @@ may be specified in the current buffer."
(body (org-babel-clean-text-properties
(let* ((body (match-string 5))
(sub-length (- (length body) 1)))
(if (string= "\n" (substring body sub-length))
(if (and (> sub-length 0)
(string= "\n" (substring body sub-length)))
(substring body 0 sub-length)
body))))
(preserve-indentation (or org-src-preserve-indentation