summaryrefslogtreecommitdiff
path: root/lisp/rect.el
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1999-08-16 20:38:36 +0000
committerKarl Heuer <kwzh@gnu.org>1999-08-16 20:38:36 +0000
commit6e1e8dbcd1b862a16a7cd62edb4f23d39aceb25a (patch)
tree87aea550f86dee877ab54e383d09c7d978b80c30 /lisp/rect.el
parentda71ab916bd5eb4be43811c65705e09ab4d2c7f8 (diff)
downloademacs-6e1e8dbcd1b862a16a7cd62edb4f23d39aceb25a.tar.gz
(delete-rectangle-line): Use line-end-position.
Diffstat (limited to 'lisp/rect.el')
-rw-r--r--lisp/rect.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/rect.el b/lisp/rect.el
index 4f5ae2d8146..437f030395d 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -135,7 +135,7 @@ the function is called."
))
(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)