diff options
| -rw-r--r-- | lisp/rect.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 2904f94687a..b245e1102c5 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -202,6 +202,23 @@ but instead winds up to the right of the rectangle." (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. The left edge of the rectangle specifies the column for insertion. |