# HG changeset patch
# User Boris Goldowsky <boris@gnu.org>
# Date 795393386 0
# Node ID 4c0a9853867096de51ebbe63d5c293a13652e216
# Parent  57316020d271925b5d4bbcf9778561f44a9dbb48
(indent-line-to): move to end of indentation, even if it didn't change.

diff -r 57316020d271 -r 4c0a98538670 lisp/indent.el
--- a/lisp/indent.el	Thu Mar 16 22:34:51 1995 +0000
+++ b/lisp/indent.el	Thu Mar 16 22:36:26 1995 +0000
@@ -77,15 +77,13 @@
   "Indent current line to COLUMN.
 This function removes or adds spaces and tabs at beginning of line
 only if necessary.  It leaves point at end of indentation."
-  (beginning-of-line)
-  (let ((bol (point))
-	(cur-col (current-indentation)))
-    (cond ((> cur-col column) ; too far right (after tab?)
+  (back-to-indentation)
+  (let ((cur-col (current-column)))
+    (cond ((< cur-col column)
+	   (indent-to column))
+	  ((> cur-col column) ; too far right (after tab?)
 	   (delete-region (progn (move-to-column column t) (point))
-			  (progn (back-to-indentation) (point))))
-	  ((< cur-col column)
-	   (back-to-indentation)
-	   (indent-to column)))))
+			  (progn (back-to-indentation) (point)))))))
 
 (defun current-left-margin ()
   "Return the left margin to use for this line.