Mercurial > emacs
changeset 30283:70a7936c29c5
(open-rectangle-line): Remove unused let.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 18 Jul 2000 12:50:38 +0000 |
| parents | 3d210892f575 |
| children | 7dd010204a23 |
| files | lisp/rect.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rect.el Tue Jul 18 12:48:53 2000 +0000 +++ b/lisp/rect.el Tue Jul 18 12:50:38 2000 +0000 @@ -58,7 +58,7 @@ ;; to accumulate them for extract-rectangle and delete-extract-rectangle. (defvar operate-on-rectangle-lines) -;; ### NOTE: this function is untouched, but not used anymore appart in +;; ### NOTE: this function is untouched, but not used anymore apart from ;; `delete-whitespace-rectangle'. `apply-on-rectangle' is used instead. --dv (defun operate-on-rectangle (function start end coerce-tabs) "Call FUNCTION for each line of rectangle with corners at START, END. @@ -297,12 +297,10 @@ (goto-char start)) (defun open-rectangle-line (startcol endcol fill) - (let (spaces) - (when (= (move-to-column-force startcol (or fill 'coerce)) startcol) - (unless (and (not fill) - (= (point) (point-at-eol))) - (indent-to endcol))) - )) + (when (= (move-to-column-force startcol (or fill 'coerce)) startcol) + (unless (and (not fill) + (= (point) (point-at-eol))) + (indent-to endcol)))) (defun delete-whitespace-rectangle-line (startcol endcol fill) (when (= (move-to-column-force startcol (or fill 'coerce)) startcol)