(delete-whitespace-rectangle): Mark for autoload.

(close-rectangle): Define alias only once in loaddefs.el.

diff --git a/lisp/rect.el b/lisp/rect.el
index 9ba8edf24990bd8128f9343b6dd9cccf6884fa61..3a643c63addde865ce455264ccbb57c00f253101 100644 (file)
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -226,8 +226,8 @@ 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 (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name
 ;;;###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