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

(tabify): Include entire first line in narrowing.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-04-13 17:04:57 +00:00
parent 7af318194c
commit 7be313ea3b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/tabify.el
View File

@ -57,7 +57,11 @@ The variable `tab-width' controls the spacing of tab stops."
(interactive "r")
(save-excursion
(save-restriction
(narrow-to-region start end)
;; Include the beginning of the line in the narrowing
;; since otherwise it will throw off current-column.
(goto-char start)
(beginning-of-line)
(narrow-to-region (point) end)
(goto-char start)
(while (re-search-forward "[ \t][ \t][ \t]*" nil t)
(let ((column (current-column))