Get rid of last line at line block

This commit is contained in:
IGARASHI Masanao
2014-11-15 06:48:41 +09:00
parent e32ac2cdf0
commit 5d3b6d9d8c
2 changed files with 4 additions and 2 deletions

View File

@@ -197,7 +197,6 @@
| Snow covers Emacs | Snow covers Emacs
| |
| -- AlexSchroeder | -- AlexSchroeder
|
#+END_SRC #+END_SRC
*** Quote block *** Quote block

View File

@@ -1449,7 +1449,10 @@ channel."
"Transcode a VERSE-BLOCK element from Org to reStructuredText. "Transcode a VERSE-BLOCK element from Org to reStructuredText.
CONTENTS is verse block contents. INFO is a plist holding CONTENTS is verse block contents. INFO is a plist holding
contextual information." contextual information."
(replace-regexp-in-string "^" "| " contents)) (concat
(replace-regexp-in-string "^" "| " (if (> (length contents) 1)
(substring contents 0 -1)
contents)) "\n"))