# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1155902814 0
# Node ID aa4112d74d76486b20365ca44ffda44111791dca
# Parent  d08eb7bd3ca23ce662457ccbdb885dd3c75f7f06
(spaces-string): Simplify and add doc string.

diff -r d08eb7bd3ca2 -r aa4112d74d76 lisp/rect.el
--- a/lisp/rect.el	Fri Aug 18 01:52:19 2006 +0000
+++ b/lisp/rect.el	Fri Aug 18 12:06:54 2006 +0000
@@ -181,12 +181,9 @@
 
 ;; this one is untouched --dv
 (defun spaces-string (n)
+  "Returns a string with N spaces."
   (if (<= n 8) (aref spaces-strings n)
-    (let ((val ""))
-      (while (> n 8)
-	(setq val (concat "        " val)
-	      n (- n 8)))
-      (concat val (aref spaces-strings n)))))
+    (make-string n ? )))
 
 ;;;###autoload
 (defun delete-rectangle (start end &optional fill)