HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[bpt/emacs.git]
/
lisp
/
rect.el
diff --git
a/lisp/rect.el
b/lisp/rect.el
index
5944057
..
eb188fc
100644
(file)
--- a/
lisp/rect.el
+++ b/
lisp/rect.el
@@
-1,7
+1,7
@@
;;; rect.el --- rectangle functions for GNU Emacs
;; Copyright (C) 1985, 1999, 2000, 2001, 2002, 2003, 2004
;;; 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
Free Software Foundation, Inc.
;; Maintainer: Didier Verna <didier@xemacs.org>
;; Keywords: internal
;; Maintainer: Didier Verna <didier@xemacs.org>
;; Keywords: internal
@@
-187,9
+187,9
@@
the function is called."
;; this one is untouched --dv
(defun spaces-string (n)
;; this one is untouched --dv
(defun spaces-string (n)
- "Return
s
a string with N spaces."
+ "Return a string with N spaces."
(if (<= n 8) (aref spaces-strings n)
(if (<= n 8) (aref spaces-strings n)
- (make-string n ?
)))
+ (make-string n ?
\s
)))
;;;###autoload
(defun delete-rectangle (start end &optional fill)
;;;###autoload
(defun delete-rectangle (start end &optional fill)
@@
-290,8
+290,8
@@
The text previously in the region is not overwritten by the blanks,
but instead winds up to the right of the rectangle.
When called from a program the rectangle's corners are START and END.
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))
(interactive "*r\nP")
(apply-on-rectangle 'open-rectangle-line start end fill)
(goto-char start))