Mercurial > emacs
changeset 5715:a7f72ce7bac4
(tabify): Don't delete back before initial START.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 01 Feb 1994 00:16:31 +0000 |
| parents | 9f37f85000d8 |
| children | 82588f97d478 |
| files | lisp/tabify.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tabify.el Tue Feb 01 00:00:36 1994 +0000 +++ b/lisp/tabify.el Tue Feb 01 00:16:31 1994 +0000 @@ -39,11 +39,11 @@ (narrow-to-region (point-min) end) (goto-char start) (while (search-forward "\t" nil t) ; faster than re-search - (let ((start (point)) + (let ((tab-beg (point)) (column (current-column)) (indent-tabs-mode nil)) - (skip-chars-backward "\t") - (delete-region start (point)) + (skip-chars-backward "\t" start) + (delete-region tab-beg (point)) (indent-to column)))))) ;;;###autoload