* lisp/indent.el (indent-line-to): Use backward-to-indentation

instead of back-to-indentation.

Fixes: debbugs:16461

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c63cacf6acb5dbfdd0ffe1f460e64ef83e3e284..2f76b7502a3fae78b1eea32c33bf7bf637af52db 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-20  Juri Linkov  <juri@jurta.org>
+
+       * indent.el (indent-line-to): Use backward-to-indentation
+       instead of back-to-indentation.  (Bug#16461)
+
 2014-01-20  Paul Eggert  <eggert@cs.ucla.edu>
 
        Revert some of the CANNOT_DUMP fix (Bug#16494).

diff --git a/lisp/indent.el b/lisp/indent.el
index 4b51cf04ad1eab7998b8afc45e9fc1ad1049eec3..ca221530458b74565c57a8520c12a2cc4b60ac6c 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -265,7 +265,7 @@ indentation by specifying a large negative 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."
-  (back-to-indentation)
+  (backward-to-indentation 0)
   (let ((cur-col (current-column)))
     (cond ((< cur-col column)
           (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width)
@@ -274,7 +274,7 @@ only if necessary.  It leaves point at end of indentation."
           (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)))))))
+                         (progn (backward-to-indentation 0) (point)))))))
 
 (defun current-left-margin ()
   "Return the left margin to use for this line.