Commit 3c5a4839 authored by Juri Linkov's avatar Juri Linkov
Browse files

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

instead of back-to-indentation.

Fixes: debbugs:16461
parent 21cf4545
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).
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment