# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797792697 0
# Node ID c53961dfba506c1f0bb843f76e81b6a6ce042e68
# Parent  8ab99c3646a7394dd67aece0293a2b7afa060853
(tabify): Include entire first line in narrowing.

diff -r 8ab99c3646a7 -r c53961dfba50 lisp/tabify.el
--- a/lisp/tabify.el	Thu Apr 13 16:56:05 1995 +0000
+++ b/lisp/tabify.el	Thu Apr 13 17:04:57 1995 +0000
@@ -57,7 +57,11 @@
   (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))