Do not deactivate-mark if region active
This commit is contained in:
parent
8c69e43088
commit
ab6ecdedfd
1 changed files with 1 additions and 2 deletions
|
@ -472,8 +472,7 @@ Doesn't mess with special buffers."
|
||||||
(defun prelude-exchange-point-and-mark ()
|
(defun prelude-exchange-point-and-mark ()
|
||||||
"Identical to `exchange-point-and-mark' but will not activate the region."
|
"Identical to `exchange-point-and-mark' but will not activate the region."
|
||||||
(interactive)
|
(interactive)
|
||||||
(exchange-point-and-mark)
|
(exchange-point-and-mark (not (region-active-p))))
|
||||||
(deactivate-mark nil))
|
|
||||||
|
|
||||||
(require 'epl)
|
(require 'epl)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue