emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/subed 7939e0a 022/389: Move function to have same order as


From: ELPA Syncer
Subject: [nongnu] elpa/subed 7939e0a 022/389: Move function to have same order as tests
Date: Fri, 3 Dec 2021 10:59:49 -0500 (EST)

branch: elpa/subed
commit 7939e0a4b46bfc8c736b64d79741f1ba980fd760
Author: Random User <rndusr@posteo.de>
Commit: Random User <rndusr@posteo.de>

    Move function to have same order as tests
---
 subed/subed-srt.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index 52cee16..52ee70c 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -145,6 +145,15 @@ Return point or nil if no subtitle ID could be found."
       (when (looking-at "^\\([0-9]+\\)$")
         (point)))))
 
+(defun subed-srt-move-to-subtitle-id-at-msecs (msecs)
+  "Move point to the ID of the subtitle that is playing at MSECS.
+Return point or nil if point is still on the same subtitle.
+See also `subed-srt--subtitle-id-at-msecs'."
+  (let ((current-sub-id (subed-srt--subtitle-id))
+        (target-sub-id (subed-srt--subtitle-id-at-msecs msecs)))
+    (when (and target-sub-id current-sub-id (not (= target-sub-id 
current-sub-id)))
+      (subed-srt-move-to-subtitle-id target-sub-id))))
+
 (defun subed-srt-move-to-subtitle-time-start (&optional sub-id)
   "Move point to subtitle's start time.
 Return point or nil if no start time could be found."
@@ -171,15 +180,6 @@ Return point."
     (forward-line 2)
     (point)))
 
-(defun subed-srt-move-to-subtitle-id-at-msecs (msecs)
-  "Move point to the ID of the subtitle that is playing at MSECS.
-Return point or nil if point is still on the same subtitle.
-See also `subed-srt--subtitle-id-at-msecs'."
-  (let ((current-sub-id (subed-srt--subtitle-id))
-        (target-sub-id (subed-srt--subtitle-id-at-msecs msecs)))
-    (when (and target-sub-id current-sub-id (not (= target-sub-id 
current-sub-id)))
-      (subed-srt-move-to-subtitle-id target-sub-id))))
-
 (defun subed-srt-move-to-subtitle-text-at-msecs (msecs)
   "Move point to the text of the subtitle that is playing at MSECS.
 Return point or nil if point is still on the same subtitle.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]