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

6e1e8dbc · Karl Heuer · da71ab91 · 6e1e8dbc
Commit 6e1e8dbc authored Aug 16, 1999 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/rect.el lisp/rect.el +1 -1

No files found.
--- 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)