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