Mercurial > emacs
changeset 25291:d9fa9f9ceb21
(delete-rectangle-line): Use line-end-position.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 16 Aug 1999 20:38:36 +0000 |
| parents | a80acb2a8273 |
| children | 0a9e93f020a3 |
| files | lisp/rect.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rect.el Mon Aug 16 20:34:56 1999 +0000 +++ b/lisp/rect.el Mon Aug 16 20:38:36 1999 +0000 @@ -135,7 +135,7 @@ )) (defun delete-rectangle-line (startcol endcol fill) - (let ((pt (point-at-eol))) + (let ((pt (line-end-position))) (when (= (move-to-column-force startcol (or fill 'coerce)) startcol) (if (and (not fill) (<= pt endcol)) (delete-region (point) pt)