From 3c5a4839a1e4751d1df8cec1b4e0b6b559d31070 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 20 Jan 2014 10:45:56 +0200 Subject: [PATCH] * lisp/indent.el (indent-line-to): Use backward-to-indentation instead of back-to-indentation. Fixes: debbugs:16461 --- lisp/ChangeLog | 5 +++++ lisp/indent.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1c63cacf6ac..2f76b7502a3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-01-20 Juri Linkov + + * indent.el (indent-line-to): Use backward-to-indentation + instead of back-to-indentation. (Bug#16461) + 2014-01-20 Paul Eggert Revert some of the CANNOT_DUMP fix (Bug#16494). diff --git a/lisp/indent.el b/lisp/indent.el index 4b51cf04ad1..ca221530458 100644 --- 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.