# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1239297234 0
# Node ID 5200e3730ccdd5465240b426f770b64b5a2bc1ea
# Parent  8b13a9b37672251499bb3ef709d34cd3cb1b49a3
(cua--indent-rectangle): Insert tabs using
tab-to-tab-stop to respect indent-tabs-mode.

diff -r 8b13a9b37672 -r 5200e3730ccd lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Apr 09 16:50:36 2009 +0000
+++ b/lisp/ChangeLog	Thu Apr 09 17:13:54 2009 +0000
@@ -1,3 +1,8 @@
+2009-04-09  Kim F. Storm  <storm@cua.dk>
+
+	* emulation/cua-rect.el (cua--indent-rectangle): Insert tabs using
+	tab-to-tab-stop to respect indent-tabs-mode.
+
 2009-04-09  Richard M Stallman  <rms@gnu.org>
 
 	* mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.
diff -r 8b13a9b37672 -r 5200e3730ccd lisp/emulation/cua-rect.el
--- a/lisp/emulation/cua-rect.el	Thu Apr 09 16:50:36 2009 +0000
+++ b/lisp/emulation/cua-rect.el	Thu Apr 09 17:13:54 2009 +0000
@@ -847,7 +847,7 @@
              (move-to-column col t))
 	 (cond
 	  (to-col (indent-to to-col))
-	  (ch (insert ch))
+	  ((and ch (not (eq ch ?\t))) (insert ch))
 	  (t (tab-to-tab-stop)))
          (if (cua--rectangle-right-side t)
              (cua--rectangle-insert-col (current-column))