Patch to improve spaces-string in rect.el

Patch to improve spaces-string in rect.el

[Gustav Hållberg]

[-- Attachment #1: Type: text/plain, Size: 89 bytes --]

Attaching suggested patch to simplify and document (spaces-string) in rect.el.

- Gustav

[-- Attachment #2: rect-spaces.patch --]
[-- Type: text/x-patch, Size: 512 bytes --]

--- src/emacs/lisp/rect.el	2006-04-08 12:30:19.000000000 +0200
+++ ./rect.el	2006-08-13 08:31:38.653934746 +0200
@@ -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)

[-- Attachment #3: Type: text/plain, Size: 149 bytes --]

_______________________________________________
bug-gnu-emacs mailing list
bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs