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

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

[nongnu] elpa/subed d4b1ddf 103/389: Rename subed-seconds-adjust/move to


From: ELPA Syncer
Subject: [nongnu] elpa/subed d4b1ddf 103/389: Rename subed-seconds-adjust/move to subed-milliseconds-adjust/move
Date: Fri, 3 Dec 2021 11:00:06 -0500 (EST)

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

    Rename subed-seconds-adjust/move to subed-milliseconds-adjust/move
---
 subed/subed-config.el | 32 ++++++++++++++++----------------
 subed/subed-srt.el    | 24 ++++++++++++------------
 subed/subed.el        |  6 +++---
 3 files changed, 31 insertions(+), 31 deletions(-)

diff --git a/subed/subed-config.el b/subed/subed-config.el
index 4d6fa2f..e31edd5 100644
--- a/subed/subed-config.el
+++ b/subed/subed-config.el
@@ -110,7 +110,7 @@ The first existing file is then passed to 
`subed-open-video'."
   :group 'subed)
 
 
-(defcustom subed-seconds-adjust 100
+(defcustom subed-milliseconds-adjust 100
   "Number of milliseconds to add/subtract to subtitle start/stop
 time with `subed-increase-start-time',
 `subed-decrease-start-time', `subed-increase-stop-time' and
@@ -121,17 +121,17 @@ argument.  See `subed-increase-start-time'."
   :type 'float
   :group 'subed)
 
-(defun subed--get-seconds-adjust (arg)
-  "Set `subed-seconds-adjust' to `arg' if it's a number.  If
-`arg' is non-nil, reset `subed-seconds-adjust' to its default.
-Return (new) `subed-seconds-adjust' value."
+(defun subed--get-milliseconds-adjust (arg)
+  "Set `subed-milliseconds-adjust' to `arg' if it's a number.  If
+`arg' is non-nil, reset `subed-milliseconds-adjust' to its
+default.  Return (new) `subed-milliseconds-adjust' value."
   (cond ((integerp arg)
-          (setq subed-seconds-adjust arg))                    ;; Custom 
adjustment
+          (setq subed-milliseconds-adjust arg))                    ;; Custom 
adjustment
         ((not (eq nil arg))
-         (custom-reevaluate-setting 'subed-seconds-adjust)))  ;; Reset to 
default
-  subed-seconds-adjust)
+         (custom-reevaluate-setting 'subed-milliseconds-adjust)))  ;; Reset to 
default
+  subed-milliseconds-adjust)
 
-(defcustom subed-seconds-move 100
+(defcustom subed-milliseconds-move 100
   "Number of milliseconds to provide to
 `subed-move-subtitle-forward' and `subed-move-subtitle-backward'
 by default.
