[Emacs-diffs] Changes to emacs/lisp/rect.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    06/08/18 12:06:54

Index: rect.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/rect.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- rect.el     8 Apr 2006 10:30:19 -0000       1.52
+++ rect.el     18 Aug 2006 12:06:54 -0000      1.53
@@ -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)