emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/easy-kill 2a6309d 14/14: Limit easy-kill-exchange-point


From: Stefan Monnier
Subject: [elpa] externals/easy-kill 2a6309d 14/14: Limit easy-kill-exchange-point-and-mark to easy-mark only
Date: Mon, 15 Mar 2021 22:20:17 -0400 (EDT)

branch: externals/easy-kill
commit 2a6309d98aa6b71df6bbbcdf15cab3187c521a6b
Author: Leo Liu <sdl.web@gmail.com>
Commit: Leo Liu <sdl.web@gmail.com>

    Limit easy-kill-exchange-point-and-mark to easy-mark only
---
 easy-kill.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/easy-kill.el b/easy-kill.el
index 455c58e..c31af0d 100644
--- 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]