[nongnu] elpa/subed a0cb0f1 108/389: Keep region active during subtitle movement

[ELPA Syncer]

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