From: Johan Bockgård <bojohan@gnu.org>
Date: Sun, 12 Apr 2015 13:50:02 +0000 (+0200)
Subject: * lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.
X-Git-Tag: emacs-25.0.90~2469
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a77540e77425cf51cc63de48eb12b27f4dea71e2;p=emacs.git

* lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.
---

diff --git a/lisp/rect.el b/lisp/rect.el
index 75585d2f080..acd3a48f2da 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