Current File : //usr/local/share/emacs/27.2/lisp/tabify.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@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 (#$ . 409) (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 " [ ]+" (#$ . 1105))
#@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 (#$ . 1353) (byte-code "\203 edE\207\301 \302 \303E\207" [current-prefix-arg region-beginning region-end nil] 3)])
(provide 'tabify)
Mini Shell