Mercurial > emacs
diff lisp/rect.el @ 242:5647f2040009
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 12 Apr 1991 20:15:51 +0000 |
parents | 9697c13298e5 |
children | 1e0bc00dca7a |
line wrap: on
line diff
--- a/lisp/rect.el Thu Apr 11 21:20:53 1991 +0000 +++ b/lisp/rect.el Fri Apr 12 20:15:51 1991 +0000 @@ -104,9 +104,8 @@ (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 where the region begins -and ending with the line where the region ends." +The same range of columns is deleted in each line starting with the line +where the region begins and ending with the line where the region ends." (interactive "r") (operate-on-rectangle 'delete-rectangle-line start end t)) @@ -132,7 +131,7 @@ (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. -But in programs you might prefer to use delete-extract-rectangle." +But in programs you might prefer to use `delete-extract-rectangle'." (interactive "r") (setq killed-rectangle (delete-extract-rectangle start end))) @@ -143,8 +142,8 @@ (defun insert-rectangle (rectangle) "Insert text of RECTANGLE with upper left corner at point. -RECTANGLE's first line is inserted at point, -its second line is inserted at a point vertically under point, etc. +RECTANGLE's first line is inserted at point, its second +line is inserted at a point vertically under point, etc. RECTANGLE should be a list of strings." (let ((lines rectangle) (insertcolumn (current-column))