;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May  3 21:54:20 1994
;;; from file /gd/gnu/emacs/19.0/lisp/tabify.el
;;; emacs version 19.22.92.2.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/tabify.el' was compiled for Emacs 19"))

(defalias 'untabify #[(start end) "ŠŒe}ˆ	bˆÂÃÄÅ#…+ `iÄÃ	xˆ`|ˆjˆ+‚	 *‡" [end start search-forward "	" nil t indent-tabs-mode column tab-beg] 4 "\
Convert all tabs in region to multiple spaces, preserving columns.
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." "r"])
(defalias 'tabify #[(start end) "ŠŒ	}ˆbˆÂÃÄÅ#…$ iÅÈ”`|ˆjˆ*‚	 *‡" [start end re-search-forward "[ 	][ 	][ 	]*" nil t indent-tabs-mode column 0] 4 "\
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.
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." "r"])
(provide (quote tabify))