(delete-whitespace-rectangle): close-rectangle renamed.

(close-rectangle): Define as alias.

diff --git a/lisp/rect.el b/lisp/rect.el
index c9b8d2d659d3c396e4177f4d72647182dff2e78e..4636abe1315e40f02a2043ae739999c5ae9ca288 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -206,7 +206,8 @@ but instead winds up to the right of the rectangle."
     (indent-to (+ endcol whitewidth))))
 
 ;;;###autoload
-(defun close-rectangle (start end)
+(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