From: Dave Love <fx@gnu.org>
Date: Tue, 18 Jul 2000 12:50:38 +0000 (+0000)
Subject: (open-rectangle-line): Remove unused let.
X-Git-Tag: emacs-pretest-21.0.90~2769
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=74be0ade4cc437f9619e6f71d3a5037be3ea67eb;p=emacs.git

(open-rectangle-line): Remove unused let.
---

diff --git a/lisp/rect.el b/lisp/rect.el
index 97fa980d1a6..a48b0e650ce 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -58,7 +58,7 @@ the desired column only if the line is long enough."
 ;; 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 @@ on the right side of the rectangle."
   (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)