Commit 42cc3428 authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(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.
parent 6d6f3bc1
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment