;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:52:00 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/tabify.el ;;; emacs version 19.28.90.26. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/tabify.el' was compiled for Emacs 19")) #@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) "ŠŒe}ˆ bˆÂÃÄÅ#…+`iÄà xˆ`|ˆjˆ+‚ *‡" [end start search-forward " " nil t indent-tabs-mode column tab-beg] 4 (#$ . 482) "r"]) #@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) "ŠŒbˆÁyˆ`\n}ˆbˆÃÄÅÆ#…*iÆÁ”`|ˆjˆ*‚*‡" [start 0 end re-search-forward "[ ][ ][ ]*" nil t indent-tabs-mode column] 4 (#$ . 911) "r"]) (provide (quote tabify))