Mercurial > emacs
changeset 13545:1418ed733e9d
(indent-line-to): Delete spaces before inserting a tab.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 14 Nov 1995 21:05:54 +0000 |
| parents | 34c4ee840e09 |
| children | b979fa5d0d0b |
| files | lisp/indent.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Tue Nov 14 19:41:16 1995 +0000 +++ b/lisp/indent.el Tue Nov 14 21:05:54 1995 +0000 @@ -82,6 +82,9 @@ (back-to-indentation) (let ((cur-col (current-column))) (cond ((< cur-col column) + (if (> (- column (* (/ cur-col tab-width) tab-width)) tab-width) + (delete-region (point) + (progn (skip-chars-backward " ") (point)))) (indent-to column)) ((> cur-col column) ; too far right (after tab?) (delete-region (progn (move-to-column column t) (point))