From a8bcc348b132a018956ca661db45d72b26225b0e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 18 Aug 2006 12:07:38 +0000 Subject: [PATCH] (spaces-string): Simplify and add doc string. --- lisp/ChangeLog | 4 ++++ lisp/rect.el | 7 ++----- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 86ac55cd5dc..5ebd5bbb859 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-08-18 Gustav H,Ae(Bllberg (tiny change) + + * rect.el (spaces-string): Simplify and add doc string. + 2006-08-17 Romain Francoise * progmodes/gdb-ui.el (gdb-edit-locals-value): Balance parens. diff --git a/lisp/rect.el b/lisp/rect.el index be3a65ccd6a..9515733ef2b 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) -- 2.39.2