comparison lisp/rect.el @ 23641:b13886e06eb2

(delete-whitespace-rectangle): close-rectangle renamed. (close-rectangle): Define as alias.

23640:51102c1dc0c3

    (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")

23641:b13886e06eb2

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

;;;###autoload
(defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name
(defun delete-whitespace-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")