Mercurial > emacs
changeset 102915:5200e3730ccd
(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 | 8b13a9b37672 |
| children | e36cab721439 |
| files | lisp/ChangeLog lisp/emulation/cua-rect.el |
| diffstat | 2 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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))