[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/rect.el,v
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/rect.el,v |
Date: |
Fri, 18 Aug 2006 12:06:55 +0000 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/rect.el,v,
Eli Zaretskii <=