branch: elpa/subed
commit 9642945e77b0ace8e8e1701bcc5963f8629ac617
Author: Jun Inoue <[email protected]>
Commit: Jun Inoue <[email protected]>
Further fixes to let tests pass
SRT validation didn't allow milliseconds to be abbreviated like
00:03:03,45 --> 00:03:15,5
but the tests expected to allow them. This commit fixes the behavior
of the validator to match the test.
---
subed/subed-srt.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 3a12a2d..b00760c 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -519,7 +519,7 @@ scheduled call is canceled and another call is scheduled in
(error "Found invalid subtitle ID: %S" (substring (or
(thing-at-point 'line :no-properties) "\n") 0 -1)))
(forward-line)
;; This regex is stricter than `subed-srt--regexp-timestamp'
- (unless (looking-at
"^[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\},[0-9]\\{3\\}")
+ (unless (looking-at
"^[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\},[0-9]\\{,3\\}")
(error "Found invalid start time: %S" (substring (or
(thing-at-point 'line :no-properties) "\n") 0 -1)))
(when (re-search-forward "[[:blank:]]" (point-at-eol) t)
(goto-char (match-beginning 0)))
@@ -529,7 +529,7 @@ scheduled call is canceled and another call is scheduled in
(condition-case nil
(forward-char 5)
(error nil))
- (unless (looking-at
"[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\},[0-9]\\{3\\}$")
+ (unless (looking-at
"[0-9]\\{2\\}:[0-9]\\{2\\}:[0-9]\\{2\\},[0-9]\\{,3\\}$")
(error "Found invalid stop time: %S" (substring (or
(thing-at-point 'line :no-properties) "\n") 0 -1))))
(goto-char orig-point))))))
