diff options
Diffstat (limited to 'lisp/rect.el')
| -rw-r--r-- | lisp/rect.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 653a4937662..06a55a295a6 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -102,6 +102,7 @@ Point is at the end of the segment of this line within the rectangle." n (- n 8))) (concat val (aref spaces-strings n))))) +;;;###autoload (defun delete-rectangle (start end) "Delete (don't save) text in rectangle with point and mark as corners. The same range of columns is deleted in each line starting with the line @@ -109,6 +110,7 @@ where the region begins and ending with the line where the region ends." (interactive "r") (operate-on-rectangle 'delete-rectangle-line start end t)) +;;;###autoload (defun delete-extract-rectangle (start end) "Delete contents of rectangle and return it as a list of strings. Arguments START and END are the corners of the rectangle. @@ -118,6 +120,7 @@ The value is list of strings, one for each line of the rectangle." start end t) (nreverse lines))) +;;;###autoload (defun extract-rectangle (start end) "Return contents of rectangle with corners at START and END. Value is list of strings, one for each line of the rectangle." @@ -128,6 +131,7 @@ Value is list of strings, one for each line of the rectangle." (defvar killed-rectangle nil "Rectangle for yank-rectangle to insert.") +;;;###autoload (defun kill-rectangle (start end) "Delete rectangle with corners at point and mark; save as last killed one. Calling from program, supply two args START and END, buffer positions. @@ -135,11 +139,13 @@ But in programs you might prefer to use `delete-extract-rectangle'." (interactive "r") (setq killed-rectangle (delete-extract-rectangle start end))) +;;;###autoload (defun yank-rectangle () "Yank the last killed rectangle with upper left corner at point." (interactive) (insert-rectangle killed-rectangle)) +;;;###autoload (defun insert-rectangle (rectangle) "Insert text of RECTANGLE with upper left corner at point. RECTANGLE's first line is inserted at point, its second @@ -162,6 +168,7 @@ RECTANGLE should be a list of strings." (insert (car lines)) (setq lines (cdr lines))))) +;;;###autoload (defun open-rectangle (start end) "Blank out rectangle with corners at point and mark, shifting text right. The text previously in the region is not overwritten by the blanks, @@ -180,6 +187,7 @@ but insted winds up to the right of the rectangle." (point))) (indent-to column))) +;;;###autoload (defun clear-rectangle (start end) "Blank out rectangle with corners at point and mark. The text previously in the region is overwritten by the blanks. |