@@ -141,15 +141,15 @@ argument.  See `subed-move-subtitle-forward'."
   :type 'float
   :group 'subed)
 
-(defun subed--get-seconds-move (arg)
-  "Set `subed-seconds-move' to `arg' if it's a number.  If `arg'
-is non-nil, reset `subed-seconds-move' to its default.
-Return (new) `subed-seconds-move' value."
+(defun subed--get-milliseconds-move (arg)
+  "Set `subed-milliseconds-move' to `arg' if it's a number.  If `arg'
+is non-nil, reset `subed-milliseconds-move' to its default.
+Return (new) `subed-milliseconds-move' value."
   (cond ((integerp arg)
-          (setq subed-seconds-move arg))                    ;; Custom movement
+          (setq subed-milliseconds-move arg))                    ;; Custom 
movement
         ((not (eq nil arg))
-         (custom-reevaluate-setting 'subed-seconds-move)))  ;; Reset to default
-  subed-seconds-move)
+         (custom-reevaluate-setting 'subed-milliseconds-move)))  ;; Reset to 
default
+  subed-milliseconds-move)
 
 
 (defcustom subed-playback-speed-while-typing 0.3
diff --git a/subed/subed-srt.el b/subed/subed-srt.el
index f4ec666..e6b467d 100644
--- a/subed/subed-srt.el
+++ b/subed/subed-srt.el
@@ -324,12 +324,12 @@ Return point or nil if there is no previous subtitle."
                           (subed-srt--subtitle-msecs-start))))))
 
 (defun subed-srt-increase-start-time (&optional arg)
-  "Add `subed-seconds-adjust' milliseconds to start time of current subtitle.
+  "Add `subed-milliseconds-adjust' milliseconds to start time of current 
subtitle.
 
-The first step is to set `subed-seconds-adjust' to the value of
-the prefix argument if it is provided and if it is a number.  If
-the prefix argument is provided but not numerical,
-`subed-seconds-adjust' is reset to its default value.
+The first step is to set `subed-milliseconds-adjust' to the value
+of the prefix argument if it is provided and if it is a number.
+If the prefix argument is provided but not numerical,
+`subed-milliseconds-adjust' is reset to its default value.
 
 Example usage:
   \\[universal-argument] 1000 \\[subed-increase-start-time]  Increase start 
time by 1000ms
@@ -339,28 +339,28 @@ Example usage:
        \\[universal-argument] \\[subed-increase-start-time]  Increase start 
time by 100ms (the default)
            \\[subed-increase-start-time]  Increase start time by 100ms (the 
default) again"
   (interactive "P")
-  (subed-srt--adjust-subtitle-start-relative (subed--get-seconds-adjust arg)))
+  (subed-srt--adjust-subtitle-start-relative (subed--get-milliseconds-adjust 
arg)))
 
 (defun subed-srt-decrease-start-time (&optional arg)
-  "Subtract `subed-seconds-adjust' milliseconds from start time of current 
subtitle.
+  "Subtract `subed-milliseconds-adjust' milliseconds from start time of 
current subtitle.
 
 See also `subed-increase-start-time'."
   (interactive "P")
-  (subed-srt--adjust-subtitle-start-relative (* -1 (subed--get-seconds-adjust 
arg))))
+  (subed-srt--adjust-subtitle-start-relative (* -1 
(subed--get-milliseconds-adjust arg))))
 
 (defun subed-srt-increase-stop-time (&optional arg)
-  "Add `subed-seconds-adjust' milliseconds to stop time of current subtitle.
+  "Add `subed-milliseconds-adjust' milliseconds to stop time of current 
subtitle.
 
 See also `subed-increase-start-time'."
   (interactive "P")
-  (subed-srt--adjust-subtitle-stop-relative (subed--get-seconds-adjust arg)))
+  (subed-srt--adjust-subtitle-stop-relative (subed--get-milliseconds-adjust 
arg)))
 
 (defun subed-srt-decrease-stop-time (&optional arg)
-  "Subtract `subed-seconds-adjust' milliseconds from stop time of current 
subtitle.
+  "Subtract `subed-milliseconds-adjust' milliseconds from stop time of current 
subtitle.
 
 See also `subed-increase-start-time'."
   (interactive "P")
-  (subed-srt--adjust-subtitle-stop-relative (* -1 (subed--get-seconds-adjust 
arg))))
+  (subed-srt--adjust-subtitle-stop-relative (* -1 
(subed--get-milliseconds-adjust arg))))
 
 (defun subed-srt-subtitle-insert (&optional arg)
   "Insert subtitle(s).
diff --git a/subed/subed.el b/subed/subed.el
index e1303ff..9980361 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -165,17 +165,17 @@ Before BODY is run, point is placed on the subtitle's ID."
 ;;; Moving subtitles
 
 (defun subed-move-subtitle-forward (&optional arg beg end)
-  "Move subtitle `subed-seconds-move' forward in time while
+  "Move subtitle `subed-milliseconds-move' forward in time while
 preserving its duration, i.e. increase start and stop time by the
 same amount.
 
 If the region is active, all subtitles that are fully or
 partially in it are moved.
 
-The first step is to set `subed-seconds-move' to the value of the
+The first step is to set `subed-milliseconds-move' to the value of the
 prefix argument if it is provided and if it is a number.  If the
 prefix argument is provided but not numerical,
-`subed-seconds-move' is reset to its default value.
+`subed-milliseconds-move' is reset to its default value.
 
 Example usage:
   \\[universal-argument] 1000 \\[subed-move-subtitle-forward]  Move subtitle 
1000ms forward in time



reply via email to

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