Mercurial > emacs

changeset 72439:aa4112d74d76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(spaces-string): Simplify and add doc string.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 18 Aug 2006 12:06:54 +0000
parents d08eb7bd3ca2
children a978bbf5830a
files lisp/rect.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)