;;; rect.el --- rectangle functions for GNU Emacs
;; Copyright (C) 1985, 1999, 2000, 2001, 2002, 2003, 2004
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
;; Maintainer: Didier Verna <didier@xemacs.org>
;; Keywords: internal
;; this one is untouched --dv
(defun spaces-string (n)
- "Returns a string with N spaces."
+ "Return a string with N spaces."
(if (<= n 8) (aref spaces-strings n)
- (make-string n ? )))
+ (make-string n ?\s)))
;;;###autoload
(defun delete-rectangle (start end &optional fill)
but instead winds up to the right of the rectangle.
When called from a program the rectangle's corners are START and END.
-With a prefix (or a FILL) argument, fill with blanks even if there is no text
-on the right side of the rectangle."
+With a prefix (or a FILL) argument, fill with blanks even if there is
+no text on the right side of the rectangle."
(interactive "*r\nP")
(apply-on-rectangle 'open-rectangle-line start end fill)
(goto-char start))