[nongnu] elpa/subed beadbffc18 2/3: Add extra line after comments in text output

[ELPA Syncer]

branch: elpa/subed
commit beadbffc18670d4d51e836d650cca06043f0b936
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Add extra line after comments in text output
    
    * subed/subed-common.el (subed-subtitle-list-text): Add an extra line
    after comments.
    * tests/test-subed-common.el ("COMMON"): Update test.
    * tests/test-subed-vtt.el ("VTT"): Update test.
---
 subed/subed-common.el      | 2 +-
 tests/test-subed-common.el | 4 ++--
 tests/test-subed-vtt.el    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index d1870f3561..25b11f1af2 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -676,7 +676,7 @@ before including them."
                  (if (functionp include-comments)
                      (funcall include-comments (elt sub 4))
                    (elt sub 4))
-                 "\n"
+                 "\n\n"
                  (elt sub 3) "\n")
        (concat (elt sub 3) "\n")))
    subtitles
diff --git a/tests/test-subed-common.el b/tests/test-subed-common.el
index a875f74798..2e0ff214b2 100644
--- a/tests/test-subed-common.el
+++ b/tests/test-subed-common.el
@@ -3457,14 +3457,14 @@ This is another.
         '((nil 0 99 "Hello")
           (nil 100 199 "world" "Comment"))
         t)
-       :to-equal "Hello\n\nComment\nworld\n"))
+       :to-equal "Hello\n\nComment\n\nworld\n"))
     (it "includes comments transformed by a function."
       (let ((val
              (subed-subtitle-list-text
               '((nil 0 99 "Hello")
                 (nil 100 199 "world" "Comment"))
               #'upcase)))
-        (expect val :to-equal "Hello\n\nCOMMENT\nworld\n"))))
+        (expect val :to-equal "Hello\n\nCOMMENT\n\nworld\n"))))
   (describe "Copying region text"
     (it "works on the whole buffer"
       (with-temp-srt-buffer
diff --git a/tests/test-subed-vtt.el b/tests/test-subed-vtt.el
index c0193ad3df..a93cf347c9 100644
--- a/tests/test-subed-vtt.el
+++ b/tests/test-subed-vtt.el
@@ -1742,7 +1742,7 @@ World
 00:01:21.058 --> 00:01:23.868
 Again")
        (with-current-buffer (subed-convert "TXT" t)
-         (expect (buffer-string) :to-equal 
"Hello\n\nComment\nWorld\nAgain\n")))))
+         (expect (buffer-string) :to-equal 
"Hello\n\nComment\n\nWorld\nAgain\n")))))
   (describe "iterating over subtitles"
     (describe "forwards"
       (it "handles headers."