diff options
| author | Noam Postavsky | 2016-07-03 14:00:19 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2016-08-06 16:16:02 -0400 |
| commit | 9ae89c2c99cd222239f368999cd3accb2b9a235d (patch) | |
| tree | e769a6284e644a7debf9393a10eeccd3804f23cb | |
| parent | 031af49e74195ed1645b53dca741fff8a8411a08 (diff) | |
| download | emacs-9ae89c2c99cd222239f368999cd3accb2b9a235d.tar.gz emacs-9ae89c2c99cd222239f368999cd3accb2b9a235d.zip | |
Don't delete selection after indent-rigidly
* lisp/indent.el (indent-rigidly): Pass `deactivate-mark' as the ON-EXIT
function to `set-transient-map', this prevents `delete-selection-mode'
from deleting the text that was just indented (Bug #20408).
| -rw-r--r-- | lisp/indent.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index 0bbb5209e8a..0f6c68dd626 100644 --- a/lisp/indent.el +++ b/lisp/indent.el | |||
| @@ -218,7 +218,7 @@ indentation by specifying a large negative ARG." | |||
| 218 | (message | 218 | (message |
| 219 | (substitute-command-keys | 219 | (substitute-command-keys |
| 220 | "Indent region with \\<indent-rigidly-map>\\[indent-rigidly-left], \\[indent-rigidly-right], \\[indent-rigidly-left-to-tab-stop], or \\[indent-rigidly-right-to-tab-stop].")) | 220 | "Indent region with \\<indent-rigidly-map>\\[indent-rigidly-left], \\[indent-rigidly-right], \\[indent-rigidly-left-to-tab-stop], or \\[indent-rigidly-right-to-tab-stop].")) |
| 221 | (set-transient-map indent-rigidly-map t)) | 221 | (set-transient-map indent-rigidly-map t #'deactivate-mark)) |
| 222 | (save-excursion | 222 | (save-excursion |
| 223 | (goto-char end) | 223 | (goto-char end) |
| 224 | (setq end (point-marker)) | 224 | (setq end (point-marker)) |