| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. #@356 Convert all tabs in region to multiple spaces, preserving columns. If called interactively with prefix ARG, convert for the entire buffer. 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. (fn START END &optional ARG) (defalias 'untabify #[770 "i\212\214e}\210b\210\301\302\303\304#\203. \305u\210`\303\211\302\303w\210i\262`|\210\211j\210)\266\202\n *\306!\207" [indent-tabs-mode search-forward " " nil t -1 move-to-column] 9 (#$ . 85) (byte-code "\203 edE\207\301 \302 \303E\207" [current-prefix-arg region-beginning region-end nil] 3)]) #@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 " [ ]+" (#$ . 780)) #@457 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. If called interactively with prefix ARG, convert for the entire buffer. 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. (fn START END &optional ARG) (defalias 'tabify #[770 "\212\214b\210\303 \210`}\210b\210\304\305 \306\304#\205< i\212\307\224b\210\310\306w\210i)\n\245\n\245U\2047 \307\224`|\210j\210\266\202 +\207" [indent-tabs-mode tabify-regexp tab-width beginning-of-line t re-search-forward nil 0 " "] 8 (#$ . 1027) (byte-code "\203 edE\207\301 \302 \303E\207" [current-prefix-arg region-beginning region-end nil] 3)]) (provide 'tabify)