;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:10 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/tabify.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`tabify.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@253 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. (defalias 'untabify #[(start end) "\212\214e}\210 b\210\305\306\307\310#\205+\311u\210`\307\211\306\307w\210i\f`|\210\nj\210+\202 *\207" [end start column indent-tabs-mode tab-beg search-forward " " nil t -1] 4 (#$ . 615) "r"]) #@194 Regexp matching whitespace that tabify should consider. Usually this will be "[ \t][ \t]+" to match two or more spaces or tabs. "^[ \t]+" is also useful, for tabifying only initial whitespace. (defvar tabify-regexp "[ ][ ]+" (#$ . 1109)) #@354 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. (defalias 'tabify #[(start end) "\212\214b\210\305 \210` }\210b\210\306\n\307\310#\205'i\310\311\224`|\210\fj\210*\202*\207" [start end tabify-regexp indent-tabs-mode column beginning-of-line re-search-forward nil t 0] 4 (#$ . 1356) "r"]) (provide 'tabify)