Mercurial > emacs

diff lisp/rect.el @ 25291:d9fa9f9ceb21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(delete-rectangle-line): Use line-end-position.
author Karl Heuer <kwzh@gnu.org>
date Mon, 16 Aug 1999 20:38:36 +0000
parents 0fbd51325497
children 167c69238538
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)