Commit 6e1e8dbc authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent da71ab91
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment