mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

(indent-line-to): move to end of indentation, even if it didn't change.

Browse source
This commit is contained in:
Boris Goldowsky 1995-03-16 22:36:26 +00:00
parent 475f903199
commit ca2a3cb73f
1 changed files with 6 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/indent.el
View file

@ -77,15 +77,13 @@ Called from a program, takes three arguments, START, END and 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."
(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.