;;; compiled by roland@geech.gnu.ai.mit.edu on Wed Apr 7 14:29:22 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/tabify.el ;;; emacs version 19.0.509. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (fset 'untabify #[(start end) "ŠŒÀe \"ˆ\nbˆÃÄÅÆ#…+`iÅÉÄ!ˆÊ\n`\"ˆjˆ+‚\n*‡" [narrow-to-region end start search-forward " " nil t indent-tabs-mode column skip-chars-backward delete-region] 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) "ŠŒÀ \n\"ˆ bˆÃÄÅÆ#…'iÆÉÊË!`\"ˆjˆ*‚\n*‡" [narrow-to-region start end re-search-forward "[ ][ ][ ]*" nil t indent-tabs-mode column delete-region match-beginning 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"])