comparison lisp/rect.el @ 22205:8576d32229fc

(close-rectangle): New command.

22204:e1921cd8a532

    (delete-region startpos (point))
    ;; Open the desired width, plus same amount of whitespace we just deleted.
    (indent-to (+ endcol whitewidth))))

;;;###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.
This command does not delete or overwrite any existing text.

22205:8576d32229fc

    (delete-region startpos (point))
    ;; 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.
The left edge of the rectangle specifies the column for insertion.
This command does not delete or overwrite any existing text.