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