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 | 419124f212655550306e52ba53216fc936d8f311 (patch) | |
| tree | 28d83ebc3e43030d0f0a8e7043d88c390545001e /lisp/tabify.el | |
| parent | 71c0c82e82e00f8a52e0fe150bf28fd89f361ae6 (diff) | |
| download | emacs-419124f212655550306e52ba53216fc936d8f311.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 |