diff options
| author | Karl Heuer | 1998-11-05 19:12:21 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-11-05 19:12:21 +0000 |
| commit | b4de43a3034309b243f686faf08cfa69c13bfca0 (patch) | |
| tree | 188ee18829ecd5a08c955edaa1330acd81d11d8e /lisp/rect.el | |
| parent | 3b3e7de595cb67917177b2489af5775581dbb11e (diff) | |
| download | emacs-b4de43a3034309b243f686faf08cfa69c13bfca0.tar.gz emacs-b4de43a3034309b243f686faf08cfa69c13bfca0.zip | |
(delete-whitespace-rectangle): close-rectangle renamed.
(close-rectangle): Define as alias.
Diffstat (limited to 'lisp/rect.el')
| -rw-r--r-- | lisp/rect.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index c9b8d2d659d..4636abe1315 100644 --- a/lisp/rect.el +++ b/lisp/rect.el | |||
| @@ -206,7 +206,8 @@ but instead winds up to the right of the rectangle." | |||
| 206 | (indent-to (+ endcol whitewidth)))) | 206 | (indent-to (+ endcol whitewidth)))) |
| 207 | 207 | ||
| 208 | ;;;###autoload | 208 | ;;;###autoload |
| 209 | (defun close-rectangle (start end) | 209 | (defalias 'close-rectangle 'delete-whitespace-rectangle) ;; Old name |
| 210 | (defun delete-whitespace-rectangle (start end) | ||
| 210 | "Delete all whitespace following a specified column in each line. | 211 | "Delete all whitespace following a specified column in each line. |
| 211 | The left edge of the rectangle specifies the position in each line | 212 | The left edge of the rectangle specifies the position in each line |
| 212 | at which whitespace deletion should begin. On each line in the | 213 | at which whitespace deletion should begin. On each line in the |