(indent-line-to): move to end of indentation, even if it didn't change.

diff --git a/lisp/indent.el b/lisp/indent.el
index d1777c8681a98161bebed897cd52db330637edaa..59112846d791d7c10ebad5b989c3b3225b64b98a 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -77,15 +77,13 @@ Called from a program, takes three arguments, START, END and ARG."
   "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.