# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816383154 0
# Node ID 1418ed733e9d93608b6edf7a2aec13d3d68ba044
# Parent  34c4ee840e09c2c70ff46526bf11023d2871f479
(indent-line-to): Delete spaces before inserting a tab.

diff -r 34c4ee840e09 -r 1418ed733e9d lisp/indent.el
--- 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))