Get rid of last line at line block

2014-11-15 06:48:41 +09:00
parent e32ac2cdf0
commit 5d3b6d9d8c
2 changed files with 4 additions and 2 deletions
--- a/README.org
+++ b/README.org
@@ -197,7 +197,6 @@
  |      Snow covers Emacs
  |
  |          -- AlexSchroeder
-  |
 #+END_SRC

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