diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-01 00:16:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-01 00:16:31 +0000 |
| commit | 2d8e81a591552ec3b66b35f08b29f9d3f1d1866c (patch) | |
| tree | a75aa6b9fe564114dc5ce768da45389afebeb50f /lisp/tabify.el | |
| parent | 85a9e6fe4a2eefec438da1d5363730692d1bd8d5 (diff) | |
| download | emacs-2d8e81a591552ec3b66b35f08b29f9d3f1d1866c.tar.gz | |
(tabify): Don't delete back before initial START.
Diffstat (limited to 'lisp/tabify.el')
| -rw-r--r-- | lisp/tabify.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/tabify.el b/lisp/tabify.el index ac2004dccda..16e65bddcde 100644 --- a/lisp/tabify.el +++ b/lisp/tabify.el @@ -39,11 +39,11 @@ The variable `tab-width' controls the spacing of tab stops." (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 |