Mercurial > emacs
changeset 33807:22ed3ce37a4c
(string-rectangle): Don't test delete-selection-mode.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 23 Nov 2000 14:01:34 +0000 |
| parents | e0cae194aad8 |
| children | 8ed6e47891a6 |
| files | lisp/rect.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rect.el Thu Nov 23 13:54:48 2000 +0000 +++ b/lisp/rect.el Thu Nov 23 14:01:34 2000 +0000 @@ -334,8 +334,13 @@ The left edge of the rectangle specifies the column for insertion. This command does not delete or overwrite any existing text." (interactive "*r\nsString rectangle: ") - (apply-on-rectangle 'string-rectangle-line start end string - (bound-and-true-p 'delete-selection-mode))) + ;; XEmacs tests `pending-delete-mode' here, and replaces the + ;; rectangle if that's on. Using `delete-selection-mode' here would + ;; only be useful if `mark-even-if-inactive' is on since otherwise + ;; we need the mark to be active, given the interactive spec, and + ;; then we'd always delete. Maybe revisit this and consider testing + ;; `mark-even-if-inactive' too? + (apply-on-rectangle 'string-rectangle-line start end string nil)) (defun string-rectangle-line (startcol endcol string delete) (move-to-column-force startcol)