mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

2000-09-01 Didier Verna <didier@xemacs.org>

Browse source 
* rect.el (replace-rectangle): New function.
This commit is contained in:
Dave Love 2000-03-09 22:50:30 +00:00
parent d1221ea91d
commit 852eeeafd2
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/rect.el
View file

@ -342,6 +342,12 @@ This command does not delete or overwrite any existing text."
(move-to-column-force startcol)
(insert string))
;;;###autoload
(defun replace-rectangle (start end string)
"Like `string-rectangle', but replace the original region."
(interactive "*r\nsString rectangle: ")
(apply-on-rectangle 'string-rectangle-line start end string t))
;;;###autoload
(defun clear-rectangle (start end &optional fill)
"Blank out the region-rectangle.