diff options
| author | Karl Heuer | 1997-03-14 16:35:03 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-03-14 16:35:03 +0000 |
| commit | cd6d305e531906764ed2660f0d1762907025d51b (patch) | |
| tree | 05e84a9b1cdceb2aba4e6e051fa389d3d596f716 /lisp | |
| parent | 3ec18f3f45bdacf82fcd17e6925872bd93799f9b (diff) | |
| download | emacs-cd6d305e531906764ed2660f0d1762907025d51b.tar.gz emacs-cd6d305e531906764ed2660f0d1762907025d51b.zip | |
(indent-line-to): Fix off-by-one bug when deciding
whether to delete the existing spaces.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/indent.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index c1e2fc2e132..5b69fab958a 100644 --- a/lisp/indent.el +++ b/lisp/indent.el | |||
| @@ -84,7 +84,7 @@ only if necessary. It leaves point at end of indentation." | |||
| 84 | (back-to-indentation) | 84 | (back-to-indentation) |
| 85 | (let ((cur-col (current-column))) | 85 | (let ((cur-col (current-column))) |
| 86 | (cond ((< cur-col column) | 86 | (cond ((< cur-col column) |
| 87 | (if (> (- column (* (/ cur-col tab-width) tab-width)) tab-width) | 87 | (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width) |
| 88 | (delete-region (point) | 88 | (delete-region (point) |
| 89 | (progn (skip-chars-backward " ") (point)))) | 89 | (progn (skip-chars-backward " ") (point)))) |
| 90 | (indent-to column)) | 90 | (indent-to column)) |