HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/tabify.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@326 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.
(defalias 'untabify #[(start end &optional _arg) "i\212\214e	}\210\nb\210\306\307\310\311#\203-\312u\210`\310\211\307\310w\210i
`|\210j\210+\202*\313!)\207" [c end start column indent-tabs-mode tab-beg search-forward "	" nil t -1 move-to-column] 4 (#$ . 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 " [ 	]+" (#$ . 1116))
#@427 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.
(defalias 'tabify #[(start end &optional _arg) "\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 (#$ . 1364) (byte-code "\203	edE\207\301 \302 \303E\207" [current-prefix-arg region-beginning region-end nil] 3)])
(provide 'tabify)