mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Eliminate extra newline(s) after example or src block.

Browse Source 
Signed-off-by: Nick Dokos <nick@dokosmarshall.org>
This commit is contained in:
Nick Dokos 2011-08-19 05:02:57 -04:00 committed by Eric Schulte
parent b93087ccf1
commit 707897c25c
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ob-exp.el
View File

@ -231,7 +231,7 @@ The function respects the value of the :exports header argument."
(defun org-babel-exp-code (info) (defun org-babel-exp-code (info)
"Return the original code block formatted for export." "Return the original code block formatted for export."
(org-fill-template (org-fill-template
"#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC\n" "#+BEGIN_SRC %lang%flags\n%body\n#+END_SRC"
`(("lang" . ,(nth 0 info)) `(("lang" . ,(nth 0 info))
("flags" . ,((lambda (f) (when f (concat " " f))) (nth 3 info))) ("flags" . ,((lambda (f) (when f (concat " " f))) (nth 3 info)))
("body" . ,(nth 1 info))))) ("body" . ,(nth 1 info)))))

2
lisp/org-exp.el
View File

@ -2718,7 +2718,7 @@ INDENT was the original indentation of the block."
"\n#+BEGIN_" backend-name "\n" "\n#+BEGIN_" backend-name "\n"
(org-add-props rtn (org-add-props rtn
'(org-protected t org-example t org-native-text t)) '(org-protected t org-example t org-native-text t))
"\n#+END_" backend-name "\n\n")) "\n#+END_" backend-name "\n"))
(org-add-props rtn nil 'original-indentation indent)))) (org-add-props rtn nil 'original-indentation indent))))
(defun org-export-number-lines (text &optional skip1 skip2 number cont (defun org-export-number-lines (text &optional skip1 skip2 number cont

2
lisp/org-latex.el
View File

@ -401,7 +401,7 @@ will pass them (combined with the LaTeX default list parameters) to
:type 'plist) :type 'plist)
(defcustom org-export-latex-verbatim-wrap (defcustom org-export-latex-verbatim-wrap
'("\\begin{verbatim}\n" . "\\end{verbatim}\n") '("\\begin{verbatim}\n" . "\\end{verbatim}")
"Environment to be wrapped around a fixed-width section in LaTeX export. "Environment to be wrapped around a fixed-width section in LaTeX export.
This is a cons with two strings, to be added before and after the This is a cons with two strings, to be added before and after the
fixed-with text. fixed-with text.