Commit ecb079ed authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(close-rectangle): New command.

parent f68af055
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment