diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-14 21:05:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-14 21:05:54 +0000 |
| commit | 3980e12887fef61eb3ce35a63c23b8e4177e8d5e (patch) | |
| tree | ab2c4d48b44158c4f50b3f6f8e7e730dc0e7ce7f /lisp/indent.el | |
| parent | 41ffaf55e526827b5413e7efa813f97828af6db4 (diff) | |
| download | emacs-3980e12887fef61eb3ce35a63c23b8e4177e8d5e.tar.gz | |
(indent-line-to): Delete spaces before inserting a tab.
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index 47ef23d4aa3..19786237d6d 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -82,6 +82,9 @@ only if necessary. It leaves point at end of indentation." (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)) |