branch: elpa/subed commit 11a199308dc1d920b818377d8df08239da5114a2 Author: Random User <rnd...@posteo.de> Commit: Random User <rnd...@posteo.de>
Don't modify kill-ring when regenerating IDs --- subed/subed-srt.el | 4 ++-- tests/test-subed-srt.el | 11 ++++++++++- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/subed/subed-srt.el b/subed/subed-srt.el index 05f6ece..ca98899 100644 --- a/subed/subed-srt.el +++ b/subed/subed-srt.el @@ -429,13 +429,13 @@ Return new point." (goto-char (point-min)) (subed-srt--jump-to-subtitle-id) (unless (string= (current-word) "1") - (kill-word 1) + (delete-region (point) (progn (forward-word 1) (point))) (insert "1")) (let ((id 2)) (while (subed-srt--forward-subtitle-id) (let ((id-str (number-to-string id))) (unless (string= (current-word) id-str) - (kill-word 1) + (delete-region (point) (progn (forward-word 1) (point))) (insert id-str))) (setq id (1+ id)))))))) diff --git a/tests/test-subed-srt.el b/tests/test-subed-srt.el index b8640bc..71de61a 100644 --- a/tests/test-subed-srt.el +++ b/tests/test-subed-srt.el @@ -1379,7 +1379,16 @@ Baz. (replace-match "123")) (expect (buffer-string) :not :to-equal mock-srt-data) (subed-srt--regenerate-ids) - (expect (buffer-string) :to-equal mock-srt-data)))) + (expect (buffer-string) :to-equal mock-srt-data))) + (it "does not modify the kill-ring." + (with-temp-srt-buffer + (insert mock-srt-data) + (kill-new "asdf") + (goto-char (point-min)) + (while (looking-at "^[0-9]$") + (replace-match "555")) + (subed-srt--regenerate-ids) + (expect (buffer-string) :to-equal mock-srt-data) (describe "Sorting" (it "orders subtitles by start time."