comparison lisp/rect.el @ 28078:99865d22cc31

2000-09-01 Didier Verna <[e-mail]> * rect.el (replace-rectangle): New function.

28077:30c2ad45d57b

(defun string-rectangle-line (startcol endcol string)
  (move-to-column-force startcol)
  (insert string))

;;;###autoload
(defun clear-rectangle (start end &optional fill)
  "Blank out the region-rectangle.
The text previously in the region is overwritten with blanks.

When called from a program the rectangle's corners are START and END.

28078:99865d22cc31

(defun string-rectangle-line (startcol endcol string)
  (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.
The text previously in the region is overwritten with blanks.

When called from a program the rectangle's corners are START and END.