Limit easy-kill-exchange-point-and-mark to easy-mark only

leoliu · Nov 14, 2018 · 2a6309d · 2a6309d
1 parent 5b4ae1e
commit 2a6309d
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/easy-kill.el b/easy-kill.el
@@ -562,10 +562,11 @@ checked."
 
 (defun easy-kill-exchange-point-and-mark ()
   (interactive)
-  (exchange-point-and-mark)
-  (setf (easy-kill-get mark)
-        (if (eq (point) (easy-kill-get start))
-            'end 'start)))
+  (when (easy-kill-get mark)
+    (exchange-point-and-mark)
+    (setf (easy-kill-get mark)
+          (if (eq (point) (easy-kill-get start))
+              'end 'start))))
 
 (easy-kill-defun easy-kill-append ()
   (interactive)