# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772077171 0
# Node ID b7ea350590a704d93b19a5b8e5d0fec4111ee635
# Parent  f2c73ebe40130d8164ff69391a0d5b5d845ab63b
(tab-to-tab-stop): Combine new indentation with previous.

diff -r f2c73ebe4013 -r b7ea350590a7 lisp/indent.el
--- a/lisp/indent.el	Mon Jun 20 01:39:02 1994 +0000
+++ b/lisp/indent.el	Mon Jun 20 01:52:51 1994 +0000
@@ -238,7 +238,10 @@
     (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 ()