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

1994-06-20 01:52:51 +00:00
parent 97823303c4
commit 9d840bec3e
1 changed files with 4 additions and 1 deletions
--- 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 ()