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

2015-04-12 15:50:02 +02:00
parent a3d11ecb83
commit a77540e774
1 changed files with 2 additions and 1 deletions
--- 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