;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:05:51 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/tabify.el ;;; emacs version 19.15.16. ;;; 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 "This file was compiled for Emacs 19")) (defalias 'untabify #[(start end) "ŠŒe}ˆ bˆÂÃÄÅ#…)`iÄÃÄxˆ `|ˆjˆ+‚ *‡" [end start search-forward " " nil t indent-tabs-mode column] 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"])