diff options
| author | Dave Love <fx@gnu.org> | 2000-11-23 14:03:22 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-11-23 14:03:22 +0000 |
| commit | 595dead24f51441813e5ccda956e9f741feff275 (patch) | |
| tree | 0937a50433faf25563db5131ecdbf44630019638 | |
| parent | 1e66b27ab8116c12b2406d5b9717911f48d2ef5c (diff) | |
| download | emacs-595dead24f51441813e5ccda956e9f741feff275.tar.gz | |
(string-rectangle): Don't test delete-selection-mode.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/rect.el | 9 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 52cad6be16e..68da7842fbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2000-11-23 Dave Love <fx@gnu.org> + + * rect.el (string-rectangle): Don't test delete-selection-mode. + 2000-11-23 Gerd Moellmann <gerd@gnu.org> * dired-aux.el (dired-add-entry): Don't call dired-get-filename diff --git a/lisp/rect.el b/lisp/rect.el index 2189bd714b8..302621776c3 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -334,8 +334,13 @@ When called from a program the rectangle's corners are START and END. 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) |