# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 974988094 0
# Node ID 22ed3ce37a4c7f174cca018c592003fd580f9320
# Parent  e0cae194aad88b04291dec364341d41641944491
(string-rectangle): Don't test delete-selection-mode.

diff -r e0cae194aad8 -r 22ed3ce37a4c lisp/rect.el
--- 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)