mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(tabify): Don't delete back before initial START.

Browse Source
This commit is contained in:
Richard M. Stallman 1994-02-01 00:16:31 +00:00
parent 85a9e6fe4a
commit 2d8e81a591
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/tabify.el
View File

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