[Emacs-diffs] emacs/lisp ChangeLog emulation/cua-rect.el

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  09/04/09 17:13:56

Modified files:
        lisp           : ChangeLog 
        lisp/emulation : cua-rect.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15571&r2=1.15572
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emulation/cua-rect.el?cvsroot=emacs&r1=1.42&r2=1.43

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15571
retrieving revision 1.15572
diff -u -b -r1.15571 -r1.15572
--- ChangeLog   9 Apr 2009 16:50:36 -0000       1.15571
+++ ChangeLog   9 Apr 2009 17:13:54 -0000       1.15572
@@ -1,3 +1,8 @@
+2009-04-09  Kim F. Storm  <address@hidden>
+
+       * 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  <address@hidden>
 
        * mail/rmailkwd.el (rmail-set-label): Warn if multipe labels spec'd.

Index: emulation/cua-rect.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/cua-rect.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- emulation/cua-rect.el       5 Jan 2009 03:21:14 -0000       1.42
+++ emulation/cua-rect.el       9 Apr 2009 17:13:56 -0000       1.43
@@ -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))