(cua--indent-rectangle): Insert tabs using

tab-to-tab-stop to respect indent-tabs-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47f8c1e2d6d46ef679e9e5f72143dced20b5dd04..3d19ec27b13a59e1409d2c71caf14cfa3721b1fb 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 29ee3cf45a4bdc7b6736d6ebffa1609ccec53be0..f809aa9f57cd758641bbccde2fdf390ebe1f513a 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -847,7 +847,7 @@ If command is repeated at same position, delete the rectangle."
              (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))