[Emacs-diffs] master a77540e: * lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.

[Johan Bockgard]

branch: master
commit a77540e77425cf51cc63de48eb12b27f4dea71e2
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>

    * lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.
---
 lisp/rect.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/rect.el b/lisp/rect.el
index 75585d2..acd3a48 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -346,7 +346,8 @@ no text on the right side of the rectangle."
 (defun delete-whitespace-rectangle-line (startcol _endcol fill)
   (when (= (move-to-column startcol (if fill t 'coerce)) startcol)
     (unless (= (point) (point-at-eol))
-      (delete-region (point) (progn (skip-syntax-forward " ") (point))))))
+      (delete-region (point) (progn (skip-syntax-forward " " (point-at-eol))
+                                   (point))))))
 
 ;;;###autoload
 (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name