[elpa] externals/speedrect 0150882424 02/16: yank-from-calc: delete existing rectangle first

[ELPA Syncer]

branch: externals/speedrect
commit 01508824241d167c1aa9a800648116908cfc05bb
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    yank-from-calc: delete existing rectangle first
---
 speedrect.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/speedrect.el b/speedrect.el
index 23e7467448..673090001e 100644
--- a/speedrect.el
+++ b/speedrect.el
@@ -163,9 +163,11 @@ If PRESERVE-WIDTH is non-nil, preserves width."
     (kill-rectangle start end)))
 
 (defun speedrect-yank-rectangle-dwim ()
-  "Yank rectangle, but first swap mark and point if needed."
+  "Yank rectangle, but first swap mark and point if needed.
+Any selected rectangle is first deleted."
   (interactive)
   (if (< (mark) (point)) (exchange-point-and-mark))
+  (delete-rectangle (point) (mark))
   (call-interactively #'yank-rectangle))
 
 (defun speedrect-copy-rectangle-dwim ()