branch: elpa/subed
commit 89df304c94a7170da12929c83a5f09f302e747b0
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
subed-srt--sanitize: Don't insert newline in empty buffer
---
subed/subed-srt.el | 17 ++++++++++-------
tests/test-subed-srt.el | 5 +++++
2 files changed, 15 insertions(+), 7 deletions(-)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index c9ddb9b..06e5d29 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -481,13 +481,16 @@ scheduled call is canceled and another call is scheduled
in
(delete-region prev-sub-end (point))
(insert "\n\n"))))
- ;; Two trailing newline if last subtitle text is empty,
- ;; one trailing newline otherwise
- (goto-char (point-max))
- (subed-srt--jump-to-subtitle-end)
- (unless (looking-at "\n\\'")
- (delete-region (point) (point-max))
- (insert "\n"))
+ ;; Two trailing newline if last subtitle text is empty, one trailing
+ ;; newline otherwise; do nothing in empty buffer (no graphical
+ ;; characters)
+ (goto-char (point-min))
+ (when (re-search-forward "[[:graph:]]" nil t)
+ (goto-char (point-max))
+ (subed-srt--jump-to-subtitle-end)
+ (unless (looking-at "\n\\'")
+ (delete-region (point) (point-max))
+ (insert "\n")))
;; One space before and after " --> "
(goto-char (point-min))
diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el
index a4af646..3a13f88 100644
--- a/tests/test-subed-srt.el
+++ b/tests/test-subed-srt.el
@@ -1385,6 +1385,11 @@ Baz.
(expect (buffer-string) :not :to-equal mock-srt-data)
(subed-srt--sanitize)
(expect (buffer-string) :to-equal mock-srt-data)))
+ (it "does not insert newline in empty buffer."
+ (with-temp-srt-buffer
+ (expect (buffer-string) :to-equal "")
+ (subed-srt--sanitize)
+ (expect (buffer-string) :to-equal "")))
)
(describe "Renumbering"
