[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a77540e: * lisp/rect.el (delete-whitespace-rectangl
From: |
Johan Bockgard |
Subject: |
[Emacs-diffs] master a77540e: * lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL. |
Date: |
Sun, 12 Apr 2015 13:51:50 +0000 |
branch: master
commit a77540e77425cf51cc63de48eb12b27f4dea71e2
Author: Johan Bockgård <address@hidden>
Commit: Johan Bockgård <address@hidden>
* lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.
---
lisp/rect.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/lisp/rect.el b/lisp/rect.el
index 75585d2..acd3a48 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master a77540e: * lisp/rect.el (delete-whitespace-rectangle-line): Don't cross EOL.,
Johan Bockgard <=