(comint-filter): Put window-start before the input.

[bpt/emacs.git] / lisp / tabify.el

diff --git a/lisp/tabify.el b/lisp/tabify.el
index 2d660c8..266dd39 100644 (file)
--- a/lisp/tabify.el
+++ b/lisp/tabify.el
@@ -1,11 +1,14 @@
-;; Tab conversion commands for Emacs
+;;; tabify.el --- tab conversion commands for Emacs
+

 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 

+;; Maintainer: FSF
+

 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)

 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,


@@ -17,14 +20,23 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 

+;;; Commentary:
+
+;; Commands to optimize spaces to tabs or expand tabs to spaces in a region
+;; (`tabify' and `untabify').  The variable tab-width does the obvious.

 
 

+;;; Code:
+
+;;;###autoload

 (defun untabify (start end)
   "Convert all tabs in region to multiple spaces, preserving columns.
 (defun untabify (start end)
   "Convert all tabs in region to multiple spaces, preserving columns.

-The variable tab-width controls the action."
+Called non-interactively, the region is specified by arguments
+START and END, rather than by the position of point and mark.
+The variable `tab-width' controls the spacing of tab stops."

   (interactive "r")
   (save-excursion
     (save-restriction
   (interactive "r")
   (save-excursion
     (save-restriction

-      (narrow-to-region start end)
+      (narrow-to-region (point-min) end)

       (goto-char start)
       (while (search-forward "\t" nil t)       ; faster than re-search
        (let ((start (point))
       (goto-char start)
       (while (search-forward "\t" nil t)       ; faster than re-search
        (let ((start (point))


@@ -34,11 +46,14 @@ The variable tab-width controls the action."
          (delete-region start (point))
          (indent-to column))))))
 
          (delete-region start (point))
          (indent-to column))))))
 

+;;;###autoload

 (defun tabify (start end)
   "Convert multiple spaces in region to tabs when possible.
 A group of spaces is partially replaced by tabs
 when this can be done without changing the column they end at.
 (defun tabify (start end)
   "Convert multiple spaces in region to tabs when possible.
 A group of spaces is partially replaced by tabs
 when this can be done without changing the column they end at.

-The variable tab-width controls the action."
+Called non-interactively, the region is specified by arguments
+START and END, rather than by the position of point and mark.
+The variable `tab-width' controls the spacing of tab stops."

   (interactive "r")
   (save-excursion
     (save-restriction
   (interactive "r")
   (save-excursion
     (save-restriction


@@ -49,3 +64,5 @@ The variable tab-width controls the action."
              (indent-tabs-mode t))
          (delete-region (match-beginning 0) (point))
          (indent-to column))))))
              (indent-tabs-mode t))
          (delete-region (match-beginning 0) (point))
          (indent-to column))))))

+
+;;; tabify.el ends here