(close-rectangle): New command.

diff --git a/lisp/rect.el b/lisp/rect.el
index 2904f94687a04634c9e2c112bd6971a7d2e42f5f..b245e1102c50ef6a210dc1bf98ec22466c1179be 100644 (file)
--- 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.