procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
in transient indentation mode.

Fixes: debbugs:16438
This commit is contained in:
Juri Linkov 2014-01-15 10:22:41 +02:00
parent 5c92e00da4
commit ccc6b208d5
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

5
lisp/indent.el
View file

@ -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