Mercurial > emacs
comparison lisp/rect.el @ 49597:e88404e8f2cf
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 12:29:42 +0000 |
| parents | 8e08ec435afd |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49596:b06535145619 | 49597:e88404e8f2cf |
|---|---|
| 185 (let ((val "")) | 185 (let ((val "")) |
| 186 (while (> n 8) | 186 (while (> n 8) |
| 187 (setq val (concat " " val) | 187 (setq val (concat " " val) |
| 188 n (- n 8))) | 188 n (- n 8))) |
| 189 (concat val (aref spaces-strings n))))) | 189 (concat val (aref spaces-strings n))))) |
| 190 | 190 |
| 191 ;;;###autoload | 191 ;;;###autoload |
| 192 (defun delete-rectangle (start end &optional fill) | 192 (defun delete-rectangle (start end &optional fill) |
| 193 "Delete (don't save) text in the region-rectangle. | 193 "Delete (don't save) text in the region-rectangle. |
| 194 The same range of columns is deleted in each line starting with the | 194 The same range of columns is deleted in each line starting with the |
| 195 line where the region begins and ending with the line where the region | 195 line where the region begins and ending with the line where the region |