diff options
| -rw-r--r-- | lisp/rect.el | 3 |
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." | |||
| 346 | (defun delete-whitespace-rectangle-line (startcol _endcol fill) | 346 | (defun delete-whitespace-rectangle-line (startcol _endcol fill) |
| 347 | (when (= (move-to-column startcol (if fill t 'coerce)) startcol) | 347 | (when (= (move-to-column startcol (if fill t 'coerce)) startcol) |
| 348 | (unless (= (point) (point-at-eol)) | 348 | (unless (= (point) (point-at-eol)) |
| 349 | (delete-region (point) (progn (skip-syntax-forward " ") (point)))))) | 349 | (delete-region (point) (progn (skip-syntax-forward " " (point-at-eol)) |
| 350 | (point)))))) | ||
| 350 | 351 | ||
| 351 | ;;;###autoload | 352 | ;;;###autoload |
| 352 | (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name | 353 | (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name |