diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2014-08-03 21:32:14 -0400 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2014-08-03 21:33:13 -0400 |
commit | 003eddb82ea469b6df7f2f63a71ccfe9627bbcd6 (patch) | |
tree | ad6779341114165c5ffb8f2f0d35097041150cae | |
parent | 0feec82c63f6e55045526ebfd4913d3e7ffe03ae (diff) | |
download | org-mode-003eddb82ea469b6df7f2f63a71ccfe9627bbcd6.tar.gz |
protect lisp code blocks from ending comments
* lisp/ob-lisp.el (org-babel-lisp-dir-fmt): Protect lisp code blocks
from ending comments by adding newlines behind code in format
strings.
-rw-r--r-- | lisp/ob-lisp.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el index 9e10340..a59dab3 100644 --- a/lisp/ob-lisp.el +++ b/lisp/ob-lisp.el @@ -44,7 +44,7 @@ (defvar org-babel-header-args:lisp '((package . :any))) (defcustom org-babel-lisp-dir-fmt - "(let ((*default-pathname-defaults* #P%S)) %%s)" + "(let ((*default-pathname-defaults* #P%S\n)) %%s\n)" "Format string used to wrap code bodies to set the current directory. For example a value of \"(progn ;; %s\\n %%s)\" would ignore the current directory string." @@ -86,7 +86,7 @@ current directory string." default-directory))) (format (if dir (format org-babel-lisp-dir-fmt dir) - "(progn %s)") + "(progn %s\n)") (buffer-substring-no-properties (point-min) (point-max))))) (cdr (assoc :package params))))))) |