From ab38a0fce4873bf9fd1e53ed9bcf8ed8fecf6907 Mon Sep 17 00:00:00 2001 From: Magnar Sveen Date: Wed, 25 Jul 2012 23:06:47 +0200 Subject: [PATCH] Add support for disabled delete-selection-mode to inline-string-rectangle. Fixes #8 --- inline-string-rectangle.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/inline-string-rectangle.el b/inline-string-rectangle.el index 2b31251..58e9795 100644 --- 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)