| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/tabify.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:31 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/tabify.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@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) "i\212\214e }\210\nb\210\306\307\310\311#\203- \312u\210`\310\211 \307\310w\210i `|\210 j\210+\202 *\313!)\207" [c end start column indent-tabs-mode tab-beg search-forward " " nil t -1 move-to-column] 4 (#$ . 550) "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 " [ ]+" (#$ . 1069)) #@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 (#$ . 1317) "r"]) (provide 'tabify)