(spaces-string): Simplify and add doc string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 86ac55cd5dc6cd8d9c5c6d37aa708322c3c59728..5ebd5bbb859fd6ec4282cbd5651a2fe611d08ec4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-08-18  Gustav H\e,Ae\e(Bllberg  <gustav@gmail.com>  (tiny change)
+
+       * rect.el (spaces-string): Simplify and add doc string.
+
 2006-08-17  Romain Francoise  <romain@orebokech.com>
 
        * progmodes/gdb-ui.el (gdb-edit-locals-value): Balance parens.

diff --git a/lisp/rect.el b/lisp/rect.el
index be3a65ccd6ae70612765eea4bf5c6a03d44ddbe6..9515733ef2b708d4db5aa42a3c8e323b08df5a9a 100644 (file)
--- 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)