summaryrefslogtreecommitdiff
path: root/lisp/rect.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/rect.el')
-rw-r--r--lisp/rect.el3
1 files changed, 2 insertions, 1 deletions
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