* lisp/indent.el (indent-rigidly): Set deactivate-mark to nil

[gnu-emacs] / lisp / indent.el

diff --git a/lisp/indent.el b/lisp/indent.el
index 2af5a58f6c58499c688b9c7731dba508166d5811..4b51cf04ad1eab7998b8afc45e9fc1ad1049eec3 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -214,7 +214,10 @@ indentation by specifying a large negative ARG."
               (indent-to (max 0 (+ indent (prefix-numeric-value arg))) 0))
           (delete-region (point) (progn (skip-chars-forward " \t") (point))))
         (forward-line 1))
-      (move-marker end nil))))
+      (move-marker end nil)
+      ;; Keep the active region in transient mode.
+      (when (eq (cadr overriding-terminal-local-map) indent-rigidly-map)
+       (setq deactivate-mark nil)))))
 
 (defun indent-rigidly--pop-undo ()
   (and (memq last-command '(indent-rigidly-left indent-rigidly-right