;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:11 2007 ;;; from file /home/cyd/emacs/lisp/tabify.el ;;; in Emacs version 22.0.99 ;;; 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 (#$ . 560) "r"]) #@198 Regexp matching whitespace that tabify should consider. Usually this will be " [ \t]+" to match a space followed by whitespace. "^\t* [ \t]+" is also useful, for tabifying only initial whitespace. (defvar tabify-regexp " [ ]+" (#$ . 1054)) #@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\306 \210` }\210b\210\307\310 \311\307#\205?i\212\312\224b\210\313\311w\210i)\211\f\245\f\f\245U\204;\312\224`|\210 j\210*\202+\207" [start end indent-tabs-mode tabify-regexp beg-col end-col beginning-of-line t re-search-forward nil 0 " " tab-width] 5 (#$ . 1302) "r"]) (provide 'tabify)