Add support for disabled delete-selection-mode to inline-string-recta…

…ngle. Fixes #8
magnars · Jul 25, 2012 · ab38a0f · ab38a0f
1 parent b80aeee
commit ab38a0f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/inline-string-rectangle.el b/inline-string-rectangle.el
@@ -59,7 +59,12 @@
         (mm/add-mirror (point) (+ (point) num-chars))))
     (move-to-column mark-column)
     (set-mark (point))
-    (move-to-column point-column)))
+    (move-to-column point-column))
+  (when (not delete-selection-mode)
+    (kill-region (region-beginning) (region-end))
+    (save-excursion
+      (dolist (mirror mm/mirrors)
+        (mm/replace-mirror-substring mirror "")))))
 
 (provide 'inline-string-rectangle)