From ecb079ed6d2740f1b624781338236bf04b319919 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 May 1998 00:52:38 +0000 Subject: [PATCH] (close-rectangle): New command. --- lisp/rect.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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. -- 2.39.2