# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 963924638 0
# Node ID 70a7936c29c5f6166423b6ea7389002a2f41391f
# Parent  3d210892f575c7404cb69743724fb57fcd9d10f5
(open-rectangle-line): Remove unused let.

diff -r 3d210892f575 -r 70a7936c29c5 lisp/rect.el
--- 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)