Gecko [ 122.154.134.11 ]

Name	Size	Permission
org-agenda.elc	214.7 KB	-rw-r--r--
org-archive.elc	11.75 KB	-rw-r--r--
org-attach.elc	14.21 KB	-rw-r--r--
org-bbdb.elc	7.37 KB	-rw-r--r--
org-bibtex.elc	4.13 KB	-rw-r--r--
org-clock.elc	35.05 KB	-rw-r--r--
org-colview.elc	41.45 KB	-rw-r--r--
org-compat.elc	7.48 KB	-rw-r--r--
org-exp.elc	149.66 KB	-rw-r--r--
org-export-latex.elc	44.23 KB	-rw-r--r--
org-faces.elc	20.18 KB	-rw-r--r--
org-footnote.elc	13.77 KB	-rw-r--r--
org-gnus.elc	5.74 KB	-rw-r--r--
org-id.elc	16.92 KB	-rw-r--r--
org-info.elc	1.68 KB	-rw-r--r--
org-install.elc	635 B	-rw-r--r--
org-irc.elc	5.89 KB	-rw-r--r--
org-jsinfo.elc	5.39 KB	-rw-r--r--
org-list.elc	32.5 KB	-rw-r--r--
org-mac-message.elc	2.27 KB	-rw-r--r--
org-macs.elc	7.83 KB	-rw-r--r--
org-mew.elc	2.92 KB	-rw-r--r--
org-mhe.elc	5.16 KB	-rw-r--r--
org-mouse.elc	32.83 KB	-rw-r--r--
org-plot.elc	10.28 KB	-rw-r--r--
org-publish.elc	20.43 KB	-rw-r--r--
org-remember.elc	31.7 KB	-rw-r--r--
org-rmail.elc	2.82 KB	-rw-r--r--
org-table.elc	136.62 KB	-rw-r--r--
org-timer.elc	7.61 KB	-rw-r--r--
org-vm.elc	2.91 KB	-rw-r--r--
org-w3m.elc	3.88 KB	-rw-r--r--
org-wl.elc	2.82 KB	-rw-r--r--
org.elc	505.8 KB	-rw-r--r--

Code Editor : org-table.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:04:52 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/org/org-table.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`org-table.el' was compiled for Emacs 19.29 or later"))

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

(require 'org)
#@595 Non-nil means, use the optimized table editor version for `orgtbl-mode'.
In the optimized version, the table editor takes over all simple keys that
normally just insert a character.  In tables, the characters are inserted
in a way to minimize disturbing the table structure (i.e. in overwrite mode
for empty fields).  Outside tables, the correct binding of the keys is
restored.

