diff --git a/core/prelude-core.el b/core/prelude-core.el
index 9216f9d..5cbc43e 100644
--- a/core/prelude-core.el
+++ b/core/prelude-core.el
@@ -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)