[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/subed 3c1a1b4 065/389: Don't validate anything if buffer i
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/subed 3c1a1b4 065/389: Don't validate anything if buffer is empty |
Date: |
Fri, 3 Dec 2021 10:59:58 -0500 (EST) |
branch: elpa/subed
commit 3c1a1b411fe2618fcce92dc1aebd3d9b59dd979d
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>
Don't validate anything if buffer is empty
---
subed/subed-srt.el | 47 ++++++++++++++++++++++++-----------------------
1 file changed, 24 insertions(+), 23 deletions(-)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index be301f1..13e93a0 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -507,29 +507,30 @@ each subtitle."
(defun subed-srt-validate ()
"Move point to the first invalid subtitle and report an error."
(interactive)
- (atomic-change-group
- (save-match-data
- (let ((orig-point (point)))
- (goto-char (point-min))
- (while (re-search-forward (format "\\(%s\\|\\`\\)"
subed-srt--regexp-separator) nil t)
- (unless (looking-at "^[0-9]+$")
- (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\\}")
- (error "Found invalid start time: %S" (substring (or
(thing-at-point 'line :no-properties) "\n") 0 -1)))
- (condition-case nil
- (forward-char subed-srt--length-timestamp)
- (error nil))
- (unless (looking-at " --> ")
- (error "Found invalid separator between start and stop time: %S"
- (substring (or (thing-at-point 'line :no-properties) "\n")
0 -1)))
- (condition-case nil
- (forward-char 5)
- (error nil))
- (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)))))
+ (when (> (buffer-size) 0)
+ (atomic-change-group
+ (save-match-data
+ (let ((orig-point (point)))
+ (goto-char (point-min))
+ (while (re-search-forward (format "\\(%s[[^\\']]\\|\\`\\)"
subed-srt--regexp-separator) nil t)
+ (unless (looking-at "^[0-9]+$")
+ (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\\}")
+ (error "Found invalid start time: %S" (substring (or
(thing-at-point 'line :no-properties) "\n") 0 -1)))
+ (condition-case nil
+ (forward-char subed-srt--length-timestamp)
+ (error nil))
+ (unless (looking-at " --> ")
+ (error "Found invalid separator between start and stop time: %S"
+ (substring (or (thing-at-point 'line :no-properties)
"\n") 0 -1)))
+ (condition-case nil
+ (forward-char 5)
+ (error nil))
+ (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))))))
(defun subed-srt-sort ()
"Sanitize, then sort subtitles by start time and re-number them."
- [nongnu] elpa/subed 7d76a35 049/389: Simplify subed-srt-move-to-subtitle-text, (continued)
- [nongnu] elpa/subed 7d76a35 049/389: Simplify subed-srt-move-to-subtitle-text, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 821b259 045/389: subed-srt--regenerate-ids: Make this a public function, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed d3d2013 050/389: Look for stop time only on the relevant line, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 042941c 051/389: Fix docstrings, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 4e50796 052/389: Fix subed-srt-backward-subtitle-id, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 86914b4 053/389: Add more tests for moving to next/previous subtitle ID, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 6391996 056/389: Kill debugging buffer+window in subed-disable-debugging, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 0fe0c82 059/389: When opening debug window, always split horizontally, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 4e31010 062/389: mpv returns nil as "time-pos" in at least one circumstance, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 1c8e0d1 064/389: Sanitize separator between start and stop time, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3c1a1b4 065/389: Don't validate anything if buffer is empty,
ELPA Syncer <=
- [nongnu] elpa/subed ce14b0d 074/389: Adjust comment, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 8fa0f6c 078/389: Remove debugging messages, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 96e7fcf 086/389: Add subed--get-seconds-move, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 189e5aa 088/389: Make more functions available format-agnosticly, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 14d52d7 089/389: Add subed--for-each-subtitle, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 7710790 090/389: Add subed-move-subtitle-forward/backward, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 3511026 091/389: Move utilities to the top, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 81aca87 008/389: Be more robust when moving forward/backward to subtitle text, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 8e4bd20 069/389: Fix indentation, ELPA Syncer, 2021/12/03
- [nongnu] elpa/subed 6e525b9 079/389: Add screenshot, ELPA Syncer, 2021/12/03