The default for this option is t if the optimized version is also used in
Org-mode.  See the variable `org-enable-table-editor' for details.  Changing
this variable requires a restart of Emacs to become effective.
(custom-declare-variable 'orgtbl-optimized '(eq org-enable-table-editor 'optimized) '(#$ . 629) :group 'org-table :type 'boolean)
#@167 Templates for radio tables in different major modes.
All occurrences of %n in a template will be replaced with the name of the
table, obtained by prompting the user.
(custom-declare-variable 'orgtbl-radio-table-templates ''((latex-mode "% BEGIN RECEIVE ORGTBL %n\n% END RECEIVE ORGTBL %n\n\\begin{comment}\n#+ORGTBL: SEND %n orgtbl-to-latex :splice nil :skip 0\n| | |\n\\end{comment}\n") (texinfo-mode "@c BEGIN RECEIVE ORGTBL %n\n@c END RECEIVE ORGTBL %n\n@ignore\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n@end ignore\n") (html-mode "\n\n\n")) '(#$ . 1360) :group 'org-table :type '(repeat (list (symbol :tag "Major mode") (string :tag "Format"))))
(custom-declare-group 'org-table-settings nil "Settings for tables in Org-mode." :tag "Org Table Settings" :group 'org-table)
#@60 The default size for newly created tables, Columns x Rows.
(custom-declare-variable 'org-table-default-size '"5x2" '(#$ . 2294) :group 'org-table-settings :type 'string)
#@530 Regular expression for recognizing numbers in table columns.
If a table column contains mostly numbers, it will be aligned to the
right.  If not, it will be aligned to the left.

The default value of this option is a regular expression which allows
anything which looks remotely like a number as used in scientific
context.  For example, all of the following will be considered a
number:
    12    12.2    2.4e-08    2x10^12    4.034+-0.02    2.7(10)  >3.5

Other options offered by the customize interface are more restrictive.
(custom-declare-variable 'org-table-number-regexp '"^\$[<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|\\(0[xX]\$[0-9a-fA-F]+\\|nan\\)$" '(#$ . 2471) :group 'org-table-settings :type '(choice (const :tag "Positive Integers" "^[0-9]+$") (const :tag "Integers" "^[-+]?[0-9]+$") (const :tag "Floating Point Numbers" "^[-+]?\$[0-9]*\\.[0-9]+\\|[0-9]+\\.[0-9]*\$$") (const :tag "Floating Point Number or Integer" "^[-+]?\$[0-9]*\\.[0-9]+\\|[0-9]+\\.?[0-9]*\$$") (const :tag "Exponential, Floating point, Integer" "^[-+]?[0-9.]+\$[eEdD][-+0-9]+\$?$") (const :tag "Very General Number-Like, including hex" "^\$[<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|\\(0[xX]\$[0-9a-fA-F]+\\|nan\\)$") (string :tag "Regexp:")))
#@242 Fraction of numbers in a column required to make the column align right.
In a column all non-white fields are considered.  If at least this
fraction of fields is matched by `org-table-number-fraction',
alignment to the right border applies.
(custom-declare-variable 'org-table-number-fraction '0.5 '(#$ . 3716) :group 'org-table-settings :type 'number)
(custom-declare-group 'org-table-editing nil "Behavior of tables during editing in Org-mode." :tag "Org Table Editing" :group 'org-table)
#@166 Non-nil means, automatically re-align table when pressing TAB or RETURN.
When nil, aligning is only done with \[org-table-align], or after column
removal/insertion.
(custom-declare-variable 'org-table-automatic-realign 't '(#$ . 4214) :group 'org-table-editing :type 'boolean)
#@241 Non-nil means, automatically blank table field when starting to type into it.
This only happens when typing immediately after a field motion
command (TAB, S-TAB or RET).
Only relevant when `org-enable-table-editor' is equal to `optimized'.
(custom-declare-variable 'org-table-auto-blank-field 't '(#$ . 4498) :group 'org-table-editing :type 'boolean)
#@299 Non-nil means, tab in the last column of a table with jump over a hline.
If a horizontal separator line is following the current line,
`org-table-next-field' can either create a new row before that line, or jump
over the line.  When this option is nil, a new line will be created before
this line.
(custom-declare-variable 'org-table-tab-jumps-over-hlines 't '(#$ . 4856) :group 'org-table-editing :type 'boolean)
(custom-declare-group 'org-table-calculation nil "Options concerning tables in Org-mode." :tag "Org Table Calculation" :group 'org-table)
#@213 Should org-mode work with table references like B3 instead of @3$2?
Possible values are:
nil     never use them
from    accept as input, do not present for editing
t:      accept as input and present for editing
(custom-declare-variable 'org-table-use-standard-references 't '(#$ . 5415) :group 'org-table-calculation :type '(choice (const :tag "Never, don't even check user input for them" nil) (const :tag "Always, both as user input, and when editing" t) (const :tag "Convert user input, don't offer during editing" 'from)))
#@82 Non-nil means, increment when copying current field with \[org-table-copy-down].
(custom-declare-variable 'org-table-copy-increment 't '(#$ . 5949) :group 'org-table-calculation :type 'boolean)
#@275 List with Calc mode settings for use in calc-eval for table formulas.
The list must contain alternating symbols (Calc modes variables and values).
Don't remove any of the default settings, just change the values.  Org-mode
relies on the variables to be present in the list.
(custom-declare-variable 'org-calc-default-modes ''(calc-internal-prec 12 calc-float-format (float 8) calc-angle-mode deg calc-prefer-frac nil calc-symbolic-mode nil calc-date-format (YYYY "-" MM "-" DD " " Www (" " hh ":" mm)) calc-display-working-message t) '(#$ . 6150) :group 'org-table-calculation :type 'plist)
#@434 Non-nil means, TAB and RET evaluate a formula in current table field.
If the current field starts with an equal sign, it is assumed to be a formula
which should be evaluated as described in the manual and in the documentation
string of the command `org-table-eval-formula'.  This feature requires the
Emacs calc package.
When this variable is nil, formula calculation is only available through
the command \[org-table-eval-formula].
(custom-declare-variable 'org-table-formula-evaluate-inline 't '(#$ . 6748) :group 'org-table-calculation :type 'boolean)
#@245 Non-nil means, interpret constants in formulas in tables.
A constant looks like `$c' or `$Grav' and will be replaced before evaluation
by the value given in `org-table-formula-constants', or by a value obtained
from the `constants.el' package.
(custom-declare-variable 'org-table-formula-use-constants 't '(#$ . 7310) :group 'org-table-calculation :type 'boolean)
#@487 Alist with constant names and values, for use in table formulas.
The car of each element is a name of a constant, without the `$' before it.
The cdr is the value as a string.  For example, if you'd like to use the
speed of light in a formula, you would configure

(setq org-table-formula-constants '(("c" . "299792458.")))

and then use it in an equation like `$1*$c'.

Constants can also be defined on a per-file basis using a line like

#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6
(custom-declare-variable 'org-table-formula-constants 'nil '(#$ . 7681) :group 'org-table-calculation :type '(repeat (cons (string :tag "name") (string :tag "value"))))
#@152 Non-nil means, lines marked with |#| or |*| will be recomputed automatically.
Automatically means, when TAB or RET or C-c C-c are pressed in the line.
(custom-declare-variable 'org-table-allow-automatic-line-recalculation 't '(#$ . 8343) :group 'org-table-calculation :type 'boolean)
#@269 Non-nil means, a relative row reference that tries to cross a hline errors.
When nil, the reference will silently be to the field just next to the hline.
Coming from below, it will be the field below the hline, coming from
above, it will be the field above the hline.
(custom-declare-variable 'org-table-error-on-row-ref-crossing-hline 't '(#$ . 8634) :group 'org-table :type 'boolean)
(custom-declare-group 'org-table-import-export nil "Options concerning table import and export in Org-mode." :tag "Org Table Import Export" :group 'org-table)
#@256 Default export parameters for org-table-export. These can be
overridden on for a specific table by setting the TABLE_EXPORT_FORMAT
property.  See the manual section on orgtbl radio tables for the different
export transformations and available parameters.
(custom-declare-variable 'org-table-export-default-format '"orgtbl-to-tsv" '(#$ . 9186) :group 'org-table-import-export :type 'string)
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-auto-recalculate-regexp "^[ 	]*| *# *\$|\\|$\$" (#$ . 9582))
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-recalculate-regexp "^[ 	]*| *[#*] *\$|\\|$\$" (#$ . 9728))
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-calculate-mark-regexp "^[ 	]*| *[!$^_#*] *\$|\\|$\$" (#$ . 9872))
#@87 Searching from within a table (any type) this finds the first line
outside the table.
(defconst org-table-border-regexp "^[ 	]*[^| 	]" (#$ . 10023))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list org-table-last-highlighted-reference default-boundp set-default nil org-table-formula-history] 3)
#@53 Alist with column names, derived from the `!' line.
(defvar org-table-column-names nil (#$ . 10397))
#@55 Regular expression matching the current column names.
(defvar org-table-column-name-regexp nil (#$ . 10504))
#@56 Alist with parameter names, derived from the `$' line.
(defvar org-table-local-parameters nil (#$ . 10619))
#@39 Alist with locations of named fields.
(defvar org-table-named-field-locations nil (#$ . 10733))
#@61 Table row types, non-nil only for the duration of a comand.
(defvar org-table-current-line-types nil (#$ . 10835))
#@62 Table begin line, non-nil only for the duration of a comand.
(defvar org-table-current-begin-line nil (#$ . 10956))
#@66 Table begin position, non-nil only for the duration of a comand.
(defvar org-table-current-begin-pos nil (#$ . 11078))
#@56 Vector of data line line numbers in the current table.
(defvar org-table-dlines nil (#$ . 11203))
#@52 Vector of hline line numbers in the current table.
(defvar org-table-hlines nil (#$ . 11307))
#@53 Regular expression for matching ranges in formulas.
(defconst org-table-range-regexp "@\$[-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[0-9]+\$?\$\\.\\.@?\\([-+]?I*[-+]?[0-9]*\$?\$\\$[-+]?[0-9]+\$?\\)?" (#$ . 11407))
#@38 Match a range for reference display.
(defconst org-table-range-regexp2 "\$@[-0-9I$&]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\$\\|\\$[a-zA-Z0-9]+\\)\\.\\.\$@?[-0-9I$&]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\$\\|\\$[a-zA-Z0-9]+\\)" (#$ . 11623))
#@66 Match a reference that needs translation, for reference display.
(defconst org-table-translate-regexp "\$@[-0-9I$]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\$\\)" (#$ . 11866))
#@140 Use the table.el package to insert a new table.
If there is already a table at point, convert between Org-mode tables
and table.el tables.
(defalias 'org-table-create-with-table\.el #[nil "\300\301!\210\302 \203�\303\304!\205#�\305 \207\306 \203 �\303\307!\205#�\305 \207\310\311!\207" [require table org-at-table\.el-p y-or-n-p "Convert table to Org-mode table? " org-table-convert org-at-table-p "Convert table to table.el table? " call-interactively table-insert] 2 (#$ . 12044) nil])
#@349 Convert region to table, or create an empty table.
If there is an active region, convert it to a table, using the function
`org-table-convert-region'.  See the documentation of that function
to learn how the prefix argument is interpreted to determine the field
separator.
If there is no such region, create an empty table with `org-table-create'.
(defalias 'org-table-create-or-convert-from-region #[(arg) "\301 \203
�\302\303 \304 #\207\305!\207" [arg org-region-active-p org-table-convert-region region-beginning region-end org-table-create] 4 (#$ . 12540) "P"])
#@103 Query for a size and insert a table skeleton.
SIZE is a string Columns x Rows like for example "3x2".
(defalias 'org-table-create #[(&optional size) "\204�\306\307	\310Q\311\312	$`\313i\314\"\315\316\"\317\fA@!\317\f@! \320\321\322\323 \324\"$\325P!\326\327\330\331 `\"\"\203F�\332\333!\210\202I�\334 \210
\335\"#\"#W\203d�!c\210\"T\211\"\202Q�*\nb\210
\333V\203w�\333\210\336c\210\nb\210\337 .\207" [size org-table-default-size pos indent split rows read-string "Table size Columns x Rows [e.g. " "]: " "" nil make-string 32 org-split-string " *x *" string-to-number apply concat "|" make-list "  |" "\n" string-match "^[ 	]*$" buffer-substring-no-properties point-at-bol beginning-of-line 1 newline 0 "\n|-" org-table-align columns line i #1=#:--cl-dotimes-temp--] 7 (#$ . 13115) "P"])
#@718 Convert region to a table.
The region goes from BEG0 to END0, but these borders will be moved
slightly, to make sure a beginning of line in the first line is included.

SEPARATOR specifies the field separator in the lines.  It can have the
following values:

'(4)     Use the comma as a field separator
'(16)    Use a TAB as field separator
integer  When a number, use that many spaces as field separator
nil      When nil, the command tries to be smart and figure out the
         separator in the following way:
         - when each line contains a TAB, assume TAB-separated material
         - when each line contains a comma, assume CSV material
         - else, assume one or more SPACE characters as separator.
(defalias 'org-table-convert-region #[(beg0 end0 &optional separator) "	^	]\306\nb\210\307\310!\210\311 `\306\223b\210n\203$�\312u\210\202'�\310\210\311 `\306\223
\204N�\nb\210\313\314\315#\204@�\316\202M�\313\317\315#\204L�\320\202M�\310
\321\232\203X�\322\202q�
\323\232\203b�\324\202q�
\250\203n�\325\326
\"\202q�\327\330!\nb\210\313\f\315#\203\206�\331\332\315\211#\210\202u�\nb\210\333c\210\334 +\207" [beg0 end0 beg end re separator nil beginning-of-line 1 make-marker -1 re-search-forward "^[^\n	]+$" t (16) "^[^\n,]+$" (4) (4) "^\\|\"?[ 	]*,[ 	]*\"?" (16) "^\\|	" format "^ *\\| *	 *\\| \\{%d,\\}" error "This should not happen" replace-match "| " " " org-table-align] 4 (#$ . 13931) "rP"])
#@235 Import FILE as a table.
The file is assumed to be tab-separated.  Such files can be produced by most
spreadsheet and database applications.  If no tabs (at least one per line)
are found, lines will be split on whitespace into fields.
(defalias 'org-table-import #[(file arg) "n\204�\304 \210`d\305\n!\210\306	`dZ\\#*\207" [pm beg file arg newline insert-file-contents org-table-convert-region] 5 (#$ . 15368) "f\nP"])
#@659 Export table to a file, with configurable format.
Such a file can be imported into a spreadsheet program like Excel.
FILE can be the output file name.  If not given, it will be taken from
a TABLE_EXPORT_FILE property in the current entry or higher up in the
hierarchy, or the user will be prompted for a file name.
FORMAT can be an export format, of the same kind as it used when
orgtbl-mode sends a table in a different format.  The default format can
be found in the variable `org-table-export-default-format', but the function
first checks if there is an export format specified in a TABLE_EXPORT_FORMAT
property, locally or anywhere up in the hierarchy.
(defalias 'org-table-export #[(&optional file format) "\306 \204	�\307\310!\210\311\312!\210\313 \210\314 \315 \316	\"\206#�\317\320\321\217\f\206,�\317\322\323\217\317\211@\204M�\324\325!\326!\203M�\327\304\330\"!\204M�\307\331!\210\332!\203W�\307\333!\210\334!\334\335 !\232\203f�\307\336!\210\f\204\237�A@\337\340@\"\203\202�\341\342\343\211@$@\202n�\337\344@\"\203\226�\341\345\343\211@$@\202\202�\346\347\350\317\211@%\337\351\f\"\203^\352\353\354\f\"!B\355\225\205\274�\356\357\353\355\f\"\360Q!C\361C\362\"D\361C\363\"ED\206\322�\364\365\n\366\"\233F\367F!FG\203\350�\355\202\351�\354H\370\371F\"IH\355U\203\375�\372\202\376�\373J\374JK!EH#K\374JL!EH#L\375B!\204'\307\376B\"\210BIC\"r\377!q\210p\201M� \210\201N� \210\n\344\261\210\201O� \210)\201P�
!\210\201Q�\201R�!.\202c\307\201S�!.\207" [beg end txt file format buf org-at-table-p error "No table at point" require org-exp org-table-align org-table-begin org-table-end buffer-substring-no-properties nil (org-entry-get beg "TABLE_EXPORT_FILE" t) ((error)) (org-entry-get beg "TABLE_EXPORT_FORMAT" t) ((error)) read-file-name "Export table to: " file-exists-p y-or-n-p "Overwrite file %s? " "Abort" file-directory-p "This is a directory path, not a file" file-truename buffer-file-name "Please specify a file name that is different from current" string-match "	" replace-match "\\t" t "\n" "\\n" org-completing-read "Format: " ("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex" "orgtbl-to-html" "orgtbl-to-generic" "orgtbl-to-texinfo" "orgtbl-to-orgtbl") "\$[^ 	
\n]+\$\$ +.*\$?" intern match-string 1 2 read "(" ")" plist-get :skip :skipcols 0 org-split-string "[ 	]*\n[ 	]*" org-table-clean-before-export mapcar #[(x) "\304	\"\203	�\305\207\306\307\310	!\311\"\n#\207" [org-table-hline-regexp x skipcols i0 string-match hline org-remove-by-index org-split-string org-trim "\\s-*|\\s-*"] 4] cdr identity org-remove-by-index fboundp "No such transformation function %s" find-file-noselect deffmt-readable org-table-export-default-format transform params skip skipcols lines org-table-clean-did-remove-column i0 table fun org-table-last-alignment org-table-last-column-widths erase-buffer fundamental-mode save-buffer kill-buffer message "Export done." "TABLE_EXPORT_FORMAT invalid"] 7 (#$ . 15798) nil])
#@125 Marker at the beginning of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.
(defvar org-table-aligned-begin-marker (make-marker) (#$ . 18799))
#@119 Marker at the end of the table last aligned.
Used to check if cursor still is in that table, to minimize realignment.
(defvar org-table-aligned-end-marker (make-marker) (#$ . 18997))
#@140 List of flags for flushright alignment, from the last re-alignment.
This is being used to correctly align a single field after TAB or RET.
(defvar org-table-last-alignment nil (#$ . 19187))
#@116 List of max width of fields in each column.
This is being used to correctly align a single field after TAB or RET.
(defvar org-table-last-column-widths nil (#$ . 19384))
#@91 Non-nil means, debug table formulas.
When nil, simply write "#ERROR" in corrupted fields.
(defvar org-table-formula-debug nil (#$ . 19560))
(make-variable-buffer-local 'org-table-formula-debug)
#@50 Overlay coordinates after each align of a table.
(defvar org-table-overlay-coordinates nil (#$ . 19760))
(byte-code "\301\302!\210\303B\304\303!\204�\305\303\306\"\210\306\207" [current-load-list make-variable-buffer-local org-table-overlay-coordinates org-last-recalc-line default-boundp set-default nil] 3)
#@53 Used as display property in narrowed table columns.
(defconst org-narrow-column-arrow "=>" (#$ . 20078))
#@57 Align the table at point by aligning all vertical bars.
(defalias 'org-table-align #[nil "\306 \307 \310\212\n\203�\nb\210n\203�\311\202�\312\313\311`\"\\*\314 \315 \211dS^\212\n\2033�\nb\210n\203;�\311\202<�\312\313\311`\"\\*@\310A\316B\310\211CD\310\211EF\310\211GH\310\211IJ\316K\310\211LM\310\211NO\317\211P@QPAR\320R\321\"\322\320Q\321\"\323RS\320R\324\"\325\320Q\324\"\326RT\310\211UV\310\211WX\310\211YZ\310\211[\\\310\211]^\327	\"\210\330	\331#\210b\210\332_	\333#Vb\210`\205\335�\332a	\333#Xb\210b\205\355�\332c	\333#WV\203\375�b\210\334	!\204\367�W\203b\210\335	!\204X\203b\210\336	!\204b\210d\205&\332\337	\333#Y\340	{\341\"A\342\343A@\"\203C\320\312\225\312\224Z\321\"K\344\345A\"A\344\346\347\310\350A!\"\"G\310\351\352\217\210\353H\316\"U\354IIT\211IHW\203\252\344\355G\"JY\203JJ]\310Z]\203\257]\211A]@\211^;\203\204\342\356^\"\203\204\357\360\311^\"!Z\310\211]\204\211Z\203JJe\310fe:\203Ie@\211f;\203@\361f!ZV\203@\362f\310\363\364\350f!g\365\366!\203\364\366\312gG\310g$\210\202\377\330\312gGhg$\210g)P$\210Z\342_f\"\206Z^\211[\311V\204$\367\370\360\312f\"\"\210\371[fG\372\333Df$\210\371[\373Z[\374iDf$\210eA\211e\202\275*\375\376\311\344\361J\"#CBC\312L\377MJj\310kj:\203\234j@\211k\316\232\204\223ML_\342lk\"\203\210\311\202\211\312\\LT\211L\245MjA\211j\202g*MmYEBE\202eC\237CE\237\211EnCoV\204\305X\203D\312IHSpIpX\203CIC8\\\312qGGSrqrX\2039IqG\233@\233\211]@;\2030\201y�\312]@G\201z�\201{�]@%\2030\361]@!\\W\2030]\211@\320\\\361]@!Z\321\"P\240\210qT\211q\202\347*IT\211I\202\317*K\323PNK\323POC\211AC@\211D\203\222E\211AE@\203k\316\202n\201|�FN\201}�SFD#PNO\201}�T\320D\324\"\"PO\202PN\341PNO\312\354O\201~�PO\201�\201\200�A\316#B	|\210	\310\211\223\210s`\310\223\210Bc\210t`\310\223\210u\203\343v\201\201�=\204\343sb\210\201\202�t!\204\332\201\203�@!\210\201\204� \201\203�!\210\201\205�\201\206� 
\201\207�#\210\201\210�\f!\210w\203\201w� \210\310\211x.$\207" [beg end pos linepos colpos winstart org-table-begin org-table-end nil 1 0 count-lines org-table-current-column window-start #1="" (1 . 1) make-string 32 "%%%s%ds" "|" 45 "%s" "+" untabify remove-text-properties (org-cwidth t org-dwidth t display t) re-search-forward t org-activate-bracket-links org-activate-dates org-do-emphasis-faces "<[0-9]+>" org-split-string "\n" string-match "^ *" mapcar #[(l) "\301\302\"?\205�\301\303\"\203�\304\211\224O\207\207" [l string-match "^ *|-" "[ 	]+$" 0] 3] #[(l) "\301\302\"\207" [l org-split-string " *| *"] 3] delq copy-sequence (byte-code "\302\303\304\305\"\"\302\207" [fields maxfields apply max mapcar length] 5) ((error (byte-code "\303	\"\210\304\n!\210\305\306!\207" [beg end org-table-default-size kill-region org-table-create error "Empty table - created default table"] 3))) make-list -1 #[(x) "	8\206�\302\207" [i x #1#] 2] "^<\$[0-9]+\$>$" string-to-number match-string org-string-width org-add-props help-echo "Clipped table field, use C-c ` to edit. Full value is:\n" fboundp set-text-properties error "Cannot narrow field starting with wide link \"%s\"" add-text-properties org-cwidth 2 display apply max 0.0 winstartline lines new lengths l typenums ty fields maxfields i column indent cnt frac rfmt hfmt spaces sp1 sp2 rfmt1 hfmt1 emptystrings links dates emph narrow fmax f1 len c e org-bracket-link-regexp org-hide-emphasis-markers org-emph-re org-display-custom-times org-ts-regexp-both org-format-transports-properties-p #2=#:--cl-var-- xx s org-rm-props org-narrow-column-arrow #3=#:--cl-var-- x org-table-number-regexp org-table-number-fraction org-table-last-alignment org-table-last-column-widths #4=#:--cl-var-- j #5=#:--cl-var-- org-table-aligned-begin-marker org-table-aligned-end-marker orgtbl-mode major-mode org-table-overlay-coordinates org-table-may-need-update text-property-any invisible org-link "-" format "|\n" mapconcat #[(l) "\203�\305\306	\307\n\211A@\"#\207\f\207" [l rfmt fields emptystrings hfmt apply format append] 6] org-mode org-hide-wide-columns goto-line point-at-bol set-window-start selected-window noforce org-table-goto-column] 12 (#$ . 20189) nil])
#@130 Find the beginning of the table and return its position.
With argument TABLE-TYPE, go to the beginning of a table.el-type table.
(defalias 'org-table-begin #[(&optional table-type) "\212\303\203\n�	\202�\n\304\305#\204�eb\210`\202!�\306\224b\210\307\310!\210`)\207" [table-type org-table-any-border-regexp org-table-border-regexp re-search-backward nil t 0 beginning-of-line 2] 4 (#$ . 24522)])
#@118 Find the end of the table and return its position.
With argument TABLE-TYPE, go to the end of a table.el-type table.
(defalias 'org-table-end #[(&optional table-type) "\212\303\203\n�	\202�\n\304\305#\204�db\210\202�\306\224b\210\307 )\207" [table-type org-table-any-border-regexp org-table-border-regexp re-search-forward nil t 0 point-marker] 4 (#$ . 24927)])
#@136 Justify the current field, text to left, number to right.
Optional argument NEW may specify text to replace the current field content.
(defalias 'org-table-justify-field-maybe #[(&optional new) "\204�	\206\326�\306 \206\326�\204)�\307\n!p\232\203%�`\nW\204%�`Y\203)�\310\211\207`\311\312 \211\313V\205=�S8\311\211\311\211 \311!\313V\205\324�\314\311x\210\315\316!\203\320�\317\320!\317\313! \320\321\313\225\313\224\322#]\323\224\323\225U?!\324\203\205�\325\202\206�\326!\203\221�\327\202\224�\310\330#\324
\"\203\273�GX\203\264�\324\"\202\273�\327P\310 \232\204\322�\311\331\310\211#\210)\202\322�\310\fb.	\207" [new org-table-may-need-update org-table-aligned-begin-marker org-table-aligned-end-marker pos s org-at-table-hline-p marker-buffer t nil org-table-current-column 0 "^|\n" looking-at " *\$[^|\n]*?\$ *\$|\\|$\$" match-string 1 - 3 2 format " %%%ds %s" " %%-%ds %s" "|" "" replace-match col org-table-last-alignment num l f n o e] 6 (#$ . 25300)])
#@124 Go to the next field in the current table, creating new lines as needed.
Before doing so, re-align the table if necessary.
(defalias 'org-table-next-field #[nil "\303 \210\304 \210\203�	\203�\305 \210\306 \307 \203�\310\210\311\312\313\217)\207" [org-table-automatic-realign org-table-may-need-update end org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-align org-table-end org-at-table-hline-p 1 nil (byte-code "\302\303\"\210\304\305!\203�\302\303\"\210\304\306!\203&�	\203&�\302\307\310#\203&�\311\224b\210\304\306!\2034�\312\313!\210\314\315!\207\304\316!\205<�\311u\207" [end org-table-tab-jumps-over-hlines re-search-forward "|" looking-at "[ 	]*$" "-" "^[ 	]*|\$[^-]\$" t 1 beginning-of-line 0 org-table-insert-row below " "] 4) ((error (byte-code "\300\301!\207" [org-table-insert-row below] 2)))] 3 (#$ . 26332) nil])
#@90 Go to the previous field in the table.
Before doing so, re-align the table if necessary.
(defalias 'org-table-previous-field #[nil "\302 \210\303 \210\203�	\203�\304 \210\305 \203�\306\210\307\310\311 \"\210\307\310\311 \"\210\312\313!\2034�\307\310\311 \"\210\202%�\312\314!\205=�\315\225b\207" [org-table-automatic-realign org-table-may-need-update org-table-justify-field-maybe org-table-maybe-recalculate-line org-table-align org-at-table-hline-p 1 re-search-backward "|" org-table-begin looking-at "|\$-\\|[ 	]*$\$" "| ?" 0] 3 (#$ . 27200) nil])
#@106 Go to the next row (same column) in the current table.
Before doing so, re-align the table if necessary.
(defalias 'org-table-next-row #[nil "\303 \210\304 \210\305\306!\204�\212\307\310x\210n)\203�\311 \207\203$�	\203$�\312 \210\313 \314\315!\210\316 \2035�\317 \203=�\314\320!\210\321\322!\210\323\n!\210\324\310x\210\305\325!\205M�\326u)\207" [org-table-automatic-realign org-table-may-need-update col org-table-maybe-eval-formula org-table-maybe-recalculate-line looking-at "[ 	]*$" " 	" nil newline org-table-align org-table-current-column beginning-of-line 2 org-at-table-p org-at-table-hline-p 0 org-table-insert-row below org-table-goto-column "^|\n
" " " 1] 2 (#$ . 27765) nil])
#@713 Copy a field down in the current column.
If the field at the cursor is empty, copy into it the content of the nearest
non-empty field above.  With argument N, use the Nth non-empty field.
If the current field is not empty, it is copied down to the next row, and
the cursor is moved with it.  Therefore, repeating this command causes the
column to be filled row-by-row.
If the variable `org-table-copy-increment' is non-nil and the field is an
integer or a timestamp, it will be incremented while copying.  In the case of
a timestamp, if the cursor is on the year, change the year.  If it is on the
month or the day, change that.  Point will stay on the current date field
in order to easily repeat the interval.
(defalias 'org-table-copy-down #[(n) "\306 i\307 \310\311\n\"\312 
 \313!\314 \210\203+�\315\n!!\316 \210\317 \210\2022�\212\320\321\215!)!\203\203�\"\203^� \322\232\204^�\310\323!\"\203^�\324!!\325W\203^�\326\327\324!!T\"!!c\210\330	!\210\"\203w�\331\332!\203w�\333 \210\202z�\334 \210\335 \210\330	!\202\206�\336\337!.\207" [colpos col field non-empty beg n org-table-current-column org-table-get-field string-match "[^ 	]" org-table-begin nil org-table-check-inside-data-field org-trim org-table-next-row org-table-blank-field exit (byte-code "\304\305!\210\306	\307#\205*�\310\n\307\"\210\311\312!\203��S\211\313X\203��\314\315\316\305!\"\210\202��\207" [org-table-dataline-regexp beg colpos n beginning-of-line 1 re-search-backward t org-table-goto-column looking-at "|[ 	]*\$[^| 	][^|]*?\$[ 	]*|" 0 throw exit match-string] 4) 0 "^[0-9]+$" string-to-number 100000000 format "%d" org-move-to-column org-at-timestamp-p t org-timestamp-up-day org-table-maybe-recalculate-line org-table-align error "No non-empty field found" orig-n txt org-table-copy-increment] 4 (#$ . 28464) "p"])
#@168 Is point inside a table data field?
I.e. not on a hline or before the first or after the last column?
This actually throws an error, so it aborts the current command.
(defalias 'org-table-check-inside-data-field #[nil "\300 \203�\301 \302U\204�\303 \204�\304\305!\205�\306\307!\207" [org-at-table-p org-table-current-column 0 org-at-table-hline-p looking-at "[ 	]*$" error "Not in table data field"] 2 (#$ . 30294)])
#@30 Clipboard for table regions.
(defvar org-table-clip nil (#$ . 30721))
#@49 Blank the current table field or active region.
(defalias 'org-table-blank-field #[nil "\304 \210t\203�\305 \203�\306\307\310 \311 \")\207\312\306x\210\313u\210\314\315!\205B�\316\224\317\316!\320\n!\321\322\323S\324\"P!\210\325	\\b\210\n\326\306O+\207" [org-table-clip pos match len org-table-check-inside-data-field org-region-active-p nil org-table-cut-region region-beginning region-end "^|" -1 looking-at "|[^|\n]+" 0 match-string org-string-width replace-match "|" make-string 32 2 1] 5 (#$ . 30797) nil])
#@186 Return the value of the field in column N of current row.
N defaults to current field.
If REPLACE is a string, replace field with this value.  The return value
is always the old value.
(defalias 'org-table-get-field #[(&optional n replace) "\203�\304!\210\305\306x\210\307u\210\310\311!\2035�\312\224\211T\312\225{\203*�\313\314P\315\211#\210\316 \317	\\^b\210\n*\207\320u\210\321\207" [n pos val replace org-table-goto-column "^|\n" nil -1 looking-at "|[^|
\n]*" 0 replace-match "|" t point-at-eol 2 1 ""] 5 (#$ . 31323)])
#@74 Show info about the current field, and highlight any reference at point.
(defalias 'org-table-field-info #[(arg) "\306 \210\212`\307 \310\311	!\n\"@\310\312\212\203�b\210n\203$�\313\202%�\314\315\313`\"\\*	D\f\"@\316  \317 !\320\321!	#\"\322\"!#\323
 \"\206U�\323\" \"$\323\311	! \"%$\206g�%&b\210\312\324\325\217\210\326\327!	\203\200�\330P\202\201�\331!	#
\203\220�\330
P\202\221�\331&\203\263�\332\333\334\335&@\"\203\245�\331\202\246�\336&@\337&AR!P\202\264�\331&	.\f\207" [pos col org-table-column-names cname org-table-named-field-locations name org-table-get-specials org-table-current-column rassoc int-to-string nil 1 0 count-lines org-table-get-stored-formulas org-table-current-dline format "@%d$%d" org-table-convert-refs-to-an assoc (byte-code "\300\301!\207" [org-table-show-reference local] 2) ((error)) message "line @%d, col $%s%s, ref @%d$%d or %s%s%s" " or $" "" ", formula: " org-table-formula-to-user string-match "^[$@]" "$" "=" eql dline ref ref1 fequation cequation eqn] 15 (#$ . 31860) "P"])
#@34 Find out which column we are in.
(defalias 'org-table-current-column #[nil "\212\302`\303\304!\210\305\306\307#\203�	T\202	�	+\207" [pos cnt 0 beginning-of-line 1 search-forward "|" t] 4 (#$ . 32916)])
#@73 Find out what table data line we are in.
Only datalines count for this.
(defalias 'org-table-current-dline #[nil "t\203�\303 \210\212\304`\305 b\210`X\203&�\306\n!\203�	T\307\310!\210\202�t\203/�\311\312	\"\210	+\207" [pos cnt org-table-dataline-regexp org-table-check-inside-data-field 0 org-table-begin looking-at beginning-of-line 2 message "This is table line %d"] 3 (#$ . 33129) nil])
#@286 Move the cursor to the Nth column in the current table line.
With optional argument ON-DELIM, stop with point before the left delimiter
of the field.
If there are less than N fields, just go to after the last delimiter.
However, when FORCE is non-nil, create new columns if necessary.
(defalias 'org-table-goto-column #[(n &optional on-delim force) "\304 \305\306!\210	\307V\205Q�	S\211\310V\203.�\311\312\313#\204
�\n\203.�\306\210\314\315x\210\316c\204
�\n\203@�\317\320!\204@�\212\306\210\316c\210)\203I�\310u\202Q�\317\321!\205Q�\306u)\207" [pos n force on-delim point-at-eol beginning-of-line 1 0 -1 search-forward "|" t "^|" nil " | " looking-at ".*|" " "] 4 (#$ . 33533) "p"])
#@37 Insert a new column into the table.
(defalias 'org-table-insert-column #[nil "\306 \204	�\307\310!\210\311 \210\312\313 ]\314 \315 \316\212\203!�b\210n\203)�\312\202*�\317\320\312`\"\\*	b\210`\nW\203P�\321 \204I�\322\323\"\210\324c\210\325\326!\210\2026�\n\316\211\223\210\327\f!\210\322
!\210\330 \210\331\332\316S\312$\210\331\333\316S\312$-\207" [col beg end pos linepos colpos org-at-table-p error "Not at a table" org-table-find-dataline 1 org-table-current-column org-table-begin org-table-end nil 0 count-lines org-at-table-hline-p org-table-goto-column t "|   " beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$" "$LR"] 5 (#$ . 34229) nil])
#@76 Find a dataline in the current table, which is needed for column commands.
(defalias 'org-table-find-dataline #[nil "\302 \203\f�\303 \204\f�\304\207i\305 \306	!\210`W\2031�i	U\203&�\303 \2031�\307\310!\210\306	!\210\202�\302 \203?�\303 \204?�\304\202B�\311\312!*\207" [end col org-at-table-p org-at-table-hline-p t org-table-end org-move-to-column beginning-of-line 2 error "Please position cursor in a data line for column operations"] 2 (#$ . 34918)])
#@33 Delete a column from the table.
(defalias 'org-table-delete-column #[nil "\306 \204	�\307\310!\210\311 \210\312 \210\313 \314 \315 \316\212\203\"�b\210n\203*�\317\202+�\320\321\317`\"\\*	b\210`\nW\203X�\322 \204Q�\323\324\"\210\325\326!\203Q�\327\330!\210\331\332!\210\2027�\n\316\211\223\210\333\f!\210\323
!\210\334 \210\335\336\337!\340BC\341%\210\335\342\337!\340BC\341%-\207" [col beg end pos linepos colpos org-at-table-p error "Not at a table" org-table-find-dataline org-table-check-inside-data-field org-table-current-column org-table-begin org-table-end nil 1 0 count-lines org-at-table-hline-p org-table-goto-column t looking-at "|[^|\n]+|" replace-match "|" beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$" number-to-string "INVALID" -1 "$LR"] 6 (#$ . 35383) nil])
#@27 Move column to the right.
(defalias 'org-table-move-column-right #[nil "\300\301!\207" [org-table-move-column nil] 2 (#$ . 36206) nil])
#@26 Move column to the left.
(defalias 'org-table-move-column-left #[nil "\300\301!\207" [org-table-move-column left] 2 (#$ . 36348) nil])
#@73 Move the current column to the right.  With arg LEFT, move to the left.
(defalias 'org-table-move-column #[(&optional left) "\306 \204	�\307\310!\210\311 \210\312 \210\313 	\203�S\202�\314 \315 \316\212
\203-�
b\210n\2035�\317\2026�\320\321\317`\"\\*$	\203G�S\202I�T%	\203Y�\317U\203Y�\307\322!\210	\204g�\323\324!\203g�\307\325!\210b\210`\fW\203\213�\326 \204\204�\327\n\330\"\210\323\331!\203\204�\332\333!\210\334\335!\210\202j�\f\316\211\223\210\336$!\210\327%!\210\337 \210\340\341\342!\342%!B\342%!\342!BD\"\210\340\343\342!\342%!B\342%!\342!BD\".\207" [col left col1 beg end pos org-at-table-p error "Not at a table" org-table-find-dataline org-table-check-inside-data-field org-table-current-column org-table-begin org-table-end nil 1 0 count-lines "Cannot move column further left" looking-at "[^|\n]*|[^|\n]*$" "Cannot move column further right" org-at-table-hline-p org-table-goto-column t "|\$[^|\n]+\$|\$[^|\n]+\$|" replace-match "|\\2|\\1|" beginning-of-line 2 goto-line org-table-align org-table-fix-formulas "$" number-to-string "$LR" linepos colpos] 6 (#$ . 36489) "P"])
#@22 Move table row down.
(defalias 'org-table-move-row-down #[nil "\300\301!\207" [org-table-move-row nil] 2 (#$ . 37613) nil])
#@20 Move table row up.
(defalias 'org-table-move-row-up #[nil "\300\301!\207" [org-table-move-row up] 2 (#$ . 37743) nil])
#@61 Move the current table line down.  With arg UP, move it up.
(defalias 'org-table-move-row #[(&optional up) "i`\212\306\307!\210\310\n!)\311 \211
\203�\312\202�\307\\
\203&�\313\202'�\314\315\211\306!\210\316 \204@�	b\210\317\320!\210\310\n!	b\210\306\307!\210``\321 T{`\321 T|\210\306!\210c\210\306\313!\210\322!\210\206r�?\205\212�\323\324\325\f!\325!B\325!\325\f!BD\".\207" [col pos org-table-hline-regexp hline1p dline1 up beginning-of-line 1 looking-at org-table-current-dline -1 0 2 nil org-at-table-p error "Cannot move row further" point-at-eol org-move-to-column org-table-fix-formulas "@" number-to-string dline2 tonew txt hline2p] 7 (#$ . 37868) "P"])
#@105 Insert a new row above the current line into the table.
With prefix ARG, insert below the current line.
(defalias 'org-table-insert-row #[(&optional arg) "\305 \204	�\306\307!\210\310 \311 {\312!\313\314\"\203$�\315\316\317\"\320\211	$\321\n\203-�\322\202.�\323!\210\324\325	\326\"\210)\321\317!\210\327\330\311 \320#\210\204K�\f\203N�\331 \210\332\333\324\334 S\323$*\207" [line new arg org-table-may-need-update org-table-overlay-coordinates org-at-table-p error "Not at a table" point-at-bol point-at-eol org-table-clean-line string-match "^[ 	]*| *[#$] *|" replace-match match-string 0 t beginning-of-line 2 1 nil insert-before-markers "\n" re-search-forward "| ?" org-table-align org-table-fix-formulas "@" org-table-current-dline] 5 (#$ . 38571) "P"])
#@115 Insert a horizontal-line below the current line into the table.
With prefix ABOVE, insert above the current line.
(defalias 'org-table-insert-hline #[(&optional above) "\305 \204	�\306\307!\210m\203�\310c\210\311u\210\312\313\314\315 \203!�`\202#�\316 {)\"\204,�\317 \210\320\315 \316 {!i\312\321\n\"\203Q�\322\323\324\325\225\325\224Z\326\"\327Q\330\211\n$\2026�\312\331\n\"\203_�\322\327\330\211\n$\332\203h�\325\202i�\333!\210\n\310\261\210\332\203y�\325\202z�\311!\210\334	!\210\f\205\206�\317 *\207" [to-here col line above org-table-overlay-coordinates org-at-table-p error "Not at a table" "\n" -1 string-match "|[ 	]*$" nil point-at-bol point-at-eol org-table-align org-table-clean-line "|\$ +\$|" replace-match "+" make-string 1 45 "|" t "\\+" beginning-of-line 2 org-move-to-column] 5 (#$ . 39344) "P"])
#@53 Insert a hline and move to the row below that line.
(defalias 'org-table-hline-and-move #[(&optional same-column) "\302 \303 \210\304 \210\305 \210\306\210\307\310!\203�\311c\210\312 \210\202!�\313 \210	\205(�\314!)\207" [col same-column org-table-current-column org-table-maybe-eval-formula org-table-maybe-recalculate-line org-table-insert-hline 2 looking-at "\n[ 	]*|-" "\n|" org-table-align org-table-next-field org-table-goto-column] 2 (#$ . 40176) "P"])
#@126 Convert a table line S into a string with only "|" and space.
In particular, this does handle wide and invisible characters.
(defalias 'org-table-clean-line #[(s) "\301\302\"\203�\303\304\305#\211\207\301\306\"\203+�\307\310\311\312\313\314\"!\315\"\310Q\316\211$\202�\207" [s string-match "^[ 	]*|-" mapconcat #[(x) "\301\235\203�\302\207\303\207" [x (124 43) "|" " "] 2] "" "|\$[ 	]*?[^ 	
\n|][^
\n|]*\$|" replace-match "|" make-string org-string-width match-string 1 32 t] 7 (#$ . 40647)])
#@59 Delete the current row or horizontal line from the table.
(defalias 'org-table-kill-row #[nil "\302 \204	�\303\304!\210i\305 \306\307 \310 Td^\"\210\302 \204!�\311\312!\210\313	!\210\314\315\316!\317BC\320%*\207" [dline col org-at-table-p error "Not at a table" org-table-current-dline kill-region point-at-bol point-at-eol beginning-of-line 0 org-move-to-column org-table-fix-formulas "@" number-to-string "INVALID" -1] 6 (#$ . 41160) nil])
#@1005 Sort table lines according to the column at point.

The position of point indicates the column to be used for
sorting, and the range of lines is the range between the nearest
horizontal separator lines, or the entire table of no such lines
exist.  If point is before the first column, you will be prompted
for the sorting column.  If there is an active region, the mark
specifies the first line and the sorting column, while point
should be in the last line to be included into the sorting.

The command then prompts for the sorting type which can be
alphabetically, numerically, or by time (as given in a time stamp
in the field).  Sorting in reverse order is also possible.

With prefix argument WITH-CASE, alphabetic sorting will be case-sensitive.

If SORTING-TYPE is specified when this function is called from a Lisp
program, no prompting will take place.  SORTING-TYPE must be a character,
any of (?a ?A ?n ?N ?t ?T) where the capital letter indicate that sorting
should be done in reverse order.
(defalias 'org-table-sort-lines #[(with-case &optional sorting-type) "\306\212\203\n�b\210n\203�\307\202�\310\311\307`\"\\*\312 \306\211\306\211(\306\211)*\306\211+,\306\n\310\232\203M�t\203G�\313\314\315!!\202I�\307\316\n!\210\317 \210\320 \203o�\321 \322 b\210\312 +\323 \fb\210\323\324!\202\261�\312 +`\325 *\326 )\327-*\330#\203\216�\323\324!\202\226�*b\210\323\307!b\210\331-)\330#\203\252�\323\307!\202\261�)b\210\323 \332 \306\223\332 \f\306\223\333\f\"\210b\210\316+!\210\334\306x\210i\316+T!\210\334\306x\210iS(\316+!\210\335\336\337\f{\340\"\",\341,\342./$,\f|\210\306\211\223\210\f\306\211\223\210\343\344,\340#\340\261\210\345	!\210\316\n!\210\346\347,G+#.\207" [pos thisline thiscol beg end bcol nil 1 0 count-lines org-table-current-column string-to-number read-string "Use column N for sorting: " org-table-goto-column org-table-check-inside-data-field org-region-active-p region-beginning region-end point-at-bol 2 org-table-begin org-table-end re-search-backward t re-search-forward make-marker untabify "^|" mapcar #[(x) "\302S\303	\304\"8!	B\207" [column x org-sort-remove-invisible org-split-string "[ 	]*|[ 	]*"] 5] org-split-string "\n" org-do-sort "Table" mapconcat cdr goto-line message "%d lines sorted, based on column %d" ecol tend tbeg column lns org-table-hline-regexp with-case sorting-type] 6 (#$ . 41615) "P"])
#@70 Copy region in table to the clipboard and blank all relevant fields.
(defalias 'org-table-cut-region #[(beg end) "\302	\303#\207" [beg end org-table-copy-region cut] 4 (#$ . 44031) "r"])
#@137 Copy rectangular region in table to clipboard.
A special clipboard is used which can only be accessed
with `org-table-paste-rectangle'.
(defalias 'org-table-copy-region #[(beg end &optional cut) "\306\211\306\211\306\211\306\211\306\211\306\211\205$�\307b\210\310 \210\306\212\203:�b\210n\203B�\311\202C�\312\313\311`\"\\*\314 b\210\310 \210\306\212\203a�b\210n\203i�\311\202j�\312\313\311`\"\\*\314 \n^\n]	^	]\315\316\215\210\237\203\227�\317 \210.
\207" [l01 c01 l02 c02 l1 c1 nil "  " org-table-check-inside-data-field 1 0 count-lines org-table-current-column exit (byte-code "\300\301\215\210\202��" [nextline (byte-code "	V\203�\306\307\310\"\210\311!\210\312 \203�\306\313T\211\"\210\314
\fTW\203:�\315\f\"\nB\fT\211\202$�\n\237BT\314\207" [l1 l2 cols c1 ic1 c2 throw exit t goto-line org-at-table-hline-p nextline nil org-table-get-field ic2 rpl region] 5)] 2) org-table-align l2 c2 ic1 ic2 region cols cut rpl beg pos end org-table-clip] 5 (#$ . 44226) "rP"])
#@274 Paste a rectangular region into a table.
The upper right corner ends up in the current field.  All involved fields
will be overwritten.  If the rectangle does not fit into the present table,
the table is enlarged as needed.  The process ignores horizontal separator
lines.
(defalias 'org-table-paste-rectangle #[nil "\203	�<\204
�\306\307!\210\310 \210\311\212\n\203�\nb\210n\203$�\312\202%�\313\314\312`\"\\*\315 \316\311\211\311\211	\211A@\211\203\213�\317 \203T�\320\321!\210\202H�\322 \204_�\313\210\323 \210\f\211A@\211\203\204�\324\311\325#\210\326\311\"\210T\202b�\320\321!\210\202=�\327!\210\324\f!\210\330 .\207" [org-table-clip clip pos line col org-enable-table-editor error "First cut/copy a region to paste!" org-table-check-inside-data-field nil 1 0 count-lines org-table-current-column t org-at-table-hline-p beginning-of-line 2 org-at-table-p org-table-next-field org-table-goto-column force org-table-get-field goto-line org-table-align org-table-automatic-realign c cols field] 5 (#$ . 45284) nil])
#@553 Convert from `org-mode' table to table.el and back.
Obviously, this only works within limits.  When an Org-mode table is
converted to table.el, all horizontal separator lines get lost, because
table.el uses these as cell boundaries and has no notion of horizontal lines.
A table.el table can be converted to an Org-mode table only if it does not
do row or column spanning.  Multiline cells will become multiple cells.
Beware, Org-mode does not test if the table can be successfully converted - it
blindly applies a recipe that works for simple tables.
(defalias 'org-table-convert #[nil "\302\303!\210\304 \2034�\305 \306\307!\310\223\305 \311\307!\310\223\312	\"\210	b\210\313\314\307#\2030�\315\316!\210\202!�	b*\207\317 \205\241�\305 \306 \310\223\305 \311 \310\223\211b\210\313\320\307#\203Y�\315\316!\210\202J�	b\210\321\322!\210\323\324!\210\323\325!\210`W\203t�\321 \210\202d�	b\210\311 \310\223\313\326\307#\203\214�\315\327!\210\202}�	b\210\313\330\307#\203\236�\315\331!\210\202\217�	b*\207" [end beg require table org-at-table\.el-p make-marker org-table-begin t nil org-table-end table-unrecognize-region re-search-forward "^\$[ 	]*\$\\+-.*\n" replace-match "" org-at-table-p "^\$[ 	]*\$|-.*\n" org-table-insert-hline above beginning-of-line -1 3 "^\$[ 	]*\$|-" "\\1+-" "-|[ 	]*$" "-+"] 5 (#$ . 46347) nil])
#@1180 Wrap several fields in a column like a paragraph.
This is useful if you'd like to spread the contents of a field over several
lines, in order to keep the table compact.

If there is an active region, and both point and mark are in the same column,
the text in the column is wrapped to minimum width for the given number of
lines.  Generally, this makes the table more compact.  A prefix ARG may be
used to change the number of desired lines.  For example, `C-2 \[org-table-wrap]'
formats the selected text to two lines.  If the region was longer than two
lines, the remaining lines remain empty.  A negative prefix argument reduces
the current number of lines by that amount.  The wrapped text is pasted back
into the table.  If you formatted it to more lines than it was before, fields
further down in the table get overwritten - so you might need to make space in
the table first.

If there is no region, the current field is split at the cursor position and
the text fragment to the right of the cursor is prepended to the field one
line down.

If there is no region, but you specify a prefix ARG, the current field gets
blank, and the content is appended to the field above.
(defalias 'org-table-wrap-region #[(arg) "\306 \210\307 \203{�\310 \212b\210\311\212	\203�	b\210n\203!�\312\202\"�\313\314\312`\"\\+\212b\210\315 )\311\316\310 \317 \"\210
@G\312V\203F�\320\321!\210,\203_�,\312W\203Z�
G,\\\202a�,\202a�
G\322\323\324\325\326
\327#\311\f#\"\330\n!\210\331!\210\332 ,\207-\333./.\334=\203\215�\334\202\260�/\334=\203\230�\334\202\260�\335./\"\203\253�\335./\"A\202\260�\336/\236A*\204\270�\337\311w\210,\203\356�\340 \315 01\341\313!\210\342 \203\325�\341\313!\210\202\311�\3310!\210\343\311w\210\327\311x\210\327\3441!\261\210\345 *\207\346\347!\203\350\312!1\351\352!\210\313\224b\210\353 \210\3441!\327\261\210\345 )\207\353 \207" [beg pos cline ccol nlines org-table-clip org-table-check-inside-data-field org-region-active-p region-beginning nil 1 0 count-lines org-table-current-column org-table-cut-region region-end error "Region must be limited to single column" mapcar list org-wrap mapconcat car " " goto-line org-table-goto-column org-table-paste-rectangle table t assoc default "^
\n|" org-table-blank-field beginning-of-line org-at-table-hline-p "^|" org-trim org-table-align looking-at "\$[^|]+\$+|" match-string replace-match " |" org-table-next-row arg org-M-RET-may-split-line key option col s] 7 (#$ . 47693) "P"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-field-marker default-boundp set-default nil] 3)
#@218 Edit table field in a different window.
This is mainly useful for fields that contain hidden parts.
When called with a \[universal-argument] prefix, just make the full field visible so that
it can be edited in place.
(defalias 'org-table-edit-field #[(arg) "\203(�\212\306\307x\210`)\212\310\307w\210`)\311\n	\312#\210\313\303!\205&�\205&�\314 *\207\315 `\307\223\316 \317 \307 \320\321!\210\322 \210\323c\210\324!\325 \210)d\211b\210\326!c\210\311\fd\327#\210\fb\210\330\331\"#\332#!\"L\210*\333
\"#\332#!\"L\210*\334 \"#\332#!\"L\210*\335\336!,\207" [arg e b font-lock-mode p cw "^|" nil "^|
\n" remove-text-properties (org-cwidth t invisible t display t intangible t) boundp font-lock-fontify-block make-marker org-table-get-field current-window-configuration org-switch-to-buffer-other-window "*Org tmp*" erase-buffer "#\n# Edit field and finish with C-c C-c\n#\n" t org-mode org-trim (invisible t org-cwidth t display t intangible t) org-finish-function org-table-finish-edit-field make-variable-buffer-local org-window-configuration org-field-marker message "Edit and finish with C-c C-c" field pos org-inhibit-startup value var] 4 (#$ . 50315) "P"])
#@148 Finish editing a table data field.
Remove all newline characters, insert the result into the table, realign
the table and kill the editing buffer.
(defalias 'org-table-finish-edit-field #[nil "	p\306eb\210\307\310\306\311#\203�\312\313!\210\202�\307\314\306\311#\203)�\312\315!\210\202�\316\317 !\320\f!\210\321!\210\322\323\324
!!!\210
b\210
\306\211\223\210\325 \210\326\306\n\"\210\327 \210\330\331!,\207" [org-field-marker org-window-configuration text cb cw pos nil re-search-forward "^#.*\n?" t replace-match "" "\$[ 	]*\n[ 	]*\$+" " " org-trim buffer-string set-window-configuration kill-buffer select-window get-buffer-window marker-buffer org-table-check-inside-data-field org-table-get-field org-table-align message "New field value inserted"] 4 (#$ . 51505)])
#@605 Sum numbers in region of current table column.
The result will be displayed in the echo area, and will be available
as kill to be inserted with \[yank].

If there is an active region, it is interpreted as a rectangle and all
numbers in that rectangle will be summed.  If there is no active
region and point is located in a table column, sum all numbers in that
column.

If at least one number looks like a time HH:MM or HH:MM:SS, all other
numbers are assumed to be times as well (in decimal hours) and the
numbers are added as such.

If NLAST is a number, only the NLAST fields will actually be summed.
(defalias 'org-table-sum #[(&optional beg end nlast) "\212\306\307\306\211\211\211\211)*\203�+\204^�\310 \203*�\311 *\312 +\202^�\313 )\314 b\210\315\316\306\317#\204>�\320\321!\210\322)!\210`*\323 b\210\324\316\306\317#\204V�\320\321!\210\322)!\210`+\325\326\327*+\"\",-\204s�,\202\223�-,GY\203\201�,\202\223�\330,!,-S,\233\306\241\210,\237.\331\306\332\333.\"\"/\325\334/\"0
\307U\203\263�\3350!\202\326�0\336_\337\f\336\245!\340\f\336\"\337\f\341\245!\340\f\341\"\211\342\343\n	$1\3441!\210t\203\357�\345\346\347\342\350/G1#!\"\2101.
\207" [org-table-clip s m h diff org-timecnt nil 0 org-region-active-p region-beginning region-end org-table-current-column org-table-begin re-search-forward "^[ 	]*|[^-]" t error "No table data" org-table-goto-column org-table-end re-search-backward apply append org-table-copy-region reverse delq mapcar org-table-get-number-for-summing + number-to-string 3600 floor mod 60 format "%d:%02d:%02d" kill-new message "%s" substitute-command-keys "Sum of %d items: %-20s     (\\[yank] will insert result into buffer)" col beg end items nlast items1 numbers res sres] 8 (#$ . 52295) nil])
(defalias 'org-table-get-number-for-summing #[(s) "\305\306\307	\"\203�\310\311\305\211	$\306\312	\"\203�\310\311\305\211	$\313	!\306\314	\"\2034�\306\315	\"\2034�\316\202\212�\306\317	\"\203?�\305\202\212�\306\320	\"\203�\313\321\322	\"\206O�\314!\313\321\323	\"\206Y�\314!\313\321\324	\"\206c�\314!\325\304!\203p�\fT\326\327\n\330\245	\331\245#_+\202\212�\316\232\203\211�\305\202\212�)\207" [n s m h org-timecnt nil string-match "^ *|? *" replace-match "" " *|? *$" string-to-number "0" "\\`[-+ 	0.edED]+\\'" 0 "\\`[ 	]+\\'" "\\`\$[0-9]+\$:\$[0-9]+\$\$:\\([0-9]+\$\\)?\\'" match-string 1 2 4 boundp 1.0 + 60.0 3600.0] 6])
#@192 Return the formula active for the current field.
Assumes that specials are in place.
If KEY is given, return the key to this formula.
Otherwise return the formula preceeded with "=" or ":=".
(defalias 'org-table-current-field-formula #[(&optional key noerror) "\306\307\212\203�b\210n\203�\310\202�\311\312\310`\"\\*\313 D	\"@\313 \314!\315\316\317 #\320!\321\n\"\206J�\321
\"\206J�\321\f\"\203W�@\202n�\205n�\322\323@\"\203i�\324\202j�\325AP.\207" [pos org-table-named-field-locations name col scol ref rassoc nil 1 0 count-lines org-table-current-column int-to-string format "@%d$%d" org-table-current-dline org-table-get-stored-formulas assoc string-match "^[0-9]+$" "=" ":=" noerror stored-list ass key] 5 (#$ . 54722)])
#@120 Read a formula from the minibuffer, offer stored formula as default.
When NAMED is non-nil, look for a named equation.
(defalias 'org-table-get-formula #[(&optional equation named) "\306 \307\310\212	\203�	b\210n\203�\311\202�\312\313\311`\"\\*\314 D\n\"@\315\316\317 \314 #\320\f\"\320\",-\203O�\203K�\321\322\"\204K�\202S�\f\202S�\323\314 !.,\204^�
\205n�-?\205n�\324\325!?\205n�\326\327!/\206u�\f\3100\320.\"A\2111\203\227�2\203\227�\321\3302\"\203\227�1\202\323�2;\203\242�2\202\323�\331\332\333\315\334-\203\260�\335\202\261�\336\337.!\340\235\203\276�\341\202\277�\342.$!1\203\317�\3331!\202\320�\341\343#!3\3104\321\3443\"\204\361�\345\320.\"\"\346!\210\326\347!\210\321\3503\"\203\351\341\352\2113$3\321\3533\"\203\351\341\352\2113$3\203'-\204'\345\320\"\"\35241\2038\320.\"3\241\210\202@.3BB4\204M13\232\204Q\346!\2103.\f\207" [stored-list pos org-table-named-field-locations name ref refass org-table-get-stored-formulas rassoc nil 1 0 count-lines org-table-current-column format "@%d$%d" org-table-current-dline assoc string-match "^LR[0-9]+$" int-to-string y-or-n-p "Replace existing field formula with column formula? " error "Abort" "^ *=? *$" org-table-formula-from-user read-string org-table-formula-to-user "%s formula %s%s=" "Field" "Column" string-to-char (36 64) "" "$" org-table-formula-history "\\S-" delq org-table-store-formulas "Formula removed" "^ *=?" replace-match t " *$" nameass named scol dummy org-table-may-need-update stored equation eq mustsave] 9 (#$ . 55489)])
#@53 Store the list of formulas below the current table.
(defalias 'org-table-store-formulas #[(alist) "\301\302\"\212\303 b\210\304\305!\203�\306\224b\210\306\224\307\225|\210\202 �\310c\210\311\312\313\314#\315\261)\207" [alist sort org-table-formula-less-p org-table-end looking-at "\$[ 	]*\n\$*#\\+TBLFM:\$.*\n?\$" 2 0 "#+TBLFM:" " " mapconcat #[(x) "\301@!\302\232\203
�\303\202�\304@\305AR\207" [x string-to-char 64 "" "$" "="] 4] "::" "\n"] 5 (#$ . 57073)])
(defalias 'org-table-formula-make-cmp-string #[(a) "\301\302\"\2057�\303\225\203�\304\305\306\307\303\"!\"\202�\310\311\225\203*�\304\312\306\307\311\"!\"\202+�\310\313\225\2056�\314\307\313\"PQ\207" [a string-match "^\$@\\([0-9]+\$\\)?\$\\$?\\([0-9]+\$\\)?\$\\$?[a-zA-Z0-9]+\$?" 2 format "@%05d" string-to-number match-string "" 4 "$%05d" 5 "@@"] 7])
(put 'org-table-formula-make-cmp-string 'byte-optimizer 'byte-compile-inline-expand)
#@35 Compare two formulas for sorting.
(defalias 'org-table-formula-less-p #[(a b) "@\304\305\"\205:�\306\225\203�\307\310\311\312\306\"!\"\202�\313\314\225\203-�\307\315\311\312\314\"!\"\202.�\313\316\225\2059�\317\312\316\"PQ)	@\304\305\"\205u�\306\225\203V�\307\310\311\312\306\"!\"\202W�\313\314\225\203h�\307\315\311\312\314\"!\"\202i�\313\316\225\205t�\317\312\316\"PQ)\211\205\203�\n\205\203�\n\231*\207" [a b bs as string-match "^\$@\\([0-9]+\$\\)?\$\\$?\\([0-9]+\$\\)?\$\\$?[a-zA-Z0-9]+\$?" 2 format "@%05d" string-to-number match-string "" 4 "$%05d" 5 "@@"] 9 (#$ . 58001)])
#@72 Return an alist with the stored formulas directly after current table.
(defalias 'org-table-get-stored-formulas #[(&optional noerror) "\306\211\211\211\211\211\212\307 b\210\310\311!\203t�\312\313\314!\315\"\n\211A@\211\203t�\316\317	\"\203�\314\225\203;�\313\314	\"\202?�\313\320	\"\313\321	\"
\fBB
\235\203m�\203e�\322\323
\"\210\324 \210\325\314!\210\202�\326\323
\"\210\202�
B\202�)\237.\207" [seen string strings eq-alist eq scol nil org-table-end looking-at "\$[ 	]*\n\$*#\\+TBLFM: *\$.*\$" org-split-string match-string 2 " *:: *" string-match "\\`\$@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\$\\) *= *\$.*[^ 	]\$" 1 3 message "Double definition `$%s=' in TBLFM line, please fix by hand" ding sit-for error noerror] 6 (#$ . 58609) nil])
#@184 Modify the equations after the table structure has been edited.
KEY is "@" or "$".  REPLACE is an alist of numbers to replace.
For all numbers larger than LIMIT, shift them by DELTA.
(defalias 'org-table-fix-formulas #[(key replace &optional limit delta remove) "\212\306 b\210\307\310!\205\216�\311P	\205,�\312\232\204�\313\232\203(�\314\315\316!	#\202,�\314\317	\"\320\211\211	\203I�\321
\322 \323#\203I�\324\325!\210\2029�\321\322 \323#\205\215�\326\327!\330\f!\331\f\"\211\203q�\324\nAP\323\211#\210\202I�\203I�V\203I�\324\332\\!P\323\211#\210\202I�-)\207" [key remove a n s re2 org-table-end looking-at "#\\+TBLFM:" "\$[0-9]+\$" "$" "$LR" format "\$@[0-9]+\$?%s%d=.*?\$::\\|$\$" regexp-quote "@%d\\$[0-9]+=.*?\$::\\|$\$" nil re-search-forward point-at-eol t replace-match "" match-string 1 string-to-number assoc int-to-string re replace limit delta] 5 (#$ . 59387)])
#@59 Get the column names and local parameters for this table.
(defalias 'org-table-get-specials #[nil "\212\306 \307 \310\211\211\211\211\211\211\211\211\211\211\211\211\211\211./012345678\310\2119:\310\211;<\310\211=>8b\210\311\3127\313#\203\203�\314\315\316!\317\"6\31616\211A6@\2115\203\203�1T1\320\3215\"\203Z�5\3221!B9B9\202Z�9\2379\323\324\3259\326#\327Q?8b\210\311\3307\313#\203\320�\314\315\316!\317\"44\211A4@\2112\203\227�\320\3312\"\203\250�\315\3162\"\315\3322\"B:B:\202\250�8b\210\311\3337\313#\203q\315\316!0\314\315\332!\317\"4\212\3340\335\232\203\367�\332\202\370�\336!\210\310@\212@\203@b\210n\203\316\202\336\337\316`\"\\*\316\340\341!\203'\314\315\316!\317\"3)3\203\324�4\211A4@\2112\203\324�3\211A3@/\fT2;\203(/;\203(\320\3212\"\203(2/B:B:2
\fE;B;\202(8b\210\310@\212@\203\202@b\210n\203\212\316\202\213\336\337\316`\"\\*<`=<.\340\342!\203\313\316\225\203\251\343\202\252\344B\316\225\203\272.	B\202\277.\nB\334\332!\210.T.\202\232\343B\345\346\237\">\n@\345\346\310\n\237B\"A\345\346\310	\237B\"B\347!\210.\314\350 \351 {\352\"\2114GC\310\211DE\316FCGFGX\203>\353\354F\".FEDBD\353\354F\"FS48BEBEFT\211F\202*\355;D\";\355:E\"\211:.\207" [last-dline hlines dlines types col line org-table-begin org-table-end nil re-search-forward "^[ 	]*| *! *\$|.*\$" t org-split-string match-string 1 " *| *" string-match "^[a-zA-Z][a-zA-Z0-9]*$" int-to-string "\\$\$" mapconcat car "\\|" "\$\\>" "^[ 	]*| *\\$ *\$|.*\$" "^\$[a-zA-Z][_a-zA-Z0-9]*\\|%\$ *= *\$.*\$" 2 "^[ 	]*| *\$[_^]\$ *\$|.*\$" beginning-of-line "_" 0 count-lines looking-at "^[ 	]*|[^|]*\$|.*\$" "[ 	]*|\$-\$?" hline dline apply vector goto-line point-at-bol point-at-eol "[ 	]*|[ 	]*" format "LR%d" append l v c cnt field fields1 fields name names end beg org-table-column-names org-table-local-parameters org-table-named-field-locations org-table-current-begin-line org-table-current-begin-pos org-table-current-line-types org-table-column-name-regexp pos org-table-dlines org-table-hlines nfields al al2 i #1=#:--cl-var--] 18 (#$ . 60302)])
#@93 Check if the current field starts with "=" or ":=".
If yes, store the formula and apply it.
(defalias 'org-table-maybe-eval-formula #[nil "\205F�\304\305 \206�\306!\307\211\310\311	\"\205E�\312	!\313\232\314\315	\"\316\317!\2045�\320\321G^O\322\232\203B�\323\n\205;�\324\325!\"\202E�\326\327!+\207" [org-table-formula-evaluate-inline field named eq org-trim org-table-get-field "" nil string-match "^:?=\$.*\$" string-to-char 58 match-string 1 fboundp calc-eval 0 2 "'(" org-table-eval-formula (4) org-table-formula-from-user error "Calc does not seem to be installed, and is needed to evaluate the formula"] 5 (#$ . 62500)])
#@99 List of commands triggering the recalculation of a line.
Will be filled automatically during use.
(defvar org-recalc-commands nil (#$ . 63144))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list org-recalc-marks default-boundp set-default ((" " . "Unmarked: no special line, no automatic recalculation") ("#" . "Automatically recalculate this line upon TAB, RET, and C-c C-c in the line") ("*" . "Recalculate only when entire table is recalculated with `C-u C-c *'") ("!" . "Column name definition line. Reference in formula as $name.") ("$" . "Parameter definition line name=value. Reference in formula as $name.") ("_" . "Names for values in row below this one.") ("^" . "Names for values in row above this one."))] 3)
#@349 Rotate the recalculation mark in the first column.
If in any row, the first field is not consistent with a mark,
insert a new column for the markers.
When there is an active region, change all the lines in the region,
after prompting for the marking character.
After each change, a message will be displayed indicating the meaning
of the new mark.
(defalias 'org-table-rotate-recalc-marks #[(&optional newchar) "\306 \204	�\307\310!\210\311\312\313\"\314\"\315 \316 \317\212\f\203!�\fb\210n\203)�\320\202*�\321\322\320`\"\\*\323 \205P�\324 \212\f\203A�\fb\210n\203I�\320\202J�\321\322\320`\"\\*/\323 \205q�\325 \212\f\203b�\fb\210n\203j�\320\202k�\321\322\320`\"\\*0\212\nb\210\326\327\330#)?1\331 2\3323\"@4\317\21156/\203\251�\333\334!\210\335\336 !3\3323\"@43\203\271�4\204\271�\307\3373\"\210/\203\303�\340/!\210\212\341\320!\210\3427!\204\323�\307\343!\210)1\204\346�\344\320!\210\345 \210\3442T!\210\346 5\212\341\320!\210\347\320\342\350!\203\3514\206\352\320!	\235\2118A@)\2116\351Q\202\353\"\210)/\203^0\203^\340/!\210\341\354!\210\317\212\f\2031\fb\210n\2039\320\202:\321\322\320`\"\\*0U\204Y\3427!\203#\347\320\3516\351Q\"\210\202#\340/!\2105\346 U\204i\355 \210\340
!\210t\205z\333\356\3326\"A\".\207" [org-recalc-marks marks beg end pos l org-at-table-p error "Not at a table" append mapcar car (" ") org-table-begin org-table-end nil 1 0 count-lines org-region-active-p region-beginning region-end re-search-forward "^[ 	]*|[^-|][^|]*[^#!$*_^| 	][^|]*|" t org-table-current-column assoc message "Change region to what mark?  Type # * ! $ or SPC: " char-to-string read-char-exclusive "Invalid NEWCHAR `%s' in `org-table-rotate-recalc-marks'" goto-line beginning-of-line looking-at "Not at a table data line" org-table-goto-column org-table-insert-column point-at-eol org-table-get-field "^[ 	]*| *\$[#!$*^_ ]\$ *|" " " match-string " # " 2 org-table-align "%s" l1 l2 have-col col newchar forcenew epos new org-table-dataline-regexp x] 6 (#$ . 63902) nil])
#@78 Recompute the current line if marked for it, and if we haven't just done it.
(defalias 'org-table-maybe-recalculate-line #[nil "\205;�	\n>\205%�\306\212\f\203�\fb\210n\203�\307\202�\310\311\307`\"\\*\232?\205;�\212\312\307!\210\313
!)\205;�\314 \205;�\315\207" [org-table-allow-automatic-line-recalculation last-command org-recalc-commands org-last-recalc-line pos org-table-auto-recalculate-regexp nil 1 0 count-lines beginning-of-line looking-at org-table-recalculate t] 5 (#$ . 65942) nil])
(defalias 'org-set-calc-mode #[(var &optional value) ";\203�\303\304\"\3058A@\n>\203\"�\n>A	\240\210\202(�\210	\210\n\210\n\207" [var value modes assoc (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) 2] 3])
(put 'org-set-calc-mode 'byte-optimizer 'byte-compile-inline-expand)
#@1871 Replace the table field value at the cursor by the result of a calculation.

This function makes use of Dave Gillespie's Calc package, in my view the
most exciting program ever written for GNU Emacs.  So you need to have Calc
installed in order to use this function.

In a table, this command replaces the value in the current field with the
result of a formula.  It also installs the formula as the "current" column
formula, by storing it in a special line below the table.  When called
with a `C-u' prefix, the current field must ba a named field, and the
formula is installed as valid in only this specific field.

When called with two `C-u' prefixes, insert the active equation
for the field back into the current field, so that it can be
edited there.  This is useful in order to use \[org-table-show-reference]
to check the referenced fields.

When called, the command first prompts for a formula, which is read in
the minibuffer.  Previously entered formulas are available through the
history list, and the last used formula is offered as a default.
These stored formulas are adapted correctly when moving, inserting, or
deleting columns with the corresponding commands.

The formula can be any algebraic expression understood by the Calc package.
For details, see the Org-mode manual.

This function can also be called from Lisp programs and offers
additional arguments: EQUATION can be the formula to apply.  If this
argument is given, the user will not be prompted.  SUPPRESS-ALIGN is
used to speed-up recursive calls by by-passing unnecessary aligns.
SUPPRESS-CONST suppresses the interpretation of constants in the
formula, assuming that this has been done already outside the function.
SUPPRESS-STORE means the formula should not be stored, either because
it is already stored, or because it is a modified equation that should
not overwrite the stored one.
(defalias 'org-table-eval-formula #[(&optional arg equation suppress-align suppress-const suppress-store suppress-analysis) "\306 \210\204\n�\307 \210	\310\232\203(�\311 \211\204�\312\313!\210\314\315\n\"\210\316 \210\317\211)\207\315	\250\2033�	\2024�\320\315\211@A
\320VBC\203O�D\203O�C\202V�\321C	\322\232\"E\323 F\324G!H\315\211IJ\315\211KL\315\211MN\315\211OP\315\211QR\315\211ST\315:\325\326E\"\203\327E\326\"\211U@E\330\331V\"AUA@PO\325\332O\"\203d\333\334\320O\"!S\335\334\336O\"!KS\337U\203\340KW\211X;\203\351�\330X\341\"X\336X8WXA@XXH>\203\376�XH>AW\240\210\202X\210W\210H\210H*H\202X\342\330S\343\"AKDW\211X;\2035\330X\341\"X\336X8WXA@XXH>\203JXH>AW\240\210\202SX\210W\210H\210H*H\344\345\317\211O$O\202\251�\325\346O\"\203~\334\347O\"\350\232I\344\345\317\211O$O\325\351O\"\203\222\317:\344\345\317\211O$O\325\352O\"\203\246\317J\344\345\317\211O$O\325\353O\"\203\377\334\347O\"\315W\211X;\203\320\330X\341\"X\336X8WXA@XXH>\203\345XH>AW\240\210\202\356X\210W\210H\210H*H\344\345\317\211O$O\202\246\325\354O\"\204\n\315O)Y\204Z\203\355E!E\356\320\357E#\206%\360R
\347V\203\302\327\361 \362 {[\363\364!\203H\364\347[G\315[$\210\202S\365\347[G\\[$\210[)\366\"I\317=\203e\367\370\f\"
S\324E!\211LG\336V\205|L\347\336O\371\232\211T\203\212:\203\212\372T\373L!L\325\374L\"\203\300\344\375 ]\376\216\377\201b�\334\320L\"\334\336L\"\"JIT$*\317\211L$L\202\220\325^L\"\203\374\334\347L\"G\320V\203\374\344\375 ]\201c�\216\377\201d�\334\347L\"\315F#JIT$*\317\211L$L\202\300\325\201e�L\"\2035\344\375 ]\201f�\216\377\201g�\f\335\334\320L\"!\335\334\336L\"!#JIT$*\317\211L$L\202\374LM\325\201h�L\"\203\212\335\334\320L\"!\211K\347U\203WF\202YKS\f8\211P\204m\312\201i�\334\347L\"\"\210\344\375 ]\201j�\216\377P\315IT$*\317\211L$L\2029T\203\256\315\201k�\201l�\217\211Q\247\203\247\201m�Q!\202\251QQ\202\317\363\201n�!\204\274\312\201o�!\210\201n�LHBI\205\314\201p�\"Q_\203u\201q�\220\201r�\201s�\201t�REML%!\210Q<\203\201r�\201s�\201u�\201v�Q@\201w�\"QA@#!\2027\201r�\201s�\201x�QO\206!\201y�O\2033\201s�O\335Q!\"\2025Q$!\221\210\201z�\201q�!N\201{�N!\210t\203Q
\203u\315`\201|�\201}�!)\204h\316 \210\312\201~�!\210\201�N!\210\201\200�\345!\210Q<\203\203\315O\201\201�Q\201\202�O\203\230\201s�O\335Q!\"\202\232Q!\210B\203\274
\347V\203\274\201\203�\201\204�!\203\274\201\205�\201\206�!\210\202'\347\211\202(B\203\314\201\207� \210a\206\327\205\327\316 .\207" [suppress-analysis arg eq org-table-may-need-update fields ndown org-table-check-inside-data-field org-table-get-specials (16) org-table-current-field-formula error "No equation active for current field" org-table-get-field nil org-table-align t 1 org-table-get-formula (4) org-table-current-column copy-sequence string-match ";" org-split-string assoc "%" "\$[pnfse]\$\$-?[0-9]+\$" string-to-char match-string string-to-number 2 112 calc-internal-prec (("D" calc-angle-mode deg) ("R" calc-angle-mode rad) ("F" calc-prefer-frac t) ("S" calc-symbolic-mode t)) calc-float-format ((110 . float) (102 . fix) (115 . sci) (101 . eng)) replace-match "" "[NT]" 0 "N" "L" "E" "[DRFS]" "\\S-" org-table-formula-substitute-names get-text-property :orig-formula "?" point-at-bol point-at-eol fboundp set-text-properties remove-text-properties " *| *" mapcar #[(x) "\301\302!!\207" [x number-to-string string-to-number] 3] "'(" literal org-table-rewrite-old-row-references "\\<remote([ 	]*\$[-_a-zA-Z0-9]+\$[ 	]*,[ 	]*\$[^\n)]+\$)" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-make-reference org-table-automatic-realign case-fold-search down equation suppress-store formula n0 org-calc-default-modes modes numbers keep-empty n form form0 bw fmt x ev orig c lispp tmp org-table-local-parameters value var suppress-const org-table-formula-use-constants s org-rm-props save-match-data-internal org-table-range-regexp org-table-formula-debug inhibit-redisplay suppress-align org-table-get-remote-range ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-get-range "\\$\$[0-9]+\$\\.\\.\\$\$[0-9]+\$" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-sublist "\\$\$[0-9]+\$" "Invalid field specifier \"%s\"" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) (byte-code "\301\211\302!!!\207" [form eval read] 4) ((error "#ERROR")) number-to-string calc-eval "Calc does not seem to be installed, and is needed to evaluate the formula" num "*Substitution History*" princ format "Substitution history of formula\nOrig:   %s\n$xyz->  %s\n@r$c->  %s\n$1->    %s\n" "       %s^\nError:  %s" make-string 45 "Result: %s\nFormat: %s\nFinal:  %s" "NONE" get-buffer-window org-fit-window-to-buffer y-or-n-p "Debugging Formula. Continue to next? " "Abort" delete-window message "#ERROR" org-table-justify-field-maybe looking-at ".*\n[ 	]*|[^-]" call-interactively org-return org-table-maybe-recalculate-line] 11 (#$ . 66795) "P"])
(defalias 'org-table-put-field-property #[(prop value) "\212\302\303\304x\210`\303\304w\210`	$)\207" [prop value put-text-property "^|" nil] 5])
#@229 Get a calc vector from a column, according to descriptor DESC.
Optional arguments TBEG and COL can give the beginning of the table and
the current column, to avoid unnecessary parsing.
HIGHLIGHT means, just highlight the range.
(defalias 'org-table-get-range #[(desc &optional tbeg col highlight) "\306!\307\232\204\f�\310P\212	\204�\311 \n\204�\312 \313\212\203%�b\210n\203-�\314\202.�\315\316\314`\"\\*\313\211\211\211\211\211\211\211()*+,-.\317/\"\204Y�\320\321\"\210\322\225\314\225\205e�\323\314\")\324\225\205p�\323\324\"(\325\225\205~�\323\325\"\314\313O+\326\225\205\214�\323\326\"\314\313O*+\203\250�\327+!\306+!\330>\203\244�\n\202\245�\315\\+*\203\302�\327*!\306*!\331>\203\276�\n\202\277�\315\\*)\332\232\203\314�\313)(\332\232\203\326�\313()\203\341�\333)!)(\203\354�\333(!()\204\365�.)(\204\376�.(+\204\n+*\204\n*
\203\")(U\203H+*U\203H\334)!\210\3350!\2045\336\325!\210\202'\337\340+!!1\203\275\341``\"\210\202\275()W\203Z)()\f(*+W\203l+*+\f*\334)!\210\3350!\204\336\325!\210\202q\342+!\210`-\334(!\210\3350!\204\232\336\315!\210\202\214\342*!\210`,1\203\261\341-\343\313w\210`\"\210\344\337\345\346\347-,\"\"\".\n\207" [desc tbeg col pos tmp rangep string-to-char 64 "@" org-table-begin org-table-current-column nil 1 0 count-lines string-match error "Invalid table range specifier `%s'" 3 match-string 4 2 5 string-to-number (45 43) (45 43) "" org-table-get-descriptor-line goto-line looking-at beginning-of-line org-trim org-table-get-field org-table-highlight-rectangle org-table-goto-column "^|\n" mapcar apply append org-table-copy-region r2 r1 c2 c1 end beg thisline org-table-range-regexp org-table-dataline-regexp highlight] 9 (#$ . 74075)])
#@179 Analyze descriptor DESC and retrieve the corresponding line number.
The cursor is currently in line CLINE, the table begins in line BLINE,
and TABLE is a vector with line types.
(defalias 'org-table-get-descriptor-line #[(desc &optional cline bline table) "\306\307\"\203
�	\310!H\207\n\206*�\311\212\203�b\210n\203#�\312\202$�\313\314\312`\"\\*\f\2060�
\2068�\306\315\"\203Z�\316\225\204K�\317\225\203Z�\316\225\203_�\317\225\203_�\320\225\204_�\321\322\"\210\323\225\205h�\324\323\"\316\225\205t�\316\225\316\224Z\320\225\205�\324\320\"\317\225\205\214�\310\324\317\"! \n\fZ!\317\225\205\245�\312\225\203\243�\316\225?\206\245�\320\225\"\203\305�\204\305�\313!\325\313H\326=\203\305�S\204\332� \203\332�\204\332�\321\327!\202\203\371�\313V\203\371�\330!\326\331\232\311\n&! \203\330!\332\331\232\" \n&!\f!\\.\207" [desc org-table-dlines cline pos bline org-table-current-begin-line string-match "^[0-9]+$" string-to-number nil 1 0 count-lines "^\$\\([-+]\$?\$I+\$\\)?\$\\([-+]\$?\$[0-9]+\$\\)?" 3 6 5 error "invalid row descriptor `%s'" 2 match-string "+" hline "should never happen" org-table-find-row-type "-" dline table org-table-current-line-types hdir hn odir on i rel] 9 (#$ . 75860)])
#@34 FIXME: Needs more documentation.
(defalias 'org-table-find-row-type #[(table i type backwards relative n cline desc) "G\n\306V\203e�\f\203�\307\202�\310\\\211\203^�\306Y\203^�	W\203^�H
=\204^�\203Z�H\311=\203Z�\203I�\312\313#\202[�\f\203R�\307\202S�\310Z\310\202^�\314\204	�\nS\211\202�\306W\204q�	Y\203{�\312\315#\202|�)\207" [table l n i backwards type 0 -1 1 hline error "Row descriptor %s used in line %d crosses hline" t "Row descriptor %s used in line %d leads outside table" relative org-table-error-on-row-ref-crossing-hline desc cline] 5 (#$ . 77147)])
(defalias 'org-table-rewrite-old-row-references #[(s) "\301\302\"\203�\303\304!\207\207" [s string-match "&[-+0-9I]" error "Formula contains old &row reference, please rewrite using @-syntax"] 3])
#@267 Convert list ELEMENTS to something appropriate to insert into formula.
KEEP-EMPTY indicated to keep empty fields, default is to skip them.
NUMBERS indicates that everything should be converted to numbers.
LISPP means to return something appropriate for a Lisp list.
(defalias 'org-table-make-reference #[(elements keep-empty numbers lispp) ";\2036�	\203�	\304=\203�\207\305\n\203�\306!\202�!\207\307\232\203'�\310\n\2031�\311\306!!\312\313Q\207\204B�\314\315\316\317\"\"\206G�\320	\203R�\321\322\323#\207\324\321\325\326#\327Q\207" [elements lispp numbers keep-empty literal prin1-to-string string-to-number "" "0" number-to-string "(" ")" delq nil mapcar #[(x) "\301\302\"\205�\207" [x string-match "\\S-"] 3] ("0") mapconcat #[(x) "\303=\203�	\207\304\n\203�\305	!\202�	!\207" [lispp x numbers literal prin1-to-string string-to-number] 3] " " "[" #[(x) "\203\n�\302\303	!!\207	\207" [numbers x number-to-string string-to-number] 3] "," "]"] 5 (#$ . 77948)])
#@478 Recalculate the current table line by applying all stored formulas.
With prefix arg ALL, do this for all lines in the table.
With the prefix argument ALL is `(16)' (a double `C-c C-u' prefix), or if
it is the symbol `iterate', recompute the table until it no longer changes.
If NOALIGN is not nil, do not re-align the table after the computations
are done.  This is typically used internally to save time, if it is
known that the table will be realigned a little later anyway.
(defalias 'org-table-recalculate #[(&optional all noalign) "	>\204\n�	B\306 \204�\307\310!\210\n\311=\204�\n\312\232\203\"�\313 \207\314 \210\315\316 \317\"\f?@A\320B\212B\203?�Bb\210n\203G�\321\202H�\322\323\321`\"\\*C\324 D\320\211EF\320\211GH\320\211IJ\320K\322L\320\211MN\320O\325\326\"\211A@\211M\203\243�\327M@!\330X\203\231�MHBH\202z�MIBI\202z�H\237HI\237I\n\203\367�\331 \332 T\320\223F\333 \211Eb\210\334PF\335#\203\322�QA\202\334@F\335#\203\334RF\335#\203\334@F\335#\203\322\224E\202\336 E\331 \337 T\320\223FEb\210\n\203\340\341!\210\342EF\343#\210I\211AI@\211M\203\212M@O\344OS\"\211N\204N\345\346O\"\203NO\320\347\350\217\351\352\353O\"!ENN\203\n\204aNA@C\232\203\340\354O\"\210\355NA@!\210\356\353N8!\210\357NMAC\"JBJ\360\361\335\"\210\202Eb\210\334AF\335#\203\345\362\363\321!\"\204\216\n\203\257\340\364LT\211L\"\210\320B\212B\203\274Bb\210n\203\304\321\202\305\322\323\321`\"\\*THKK\211AK@\211G\203\216\355T!\210\356\351G@!\320\365#\210\366`\361\"\204\321\367\320GA\370\371\372\373&\210\202\321J\211AJ@\211M\2035\340\354M@\"\210\355MA@!\210\356\353M8!\210\367\320\374M8\370\371\372\373&\210\202\355C!\210\356D!\210\342ed\375#\2108\204^U\203T\376 \204^\n\203^\340\377L\"\210\340\201V�!\210\355C!\210\356D!\2108\206\206U\203}\376 \206\206\n\205\206\340\201V�!.\207" [this-command org-recalc-commands all eqlist debug-on-error inhibit-redisplay org-at-table-p error "Not at a table" iterate (16) org-table-iterate org-table-get-specials sort org-table-get-stored-formulas #[(a b) "@	@\231\207" [a b] 2] nil 1 0 count-lines org-table-current-column mapcar #[(x) "\301A!\241\210\207" [x org-table-formula-substitute-names] 3] string-to-char 57 make-marker org-table-end org-table-begin re-search-forward t point-at-bol point-at-eol message "Re-applying formulas to full table..." remove-text-properties (org-untouchable t) assoc string-match "@\$[0-9]+\$\\$\$[0-9]+\$" (byte-code "\302\303\304	\"!H\207" [org-table-dlines name string-to-number match-string 1] 5) ((error (error "Invalid row number in %s" name))) string-to-number match-string 2 "Re-applying formula to field: %s" goto-line org-table-goto-column append org-table-put-field-property :org-untouchable "^ *[_^!$/] *$" org-table-get-field "Re-applying formulas to full table...(line %d)" force get-text-property org-table-eval-formula noalign nocst nostore noanalysis 3 (org-untouchable t) org-table-align "Re-applying formulas to %d lines...done" org-table-dataline-regexp line-re pos thisline thiscol beg end entry eqlnum eqlname eqlname1 eql cnt eq a name org-table-calculate-mark-regexp org-table-recalculate-regexp org-table-hline-regexp org-table-named-field-locations org-last-recalc-line org-table-may-need-update "Re-applying formulas...done"] 8 (#$ . 78943) "P"])
#@57 Recalculate the table until it does not change anymore.
(defalias 'org-table-iterate #[(&optional arg) "\203\n�\305!\202�\306\307\310 \311 {\312\313\314\215,\207" [arg thistbl lasttbl i imax prefix-numeric-value 10 0 org-table-begin org-table-end nil exit (byte-code "	W\2038�T\304\305!\210\306 \307 {\n\230\204�\n\202��\310V\203,�\311\312\"\210\2020�\311\313!\210\314\315\316\"\210\202��\317\320\"\207" [i imax thistbl lasttbl org-table-recalculate all org-table-begin org-table-end 1 message "Convergence after %d iterations" "Table was already stable" throw exit t error "No convergence after %d iterations"] 3)] 4 (#$ . 82343) "P"])
#@41 Replace $const with values in string F.
(defalias 'org-table-formula-substitute-names #[(f) "\306\307\310!\311U?\312
\f#\211\2030�\fT\313\314\315\"\"\316\317AP\320\211$\202
�\306\312\321\f#\211\203q�\322\225\203G�\322\225\2022�\fT\323 \324\216\325\314\315\"!*\211\2032�\316	\205b�\326	\205h�\327Q\320\211$\2022�\203�\330\306G\331\n%\210,\207" [f pp f1 a start org-table-column-name-regexp 0 nil string-to-char 39 string-match assoc match-string 1 replace-match "$" t "\\$\$[a-zA-Z][_a-zA-Z0-9]*\$\\|\$\\<remote([^)]*)\$" 2 match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-get-constant "(" ")" put-text-property :orig-formula org-table-column-names save-match-data-internal org-table-formula-debug] 6 (#$ . 83003)])
#@83 Find the value for a parameter or constant in a formula.
Parameters get priority.
(defalias 'org-table-get-constant #[(const) "\304	\"A\206<�\304\n\"A\206<�\304\"A\206<�\305\306!\203$�\306!\206<�\307\310G^O\311\230\203;�\312\313\310\313O\314#\206<�\315\207" [const org-table-local-parameters org-table-formula-constants-local org-table-formula-constants assoc fboundp constants-get 0 5 "PROP_" org-entry-get nil inherit "#UNDEFINED_NAME"] 5 (#$ . 83820)])
(byte-code "\302B\303\302!\204\205�\304\302\305 \306	\307\310#\210\306	\311\310#\210\306	\312\310#\210\306	\313\314#\210\306	\315\316#\210\306	\317\320#\210\306	\321\322#\210\306	\323\324#\210\306	\325\326#\210\306	\327\330#\210\306	\331\332#\210\306	\333\334#\210\306	\335\336#\210\306	\337\340#\210\306	\341\340#\210\306	\342\343#\210\306	\344\343#\210\306	\345\346#\210\306	\347\350#\210	)\"\210\302\207" [current-load-list map org-table-fedit-map default-boundp set-default make-sparse-keymap org-defkey "" org-table-fedit-finish "" "" "" org-table-fedit-abort "?" org-table-show-reference [(meta shift up)] org-table-fedit-line-up [(meta shift down)] org-table-fedit-line-down [(shift up)] org-table-fedit-ref-up [(shift down)] org-table-fedit-ref-down [(shift left)] org-table-fedit-ref-left [(shift right)] org-table-fedit-ref-right [(meta up)] org-table-fedit-scroll-down [(meta down)] org-table-fedit-scroll [(meta tab)] lisp-complete-symbol "\211" [(tab)] org-table-fedit-lisp-indent "	" "" org-table-fedit-toggle-ref-type "}" org-table-fedit-toggle-coordinates] 6)
#@24 Org Edit Formulas Menu
(defvar org-table-fedit-menu nil (#$ . 85381))
(easy-menu-do-define 'org-table-fedit-menu org-table-fedit-map "Org Edit Formulas Menu" '("Edit-Formulas" ["Finish and Install" org-table-fedit-finish t] ["Finish, Install, and Apply" (org-table-fedit-finish t) :keys "C-u C-c C-c"] ["Abort" org-table-fedit-abort t] "--" ["Pretty-Print Lisp Formula" org-table-fedit-lisp-indent t] ["Complete Lisp Symbol" lisp-complete-symbol t] "--" "Shift Reference at Point" ["Up" org-table-fedit-ref-up t] ["Down" org-table-fedit-ref-down t] ["Left" org-table-fedit-ref-left t] ["Right" org-table-fedit-ref-right t] "-" "Change Test Row for Column Formulas" ["Up" org-table-fedit-line-up t] ["Down" org-table-fedit-line-down t] "--" ["Scroll Table Window" org-table-fedit-scroll t] ["Scroll Table Window down" org-table-fedit-scroll-down t] ["Show Table Grid" org-table-fedit-toggle-coordinates :style toggle :selected (with-current-buffer (marker-buffer org-pos) org-table-overlay-coordinates)] "--" ["Standard Refs (B3 instead of @3$2)" org-table-fedit-toggle-ref-type :style toggle :selected org-table-buffer-is-an]))
#@62 Edit the formulas of the current table in a separate buffer.
(defalias 'org-table-edit-formulas #[nil "\212\306\307!\210\310\311!)\203�\306\312!\210\313 \204�\314\315!\210\316 \210\317\320\321\"\322\323\321!\324\"\325 `\326\223\307\327 \330\326\211\211\211>?@\331\332!\210\333 \210\334\335 \210)\336\337ADBC\340C!BL\210*\341?BC\340C!BL\210*\342
BC\340C!BL\210*\343D!\210\344\345\346\347\211$\210\350E!\210\326?\212?\203\236�?b\210n\203\246�\307\202\247�\312\351\307`\"\\*>@\211A@@\211\203?\352@!\353\232\203\310�\354\202\325�\355\356@\"\203\324�\357\202\325�\360\211\f\236\211\203\364�o\204\345�\361c\210\362A\326\363F$c\210\364\f\"@\232\203\326?\212?\203	?b\210n\203\307\202\312\351\307`\"\\*>\352@!\353\232\203'\365\202(\366@\367A\361\260\370\312\nG\371\n$\210\nc\210\202\257�G\347=\203I\372 \210\373>!\210\374\375!.\n\207" [title type s entry titles wc beginning-of-line 1 looking-at "#\\+TBLFM" 0 org-at-table-p error "Not at a table" org-table-get-specials org-table-current-field-formula key noerror sort org-table-get-stored-formulas org-table-formula-less-p make-marker nil current-window-configuration ((column . "# Column Formulas\n") (field . "# Field Formulas\n") (named . "# Named Field Formulas\n")) org-switch-to-buffer-other-window "*Edit Formulas*" erase-buffer (not fundamental-mode) fundamental-mode font-lock-global-modes not make-variable-buffer-local org-pos org-window-configuration use-local-map org-add-hook post-command-hook org-table-fedit-post-command t easy-menu-add count-lines string-to-char 64 field string-match "^[0-9]" column named "\n" org-add-props face delq "" "$" " = " remove-text-properties (face nil) org-table-fedit-toggle-ref-type goto-line message "Edit formulas and finish with `C-c C-c'.  See menu for more commands." startline pos eql major-mode value var org-table-fedit-map org-table-fedit-menu font-lock-comment-face org-table-use-standard-references] 11 (#$ . 86515) nil])
(defalias 'org-table-fedit-post-command #[nil "\302>?\205�\303 \212\304\305\306\217\210\307	!*\207" [this-command win (lisp-complete-symbol) selected-window nil (org-table-show-reference) ((error)) select-window] 3])
#@57 Convert a formula from internal to user representation.
(defalias 'org-table-formula-to-user #[(s) "\302=\203\n�\303	!\207	\207" [org-table-use-standard-references s t org-table-convert-refs-to-an] 2 (#$ . 88737)])
#@57 Convert a formula from user to internal representation.
(defalias 'org-table-formula-from-user #[(s) "\203�\302	!\207	\207" [org-table-use-standard-references s org-table-convert-refs-to-rc] 2 (#$ . 88959)])
#@139 Convert spreadsheet references from AB7 to @7$28.
Works for single references, but also for entire formulas and even the
full TBLFM line.
(defalias 'org-table-convert-refs-to-rc #[(s) "\302\303\304	#\203k�\305\225\203�\302\225\202�\302\224\302V\203;�	\302\224S\302]H\306\232\203;�	\302\224\307Z\302]H\306\232\204;�\302\225\202�\302\224\310\311\307	\"\312\232\203T�\313\314\315\311\316	\"!\"\202c�\313\317\320\311\307	\"!\315\311\316	\"!#\321\211	$\202�	)\207" [start s 0 string-match "\\<\$[a-zA-Z]+\$\$[0-9]+\\>\\|&\$\\|\$;[^
\n:]+\\|\\<remote([^)]*)\$" 3 46 2 replace-match match-string "&" format "$%d" org-letters-to-number 1 "@%d$%d" string-to-number t] 8 (#$ . 89176)])
#@142 Convert spreadsheet references from to @7$28 to AB7.
Works for single references, but also for entire formulas and even the
full TBLFM line.
(defalias 'org-table-convert-refs-to-an #[(s) "\301\302\"\203!�\303\304\305\306\307\310\311\"!!\307\310\312\"!#\313\211$\202��\301\314\"\203<�\303\315\306\307\310\311\"!!\316Q\313\317$\202!�\207" [s string-match "@\$[0-9]+\$\\$\$[0-9]+\$" replace-match format "%s%d" org-number-to-letters string-to-number match-string 2 1 t "\$^\\|[^0-9a-zA-Z]\$\\$\$[0-9]+\$" "\\1" "&" nil] 8 (#$ . 89875)])
#@90 Convert a base 26 number represented by letters into an integer.
For example:  AB -> 28.
(defalias 'org-letters-to-number #[(s) "\302	\226\211G\302V\203 �\303\304_\305	!\306\307$	\307\310O\211\202�)\207" [n s 0 + 26 string-to-char -65 1 nil] 6 (#$ . 90433)])
#@90 Convert an integer into a base 26 number represented by letters.
For example:  28 -> AB.
(defalias 'org-number-to-letters #[(n) "\302	\303V\203�\304\305	S\306\"\307\\!P	S\306\245\211\202�)\207" [s n "" 0 char-to-string mod 26 65] 5 (#$ . 90705)])
#@56 Convert all references in this buffer, using FUNCTION.
(defalias 'org-table-fedit-convert-buffer #[(function) "\303\212\203\n�b\210n\203�\304\202�\305\306\304`\"\\*eb\210m\2048�\n`\307 {!c\210`\307 |\210m\204�\304u\210\202�\310	!)\207" [pos line function nil 1 0 count-lines point-at-eol goto-line] 4 (#$ . 90965)])
#@64 Convert all references in the buffer from B3 to @3$2 and back.
(defalias 'org-table-fedit-toggle-ref-type #[nil "\300?\303\n!	L\210*\304\203�\305\202�\306!\210\307\310\203\"�\311\202#�\312\"\207" [org-table-buffer-is-an value var make-variable-buffer-local org-table-fedit-convert-buffer org-table-convert-refs-to-an org-table-convert-refs-to-rc message "Reference type switched to %s" "A1 etc" "@row$column"] 3 (#$ . 91295) nil])
#@48 Shift the reference at point one row/hline up.
(defalias 'org-table-fedit-ref-up #[nil "\300\301!\207" [org-table-fedit-shift-reference up] 2 (#$ . 91739) nil])
#@50 Shift the reference at point one row/hline down.
(defalias 'org-table-fedit-ref-down #[nil "\300\301!\207" [org-table-fedit-shift-reference down] 2 (#$ . 91906) nil])
#@53 Shift the reference at point one field to the left.
(defalias 'org-table-fedit-ref-left #[nil "\300\301!\207" [org-table-fedit-shift-reference left] 2 (#$ . 92079) nil])
#@54 Shift the reference at point one field to the right.
(defalias 'org-table-fedit-ref-right #[nil "\300\301!\207" [org-table-fedit-shift-reference right] 2 (#$ . 92255) nil])
(defalias 'org-table-fedit-shift-reference #[(dir) "\301\302!\203�\303>\203�\304\305\306=\"\207\307\310!\207\301\311!\2031�\312>\203*�\304\313\314=\"\207\304\305\306=\"\207\301\315!\205L�\316>\203F�\304\313\314=\317\225#\207\304\320\306=\"\207" [dir org-at-regexp-p "\$\\<[a-zA-Z]\$&" (left right) org-rematch-and-replace 1 left error "Cannot shift reference in this direction" "\$\\<[a-zA-Z]\\{1,2\\}\$\$[0-9]+\$" (up down) 2 up "\$@\\|\\.\\.\$\$[-+]?\\(I+\\>\\|[0-9]+\$\\)\$\\$\\([-+]?[0-9]+\$\\)?" (up down) 3 5] 4])
#@65 Re-match the group N, and replace it with the shifted refrence.
(defalias 'org-rematch-and-replace #[(n &optional decr hline) "\225\204	�\303\304!\210\224b\210\305\306\307!!!\205\"�\310\311\307\312!	\n#\313\211#\207" [n decr hline error "Cannot shift reference in this direction" looking-at regexp-quote match-string replace-match org-table-shift-refpart 0 t] 5 (#$ . 92976)])
#@188 Shift a refrence part REF.
If DECR is set, decrease the references row/column, else increase.
If HLINE is set, this may be a hline reference, it certainly is not
a translation reference.
(defalias 'org-table-shift-refpart #[(ref &optional decr hline) "\306 \307\216\310\311	\"\312\n\203�	\313\314O	\314\312O\f\203p�\310\315	\"\203p�\316\n\317	G!P!\211
\2037�\320\2028�\314\\\211\313U\203L�
\203I�\320\202J�\314\\\n\203c�\313W\203Z�\321\202[�\322\323!\202g�\314]\n\324\325\"P\202\307�\310\326	\"\203\251�\316\n	P!\211
\203\206�\320\202\207�\314\\\n\203\241�\313W\203\227�\321\202\230�\322\317\323!!P\202\307�\317\314]!\202\307�\310\327	\"\203\304�\330\314\331	!
\203\275�\320\202\276�\314\\]!\202\307�\332\333!,\207" [save-match-data-internal ref sign n hline decr match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "^[-+]" nil 0 1 "^I+" string-to-number number-to-string -1 "-" "+" abs make-string 73 "^[0-9]+" "^[a-zA-Z]+" org-number-to-letters org-letters-to-number error "Cannot shift reference"] 5 (#$ . 93363)])
#@60 Toggle the display of coordinates in the referenced table.
(defalias 'org-table-fedit-toggle-coordinates #[nil "\302!r\303!q\210\212	b\210\304 +\207" [org-pos pos marker-position marker-buffer org-table-toggle-coordinate-overlays] 2 (#$ . 94467) nil])
#@114 Parse the buffer for formula definitions and install them.
With prefix ARG, apply the new formulas to the table.
(defalias 'org-table-fedit-finish #[(&optional arg) "\306 \210\203
�\307\310!\210\311\n\311\211\211'eb\210\312\313\311\314#\203d�\315\225\203,�\316\315!\202/�\316\317!\316\320!\321!\211\322\232\204�\323\324\"\203O�\325\326\314\211$\202>�\327\f
\"\203[�\330\331\f\"\210\fB
B\202�\311\332(!\210\333\334\335'!!!\210'b\210\336 \204\201�\330\337!\210\340
!\210'\311\211\223\210\341\342!\210)\203\232�\343\344!\202\235�\345\346!,\207" [org-table-use-standard-references org-table-buffer-is-an org-pos form var eql org-table-remove-rectangle-highlight org-table-fedit-convert-buffer org-table-convert-refs-to-rc nil re-search-forward "^\$@[0-9]+\\$[0-9]+\\|\\$\\([a-zA-Z0-9]+\$\\) *= *\$.*\\(\n[ 	]+.*$\$*\\)" t 2 match-string 1 3 org-trim "" string-match "[ 	]*\n[ 	]*" replace-match " " assoc error "Double formulas for %s" set-window-configuration select-window get-buffer-window marker-buffer org-at-table-p "Lost table position - cannot install formulae" org-table-store-formulas kill-buffer "*Edit Formulas*" org-table-recalculate all message "New formulas installed - press C-u C-c C-c to apply." pos org-window-configuration arg] 6 (#$ . 94729) "P"])
#@57 Abort editing formulas, without installing the changes.
(defalias 'org-table-fedit-abort #[nil "\303 \210\304\n!\210\305\306\307	!!!\210	b\210	\310\211\223\210\311\312!)\207" [org-pos pos org-window-configuration org-table-remove-rectangle-highlight set-window-configuration select-window get-buffer-window marker-buffer nil message "Formula editing aborted without installing changes"] 4 (#$ . 96027) nil])
#@68 Pretty-print and re-indent Lisp expressions in the Formula Editor.
(defalias 'org-table-fedit-lisp-indent #[nil "`\306\211\211\307\310!\210\311\312!\203�b\210\313\314!\202\227�\311\315!\203&�b\202\227�\316\317!\2042�\320\321!\202\227�\311\322!\203\226�\323\225\324Zb\210`\325i\326\"\306\327\330\217\210`\214\n	}\210\f
=\203k�eb\210\306\331\332\306\333#\203\220�\334\335!\210\202\\�\317 \210\336ed\"\210eTb\210\331\337\306\333#\203\211�\307\310!\210c\210\202w�db\210\340\310!\210)\nb\202\227�\306,\207" [ind end beg pos last-command this-command nil beginning-of-line 1 looking-at "[ 	]" call-interactively lisp-indent-line "[$&@0-9a-zA-Z]+ *= *[^ 	\n']" fboundp pp-buffer error "Cannot pretty-print.  Command `pp-buffer' is not available." "[$&@0-9a-zA-Z]+ *= *'(" 0 2 make-string 32 (forward-sexp 1) ((error (error "Cannot pretty-print Lisp expression: Unbalanced parenthesis"))) re-search-forward "[ 	]*\n[ 	]*" t replace-match " " untabify "^." backward-delete-char] 4 (#$ . 96443) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-show-positions default-boundp set-default nil] 3)
#@55 Show the location/value of the $ expression at point.
(defalias 'org-table-show-reference #[(&optional local) "\300 \210\301\302\215\207" [org-table-remove-rectangle-highlight exit (byte-code "\203�`\202	�	\306\307\310 \311\211\211\211\211\211\211@ABCDE\203-�\312 \210\313F!\204B�\313G!\204B�\313H!\203S�\314 I\315\216\316\317\320!!*\321\202r�\313\322!\203]�\323\202r�\313\324!\203g�\325\202r�\204o�\311\202r�\326\327!\211\205~�\206~�\317\320!\211\203\223�\320\224\330 \232\204\223�\331\320\224\320\225\332#\210\333\334\335\"\210\f\323=\203\244�\336\311O@\f\321=\203\272�\337!\340\232\204\266�\341P\342!\204\351�\212\336\210\343\344\311\307#\210\345\336!\210\346\347!\203\350�\314 I\350\216\316\317\336!!*\331\336\224\336\225D#\210)\351E!\203\352E!\203\353\352E!!\203\f\354\353\352E!!!\210\202\355\353\352E!!!\210Eb\210\356 \210\n\203\n\336\311O\357\360\n\"\203C\361J\"\362
A@!\210\363\364
8!\210\202r\357\365\n\"\203k\366\317\336\n\"!\366\317\364\n\"!KL\362MLH!\210\363K!\210*\202r\363\366!!\210E`\311\223\210\367\311\211D#\210\n\232\204\314\203\314\f\321=\203\227\311\370\371\217\210\202\314\361@J\"\211\203\300\362
A@!\210\363\364
8!\210\367``\"\210\372\373\364
8
A@#\210\202\314\361@N\"\211\203\363\366
A!!\210\367``\"\210\374 b\210\375\376@\377Q\201W� \307#\203\374\336\224b\210\367 \210\372\201X�
A\"\210\202\314\326\201Y�!\210\202\314\f\325=\203&\363\366\336\311O!!\210\367``\"\210\372\201Z�\336\311O\"\210\202\314\361@O\"\211\203^\374 b\210\375\201[�@\201\\�Q\311\307#\203U\336\224b\210\367 \210\372\201]�!\210\202\314\326\201^�!\210\202\314@\204j\326\327!\210\202\314\361@P\"\211\203\202\372\201_�@
A#\210\202\314\361@Q\"\211\203\232\372\201`�@
A#\210\202\314\201a�\201b�!\205\252\201b�@!\211\203\304\372\201c�@
\201d�\201e�R\"$\210\202\314\326\201f�@\"\210Eb\210A\203!S\201g�>\204!EABATABA\201h�\201V�A\"\201h�\201U�A\"U\211Vb\210\201i�\320!\210Ub\210\201j�U!\204 \201i�\201k�!\210*\354B!.\207" [local org-pos dest match what e highlight t selected-window nil org-table-get-specials org-at-regexp-p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-convert-refs-to-rc match-string 0 range "\\$[a-zA-Z][a-zA-Z0-9]*" name "\\$[0-9]+" column error "No reference at point" point-at-bol org-table-add-rectangle-overlay secondary-selection org-add-hook before-change-functions org-table-remove-rectangle-highlight 1 string-to-char 64 "@" org-table-formula-substitute-names re-search-backward "^\\S-" beginning-of-line looking-at "\$\\$[0-9a-zA-Z]+\\|@[0-9]+\\$[0-9]+\\|[a-zA-Z]+\\([0-9]+\\|&\$\\) *=" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) markerp marker-buffer get-buffer-window select-window org-switch-to-buffer-other-window org-table-force-dataline string-match "^\\$[a-zA-Z][a-zA-Z0-9]*" assoc goto-line org-table-goto-column 2 "^@\$[0-9]+\$\\$\$[0-9]+\$" string-to-number org-table-highlight-rectangle (byte-code "\212\301\302\211\303$\210)\302\207" [match org-table-get-range nil highlight] 5) ((error)) message "Named field, column %d of line %d" org-table-begin re-search-forward "^[ 	]*| *! *.*?| *\$" "\$ *|" var org-show-positions win org-inhibit-highlight-removal face2 pos org-table-range-regexp2 org-table-translate-regexp org-table-range-regexp save-match-data-internal org-table-named-field-locations c l org-table-dlines org-table-column-names org-table-local-parameters org-table-formula-constants-local org-table-formula-constants constants-unit-system this-command org-table-current-begin-pos max min org-table-end "Named column (column %s)" "Column name not found" "Column %s" "^[ 	]*| *\\$ *.*?| *\$" "=\$" "Local parameter." "Parameter not found" "Local Constant: $%s=%s in #+CONSTANTS line." "Constant: $%s=%s in `org-table-formula-constants'." fboundp constants-get "Constant: $%s=%s, from `constants.el'%s." format " (%s units)" "Undefined name $%s" (org-table-fedit-scroll org-table-fedit-scroll-down) apply recenter pos-visible-in-window-p -1] 12)] 2 (#$ . 97587) nil])
#@51 Make sure the cursor is in a dataline in a table.
(defalias 'org-table-force-dataline #[nil "\212\304\305!\210\306!)?\205S�\212\307	\310\311#)\212\312	\310\311#)\n\203>�\203>�\313\n`Z!\313`Z!W\2039�\n\202:�b\202R�\n\204F�\203O�\n\206K�b\202R�\314\315!+\207" [org-table-dataline-regexp re p1 p2 beginning-of-line 1 looking-at re-search-forward nil move re-search-backward abs error "No table dataline around here"] 4 (#$ . 101756)])
#@58 Move cursor one line up in the window showing the table.
(defalias 'org-table-fedit-line-up #[nil "\300\301!\207" [org-table-fedit-move previous-line] 2 (#$ . 102204) nil])
#@60 Move cursor one line down in the window showing the table.
(defalias 'org-table-fedit-line-down #[nil "\300\301!\207" [org-table-fedit-move next-line] 2 (#$ . 102383) nil])
#@126 Move the cursor in the window showing the table.
Use COMMAND to do the motion, repeat if necessary to end up in a data line.
(defalias 'org-table-fedit-move #[(command) "\306\307 \306\310\311\312!!!\210`\313
!\210\314 \203(�\315 \203(�\313
!\210\202�\314 \2040�	b\210`\306\223\210\310\n!,\207" [org-pos p win pos org-table-allow-automatic-line-recalculation command nil selected-window select-window get-buffer-window marker-buffer call-interactively org-at-table-p org-at-table-hline-p] 4 (#$ . 102563)])
(defalias 'org-table-fedit-scroll #[(N) "\303!\304\n!)\207" [org-pos other-window-scroll-buffer N marker-buffer scroll-other-window] 2 nil "p"])
(defalias 'org-table-fedit-scroll-down #[(N) "\301[!\207" [N org-table-fedit-scroll] 2 nil "p"])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list org-table-rectangle-overlays default-boundp set-default nil] 3)
#@20 Add a new overlay.
(defalias 'org-table-add-rectangle-overlay #[(beg end &optional face) "\305	\"\306\n\303\206
�\307#\210\n\fB\211)\207" [beg end ov face org-table-rectangle-overlays org-make-overlay org-overlay-put secondary-selection] 4 (#$ . 103474)])
#@42 Highlight rectangular region in a table.
(defalias 'org-table-highlight-rectangle #[(&optional beg end face) "\206�`	\206�`	^	]\306\211\211\211\211\307\310!\2031�BB	^b\210\306\212\203C�b\210n\203K�\311\202L�\312\313\311`\"\\*\314 	]b\210\306\212\203i�b\210n\203q�\311\202r�\312\313\311`\"\\*\314 
V\203\210�
\n\315!\210\316\311!\210\fX\203\317�\317!\203\302�\320
!\210\321\306x\210`\320!\210\321\306w\210`\322	#\210\316\323!\210T\211\202\232�*b\210.\324\325\326\"\207" [beg end tmp c2 l2 c1 nil boundp org-show-positions 1 0 count-lines org-table-current-column goto-line beginning-of-line looking-at org-table-goto-column "^|\n" org-table-add-rectangle-overlay 2 add-hook before-change-functions org-table-remove-rectangle-highlight l1 e b pos line #1=#:--cl-var-- org-table-dataline-regexp face] 7 (#$ . 103740)])
#@32 Remove the rectangle overlays.
(defalias 'org-table-remove-rectangle-highlight #[(&rest ignore) "?\205�\302\303\304\"\210\305\306	\"\210\307\211\207" [org-inhibit-highlight-removal org-table-rectangle-overlays remove-hook before-change-functions org-table-remove-rectangle-highlight mapc org-delete-overlay nil] 3 (#$ . 104638)])
#@69 Collects the coordinate grid overlays, so that they can be removed.
(defvar org-table-coordinate-overlays nil (#$ . 104977))
(make-variable-buffer-local 'org-table-coordinate-overlays)
#@69 Add overlays to the table at point, to show row/column coordinates.
(defalias 'org-table-overlay-coordinates #[nil "\306\307\"\210\310\212\311\211\310\211\211\211\211\211\211\211 !\"#\312 b\210\313 \205\256�\314  \315\316 \316 T\"\211B\317$!\211!\203P�\320\321\"T\211\"\"\202Y�\320\322#T\211#\"\323\n\f\324\325$\210!\203\247�\311\326\327 \330#\203\247�\311\224TT\331\332!P\333!%\330=\203\216�
\202\220�\315	\211\fG\\\"\211B\334\n\f\324\325$\210\202h�\335\336!\210\202%�.\207" [org-table-coordinate-overlays beg ov ic str s2 mapc org-delete-overlay nil 0 org-table-begin org-at-table-p point-at-eol org-make-overlay point-at-bol looking-at format "I*%-2d" "%4d" org-overlay-before-string org-special-keyword evaporate re-search-forward "[+|]\$-+\$" t "$" int-to-string org-number-to-letters org-overlay-display beginning-of-line 2 s1 eol hline ih id org-table-hline-regexp org-table-use-standard-references] 11 (#$ . 105168) nil])
#@53 Toggle the display of Row/Column numbers in tables.
(defalias 'org-table-toggle-coordinate-overlays #[nil "?\302\303\203
�\304\202�\305\"\210\306 \203�\203�\307 \210?\205)�\310\311	\"\210\312\211\207" [org-table-overlay-coordinates org-table-coordinate-overlays message "Row/Column number display turned %s" "on" "off" org-at-table-p org-table-align mapc org-delete-overlay nil] 3 (#$ . 106149) nil])
#@40 Toggle the formula debugger in tables.
(defalias 'org-table-toggle-formula-debugger #[nil "?\301\302\203
�\303\202�\304\"\207" [org-table-formula-debug message "Formula debugging has been turned %s" "on" "off"] 3 (#$ . 106565) nil])
#@107 Variable controlling `orgtbl-mode', a minor mode enabling the `org-mode'
table editor in arbitrary modes.
(defvar orgtbl-mode nil (#$ . 106809))
(make-variable-buffer-local 'orgtbl-mode)
#@27 Keymap for `orgtbl-mode'.
(defvar orgtbl-mode-map (make-keymap) (#$ . 107002))
#@40 Unconditionally turn on `orgtbl-mode'.
(defalias 'turn-on-orgtbl #[nil "\300\301!\207" [orgtbl-mode 1] 2 (#$ . 107087)])
#@38 Local variable used by `orgtbl-mode'
(defvar org-old-auto-fill-inhibit-regexp nil (#$ . 107214))
#@40 Matches a line belonging to an orgtbl.
(defconst orgtbl-line-start-regexp "[ 	]*\$|\\|#\\+\\(TBLFM\\|ORGTBL\$:\\)" (#$ . 107317))
#@66 Extra font-lock-keywords to be added when orgtbl-mode is active.
(defconst orgtbl-extra-font-lock-keywords (byte-code "\301\302Q\303\304\305FC\207" [orgtbl-line-start-regexp "^" ".*" 0 'org-table prepend] 4) (#$ . 107455))
#@69 The `org-mode' table editor as a minor mode for use in other modes.
(defalias 'orgtbl-mode #[(&optional arg) "\306 \210\307=\203
�\310\311!\207	\203�\312	!\313V\202�\n?\211\203\224�\314 \203*�\315\314\316\"\210\302\236\211\2039�\f\317\f\"B)\320\321+\322+!
L\210*\323\324\325\326\327$\210\330+\322+!
L\210*\331\203k�,\332Q\202m�,+\322+!
L\210*\333\334!\210\335\336!\203\213�\336\326-\"\210\337 \210\340.!\210\341\342!\207\343 \210\344\345!\210\346\324\325\321#\210\335\347!\203\264�\347\326-\"\210\337 \210\350.!\210\351\352!\207" [major-mode arg orgtbl-mode minor-mode-map-alist c value org-load-modules-maybe org-mode message "Orgtbl-mode is not useful in org-mode, command ignored" prefix-numeric-value 0 orgtbl-setup defalias #[nil "\300\207" [nil] 1] delq org-table-may-need-update t make-variable-buffer-local org-add-hook before-change-functions org-before-change-function nil local org-old-auto-fill-inhibit-regexp auto-fill-inhibit-regexp "\\|" org-add-to-invisibility-spec (org-cwidth) fboundp font-lock-add-keywords org-restart-font-lock easy-menu-add run-hooks orgtbl-mode-hook org-table-cleanup-narrow-column-properties org-remove-from-invisibility-spec (org-cwidth) remove-hook font-lock-remove-keywords easy-menu-remove force-mode-line-update all var orgtbl-line-start-regexp orgtbl-extra-font-lock-keywords orgtbl-mode-menu] 6 (#$ . 107685) nil])
#@62 Remove all properties related to narrow-column invisibility.
(defalias 'org-table-cleanup-narrow-column-properties #[nil "\302\303d\304	$\211\203�\305\211T\306#\210\202�\302\303d\307\302$\211\203.�\305\211T\310#\210\202�\302\303d\311\307$\211\205E�\305\211T\312#\210\2020�)\207" [s org-narrow-column-arrow 1 text-property-any display remove-text-properties (display t) org-cwidth (org-cwidth t) invisible (invisible t)] 5 (#$ . 109086)])
(byte-code "\301\302\303\304#\210\301\302\305\306#\210\307\302\310#\207" [orgtbl-mode-map put orgtbl-mode :included t :menu-tag "Org Table Mode" add-minor-mode " OrgTbl"] 4)
#@228 Create a function for binding in the table minor mode.
FUN is the command to call inside a table.  N is used to create a unique
command name.  KEYS are keys that should be checked in for a command
to execute outside of tables.
(defalias 'orgtbl-make-binding #[(fun n &rest keys) "\303\304\305\306\307!P!\310\311\312	!\313\314\315\316\n\317#\320\260\321\322\323\324\325	DD\326\327\324\330\331\332\333\n\"\334#DEF\257!\207" [n fun keys eval defun intern "orgtbl-hijacker-command-" int-to-string (arg) "In tables, run `" symbol-name "'.\n" "Outside of tables, run the binding of `" mapconcat #[(x) "\301\302\"\207" [x format "%s"] 3] "' or `" "'." (interactive "p") if (org-at-table-p) call-interactively quote let (orgtbl-mode) append (or) mapcar #[(k) "\301D\207" [k key-binding] 2] ('orgtbl-error)] 17 (#$ . 109721)])
#@57 Error when there is no default binding for a table key.
(defalias 'orgtbl-error #[nil "\300\301!\207" [error "This key has no function outside tables"] 2 (#$ . 110550) nil])
#@23 Setup orgtbl keymaps.
(defalias 'orgtbl-setup #[nil "\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\257\340\211\211\211\f\211A@\211\203L�
T\341@!A@\342	
\n#\343@\n#\210\202&�\343@\344\342\345\346\347\350$#\210\343@\350\342\345\351\350\352$#\210\343@\353\342\354\355\356\357$#\210\343@\357\342\354\360\357\361$#\210\343@\362\342\363\364\365\366\357%#\210\343@\367\342\370\371\367\372$#\210\343@\373\342\370\374\375\367$#\210\343@\376\377#\210\343@\201B�\201C�#\210A\203\335�\201D�@\201E�\201F�\201G�\201H�\201I�\201J�&\210\343@\201K�\201L�#\210\201M�\201N�\201O�\201P�#\210\201Q�\201N�!\204\376�\201R�\201N�\340\"\210\201S�\201N�@\201P�\201T�$\210.\201U�\207" [cmd fun key elt bindings nfunc 0 ([(meta shift left)] org-table-delete-column) ([(meta left)] org-table-move-column-left) ([(meta right)] org-table-move-column-right) ([(meta shift right)] org-table-insert-column) ([(meta shift up)] org-table-kill-row) ([(meta shift down)] org-table-insert-row) ([(meta up)] org-table-move-row-up) ([(meta down)] org-table-move-row-down) ("" org-table-cut-region) ("\367" org-table-copy-region) ("" org-table-paste-rectangle) ("-" org-table-insert-hline) ("}" org-table-toggle-coordinate-overlays) ("{" org-table-toggle-formula-debugger) ("
" org-table-next-row) ([(shift return)] org-table-copy-down) ("?" org-table-field-info) (" " org-table-blank-field) ("+" org-table-sum) ("=" org-table-eval-formula) ("'" org-table-edit-formulas) ("`" org-table-edit-field) ("*" org-table-recalculate) ("^" org-table-sort-lines) ([(control 35)] org-table-rotate-recalc-marks) nil org-key orgtbl-make-binding org-defkey [(return)] orgtbl-ret 100 [(return)] "
" 101 [(return)] [(tab)] orgtbl-tab 102 [(tab)] "	" 103 [(tab)] [(shift tab)] org-table-previous-field 104 [(shift tab)] [(tab)] "\215" org-table-wrap-region 105 [(meta return)] [(meta return)] 106 [(meta return)] "" orgtbl-ctrl-c-ctrl-c orgtbl-mode-map orgtbl-optimized "|" orgtbl-create-or-convert-from-region org-remap self-insert-command orgtbl-self-insert-command delete-char org-delete-char delete-backward-char org-delete-backward-char "|" org-force-self-insert put orgtbl-mode-menu variable-documentation "OrgTbl menu" default-boundp set-default easy-menu-do-define ("OrgTbl" ["Create or convert" org-table-create-or-convert-from-region :active (not (org-at-table-p)) :keys "C-c |"] "--" ["Align" org-ctrl-c-ctrl-c :active (org-at-table-p) :keys "C-c C-c"] ["Next Field" org-cycle :active (org-at-table-p) :keys "TAB"] ["Previous Field" org-shifttab :active (org-at-table-p) :keys "S-TAB"] ["Next Row" org-return :active (org-at-table-p) :keys "RET"] "--" ["Blank Field" org-table-blank-field :active (org-at-table-p) :keys "C-c SPC"] ["Edit Field" org-table-edit-field :active (org-at-table-p) :keys "C-c ` "] ["Copy Field from Above" org-table-copy-down :active (org-at-table-p) :keys "S-RET"] "--" ("Column" ["Move Column Left" org-metaleft :active (org-at-table-p) :keys "M-<left>"] ["Move Column Right" org-metaright :active (org-at-table-p) :keys "M-<right>"] ["Delete Column" org-shiftmetaleft :active (org-at-table-p) :keys "M-S-<left>"] ["Insert Column" org-shiftmetaright :active (org-at-table-p) :keys "M-S-<right>"]) ("Row" ["Move Row Up" org-metaup :active (org-at-table-p) :keys "M-<up>"] ["Move Row Down" org-metadown :active (org-at-table-p) :keys "M-<down>"] ["Delete Row" org-shiftmetaup :active (org-at-table-p) :keys "M-S-<up>"] ["Insert Row" org-shiftmetadown :active (org-at-table-p) :keys "M-S-<down>"] ["Sort lines in region" org-table-sort-lines :active (org-at-table-p) :keys "C-c ^"] "--" ["Insert Hline" org-table-insert-hline :active (org-at-table-p) :keys "C-c -"]) ("Rectangle" ["Copy Rectangle" org-copy-special :active (org-at-table-p)] ["Cut Rectangle" org-cut-special :active (org-at-table-p)] ["Paste Rectangle" org-paste-special :active (org-at-table-p)] ["Fill Rectangle" org-table-wrap-region :active (org-at-table-p)]) "--" ("Radio tables" ["Insert table template" orgtbl-insert-radio-table (assq major-mode orgtbl-radio-table-templates)] ["Comment/uncomment table" orgtbl-toggle-comment t]) "--" ["Set Column Formula" org-table-eval-formula :active (org-at-table-p) :keys "C-c ="] ["Set Field Formula" (org-table-eval-formula '(4)) :active (org-at-table-p) :keys "C-u C-c ="] ["Edit Formulas" org-table-edit-formulas :active (org-at-table-p) :keys "C-c '"] ["Recalculate line" org-table-recalculate :active (org-at-table-p) :keys "C-c *"] ["Recalculate all" (org-table-recalculate '(4)) :active (org-at-table-p) :keys "C-u C-c *"] ["Iterate all" (org-table-recalculate '(16)) :active (org-at-table-p) :keys "C-u C-u C-c *"] ["Toggle Recalculate Mark" org-table-rotate-recalc-marks :active (org-at-table-p) :keys "C-c #"] ["Sum Column/Rectangle" org-table-sum :active (or (org-at-table-p) (org-region-active-p)) :keys "C-c +"] ["Which Column?" org-table-current-column :active (org-at-table-p) :keys "C-c ?"] ["Debug Formulas" org-table-toggle-formula-debugger :active (org-at-table-p) :keys "C-c {" :style toggle :selected org-table-formula-debug] ["Show Col/Row Numbers" org-table-toggle-coordinate-overlays :active (org-at-table-p) :keys "C-c }" :style toggle :selected org-table-overlay-coordinates]) t] 26 (#$ . 110730)])
#@147 If the cursor is inside a table, realign the table.
It it is a table to be sent away to a receiver, do it.
With prefix arg, also recompute table.
(defalias 'orgtbl-ctrl-c-ctrl-c #[(arg) "`\306\212\307\310!\210\311\312!\203�\313\225\202%�\311\314!\203�	\202%�\311\315!\205%�\316)\250\203J�b\210\317 \210\n\203=�\320\321!\210\202@�\322 \210\320\323!\210\324\325!\202t�\316=\203l�\212\307\310!\210\326\306x\210\327 \205h�\321\330\n\320!+)\202t�\306\320\331\332!!)*\207" [action pos arg command current-prefix-arg orgtbl-mode nil beginning-of-line 1 looking-at "#\\+ORGTBL:.*\n[ 	]*|" 0 "[ 	]*|" "#\\+TBLFM:" recalc org-table-maybe-eval-formula call-interactively org-table-recalculate org-table-maybe-recalculate-line org-table-align orgtbl-send-table maybe " 
\n	" org-at-table-p t key-binding ""] 3 (#$ . 116062) "P"])
#@187 Create table or convert region to table, if no conflicting binding.
This installs the table binding `C-c |', but only if there is no
conflicting binding to this key outside orgtbl-mode.
(defalias 'orgtbl-create-or-convert-from-region #[(arg) "\302\303\304!\211\203�\305	!\202�\305\306!*\207" [orgtbl-mode cmd nil key-binding "|" call-interactively org-table-create-or-convert-from-region] 3 (#$ . 116902) "P"])
#@51 Justification and field motion for `orgtbl-mode'.
(defalias 'orgtbl-tab #[(arg) "\203�\301\302!\207\303 \210\304 \207" [arg org-table-edit-field t org-table-justify-field-maybe org-table-next-field] 2 (#$ . 117324) "P"])
#@51 Justification and field motion for `orgtbl-mode'.
(defalias 'orgtbl-ret #[nil "o\203�\300 \207\301 \210\302 \207" [newline org-table-justify-field-maybe org-table-next-row] 1 (#$ . 117553) nil])
#@210 Like `self-insert-command', use overwrite-mode for whitespace in tables.
If the cursor is in a table looking at whitespace, the whitespace is
overwritten, and the table is not marked as requiring realignment.
(defalias 'orgtbl-self-insert-command #[(N) "\306 \2032�\203�	\307\235\203�\310 \210\n\311=\2032�\312\313!\2032�\314\315\225Sb\210\316\311!\210\315\224b\210\317\n!)\207\320\314\211\321\322<\203P�\323\"\211\203P�\fA\206T�\324!!\206Y�\317!*\207" [org-table-auto-blank-field last-command N org-table-may-need-update a orgtbl-mode org-at-table-p (orgtbl-hijacker-command-100 orgtbl-hijacker-command-101 orgtbl-hijacker-command-102 orgtbl-hijacker-command-103 orgtbl-hijacker-command-104 orgtbl-hijacker-command-105) org-table-blank-field 1 looking-at "[^|\n]*  +|" nil 0 delete-backward-char self-insert-command t call-interactively key-binding assoc vector function-key-map last-input-event] 5 (#$ . 117756) "p"])
#@63 Regular expression matching exponentials as produced by calc.
(defvar orgtbl-exp-regexp "^\$[-+]?[0-9][0-9.]*\$[eE]\$[-+]?[0-9]+\$$" (#$ . 118698))
(defalias 'orgtbl-export #[(table target) "\306\307!\210\310\311\312!P!\313	\314\"\315\211\211\211\316!\204'�\317\320\"\210\321!\322\323\"\324\325\322\326	\"\"\211S\211\327Y\203q�\322\330	\"\331\315\n\"\324\325\322\332\n\"\"\fB\324\333\322\334\n\"\"\245 V
BS\211\202@�)	\315\".\207" [target table column maxcol org-table-last-column-widths org-table-last-alignment require org-exp intern "orgtbl-to-" symbol-name org-split-string "[ 	]*\n[ 	]*" nil fboundp error "Cannot export orgtbl table to %s" org-table-clean-before-export mapcar #[(x) "\302	\"\203	�\303\207\304\305	!\306\"\207" [org-table-hline-regexp x string-match hline org-split-string org-trim "\\s-*|\\s-*"] 3] apply max #[(x) "<\203�G\207\301\207" [x 0] 1] 0 #[(x) "<\205�	8\207" [x i] 2] delq string-width + #[(x) "\302	\"\203	�\303\207\304\207" [org-table-number-regexp x string-match 1 0] 3] lines func i org-table-number-fraction] 7])
#@90 Gathers a plist of :name, :transform, :params for each destination before
a radio table.
(defalias 'orgtbl-gather-send-defs #[nil "\212\306 b\210\307\310\311!\210\312\313!\203X�\314\315!\316\317!\203&�\317\311	G\307	$\210\202.�\320\311	G\n	$\210	)\321\314\322!!\323\225\205B�\324\325\314\323!\326Q!\327
\330\f\331\257B\310\311!\210+\202�*\207" [rtn s org-rm-props params transform name org-table-begin nil beginning-of-line 0 looking-at "#\\+ORGTBL[: 	][ 	]*SEND +\$[a-zA-Z0-9_]+\$ +\$[^ 	
\n]+\$\$ +.*\$?" match-string 1 fboundp set-text-properties remove-text-properties intern 2 3 read "(" ")" :name :transform :params] 6 (#$ . 119802)])
#@39 Find and replace table NAME with TXT.
(defalias 'orgtbl-send-replace-tbl #[(name txt) "\212eb\210\303\304\305Q\306\307#\204�\310\311!\210\312\224b\210\313\314!\210\212`\303\315P\306\307#\204,�\310\316!\210\313\317!\210	`|\210*\n\320\261)\207" [name beg txt re-search-forward "BEGIN RECEIVE ORGTBL +" "\$[ 	]\\|$\$" nil t error "Don't know where to insert translated table" 0 beginning-of-line 2 "END RECEIVE ORGTBL +" "Cannot find end of insertion region" 1 "\n"] 4 (#$ . 120466)])
#@262 Convert the table at point to a Lisp structure.
The structure will be a list.  Each item is either the symbol `hline'
for a horizontal separator line, or a list of field values as strings.
The table is taken from the parameter TXT, or from the buffer at point.
(defalias 'org-table-to-lisp #[(&optional txt) "\204
�\302 \204
�\303\304!\210\206�\305\306 \307 \"\310\311\"\312\313	\"*\207" [txt lines org-at-table-p error "No table at point" buffer-substring-no-properties org-table-begin org-table-end org-split-string "[ 	]*\n[ 	]*" mapcar #[(x) "\302	\"\203	�\303\207\304\305	!\306\"\207" [org-table-hline-regexp x string-match hline org-split-string org-trim "\\s-*|\\s-*"] 3]] 3 (#$ . 120962)])
#@150 Send a transformed version of this table to the receiver position.
With argument MAYBE, fail quietly if no transformation is defined for
this table.
(defalias 'orgtbl-send-table #[(&optional maybe) "\300\301\215\207" [exit (byte-code "\306 \204	�\307\310!\210t\203�\311 \210\312 \313\314 \315 \"\316\211\2040�\203,�\317\320\321\"\210\2020�\307\322!\210\n\321\211\203\321�
@\323\f\324\"*\323\f\325\"+\323\f\326\",\323,\327\"-\323,\330\".\321/\331-\206e�\316\332	\333\"\233!01\203v�\334\202w�\3352\336\3370\"32\334U\203\213�\340\202\214�\3414\34245!.2#5\34246!.2#6\343+!\203\271�+3,\"\202\276�\307\344+\"\345*	\"\210.
T
A\211\2048�*\346\347\211\335V\203\337�\350\202\340�\351#+\207" [ntbl txt dests maybe dest #1=#:--cl-dolist-temp-- org-at-table-p error "Not at a table" org-table-align orgtbl-gather-send-defs buffer-substring-no-properties org-table-begin org-table-end 0 throw exit nil "Don't know how to transform this table." plist-get :name :transform :params :skip :skipcols org-table-clean-before-export org-split-string "[ 	]*\n[ 	]*" 2 1 mapcar #[(x) "\304	\"\203	�\305\207\306\307\310	!\311\"\n#\207" [org-table-hline-regexp x skipcols i0 string-match hline org-remove-by-index org-split-string org-trim "\\s-*|\\s-*"] 4] cdr identity org-remove-by-index fboundp "No such transformation function %s" orgtbl-send-replace-tbl message "Table converted and installed at %d receiver location%s" "s" "" name transform params skip skipcols beg lines org-table-clean-did-remove-column i0 table fun org-table-last-alignment org-table-last-column-widths] 7)] 2 (#$ . 121674) nil])
#@97 Remove the elements in LIST with indices in INDICES.
First element has index 0, or I0 if given.
(defalias 'org-remove-by-index #[(list indices &optional i0) "\204�	\207\250\203�C\n\206�\303S\304\305\306\307	\"\"\207" [indices list i0 0 delq :rm mapcar #[(x) "T\211	>\203�\303\207\n\207" [i0 indices x :rm] 3]] 5 (#$ . 123308)])
#@43 Comment or uncomment the orgtbl at point.
(defalias 'orgtbl-toggle-comment #[nil "\306\307!	Q\306	P\212\310\311!\210\312\n!\203�\313\202'�\312!\203$�\314\202'�\315\316!)\211\2031�\n\2022�\314\211\212\310\311!\210\312
!\203K�\310\317!\210\202>�\310\320!\210`\312
!\203_�\310\320!\210\202R�`)\321\f\205m�\322#.\207" [comment-start orgtbl-line-start-regexp re1 re2 commented re "^" regexp-quote beginning-of-line 1 looking-at t nil error "Not at an org table" 0 2 comment-region (4) beg end] 5 (#$ . 123653) nil])
#@64 Insert a radio table template appropriate for this major mode.
(defalias 'orgtbl-insert-radio-table #[nil "	\236\211A@\306\211\n\204�\307\310\"\210\311\312!\313\314\"\203*�\315\f\316\211$\202�n\2041�\317c\210`c\210
b,\207" [major-mode orgtbl-radio-table-templates e txt name pos nil error "No radio table setup defined for %s" read-string "Table name: " string-match "%n" replace-match t "\n"] 6 (#$ . 124191) nil])
#@56 Carries the current table through formatting routines.
(defvar *orgtbl-table* nil (#$ . 124627))
#@49 Formatting routines push the output lines here.
(defvar *orgtbl-rtn* nil (#$ . 124730))
#@32 Text used for horizontal lines
(defvar *orgtbl-hline* nil (#$ . 124824))
#@33 Text used as a column separator
(defvar *orgtbl-sep* nil (#$ . 124903))
#@31 Default format for each entry
(defvar *orgtbl-default-fmt* nil (#$ . 124981))
#@23 Format for each entry
(defvar *orgtbl-fmt* nil (#$ . 125065))
#@20 Format for numbers
(defvar *orgtbl-efmt* nil (#$ . 125133))
#@42 Format for an entire line, overrides fmt
(defvar *orgtbl-lfmt* nil (#$ . 125199))
#@35 Specializes lfmt for the last row
(defvar *orgtbl-llfmt* nil (#$ . 125287))
#@21 Text starting a row
(defvar *orgtbl-lstart* nil (#$ . 125369))
#@37 Specializes lstart for the last row
(defvar *orgtbl-llstart* nil (#$ . 125438))
#@19 Text ending a row
(defvar *orgtbl-lend* nil (#$ . 125524))
#@35 Specializes lend for the last row
(defvar *orgtbl-llend* nil (#$ . 125589))
#@63 Retrieve the format from FMT corresponding to the Ith column.
(defalias 'orgtbl-get-fmt #[(fmt i) "\302!\204�:\203�\303	\"\207\207" [fmt i functionp plist-get] 3 (#$ . 125671)])
(put 'orgtbl-get-fmt 'byte-optimizer 'byte-compile-inline-expand)
#@73 Apply format FMT to the arguments.  NIL FMTs return the first argument.
(defalias 'orgtbl-apply-fmt #[(fmt &rest args) "\302!\203�\303	\"\207\203�\303\304	#\207	\203�	@\207	\207" [fmt args functionp apply format] 4 (#$ . 125927)])
(put 'orgtbl-apply-fmt 'byte-optimizer 'byte-compile-inline-expand)
#@54 If STR is a function, evaluate it with no arguments.
(defalias 'orgtbl-eval-str #[(str) "\301!\203	� \207\207" [str functionp] 2 (#$ . 126239)])
(put 'orgtbl-eval-str 'byte-optimizer 'byte-compile-inline-expand)
#@29 Format LINE as a table row.
(defalias 'orgtbl-format-line #[(line) "\306=\203�	\205\200�	\nB\211\207\307\310\311\"\f\203L�\fC\312!\2030�\313
\"\202H�\203>�\313\314
#\202H�
\203G�
@\202H�
*\202{�\312!\203]� \202_�)\315\316#\312!\203w� \202y�)Q\nB\211*\207" [line *orgtbl-hline* *orgtbl-rtn* i *orgtbl-lfmt* args hline 0 mapcar #[(f) "T	\306\n!\204�\n:\203�\307\n\"\202�\n*\211\203`�\310\f
\"\203`�\311\312
\"\311\313
\"D\306\n!\203B�\314\n\"\202\\�\n\203O�\314\315\n#\202\\�\203Z�@\202\\�*\202a�
\306\n!\204y�\n:\203y�\307\n\"\202z�\n*\206\200�
C\306\n!\203\223�\314\n\"\202\255�\n\203\240�\314\315\n#\202\255�\203\253�@\202\255�,\207" [i *orgtbl-efmt* fmt efmt orgtbl-exp-regexp f functionp plist-get string-match match-string 1 2 apply format args *orgtbl-fmt* *orgtbl-default-fmt*] 6] functionp apply format mapconcat identity fmt *orgtbl-lstart* str *orgtbl-sep* *orgtbl-lend*] 5 (#$ . 126460)])
#@61 Format lines until the first occurrence of SECTION-STOPPER.
(defalias 'orgtbl-format-section #[(section-stopper) "\306	@\n=\204�\203�\307!\210	\211A@\202�\205+�\f
	\n\307!+)\207" [prevline *orgtbl-table* section-stopper *orgtbl-llstart* *orgtbl-llend* *orgtbl-llfmt* nil orgtbl-format-line *orgtbl-lfmt* *orgtbl-lend* *orgtbl-lstart*] 3 (#$ . 127453)])
#@2869 Convert the orgtbl-mode TABLE to some other format.
This generic routine can be used for many standard cases.
TABLE is a list, each entry either the symbol `hline' for a horizontal
separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the conversion.
For the generic converter, some parameters are obligatory:  You need to
specify either :lfmt, or all of (:lstart :lend :sep).

Valid parameters are

:splice     When set to t, return only table body lines, don't wrap
            them into :tstart and :tend.  Default is nil.  When :splice
            is non-nil, this also means that the exporter should not look
            for and interpret header and footer sections.

:hline      String to be inserted on horizontal separation lines.
            May be nil to ignore hlines.

:sep        Separator between two fields
:remove-nil-lines Do not include lines that evaluate to nil.

Each in the following group may be either a string or a function
of no arguments returning a string:
:tstart     String to start the table.  Ignored when :splice is t.
:tend       String to end the table.  Ignored when :splice is t.
:lstart     String to start a new table line.
:llstart    String to start the last table line, defaults to :lstart.
:lend       String to end a table line
:llend      String to end the last table line, defaults to :lend.

Each in the following group may be a string, a function of one
argument (the field or line) returning a string, or a plist
mapping columns to either of the above:
:lfmt       Format for entire line, with enough %s to capture all fields.
            If this is present, :lstart, :lend, and :sep are ignored.
:llfmt      Format for the entire last line, defaults to :lfmt.
:fmt        A format to be used to wrap the field, should contain
            %s for the original field value.  For example, to wrap
            everything in dollars, you could use :fmt "$%s$".
            This may also be a property list with column numbers and
            formats. For example :fmt (2 "$%s$" 4 "%s%%")

:hlstart :hllstart :hlend :hllend :hlsep :hlfmt :hllfmt :hfmt
            Same as above, specific for the header lines in the table.
            All lines before the first hline are treated as header.
            If any of these is not present, the data line value is used.

This may be either a string or a function of two arguments:
:efmt       Use this format to print numbers with exponentials.
            The format should have %s twice for inserting mantissa
            and exponent, for example "%s\\times10^{%s}".  This
            may also be a property list with column numbers and
            formats.  :fmt will still be applied after :efmt.

In addition to this, the parameters :skip and :skipcols are always handled
directly by `orgtbl-send-table'.  See manual.
(defalias 'orgtbl-to-generic #[(table params) "\306\307\"\306\310\"\306\311\"\n
%\306\312\"&\306\313\"'\306\314\"(\306\315\"\206/�()\306\316\"*\306\317\"\206@�*+\306\320\",\306\321\"\206Q�,-\306\322\".\323/	\204\213�\324\325\"\203\213�\306\325\"0\3260!\203z�0 \202|�0)\2111\203\212�1/B/)	\204>%@:\204\236�%A@:\203>\302%A>\203>%@\302=\203\300�\n\203\270�\n/B/%\210%A%\306\327\"\206\311�((\306\330\"\206\324�))\306\331\"\206\337�**\306\332\"\206\361�\306\331\"\206\361�++\306\333\"\206\374�,,\306\334\"\206\306\333\"\206--\306\335\"\206&&\306\336\"\206$..\337\302!\210.\n\2036\n/B/%\210%A%\337\323!\210	\204q\324\340\"\203q\306\340\"0\3260!\203`0 \202b0)\2112\203p2/B/)\341\342\203\343\323/\"\202\201/\237\344#.\207" [params splicep hline remove-nil-linesp *orgtbl-hline* table plist-get :splice :hline :remove-nil-lines :sep :efmt :lstart :llstart :lend :llend :lfmt :llfmt :fmt nil plist-member :tstart functionp :hlstart :hllstart :hlend :hllend :hlfmt :hllfmt :hlsep :hfmt orgtbl-format-section :tend mapconcat identity remq "\n" *orgtbl-table* *orgtbl-sep* *orgtbl-efmt* *orgtbl-lstart* *orgtbl-llstart* *orgtbl-lend* *orgtbl-llend* *orgtbl-lfmt* *orgtbl-llfmt* *orgtbl-fmt* *orgtbl-rtn* str tstart tend] 6 (#$ . 127829) nil])
#@58 Convert the orgtbl-mode table to TAB separated material.
(defalias 'orgtbl-to-tsv #[(table params) "\302\303\304	\"\"\207" [table params orgtbl-to-generic org-combine-plists (:sep "	")] 5 (#$ . 132047)])
#@122 Convert the orgtbl-mode table to CSV material.
This does take care of the proper quoting of fields with comma or quotes.
(defalias 'orgtbl-to-csv #[(table params) "\302\303\304	\"\"\207" [table params orgtbl-to-generic org-combine-plists (:sep "," :fmt org-quote-csv-field)] 5 (#$ . 132259)])
#@1433 Convert the orgtbl-mode TABLE to LaTeX.
TABLE is a list, each entry either the symbol `hline' for a horizontal
separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the conversion.
Supports all parameters from `orgtbl-to-generic'.  Most important for
LaTeX are:

:splice    When set to t, return only table body lines, don't wrap
           them into a tabular environment.  Default is nil.

:fmt       A format to be used to wrap the field, should contain %s for the
           original field value.  For example, to wrap everything in dollars,
           use :fmt "$%s$".  This may also be a property list with column
           numbers and formats.  For example :fmt (2 "$%s$" 4 "%s%%")
           The format may also be a function that formats its one argument.

:efmt      Format for transforming numbers with exponentials.  The format
           should have %s twice for inserting mantissa and exponent, for
           example "%s\\times10^{%s}".  LaTeX default is "%s\\,(%s)".
           This may also be a property list with column numbers and formats.
           The format may also be a function that formats its two arguments.

:llend     If you find too much space below the last line of a table,
           pass a value of "" for :llend to suppress the final \\.

The general parameters :skip and :skipcols have already been applied when
this function is called.
(defalias 'orgtbl-to-latex #[(table params) "\305\306\307#\310\311	\312Q\313\314\315\307\316\317\320\321\322\323\324\325\257\326\327\n\f\"\"*\207" [org-table-last-alignment alignment params2 table params mapconcat #[(x) "\203�\301\207\302\207" [x "r" "l"] 1] "" :tstart "\\begin{tabular}{" "}" :tend "\\end{tabular}" :lstart :lend " \\\\" :sep " & " :efmt "%s\\,(%s)" :hline "\\hline" orgtbl-to-generic org-combine-plists] 14 (#$ . 132561)])
#@619 Convert the orgtbl-mode TABLE to LaTeX.
TABLE is a list, each entry either the symbol `hline' for a horizontal
separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the conversion.
Currently this function recognizes the following parameters:

:splice    When set to t, return only table body lines, don't wrap
           them into a <table> environment.  Default is nil.

The general parameters :skip and :skipcols have already been applied when
this function is called.  The function does *not* use `orgtbl-to-generic',
so you cannot specify parameters for it.
(defalias 'orgtbl-to-html #[(table params) "\306\307\"\n\310\311\312\313
\"	\"\314\315\f\"\203�\316\317\320\211\f$\f+\207" [params splicep org-export-html-table-tag html-table-tag html table plist-get :splice nil org-format-org-table-html mapcar #[(x) "\301=\203�\302\207\303\304\305\306#\307Q\207" [x hline "|----+----|" "| " mapconcat identity " | " " |"] 5] string-match "\n+\\'" replace-match "" t] 5 (#$ . 134449)])
#@1230 Convert the orgtbl-mode TABLE to TeXInfo.
TABLE is a list, each entry either the symbol `hline' for a horizontal
separator line, or a list of fields for that line.
PARAMS is a property list of parameters that can influence the conversion.
Supports all parameters from `orgtbl-to-generic'.  Most important for
TeXInfo are:

:splice nil/t      When set to t, return only table body lines, don't wrap
                   them into a multitable environment.  Default is nil.

:fmt fmt           A format to be used to wrap the field, should contain
                   %s for the original field value.  For example, to wrap
                   everything in @kbd{}, you could use :fmt "@kbd{%s}".
                   This may also be a property list with column numbers and
                   formats.  For example :fmt (2 "@kbd{%s}" 4 "@code{%s}").
                   Each format also may be a function that formats its one
                   argument.

:cf "f1 f2.."    The column fractions for the table.  By default these
                   are computed automatically from the width of the columns
                   under org-mode.

The general parameters :skip and :skipcols have already been applied when
this function is called.
(defalias 'orgtbl-to-texinfo #[(table params) "\306\307\310\"!\311\n\312\"\206�\313\314\315#\316\317P\320\321\322\323\324\325\326\327\330\331\257\f\332
\333\f\n\"\"+\207" [org-table-last-column-widths total params colfrac params2 table float apply + plist-get :cf mapconcat #[(x) "\302\303\304!	\245\"\207" [x total format "%.3f" float] 4] " " :tstart "@multitable @columnfractions " :tend "@end multitable" :lstart "@item " :lend "" :sep " @tab " :hlstart "@headitem " orgtbl-to-generic org-combine-plists] 12 (#$ . 135506)])
#@306 Convert the orgtbl-mode TABLE into another orgtbl-mode table.
Useful when slicing one table into many.  The :hline, :sep,
:lstart, and :lend provide orgtbl framing.  The default nil :tstart
and :tend suppress strings without splicing; they can be set to
provide ORGTBL directives for the generated table.
(defalias 'orgtbl-to-orgtbl #[(table params) "\303\304\305\304\306\307\310\311\312\313\314\315\257\f\316	\"\317\n	\"*\207" [params2 params table :tstart nil :tend :hline "|---" :sep " | " :lstart "| " :lend " |" org-combine-plists orgtbl-to-generic] 12 (#$ . 137277)])
#@602 Get a field value or a list of values in a range from table at ID.

NAME-OR-ID may be the name of a table in the current file as set by
a "#+TBLNAME:" directive.  The first table following this line
will then be used.  Alternatively, it may be an ID referring to
any entry, also in a different file.  In this case, the first table
in that netry will be referenced.
FORM is a field or range descriptor like "@2$3" or or "B3" or
"@I$2..@II$2".  All the references must be absolute, not relative.

The return value is either a single string for a single field, or a
list of the fields in the rectangle .
(defalias 'org-table-get-remote-range #[(name-or-id form) "\306 \307\216\310\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 !\"#$%&'(\212\214~\210\212eb\210\311\312\313)!\314Q\310\315#\203O�p\316\224\202f�\317)\320\"(\321(!\322(!(\310\211\223\210)\323\n!\210\212\214~\210	b\210\324u\210\311\325\310\315#\203\202�\324\224\203\210�\326\327)\"\210\330 \331 \210\332*!*\333+*\"\203\272�\334\316*\"G\324V\203\272�\306 \335\216\336\334\316*\"\324#*\202\274�*.\207" [save-match-data-internal loc buffer tbeg org-table-last-column-widths org-table-last-alignment match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil re-search-forward "^#\\+TBLNAME:[ 	]*" regexp-quote "[ 	]*$" t 0 org-id-find marker marker-buffer marker-position switch-to-buffer 1 "^\$\\*+ \$\\|[ 	]*|" error "Cannot find a table at NAME or ID %s" point-at-bol org-table-get-specials org-table-formula-substitute-names string-match match-string ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-get-range org-table-hlines org-table-dlines org-table-current-begin-pos org-table-current-begin-line org-table-current-line-types org-table-named-field-locations org-table-local-parameters org-table-column-name-regexp org-table-column-names id-loc name-or-id form org-table-range-regexp] 17 (#$ . 137861)])
(provide 'org-table)

${this.title}

Code Editor : org-table.elc