Further fix char deletion in-line rules.

[plomvi.el] / plomvi.el

diff --git a/plomvi.el b/plomvi.el
index 54a96b4a92953ea9f3bea5dbffcdc2a55e75344b..70903b31b5580be28a74c8dabec4aebc4c64b7ac 100644 (file)
--- a/plomvi.el
+++ b/plomvi.el
@@ -163,8 +163,10 @@ Note that this ignores killed rectangles."
     (kill-rectangle (region-beginning) (region-end)))
    ((use-region-p)
     (kill-region (region-beginning) (region-end)))
-   (t
-    (delete-char 1))))
+   ((not (= (point) (line-end-position)))
+    (delete-char 1))
+   ((not (= (line-beginning-position) (line-end-position)))
+    (backward-char) (delete-char 1))))
 
 (defun plomvi-rectangle-mark()
   "Start marked rectangle, move right one char so a single column is visible."