1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / share / emacs / 24.3 / lisp /
Filename : delim-col.elc
back
;ELC���
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:13 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/delim-col.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.

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


(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316\317\310\301&\210\312\320\321\322\316\323\310\301&\210\312\324\314\325\316\326\310\301&\210\312\327\314\330\316\331\310\301&\210\312\332\314\333\316\334\310\301&\210\312\335\336\337\316\340\310\301&\210\312\341\342\343\316\344\310\301&\210\312\345\342\346\316\347\310\301&\210\312\350\351\352\316\353\310\301&\210\312\354\355\356\316\357\310\301&\207" [custom-declare-group columns nil "Prettify columns." :link (emacs-library-link :tag "Source Lisp File" "delim-col.el") :prefix "delimit-columns-" :group wp custom-declare-variable delimit-columns-str-before "" "Specify a string to be inserted before all columns." :type (string :tag "Before All Columns") delimit-columns-str-separator ", " "Specify a string to be inserted between each column." (string :tag "Between Each Column") delimit-columns-str-after "Specify a string to be inserted after all columns." (string :tag "After All Columns") delimit-columns-before "Specify a string to be inserted before each column." (string :tag "Before Each Column") delimit-columns-after "Specify a string to be inserted after each column." (string :tag "After Each Column") delimit-columns-separator "	" "Specify a regexp which separates each column." (regexp :tag "Column Separator") delimit-columns-format t "Specify how to format columns.\n\nFor examples below, consider:\n\n   + columns `ccc' and `dddd',\n   + the maximum column length for each column is 6,\n   + and the following settings:\n      (setq delimit-columns-before \"<\")\n      (setq delimit-columns-after \">\")\n      (setq delimit-columns-separator \":\")\n\nValid values are:\n\n   nil		no formatting.  That is, `delimit-columns-after' is followed by\n		`delimit-columns-separator'.\n		For example, the result is: \"<ccc>:<dddd>:\"\n\n   t		align columns.  That is, `delimit-columns-after' is followed by\n		`delimit-columns-separator' and then followed by spaces.\n		For example, the result is: \"<ccc>:   <dddd>:  \"\n\n   'separator	align separators.  That is, `delimit-columns-after' is followed\n		by spaces and then followed by `delimit-columns-separator'.\n		For example, the result is: \"<ccc>   :<dddd>  :\"\n\n   'padding	format column by filling with spaces before\n		`delimit-columns-after'.  That is, spaces are followed by\n		`delimit-columns-after' and then followed by\n		`delimit-columns-separator'.\n		For example, the result is: \"<ccc   >:<dddd  >:\"\n\nAny other value is treated as t." (choice :menu-tag "Column Formatting" :tag "Column Formatting" (const :tag "No Formatting" nil) (const :tag "Column Alignment" t) (const :tag "Separator Alignment" separator) (const :tag "Column Padding" padding)) delimit-columns-extra "Non-nil means that lines will have the same number of columns.\n\nThis has effect only when there are lines with different number of columns." (boolean :tag "Lines With Same Number Of Column") delimit-columns-start 0 "Specify column number to start prettifying.\n\nSee also `delimit-columns-end' for documentation.\n\nThe following relation must hold:\n   0 <= delimit-columns-start <= delimit-columns-end\n\nThe column number start from 0 and it's relative to the beginning of selected\nregion.  So if you selected a text region, the first column (column 0) is\nlocated at beginning of line.  If you selected a text rectangle, the first\ncolumn (column 0) is located at left corner." (integer :tag "Column Start") delimit-columns-end 1000000 "Specify column number to end prettifying.\n\nSee also `delimit-columns-start' for documentation.\n\nThe following relation must hold:\n   0 <= delimit-columns-start <= delimit-columns-end\n\nThe column number start from 0 and it's relative to the beginning of selected\nregion.  So if you selected a text region, the first column (column 0) is\nlocated at beginning of line.  If you selected a text rectangle, the first\ncolumn (column 0) is located at left corner." (integer :tag "Column End")] 10)
(defvar delimit-columns-max nil)
(defvar delimit-columns-limit nil)
#@35 Customization of `columns' group.
(defalias 'delimit-columns-customize #[nil "\300\301!\207" [customize-group columns] 2 (#$ . 4614) nil])
(defalias 'delimit-columns-str '(macro . #[(str) "\301\302D\303BBB\207" [str if stringp ("")] 4]))
#@81 Prettify all columns in a text region.

START and END delimits the text region.
(defalias 'delimit-columns-region #[(start end) ";\203	�\202\n�\306	;\203�	\202�\306\n;\203�\n\202�\306;\203'�\202(�\306\f;\2031�\f\2022�\306
\250\203A�
\307Y\203A�
\202B�\307\250\203M�\202N�\310\311 \312!\313
X\205\255�\212b\210\314 \210\203\215�\212`W\203\214�\315`\313\210!\210\316u\210\202x�)`W\203\241�\317`\313\210!\210\316u\210\202\215�\313\211\223\210\313\211\223).\n\207" [delimit-columns-str-before delimit-columns-str-separator delimit-columns-str-after delimit-columns-before delimit-columns-after delimit-columns-start "" 0 1000000 make-marker copy-marker nil beginning-of-line delimit-columns-rectangle-max 1 delimit-columns-rectangle-line delimit-columns-end end delimit-columns-max the-end delimit-columns-limit start delimit-columns-format] 10 (#$ . 4860) "*r"])
(require 'rect)
#@98 Prettify all columns in a text rectangle.

START and END delimits the corners of text rectangle.
(defalias 'delimit-columns-rectangle #[(start end) ";\203	�\202\n�\306	;\203�	\202�\306\n;\203�\n\202�\306;\203'�\202(�\306\f;\2031�\f\2022�\306
\250\203A�
\307Y\203A�
\202B�\307\250\203M�\202N�\310\311 \312!\313
X\205\220�\203z�\212\314\315\313$\210)\212\314\316\313$\210)\313\211\223\210\313\211\223.\n\207" [delimit-columns-str-before delimit-columns-str-separator delimit-columns-str-after delimit-columns-before delimit-columns-after delimit-columns-start "" 0 1000000 make-marker copy-marker nil operate-on-rectangle delimit-columns-rectangle-max delimit-columns-rectangle-line delimit-columns-end end delimit-columns-max the-end delimit-columns-limit delimit-columns-format start] 10 (#$ . 5786) "*r"])
(defalias 'delimit-columns-rectangle-max #[(startpos &optional _ignore1 _ignore2) "`\306\223\210	b\210\307\306\211i\310
\311#\203*�\212\312\224b\210iZ\nB)\fT\202�iZ\nB\fG
\f
V\203a�\313\f\312\"
\312V\203\\�
S

\f
HI\210\202B�\f))\n\205}�\fS\f\f\f\fH\n@]I\210\nA\211\204f�\306+\207" [delimit-columns-limit startpos values origin ncol delimit-columns-separator nil 1 re-search-forward move 0 make-vector delimit-columns-max index extend] 5])
(defalias 'delimit-columns-rectangle-line #[(startpos &optional _ignore1 _ignore2) "G\306\307\f`\307\223\210
b\210\nW\203,�`\fW\203,�\310\f\311#\203,�\nT\211\202�\261\210i`\fW\203o�\310\f\311#\203o�\nW\204R�\306\224b\210\202o�\306\224`|\210\312\n\205g�\313\nHi	ZZ\314\"!\210\nT\2023�\n\205~�\313\nHi	ZZ\314\"\203\252�\nT\211W\203\252�\nX\203\252�\312!\210\n\205\245�\313\nH\314\"\202\205�\n\204\271�\261\210\202\325�\n\315=\203\314�\261\210\202\325�\261\210)`\f]b+\207" [delimit-columns-max origin ncol len delimit-columns-limit startpos 0 nil re-search-forward move delimit-columns-format make-string 32 padding delimit-columns-start delimit-columns-separator delimit-columns-str-before delimit-columns-before delimit-columns-end spaces delimit-columns-extra delimit-columns-after delimit-columns-str-after] 6])
(defalias 'delimit-columns-format #[(spaces) "\204\n�	\n\261\207\305=\203�	\f\n\261\207\306=\203$�\f	\n\261\207	\n\f\261\207" [delimit-columns-format delimit-columns-after delimit-columns-str-separator delimit-columns-before spaces separator padding] 4])
(provide 'delim-col)