From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Apr 1995 17:04:57 +0000 (+0000)
Subject: (tabify): Include entire first line in narrowing.
X-Git-Tag: emacs-19.34~4437
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7be313ea3b46a5877b0f2b2ee6639f1c3d660fef;p=emacs.git

(tabify): Include entire first line in narrowing.
---

diff --git a/lisp/tabify.el b/lisp/tabify.el
index aab939550c2..62d50aa0331 100644
--- a/lisp/tabify.el
+++ b/lisp/tabify.el
@@ -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))