From: Juri Linkov <juri@jurta.org>
Date: Wed, 15 Jan 2014 08:22:41 +0000 (+0200)
Subject: * lisp/indent.el (indent-rigidly): Set deactivate-mark to nil
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~375
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccc6b208d5f3d10f682fe191b811cea60ddb06c4;p=emacs.git

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

Fixes: debbugs:16438
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5bd724527df..0e100336b94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-15  Juri Linkov  <juri@jurta.org>
+
+	* indent.el (indent-rigidly): Set deactivate-mark to nil
+	in transient indentation mode.  (Bug#16438)
+
 2014-01-15  Dmitry Gutov  <dgutov@yandex.ru>
 
 	* emacs-lisp/package.el (package-desc-keywords): New function
diff --git a/lisp/indent.el b/lisp/indent.el
index 2af5a58f6c5..4b51cf04ad1 100644
--- 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