mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source 
whether to delete the existing spaces.
This commit is contained in:
Karl Heuer 1997-03-14 16:35:03 +00:00
parent 3ec18f3f45
commit cd6d305e53
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/indent.el
View File

@ -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))