137 |
(defun delete-rectangle-line (startcol endcol fill) |
(defun delete-rectangle-line (startcol endcol fill) |
138 |
(let ((pt (line-end-position))) |
(let ((pt (line-end-position))) |
139 |
(when (= (move-to-column-force startcol (or fill 'coerce)) startcol) |
(when (= (move-to-column-force startcol (or fill 'coerce)) startcol) |
140 |
(if (and (not fill) (<= pt endcol)) |
(setq pt (point)) |
141 |
(delete-region (point) pt) |
(move-to-column-force endcol) |
142 |
;; else |
(delete-region pt (point))))) |
|
(setq pt (point)) |
|
|
(move-to-column-force endcol) |
|
|
(delete-region pt (point)))) |
|
|
)) |
|
143 |
|
|
144 |
(defun delete-extract-rectangle-line (startcol endcol lines fill) |
(defun delete-extract-rectangle-line (startcol endcol lines fill) |
145 |
(let ((pt (point-at-eol))) |
(let ((pt (point-at-eol))) |