diff options
| author | Juri Linkov <juri@jurta.org> | 2014-01-15 10:22:41 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2014-01-15 10:22:41 +0200 |
| commit | ccc6b208d5f3d10f682fe191b811cea60ddb06c4 (patch) | |
| tree | e7ca968ad625c648f19975eaaade7d0844a821de /lisp/indent.el | |
| parent | 5c92e00da487df29752ec5dc21bc59fca2598626 (diff) | |
| download | emacs-ccc6b208d5f3d10f682fe191b811cea60ddb06c4.tar.gz | |
* lisp/indent.el (indent-rigidly): Set deactivate-mark to nil
in transient indentation mode.
Fixes: debbugs:16438
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 5 |
1 files changed, 4 insertions, 1 deletions
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 |