[nongnu] elpa/subed cfe8d1c 228/389: subed-srt--backward-subtitle-id: Don't look for different ID

[ELPA Syncer]

branch: elpa/subed
commit cfe8d1c1cb4d417815c393e94183d9b583c53309
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@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.