Mercurial > emacs

diff lisp/emulation/cua-rect.el @ 102915:5200e3730ccd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cua--indent-rectangle): Insert tabs using tab-to-tab-stop to respect indent-tabs-mode.
author Kim F. Storm <storm@cua.dk>
date Thu, 09 Apr 2009 17:13:54 +0000
parents a9dc0e7c3f2b
children 328150f0cf76
line wrap: on
line diff
--- 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))