(cua--rectangle-operation): Don't call

FCT if current column is outside rectangle.
(cua--delete-rectangle): Do nothing if zero width or out of bounds.

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index f7dd08bdd0a01a5f05a787f9de7c18f14af4c35c..a0663d93d2a95823281f04a235c0344f894dc179 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -575,7 +575,7 @@ If command is repeated at same position, delete the rectangle."
               (forward-char 1))
           (set-marker m (point))
           (move-to-column l pad)
-          (if fct
+          (if (and fct (>= (current-column) l) (<= (current-column) r))
               (let ((v t) (p (point)))
                 (when sel
                   (if (car (cdr sel))
@@ -614,7 +614,8 @@ If command is repeated at same position, delete the rectangle."
 (defun cua--delete-rectangle ()
   (cua--rectangle-operation nil nil t 2
     '(lambda (s e l r)
-       (delete-region s (if (> e s) e (1+ e))))))
+       (if (and (> e s) (<= e (point-max)))
+          (delete-region s e)))))
 
 (defun cua--extract-rectangle ()
   (let (rect)