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 () (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)