diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/indent.el | 5 |
2 files changed, 9 insertions, 1 deletions
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 |