Do not deactivate-mark if region active

This commit is contained in:
toctan 2014-06-08 12:40:42 +08:00
parent 8c69e43088
commit ab6ecdedfd

View file

@ -472,8 +472,7 @@ Doesn't mess with special buffers."
(defun prelude-exchange-point-and-mark ()
"Identical to `exchange-point-and-mark' but will not activate the region."
(interactive)
(exchange-point-and-mark)
(deactivate-mark nil))
(exchange-point-and-mark (not (region-active-p))))
(require 'epl)