| 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/delim-col.elc |
;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\211 i\310
\311#\203* \212\312\224b\210i Z\nB)\fT\202 i Z\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\211 W\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)