From 74be0ade4cc437f9619e6f71d3a5037be3ea67eb Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 18 Jul 2000 12:50:38 +0000 Subject: [PATCH] (open-rectangle-line): Remove unused let. --- lisp/rect.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) 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) -- 2.39.2