branch: elpa/subed
commit 57c902afd97aada37205f1b6d42e63548a4207e5
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
subed-srt-sanitize: Don't change buffer unless it's necessary
---
subed/subed-srt.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 0a80d4e..f876108 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -487,14 +487,15 @@ each subtitle."
(while (subed-srt-forward-subtitle-id)
(let ((prev-sub-end (save-excursion (when
(subed-srt-backward-subtitle-end)
(point)))))
- (when prev-sub-end
+ (when (and prev-sub-end
+ (not (string= (buffer-substring prev-sub-end (point))
"\n\n")))
(delete-region prev-sub-end (point))
(insert "\n\n"))))
;; Remove trailing newlines
(goto-char (point-max))
(subed-srt-move-to-subtitle-end)
- (when (looking-at "\n*")
+ (when (looking-at "\n\\{2,\\}")
(replace-match "\n"))
;; Ensure there is one space before and after " --> "
