diff options
Diffstat (limited to 'lisp/rect.el')
| -rw-r--r-- | lisp/rect.el | 7 |
1 files changed, 2 insertions, 5 deletions
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) |