From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 16 Aug 1999 20:38:36 +0000 (+0000)
Subject: (delete-rectangle-line): Use line-end-position.
X-Git-Tag: emacs-pretest-21.0.90~7150
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6e1e8dbcd1b862a16a7cd62edb4f23d39aceb25a;p=emacs.git

(delete-rectangle-line): Use line-end-position.
---

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)