Mercurial > emacs
changeset 11043:4c0a98538670
(indent-line-to): move to end of indentation, even if it didn't change.
| author | Boris Goldowsky <boris@gnu.org> |
|---|---|
| date | Thu, 16 Mar 1995 22:36:26 +0000 |
| parents | 57316020d271 |
| children | 796be3f4f8a1 |
| files | lisp/indent.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Thu Mar 16 22:34:51 1995 +0000 +++ b/lisp/indent.el Thu Mar 16 22:36:26 1995 +0000 @@ -77,15 +77,13 @@ "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.