X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/5c831ccdac6f06d88d1c403e24695f1686626b3f..29660eb7cb1ac6ec24d20521cce51c07d9ec5f75:/lisp/rect.el

diff --git a/lisp/rect.el b/lisp/rect.el
index be3a65ccd6..9515733ef2 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -181,12 +181,9 @@ the function is called."
 
 ;; 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)