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

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

[nongnu] elpa/subed e1b24bff31 05/22: Remove duplicate functions


From: ELPA Syncer
Subject: [nongnu] elpa/subed e1b24bff31 05/22: Remove duplicate functions
Date: Tue, 1 Feb 2022 14:05:34 -0500 (EST)

branch: elpa/subed
commit e1b24bff313bb7fb00d8d657d17125e04faae05a
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Remove duplicate functions
---
 subed/subed-common.el | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index baaf723651..bf0ae27f33 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -128,15 +128,6 @@ See also `subed-subtitle-id-at-msecs'."
     (when (and target-sub-id current-sub-id (not (= target-sub-id 
current-sub-id)))
       (subed-jump-to-subtitle-id target-sub-id))))
 
-(subed-define-generic-function jump-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-subtitle-id-at-msecs'."
-  (let ((current-sub-id (subed-subtitle-id))
-        (target-sub-id (subed-subtitle-id-at-msecs msecs)))
-    (when (and target-sub-id current-sub-id (not (equal target-sub-id 
current-sub-id)))
-      (subed-jump-to-subtitle-id target-sub-id))))
-
 (subed-define-generic-function forward-subtitle-id ()
   "Move point to next subtitle's ID.
 Return point or nil if there is no next subtitle."
@@ -312,24 +303,6 @@ Return new point."
 (subed-define-generic-function validate ()
   "Move point to the first invalid subtitle and report an error.")
 
-(subed-define-generic-function sort ()
-  "Sanitize, then sort subtitles by start time and re-number them."
-  (interactive)
-  (atomic-change-group
-    (subed-sanitize)
-    (subed-validate)
-    (subed-save-excursion
-     (goto-char (point-min))
-     (sort-subr nil
-                ;; nextrecfun (move to next record/subtitle or to end-of-buffer
-                ;; if there are no more records)
-                (lambda () (unless (subed-forward-subtitle-id)
-                             (goto-char (point-max))))
-                ;; endrecfun (move to end of current record/subtitle)
-                #'subed-jump-to-subtitle-end
-                ;; startkeyfun (return sort value of current record/subtitle)
-                #'subed-subtitle-msecs-start))))
-
 ;;; Utilities
 
 (defmacro subed-save-excursion (&rest body)



reply via email to

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