559 |
;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges) |
;; Rectangle is padded if PAD = t or numeric and (cua--rectangle-virtual-edges) |
560 |
;; Perform auto-tabify after operation if TABIFY is non-nil. |
;; Perform auto-tabify after operation if TABIFY is non-nil. |
561 |
;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear. |
;; Mark is kept if keep-clear is 'keep and cleared if keep-clear is 'clear. |
562 |
(let* ((start (cua--rectangle-top)) |
(let* ((inhibit-field-text-motion t) |
563 |
|
(start (cua--rectangle-top)) |
564 |
(end (cua--rectangle-bot)) |
(end (cua--rectangle-bot)) |
565 |
(l (cua--rectangle-left)) |
(l (cua--rectangle-left)) |
566 |
(r (1+ (cua--rectangle-right))) |
(r (1+ (cua--rectangle-right))) |