;ELC   
;;; compiled by jwz@thalidomide on Thu Mar 24 13:26:24 1994
;;; from file /th/jwz/emacs19/lisp/prim/tabify.el
;;; emacs version 19.10 Lucid (beta9).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 "This file was compiled for Emacs 19."))

(fset '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"])
(fset 'tabify #[(start end) "ŠŒ	}ˆbˆÂÃÄÅ#­’iÅÈ”`|ˆjˆ*ªg*‡" [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 'tabify)