Updated the region after transposition.

Pascal J. Bourguignon [2020-10-07 16:06]
Updated the region after transposition.
Filename
pjb-transpose.el
diff --git a/pjb-transpose.el b/pjb-transpose.el
index afaf4c2..799da2f 100644
--- a/pjb-transpose.el
+++ b/pjb-transpose.el
@@ -92,6 +92,8 @@
   (interactive "r")
   (let ((replacement (array-to-string (rotate (region-to-array start end)))))
     (delete-region start end)
+    (goto-char start)
+    (set-mark-command nil)
     (insert replacement)))

ViewGit