branch: elpa/subed
commit cfe8d1c1cb4d417815c393e94183d9b583c53309
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
subed-srt--backward-subtitle-id: Don't look for different ID
The previous looked for an ID different from the current one when moving to
the
previous ID. But it doesn't really matter if all the IDs are the same, and
it's
unintuitive if point refuses to move backwards because the previous
subtitle has
the same ID.
---
subed/subed-srt.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index f422ab5..f6a5e0c 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -249,14 +249,14 @@ Return point or nil if there is no next subtitle."
"Move point to previous subtitle's ID.
Return point or nil if there is no previous subtitle."
(interactive)
- (let ((orig-point (point))
- (orig-sub-id (subed-srt--subtitle-id)))
+ (let ((orig-point (point)))
(when (subed-srt--jump-to-subtitle-id)
- (forward-line -1)
- (if (= (subed-srt--subtitle-id) orig-sub-id)
- (progn (goto-char orig-point)
- nil)
- (subed-srt--jump-to-subtitle-id)))))
+ (if (re-search-backward (concat "\\(" subed-srt--regexp-separator
"\\|\\`[[:space:]]*\\)" "\\([0-9]+\\)\n") nil t)
+ (progn
+ (goto-char (match-beginning 2))
+ (point))
+ (goto-char orig-point)
+ nil))))
(defun subed-srt--forward-subtitle-text ()
"Move point to next subtitle's text.
