diff options
| author | Johan Bockgård <bojohan@gnu.org> | 2015-04-12 15:50:02 +0200 |
|---|---|---|
| committer | Johan Bockgård <bojohan@gnu.org> | 2015-04-12 15:50:02 +0200 |
| commit | a77540e77425cf51cc63de48eb12b27f4dea71e2 (patch) | |
| tree | 27f64ba5775f56209edc8cbc9d5fc8d76a30c967 /lisp/rect.el | |
| parent | a3d11ecb83cab211c3ce6cb36f27d4c7e54712df (diff) | |
| download | emacs-a77540e77425cf51cc63de48eb12b27f4dea71e2.tar.gz | |
* lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.
Diffstat (limited to 'lisp/rect.el')
| -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." (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 |