From: Kim F. Storm <storm@cua.dk>
Date: Thu, 9 Apr 2009 17:13:54 +0000 (+0000)
Subject: (cua--indent-rectangle): Insert tabs using
X-Git-Tag: emacs-pretest-23.0.93~179
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c872c51e2b8805ca4ee674ee7600f5b914492a68;p=emacs.git

(cua--indent-rectangle): Insert tabs using
tab-to-tab-stop to respect indent-tabs-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47f8c1e2d6d..3d19ec27b13 100644
--- 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 29ee3cf45a4..f809aa9f57c 100644
--- 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))