From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 24 May 1998 00:52:38 +0000 (+0000)
Subject: (close-rectangle): New command.
X-Git-Tag: emacs-20.3~872
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecb079ed6d2740f1b624781338236bf04b319919;p=emacs.git

(close-rectangle): New command.
---

diff --git a/lisp/rect.el b/lisp/rect.el
index 2904f94687a..b245e1102c5 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -201,6 +201,23 @@ but instead winds up to the right of the rectangle."
     ;; Open the desired width, plus same amount of whitespace we just deleted.
     (indent-to (+ endcol whitewidth))))
 
+;;;###autoload
+(defun close-rectangle (start end)
+  "Delete all whitespace following a specified column in each line.
+The left edge of the rectangle specifies the position in each line
+at which whitespace deletion should begin.  On each line in the
+rectangle, all continuous whitespace starting at that column is deleted."
+  (interactive "r")
+  (operate-on-rectangle '(lambda (startpos begextra endextra)
+			   (save-excursion
+			     (goto-char startpos)
+			     (delete-region (point)
+					    (progn
+					      (skip-syntax-forward " ")
+					      (point)))))
+			start end t))
+
+
 ;;;###autoload
 (defun string-rectangle (start end string)
   "Insert STRING on each line of the region-rectangle, shifting text right.