[Emacs-diffs] trunk r116079: * lisp/indent.el (indent-line-to): Use backward-to-indentation

[Juri Linkov]

------------------------------------------------------------
revno: 116079
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/16461
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Mon 2014-01-20 10:45:56 +0200
message:
  * lisp/indent.el (indent-line-to): Use backward-to-indentation
  instead of back-to-indentation.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/indent.el                 indent.el-20091113204419-o5vbwnq5f7feedwu-230

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-20 07:56:28 +0000
+++ b/lisp/ChangeLog    2014-01-20 08:45:56 +0000
@@ -1,3 +1,8 @@
+2014-01-20  Juri Linkov  <address@hidden>
+
+       * indent.el (indent-line-to): Use backward-to-indentation
+       instead of back-to-indentation.  (Bug#16461)
+
 2014-01-20  Paul Eggert  <address@hidden>
 
        Revert some of the CANNOT_DUMP fix (Bug#16494).

=== modified file 'lisp/indent.el'
--- a/lisp/indent.el    2014-01-15 08:22:41 +0000
+++ b/lisp/indent.el    2014-01-20 08:45:56 +0000
@@ -265,7 +265,7 @@
   "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 @@
           (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.