(indent-line-to): Fix off-by-one bug when deciding

whether to delete the existing spaces.

(indent-line-to): Fix off-by-one bug when deciding
whether to delete the existing spaces.
cd6d305e · Karl Heuer · 3ec18f3f · cd6d305e
Commit cd6d305e authored Mar 14, 1997 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/indent.el lisp/indent.el +1 -1

No files found.
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -84,7 +84,7 @@ only if necessary.  It leaves point at end of indentation."
  (back-to-indentation)
  (let ((cur-col (current-column)))
    (cond ((< cur-col column)
-	   (if (> (- column (* (/ cur-col tab-width) tab-width)) tab-width)
+	   (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width)
 	       (delete-region (point)
 			      (progn (skip-chars-backward " ") (point))))
 	   (indent-to column))