From ab6ecdedfd99241c2a430c20974a78ff8d5e8a84 Mon Sep 17 00:00:00 2001 From: toctan Date: Sun, 8 Jun 2014 12:40:42 +0800 Subject: [PATCH] Do not deactivate-mark if region active --- core/prelude-core.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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)