Mercurial > hg > xemacs-beta
comparison lisp/rect.el @ 686:c82f9db998d7
[xemacs-hg @ 2001-12-03 18:02:47 by didierv]
etc/NEWS: advertise `C-x r p' (replace-rectangle) in global map.
rect.el, keydefs.el: autoload and bind `replace-rectangle' to `C-x r p'.
| author | didierv |
|---|---|
| date | Mon, 03 Dec 2001 18:02:50 +0000 |
| parents | 1ccc32a20af4 |
| children | 308d34e9f07d |
comparison
equal
deleted
inserted
replaced
| 685:9a0959b535de | 686:c82f9db998d7 |
|---|---|
| 308 (interactive "*r\nsString rectangle: ") | 308 (interactive "*r\nsString rectangle: ") |
| 309 (defvar pending-delete-mode) | 309 (defvar pending-delete-mode) |
| 310 (apply-on-rectangle 'string-rectangle-line start end string | 310 (apply-on-rectangle 'string-rectangle-line start end string |
| 311 (and (boundp 'pending-delete-mode) pending-delete-mode))) | 311 (and (boundp 'pending-delete-mode) pending-delete-mode))) |
| 312 | 312 |
| 313 ;;;###autoload | |
| 313 (defun replace-rectangle (start end string) | 314 (defun replace-rectangle (start end string) |
| 314 "Like `string-rectangle', but unconditionally replace the original region, | 315 "Like `string-rectangle', but unconditionally replace the original region, |
| 315 as if `pending-delete-mode' were active." | 316 as if `pending-delete-mode' were active." |
| 316 (interactive "*r\nsString rectangle: ") | 317 (interactive "*r\nsString rectangle: ") |
| 317 (apply-on-rectangle 'string-rectangle-line start end string t)) | 318 (apply-on-rectangle 'string-rectangle-line start end string t)) |