branch: elpa/subed
commit a0cb0f18613522b66b256bac8205210e840326c3
Author: Random User <rnd...@posteo.de>
Commit: Random User <rnd...@posteo.de>
Keep region active during subtitle movement
---
subed/subed.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/subed/subed.el b/subed/subed.el
index 7ffb1a6..aa27f78 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -188,7 +188,8 @@ Example usage:
\\[universal-argument] \\[subed-move-subtitle-forward] Move subtitle
100ms (the default) forward in time
\\[subed-move-subtitle-forward] Move subtitle 100ms (the default)
forward in time again"
(interactive "P")
- (let ((msecs (subed--get-milliseconds-move arg))
+ (let ((deactivate-mark nil)
+ (msecs (subed--get-milliseconds-move arg))
(beg (when (use-region-p) (region-beginning)))
(end (when (use-region-p) (region-end))))
(subed--for-each-subtitle beg end
@@ -202,7 +203,8 @@ same amount.
See `subed-move-subtitle-forward'."
(interactive "P" (if (use-region-p) (list (region-beginning) (region-end))))
- (let ((msecs (* -1 (subed--get-milliseconds-move arg)))
+ (let ((deactivate-mark nil)
+ (msecs (* -1 (subed--get-milliseconds-move arg)))
(beg (when (use-region-p) (region-beginning)))
(end (when (use-region-p) (region-end))))
(subed--for-each-subtitle beg end
