# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 934835916 0
# Node ID d9fa9f9ceb21240960442f31dc4417e61dd56fe4
# Parent  a80acb2a827379eecfd27ff56f617f533c243510
(delete-rectangle-line): Use line-end-position.

diff -r a80acb2a8273 -r d9fa9f9ceb21 lisp/rect.el
--- 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)