(tab-to-tab-stop): Combine new indentation with previous.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/indent.el b/lisp/indent.el
index e7f4605b682..17e58241fd1 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -238,7 +238,10 @@ Use \\[edit-tab-stops] to edit them interactively."
     (while (and tabs (>= (current-column) (car tabs)))
       (setq tabs (cdr tabs)))
     (if tabs
-        (indent-to (car tabs))
+        (let ((opoint (point)))
+          (skip-chars-backward " \t")
+          (delete-region (point) opoint)
+          (indent-to (car tabs)))
       (insert ?\ ))))
 
 (defun move-to-tab-stop ()