# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 772152769 0
# Node ID bc835acd2ade0785dc0d3bb3535ff6dd8605d402
# Parent  c8cc0e969eaae453ea7006daebd0ffec17cd279d
(move-to-tab-stop): Get rid of spaces before tabs
that were made by an immediately previous use of this command.

diff -r c8cc0e969eaa -r bc835acd2ade lisp/indent.el
--- a/lisp/indent.el	Mon Jun 20 22:22:58 1994 +0000
+++ b/lisp/indent.el	Mon Jun 20 22:52:49 1994 +0000
@@ -253,7 +253,12 @@
     (while (and tabs (>= (current-column) (car tabs)))
       (setq tabs (cdr tabs)))
     (if tabs
-	(move-to-column (car tabs) t))))
+	(progn
+	  (if (eq last-command 'move-to-tab-stop)
+	      (let ((opoint (point)))
+		(skip-chars-backward " \t")
+		(delete-region (point) opoint)))
+	  (move-to-column (car tabs) t)))))
 
 (define-key global-map "\t" 'indent-for-tab-command)
 (define-key esc-map "\034" 'indent-region)