mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-17 09:36:26 +00:00
Code Releases Activity

org-babel-exp: no longer throws errors on empty bodies

Browse source
This commit is contained in:
Eric Schulte 2010-05-25 20:20:13 -06:00
parent ceeb4681ef
commit 4f113630f8
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
contrib/babel/lisp/org-babel-exp.el
View file

@ -137,7 +137,8 @@ options are taken from `org-babel-default-header-args'."
('inline (format "=%s=" body)) ('inline (format "=%s=" body))
('block ('block
(let ((str (format "#+BEGIN_SRC %s %s\n%s%s#+END_SRC\n" lang switches body (let ((str (format "#+BEGIN_SRC %s %s\n%s%s#+END_SRC\n" lang switches body
(if (string-match "\n$" body) "" "\n")))) (if (and body (string-match "\n$" body))
"" "\n"))))
(when name (add-text-properties 0 (length str) (when name (add-text-properties 0 (length str)
(list 'org-caption (list 'org-caption
(format "%s(%s)" (format "%s(%s)"