575 |
(forward-char 1)) |
(forward-char 1)) |
576 |
(set-marker m (point)) |
(set-marker m (point)) |
577 |
(move-to-column l pad) |
(move-to-column l pad) |
578 |
(if fct |
(if (and fct (>= (current-column) l) (<= (current-column) r)) |
579 |
(let ((v t) (p (point))) |
(let ((v t) (p (point))) |
580 |
(when sel |
(when sel |
581 |
(if (car (cdr sel)) |
(if (car (cdr sel)) |
614 |
(defun cua--delete-rectangle () |
(defun cua--delete-rectangle () |
615 |
(cua--rectangle-operation nil nil t 2 |
(cua--rectangle-operation nil nil t 2 |
616 |
'(lambda (s e l r) |
'(lambda (s e l r) |
617 |
(delete-region s (if (> e s) e (1+ e)))))) |
(if (and (> e s) (<= e (point-max))) |
618 |
|
(delete-region s e))))) |
619 |
|
|
620 |
(defun cua--extract-rectangle () |
(defun cua--extract-rectangle () |
621 |
(let (rect) |
(let (rect) |