;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:03 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-table.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(require 'org)
#@225 Hook for functions attaching to `C-c C-c', if the table is sent.
This can be used to add additional functionality after the table is sent
to the receiver position, otherwise, if table is not sent, the functions
are not run.
(defvar orgtbl-after-send-table-hook nil (#$ . 572))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\313&\210\314\315\316\317\320\321\304\305&\210\300\322\323\324\304\315\306\325&\210\300\326\327\330\304\315\306\331&\210\300\332\333\334\304\315\306\335&\210\314\336\316\337\320\340\304\305&\210\300\341\342\343\304\336\306\307&\210\300\344\342\345\304\336\306\307&\210\300\346\342\347\304\305\350\351\306\307&	\210\300\352\316\353\304\336\350\351\306\354&	\210\355\352\356\357#\210\300\360\342\361\304\336\306\307&\210\314\362\316\363\320\364\304\305&\210\300\365\366\367\304\362\306\370&\210\300\371\342\372\304\362\306\307&\210\300\373\374\375\304\362\306\376&\210\300\377\201@\201A\304\362\350\351\306\201B&	\210\300\201C\201D\201E\304\315\350\351\306\325&	\210\300\201F\342\201G\304\362\306\307&\210\300\201H\342\201I\304\362\306\307&\210\300\201J\316\201K\304\362\306\201L&\210\300\201M\342\201N\304\362\306\307&\210\300\201O\342\201P\304\305\306\307&\210\300\201Q\342\201R\304\362\306\201S&\210\314\201T\316\201U\320\201V\304\305&\210\300\201W\201X\201Y\304\201T\306\325&\207" [custom-declare-variable orgtbl-optimized (eq org-enable-table-editor 'optimized) "Non-nil means use the optimized table editor version for `orgtbl-mode'.\nIn the optimized version, the table editor takes over all simple keys that\nnormally just insert a character.  In tables, the characters are inserted\nin a way to minimize disturbing the table structure (i.e. in overwrite mode\nfor empty fields).  Outside tables, the correct binding of the keys is\nrestored.\n\nThe default for this option is t if the optimized version is also used in\nOrg-mode.  See the variable `org-enable-table-editor' for details.  Changing\nthis variable requires a restart of Emacs to become effective." :group org-table :type boolean 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 "<!-- BEGIN RECEIVE ORGTBL %n -->\n<!-- END RECEIVE ORGTBL %n -->\n<!--\n#+ORGTBL: SEND %n orgtbl-to-html :splice nil :skip 0\n| | |\n-->\n") (org-mode "#+ BEGIN RECEIVE ORGTBL %n\n#+ END RECEIVE ORGTBL %n\n\n#+ORGTBL: SEND %n orgtbl-to-orgtbl :splice nil :skip 0\n| | |\n")) "Templates for radio tables in different major modes.\nAll occurrences of %n in a template will be replaced with the name of the\ntable, obtained by prompting the user." (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" org-table-default-size "5x2" "The default size for newly created tables, Columns x Rows." string org-table-number-regexp "^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%:]*\\|\\(0[xX]\\)[0-9a-fA-F]+\\|nan\\)$" "Regular expression for recognizing numbers in table columns.\nIf a table column contains mostly numbers, it will be aligned to the\nright.  If not, it will be aligned to the left.\n\nThe default value of this option is a regular expression which allows\nanything which looks remotely like a number as used in scientific\ncontext.  For example, all of the following will be considered a\nnumber:\n    12    12.2    2.4e-08    2x10^12    4.034+-0.02    2.7(10)  >3.5\n\nOther options offered by the customize interface are more restrictive." (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\\)$") (const :tag "Very General Number-Like, including hex, allows comma as decimal mark" "^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|\\(0[xX]\\)[0-9a-fA-F]+\\|nan\\)$") (string :tag "Regexp:")) org-table-number-fraction 0.5 "Fraction of numbers in a column required to make the column align right.\nIn a column all non-white fields are considered.  If at least\nthis fraction of fields is matched by `org-table-number-regexp',\nalignment to the right border applies." number org-table-editing "Behavior of tables during editing in Org-mode." "Org Table Editing" org-table-automatic-realign t "Non-nil means automatically re-align table when pressing TAB or RETURN.\nWhen nil, aligning is only done with \\[org-table-align], or after column\nremoval/insertion." org-table-auto-blank-field "Non-nil means automatically blank table field when starting to type into it.\nThis only happens when typing immediately after a field motion\ncommand (TAB, S-TAB or RET).\nOnly relevant when `org-enable-table-editor' is equal to `optimized'." org-table-exit-follow-field-mode-when-leaving-table "Non-nil means automatically exit the follow mode.\nWhen nil, the follow mode will stay on and be active in any table\nthe cursor enters.  Since the table follow filed mode messes with the\nwindow configuration, it is not recommended to set this variable to nil,\nexcept maybe locally in a special file that has mostly tables with long\nfields." :version "24.1" org-table-fix-formulas-confirm "Whether the user should confirm when Org fixes formulas." (choice (const :tag "with yes-or-no" yes-or-no-p) (const :tag "with y-or-n" y-or-n-p) (const :tag "no confirmation" nil)) put safe-local-variable #[(x) "\301\235\207" [x (yes-or-no-p y-or-n-p)] 2] org-table-tab-jumps-over-hlines "Non-nil means tab in the last column of a table with jump over a hline.\nIf a horizontal separator line is following the current line,\n`org-table-next-field' can either create a new row before that line, or jump\nover the line.  When this option is nil, a new line will be created before\nthis line." org-table-calculation "Options concerning tables in Org-mode." "Org Table Calculation" org-table-use-standard-references 'from "Should org-mode work with table references like B3 instead of @3$2?\nPossible values are:\nnil     never use them\nfrom    accept as input, do not present for editing\nt       accept as input and present for editing" (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)) org-table-copy-increment "Non-nil means increment when copying current field with \\[org-table-copy-down]." 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) "List with Calc mode settings for use in `calc-eval' for table formulas.\nThe list must contain alternating symbols (Calc modes variables and values).\nDon't remove any of the default settings, just change the values.  Org-mode\nrelies on the variables to be present in the list." plist org-table-duration-custom-format 'hours "Format for the output of calc computations like $1+$2;t.\nThe default value is 'hours, and will output the results as a\nnumber of hours.  Other allowed values are 'seconds, 'minutes and\n'days, and the output will be a fraction of seconds, minutes or\ndays." (choice (symbol :tag "Seconds" 'seconds) (symbol :tag "Minutes" 'minutes) (symbol :tag "Hours  " 'hours) (symbol :tag "Days   " 'days)) org-table-formula-field-format "%s" "Format for fields which contain the result of a formula.\nFor example, using \"~%s~\" will display the result within tilde\ncharacters.  Beware that modifying the display can prevent the\nfield from being used in another formula." org-table-formula-evaluate-inline "Non-nil means TAB and RET evaluate a formula in current table field.\nIf the current field starts with an equal sign, it is assumed to be a formula\nwhich should be evaluated as described in the manual and in the documentation\nstring of the command `org-table-eval-formula'.  This feature requires the\nEmacs calc package.\nWhen this variable is nil, formula calculation is only available through\nthe command \\[org-table-eval-formula]." org-table-formula-use-constants "Non-nil means interpret constants in formulas in tables.\nA constant looks like `$c' or `$Grav' and will be replaced before evaluation\nby the value given in `org-table-formula-constants', or by a value obtained\nfrom the `constants.el' package." org-table-formula-constants "Alist with constant names and values, for use in table formulas.\nThe car of each element is a name of a constant, without the `$' before it.\nThe cdr is the value as a string.  For example, if you'd like to use the\nspeed of light in a formula, you would configure\n\n  (setq org-table-formula-constants '((\"c\" . \"299792458.\")))\n\nand then use it in an equation like `$1*$c'.\n\nConstants can also be defined on a per-file basis using a line like\n\n#+CONSTANTS: c=299792458. pi=3.14 eps=2.4e-6" (repeat (cons (string :tag "name") (string :tag "value"))) org-table-allow-automatic-line-recalculation "Non-nil means lines marked with |#| or |*| will be recomputed automatically.\nAutomatically means when TAB or RET or C-c C-c are pressed in the line." org-table-error-on-row-ref-crossing-hline "OBSOLETE VARIABLE, please see `org-table-relative-ref-may-cross-hline'." org-table-relative-ref-may-cross-hline "Non-nil means relative formula references may cross hlines.\nHere are the allowed values:\n\nnil    Relative references may not cross hlines.  They will reference the\n       field next to the hline instead.  Coming from below, the reference\n       will be to the field below the hline.  Coming from above, it will be\n       to the field above.\nt      Relative references may cross hlines.\nerror  An attempt to cross a hline will throw an error.\n\nIt is probably good to never set this variable to nil, for the sake of\nportability of tables." (choice (const :tag "Allow to cross" t) (const :tag "Stick to hline" nil) (const :tag "Error on attempt to cross" error)) org-table-import-export "Options concerning table import and export in Org-mode." "Org Table Import Export" org-table-export-default-format "orgtbl-to-tsv" "Default export parameters for `org-table-export'.\nThese can be overridden for a specific table by setting the\nTABLE_EXPORT_FORMAT property.  See the manual section on orgtbl\nradio tables for the different export transformations and\navailable parameters."] 10)
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-auto-recalculate-regexp "^[ 	]*| *# *\\(|\\|$\\)" (#$ . 11642))
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-recalculate-regexp "^[ 	]*| *[#*] *\\(|\\|$\\)" (#$ . 11789))
#@58 Detects a table line marked for automatic recalculation.
(defconst org-table-calculate-mark-regexp "^[ 	]*| *[!$^_#*] *\\(|\\|$\\)" (#$ . 11934))
#@87 Searching from within a table (any type) this finds the first line outside the table.
(defconst org-table-border-regexp "^[ 	]*[^| 	]" (#$ . 12086))
(defvar org-table-last-highlighted-reference nil)
(defvar org-table-formula-history nil)
#@53 Alist with column names, derived from the `!' line.
(defvar org-table-column-names nil (#$ . 12330))
#@55 Regular expression matching the current column names.
(defvar org-table-column-name-regexp nil (#$ . 12437))
#@56 Alist with parameter names, derived from the `$' line.
(defvar org-table-local-parameters nil (#$ . 12552))
#@39 Alist with locations of named fields.
(defvar org-table-named-field-locations nil (#$ . 12666))
#@62 Table row types, non-nil only for the duration of a command.
(defvar org-table-current-line-types nil (#$ . 12768))
#@63 Table begin line, non-nil only for the duration of a command.
(defvar org-table-current-begin-line nil (#$ . 12890))
#@67 Table begin position, non-nil only for the duration of a command.
(defvar org-table-current-begin-pos nil (#$ . 13013))
#@73 Number of columns in table, non-nil only for the duration of a command.
(defvar org-table-current-ncol nil (#$ . 13139))
#@56 Vector of data line line numbers in the current table.
(defvar org-table-dlines nil (#$ . 13266))
#@52 Vector of hline line numbers in the current table.
(defvar org-table-hlines nil (#$ . 13370))
#@53 Regular expression for matching ranges in formulas.
(defconst org-table-range-regexp "@\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[0-9]+\\)?\\(\\.\\.@?\\([-+]?I*[-+]?[0-9]*\\)?\\(\\$[-+]?[0-9]+\\)?\\)?" (#$ . 13470))
#@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]+\\)" (#$ . 13686))
#@44 Is this a table line colgroup information?
(defalias 'org-table-colgroup-line-p #[(line) "\302 \303\216\304\305	\"\205!\304\306	\"\205!\307\310\311\312\313\314\315	\"\316\"\"\"?*\207" [save-match-data-internal line match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[<>]\\|&[lg]t;" "\\`[ 	]*|[ 	]*/[ 	]*\\(|[ 	<>0-9|lgt&;]+\\)\\'" delq nil mapcar #[(s) "\301\235?\207" [s ("" "<" ">" "<>" "&lt;" "&gt;" "&lt;&gt;")] 2] org-split-string match-string 1 "[ 	]*|[ 	]*"] 8 (#$ . 13929)])
#@57 Is this a table line with only alignment/width cookies?
(defalias 'org-table-cookie-line-p #[(line) "\302 \303\216\304\305	\"\205(\304\306	\"\204\304\307	\"\205(\310\311\312\313\314\315\316	\"\317\"\"\"?*\207" [save-match-data-internal line match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match "[<>]\\|&[lg]t;" "\\`[ 	]*|[ 	]*/[ 	]*\\(|[ 	<>0-9|lrcgt&;]+\\)\\'" "\\(\\`[ 	<>lrc0-9|gt&;]+\\'\\)" delq nil mapcar #[(s) "\301\232\206\302\303\"\206\302\304\"?\207" [s "" string-match "\\`<\\([lrc]?[0-9]+\\|[lrc]\\)>\\'" "\\`&lt;\\([lrc]?[0-9]+\\|[lrc]\\)&gt;\\'"] 3] org-split-string match-string 1 "[ 	]*|[ 	]*"] 8 (#$ . 14482)])
#@66 Match a reference that needs translation, for reference display.
(defconst org-table-translate-regexp "\\(@[-0-9I$]+\\|[a-zA-Z]\\{1,2\\}\\([0-9]+\\|&\\)\\)" (#$ . 15185))
#@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&\310 \210\305 \207\311\312!\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? " org-table-align call-interactively table-insert] 2 (#$ . 15363) 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 (#$ . 15884) "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 --dotimes-limit--] 8 (#$ . 16459) "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 b\210n\203!\312u\210\202$\310\210\311 
\204H\nb\210\313\314\315#\204:\316\202G\313\317\315#\204F\320\202G\310\nb\210
\321\232\203\253`W\203\354\322\323!\203c\324c\210\202Q\322\325!\203t\326\327!\210\307\330!\210\202Q\322\331!\203\212\326\332!\210\322\333!\203Q\333c\210\202Q\322\334!\203\227\335\225b\210\202Q\322\336!\203\244\326\337!\210\202Q\307\330!\210\202Q
\340\232\203\265\341\202\332
\342\232\203\277\343\202\332
\250\203\327
\310W\203\320\344\345!\202\332\346\347
\"\202\332\344\350!\313\f\315#\203\354\326\324\315\211#\210\202\333\nb\210\351 +\207" [beg0 end0 beg end re separator nil beginning-of-line 1 point-marker -1 re-search-forward "^[^\n	]+$" t (16) "^[^\n,]+$" (4) (4) looking-at "^" "| " "[ 	]*$" replace-match " |" 2 "[ 	]*\"\\([^\"\n]*\\)\"" "\\1" "\"" "[^,\n]+" 0 "[ 	]*," " | " (4) "^\\|\"?[ 	]*,[ 	]*\"?" (16) "^\\|	" error "Number of spaces in separator must be >= 1" format "^ *\\| *	 *\\| \\{%d,\\}" "This should not happen" org-table-align] 4 (#$ . 17268) "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 (#$ . 19134) "f\nP"])
#@652 Export table to a file, with configurable format.
Such a file can be imported into usual spreadsheet programs.

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 command suggests a format depending on TABLE_EXPORT_FORMAT,
whether it is set locally or up in the hierarchy, then on the
extension of the given file name, and finally on the variable
`org-table-export-default-format'.
(defalias 'org-table-export #[(&optional file format) "\306 \204	\307\310!\210\311\312!\210\313 \210\314 \315 \316	\"\206$\317\320\321#\322
\2060\317\323\321#\324\211@A\324B\204U\325\326!\327!\203U\330\305\331\"!\204U\307\332!\210\333!\203_\307\334!\210\335 \203s\336!\336\335 !\232\203s\307\337!\210\340!\341PB
\204\276\342\324\343\344\f\"\"@\206\213CA\345\346A\"\203\241\347\350\321\211A$A\202\215\345\351A\"\203\265\347\352\321\211A$A\202\241\353\354\f\324\211A%\345\355
\"\203\205
\356\357\360
\"!D\361\225\205\333\362\363\357\361
\"\364Q!E\365E\366\"F\365E\367\"GF\206\361\370\371\n\372\"\233H\373H!HI\203
\361\202
\360J\343\374H\"KJ\361U\203
\375\202
\376L\377LM!GJ#M\377LN!GJ#N\201OD!\204J
\307\201PD\"\210DKE\"r\201Q!q\210p@\201R \210\201S \210\n\351\261\210\201T \210)\201U@!\210\201V\201W!.\202\212
\307\201X!.	\207" [beg end txt file formats format 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 org-entry-get "TABLE_EXPORT_FILE" t ("orgtbl-to-tsv" "orgtbl-to-csv" "orgtbl-to-latex" "orgtbl-to-html" "orgtbl-to-generic" "orgtbl-to-texinfo" "orgtbl-to-orgtbl") "TABLE_EXPORT_FORMAT" nil 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" buffer-file-name file-truename "Please specify a file name that is different from current" file-name-extension "$" delq mapcar #[(f) "\302	\"\205	\207" [fileext f string-match] 3] string-match "	" replace-match "\\t" "\n" "\\n" org-completing-read "Format: " "\\([^ 	
\n]+\\)\\( +.*\\)?" intern match-string 1 2 read "(" ")" plist-get :skip :skipcols 0 org-split-string "[ 	]*\n[ 	]*" org-table-clean-before-export #[(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 buf deffmt-readable fileext 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 fboundp "No such transformation function %s" find-file-noselect erase-buffer fundamental-mode save-buffer kill-buffer message "Export done." "TABLE_EXPORT_FORMAT invalid"] 7 (#$ . 19564) 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) (#$ . 22671))
#@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) (#$ . 22869))
#@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 (#$ . 23059))
#@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 (#$ . 23256))
#@90 Non-nil means debug table formulas.
When nil, simply write "#ERROR" in corrupted fields.
(defvar org-table-formula-debug nil (#$ . 23432))
(make-variable-buffer-local 'org-table-formula-debug)
#@50 Overlay coordinates after each align of a table.
(defvar org-table-overlay-coordinates nil (#$ . 23631))
(make-variable-buffer-local 'org-table-overlay-coordinates)
(defvar org-last-recalc-line nil)
(defvar org-table-do-narrow t)
#@53 Used as display property in narrowed table columns.
(defconst org-narrow-column-arrow "=>" (#$ . 23867))
#@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]^\310\211_`\310\211ab\327	\"\210\330	\331#\210b\210\332c	\333#Vb\210d\205\351\332e	\333#Xb\210f\205\371\332g	\333#Yb\210h\205	
\332i	\333#WV\203
b\210\334	!\204
W\203'
b\210\335	!\204!
X\2035
b\210\336	!\204/
Y\203C
b\210\337	!\204=
b\210j\205U
k\205U
\332\340	\333#Zb\210\332\341	\333#[b\210\342	{\343\"A\344\345A@\"\203
\320\312\225\312\224Z\321\"K\346\347A\"A\346\350\351\310\352A!\"\"G\310\353\354\217\210\355H\316\"U\356IIT\211IHW\203:\346\357G\"J\310]Z\204\301
[\203\274J`\310\211]\\`\203\f`\211A`@\211a;\203\313
\344\360a\"\203\313
\311\225\203\362
\361\311a\"\\j\203\313
\362\225\203\313
\363\361\362a\"!]\310\211`\204\320
]\203\274Jl\310ml:\203\273l@\211m;\203\262\364m!]V\203\262\365m\310\366\367\352m!\310no\370\371!\203T\371\312oG\310o$\210\202qn\203g\330\312oGpo$\210\202q\371\312oG\310o$\210o*P$\210]\344cm\"\206\204]^\211^\311V\204\226\372\373\361\312m\"\"\210\374^mG\375\333Dm$\210\374^\362Z^\376qDm$\210lA\211l\202*\377\201\201]\206\306\311\311\346\364J\"$CBC\\\203\346\\\227\201\202\232EBE\202\241
\312L\201\203MJr\310sr:\203,r@\211s\316\232\204#ML_\344ts\"\203\311\202\312\\LT\211L\245MrA\211r\202\367*MuYEBE\202\241
C\237CE\237\211EvCwV\204ZX\204ZY\203\312IHSxIxX\203
IC8_\312yGGSzyzX\203\367IyG\233@\233\211`@;\203\356\201\204\312`@G\201\205\201\206`@%\204\273\201\204\312`@G\201\207\333`@%\203\356\364`@!_W\203\356\320_\364`@!Z\321\"b`IE8\203\346b`@P\202\354`@bP\240\210yT\211y\202|*IT\211I\202d*K\323PNK\323POC\211AC@\211D\203PE\211AE@\203)\316\202,\201\210FN\201\211SFD#PNO\201\211T\320D\324\"\"PO\202N\343PNO\312\356O\201\212PO\201\213\201\214A\316#B{`\310\223\210Bc\210`	|\210	\310\211\223\210|`\310\223\210}\203\242\201\215\201\216!\204\242{b\210\201\217|!\204\231@~\214~\210eb\210~Sy*\210\201\220 ~\214~\210eb\210~Sy*\210\201\221\201\222 
\201\223#\210\201\224\f!\210\203\343\201 \210\310\211\200.(\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 org-raise-scripts "<[lrc]?[0-9]+>" "<[lrc][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] "^<\\([lrc]\\)?\\([0-9]+\\)?>$" match-string 2 string-to-number 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 display apply 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 raise narrow falign falign1 fmax f1 len c e space org-bracket-link-regexp org-hide-emphasis-markers org-emph-re org-use-sub-superscripts org-match-substring-regexp org-display-custom-times org-ts-regexp-both org-table-do-narrow org-format-transports-properties-p #2=#:--cl-var-- xx restricted 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 N org-table-overlay-coordinates org-table-may-need-update max "r" 0.0 text-property-any invisible org-link org-dwidth "-" format "|\n" mapconcat #[(l) "\203\305\306	\307\n\211A@\"#\207\f\207" [l rfmt fields emptystrings hfmt apply format append] 6] derived-mode-p org-mode org-hide-wide-columns point-at-bol set-window-start selected-window noforce org-table-goto-column] 11 (#$ . 23978) 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#\204eb\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 (#$ . 28932)])
#@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#\204db\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 (#$ . 29337)])
#@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\345\306 \206\345\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\343\314\311x\210\315\316!\203\337\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\273G X\203\264\324!\"\"\202\273\327P\"\310\331\"!\332\232\203\312\333\"P\"\"#\232\204\341\311\334\"\310\211#\210)\202\341\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" "|" "" string-to-char 45 " " replace-match col org-table-last-alignment num l f n o e] 6 (#$ . 29710)])
#@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 (#$ . 30806) 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\217\210\312\313!\203-\314\315\316 \"\210\202\312\317!\2056\320\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 nil (byte-code "\300\301\302 \"\210\300\301\302 \"\207" [re-search-backward "|" org-table-begin] 3) ((error (error "Cannot move to previous table field"))) looking-at "|\\(-\\|[ 	]*$\\)" re-search-backward "|" org-table-begin "| ?" 0] 3 (#$ . 31674) nil])
#@174 Move to the end of the current table field.
If already at or after the end, move to the end of the next table field.
With numeric argument N, move N-1 fields forward first.
(defalias 'org-table-beginning-of-field #[(&optional n) "`	\302V\203	S\303 \210\202\304\305\306\307!\310#\204\"\311\312!\210\202/\307\225b\210\313\314!\203/\302u\210`Y\2058\315\316!)\207" [pos n 1 org-table-previous-field re-search-backward "|" point-at-bol 0 t error "No more table fields before the current" looking-at " " org-table-beginning-of-field 2] 4 (#$ . 32377) "p"])
#@192 Move to the beginning of the current table field.
If already at or before the beginning, move to the beginning of the
previous field.
With numeric argument N, move N-1 fields backward first.
(defalias 'org-table-end-of-field #[(&optional n) "`	\302V\203	S\303 \210\202\304\305\306\302!\307#\2033\310u\210\311\312x\210`Sf\313\232\2033\314\311!\2033\302u\210`X\205<\315\316!)\207" [pos n 1 org-table-next-field re-search-forward "|" point-at-eol t -1 " " nil 124 looking-at org-table-end-of-field 2] 4 (#$ . 32946) "p"])
#@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 (#$ . 33483) nil])
#@557 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, increment by one day.
(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!\203S\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 (#$ . 34182) "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 #[(&optional noerror) "\301 \203\302 \303U\204\304 \204\305\306!\203 ?\205!\307\310!\207\311\207" [noerror org-at-table-p org-table-current-column 0 org-at-table-hline-p looking-at "[ 	]*$" error "Not in table data field" t] 2 (#$ . 35856)])
#@30 Clipboard for table regions.
(defvar org-table-clip nil (#$ . 36325))
#@291 Get the field in table line LINE, column COLUMN.
If LINE is larger than the number of data lines in the table, the function
returns nil.  However, if COLUMN is too large, we will simply return an
empty string.
If LINE is nil, use the current line.
If column is nil, use the current column.
(defalias 'org-table-get #[(line column) "\206\302 \212	\203\303	!\205\304\305!!)\207" [column line org-table-current-column org-table-goto-line org-trim org-table-get-field] 3 (#$ . 36402)])
#@85 Put VALUE into line LINE, column COLUMN.
When ALIGN is set, also realign the table.
(defalias 'org-table-put #[(line column value &optional align) "\206\304 \212	\203\305	!\205\306\307\310#\210\311\n\")\203$\312 \210\207" [column line value align org-table-current-column org-table-goto-line org-table-goto-column nil force org-table-get-field org-table-align] 4 (#$ . 36899)])
#@44 Return the index of the current data line.
(defalias 'org-table-current-line #[nil "`\304 \305\212\306 b\210\307	\310#\203\"T\211\203\"\311 \nW\204\f)+\207" [cnt end pos org-table-dataline-regexp org-table-end 0 org-table-begin re-search-forward t point-at-eol] 4 (#$ . 37295)])
#@104 Go to the Nth data line in the current table.
Return t when the line exists, nil if it does not exist.
(defalias 'org-table-goto-line #[(N) "\304 b\210\305 \306\307\n	\310#\203T\211W\204	U*\207" [cnt end org-table-dataline-regexp N org-table-begin org-table-end 0 re-search-forward t] 4 (#$ . 37591)])
#@49 Blank the current table field or active region.
(defalias 'org-table-blank-field #[nil "\304 \210\305\306!\203\307 \203\310\311\312 \313 \")\207\314\310x\210\315u\210\316\317!\205D\320\224\321\320!\322\n!\323\324\325S\326\"P!\210\327	\\b\210\n\330\310O+\207" [org-table-clip pos match len org-table-check-inside-data-field called-interactively-p any 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 (#$ . 37909) 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!\203?\312\224\211T\312\225{\2034\313\314\315\232\203.\316\202/P\317\211#\210\320 \321	\\^b\210\n*\207\322u\210\315\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 (#$ . 38470)])
#@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\203b\210n\203$\313\202%\314\315\313`\"\\*	D\f\"@\316\317\320\321 \"!%\322 &\323\324&	#'\325'!(\326
%\"\206Z\326'%\")\326\311	!%\"*)\206l*\211+\203\205\327\314\330+@#\203\205\327\314\330+@#+b\210\312\331\332\217\210\333\334&	\203\234\335P\202\235\336&	(
\203\254\335
P\202\255\336+\203\317\337\340\341\342+@\"\203\301\336\202\302\343+@\344+AR!P\202\320\336&	.\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-expand-lhs-ranges mapcar #[(e) "\301@!AB\207" [e org-table-formula-handle-first/last-rc] 2] org-table-get-stored-formulas org-table-current-dline format "@%d$%d" org-table-convert-refs-to-an assoc get-text-property :orig-eqn (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] 16 (#$ . 39036) "P"])
#@34 Find out which column we are in.
(defalias 'org-table-current-column #[nil "\302\303!\203	\304 \210\212\305`\306\307!\210\310\311\312#\203 	T\202\302\313!\203+\314\315	\"\210	+\207" [pos cnt called-interactively-p any org-table-check-inside-data-field 0 beginning-of-line 1 search-forward "|" t interactive message "In table column %d"] 4 (#$ . 40292) nil])
#@74 Find out what table data line we are in.
Only data lines count for this.
(defalias 'org-table-current-dline #[nil "\303\304!\203	\305 \210\212\306`\307 b\210`X\203(\310\n!\203!	T\311\312!\210\202\303\304!\2033\313\314	\"\210	+\207" [pos cnt org-table-dataline-regexp called-interactively-p any org-table-check-inside-data-field 0 org-table-begin looking-at beginning-of-line 2 message "This is table line %d"] 3 (#$ . 40665) 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) "\303\304!\210\305V\205NS\211\306V\203-\307\310\311 \312#\204\n	\203-\304\210\313\314x\210\315c\210\202\n	\203?\316\317!\204?\212\304\210\315c\210)\n\203F\306u\207\316\320!\205N\304u\207" [n force on-delim beginning-of-line 1 0 -1 search-forward "|" point-at-eol t "^|" nil " | " looking-at ".*|" " "] 4 (#$ . 41113) "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\f\214~\210eb\210Sy*\210\322
!\210\327 \210\203w\330!\205\206\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 org-table-align "Fix formulas? " org-table-fix-formulas "$" "$LR" N org-table-fix-formulas-confirm] 5 (#$ . 41805) nil])
#@77 Find a data line 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\2031i	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 (#$ . 42575)])
#@254 Turn a buffer line number into a data line number.
If there is no data line in this line, return nil.
If there is no matching dline (most likely te reference was a hline), the
first dline below it is used.  When ABOVE is non-nil, the one above is used.
(defalias 'org-table-line-to-dline #[(line &optional above) "\300\301\215\207" [exit (byte-code "G\305\203&\nS\211\306V\203B	H\fX\203\307\310	\"\210	S\211\202
\311\211\nW\203B	H\fY\203;\307\310	\"\210	T\211\202)*\305\207" [org-table-dlines i ll above line nil 0 throw exit 1] 4)] 2 (#$ . 43042)])
#@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\f#\214~\210eb\210#Sy*\210\323
!\210\333 \210$\203$\334!\205\230\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 org-table-align "Fix formulas? " org-table-fix-formulas "$" number-to-string "INVALID" -1 "$LR" N org-table-fix-formulas-confirm] 6 (#$ . 43616) nil])
#@27 Move column to the right.
(defalias 'org-table-move-column-right #[nil "\300\301!\207" [org-table-move-column nil] 2 (#$ . 44520) nil])
#@26 Move column to the left.
(defalias 'org-table-move-column-left #[nil "\300\301!\207" [org-table-move-column left] 2 (#$ . 44662) 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 	\203S\202\314 \315 \316\212
\203-
b\210n\2035\317\2026\320\321\317`\"\\*$	\203GS\202IT%	\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$&\214~\210eb\210&Sy*\210\327%!\210\336 \210'\203\264'\337!\205\335\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 org-table-align "Fix formulas? " org-table-fix-formulas "$" number-to-string "$LR" linepos colpos N org-table-fix-formulas-confirm] 6 (#$ . 44803) "P"])
#@22 Move table row down.
(defalias 'org-table-move-row-down #[nil "\300\301!\207" [org-table-move-row nil] 2 (#$ . 46011) nil])
#@20 Move table row up.
(defalias 'org-table-move-row-up #[nil "\300\301!\207" [org-table-move-row up] 2 (#$ . 46141) 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\206\200\206\200?\206\323!??\205\230\324\325\326\f!\326!B\326!\326\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 "Fix formulas? " org-table-fix-formulas "@" number-to-string dline2 tonew txt hline2p org-table-fix-formulas-confirm] 7 (#$ . 46266) "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) "\306 \204	\307\310!\210\311 \312 {\313!\314\315\"\203$\316\317\320\"\321\211	$\322\n\203-\323\202.\324!\210\325\326	\327\"\210)\322\320!\210\330\331\312 \321#\210\204K\f\203N\332 \210
\203X
\333!\205`\334\335\325\336 S\324$*\207" [line new arg org-table-may-need-update org-table-overlay-coordinates org-table-fix-formulas-confirm 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 "Fix formulas? " org-table-fix-formulas "@" org-table-current-dline] 5 (#$ . 47046) "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 (#$ . 47886) "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 (#$ . 48718) "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 (#$ . 49189)])
#@59 Delete the current row or horizontal line from the table.
(defalias 'org-table-kill-row #[nil "\303 \204	\304\305!\210i\306 \307\310 \311 Td^\"\210\303 \204!\312\313!\210\314	!\210\n\203/\n\315!\205;\316\317\320!\321BC\322%*\207" [dline col org-table-fix-formulas-confirm 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 "Fix formulas? " org-table-fix-formulas "@" number-to-string "INVALID" -1] 6 (#$ . 49702) 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\nb\210n\203\307\202\310\311\307`\"\\*\312 \306\211*\306\211+,\306\211-.\306\211/0\306\n\310\232\203S\313\314!\203M\315\316\317!!\202O\307\320\n!\210\321 \210\322 \203x\323 \324 *
b\210\312 /\325 *b\210\325\326!*\202\274\312 /`\327 .\330 -\3311.\332#\203\227\325\326!\202\237.b\210\325\307!b\210\3331-\332#\203\264\325\307!*\202\274-b\210\325 *\334 
\306\223\334 *\306\223*\335
*\"\210
b\210\320/!\210\336\306x\210i+\320/T!\210\336\306x\210iS,\320/!\210\337\340\341
*{\342\"\"0\3430\34423$0\203
\345 \210
*|\210
\306\211\223\210*\306\211\223\210\346\3470\342#\342\261\210	4\214~\210eb\2104Sy*\210\320\n!\210\f\203D
\345 \210\350\3510G/#.\f\207" [pos thisline thiscol org-table-overlay-coordinates otc beg nil 1 0 count-lines org-table-current-column called-interactively-p any 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" org-table-toggle-coordinate-overlays mapconcat cdr message "%d lines sorted, based on column %d" end bcol ecol tend tbeg column lns org-table-hline-regexp with-case sorting-type N] 6 (#$ . 50226) "P"])
#@129 Copy region in table to the clipboard and blank all relevant fields.
If there is no active region, use just the field at point.
(defalias 'org-table-cut-region #[(beg end) "\302	\303#\207" [beg end org-table-copy-region cut] 4 (#$ . 52802) (list (if (org-region-active-p) (region-beginning) (point)) (if (org-region-active-p) (region-end) (point)))])
#@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\203ab\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\214~\210eb\210\nSy*\210\311 \203%\306\312T\211\"\210\313\f

TW\203D\314
\"B
T\211\202.\237BT\313\207" [l1 l2 N cols c1 ic1 throw exit t org-at-table-hline-p nextline nil org-table-get-field c2 ic2 rpl region] 5)] 2) org-table-align l2 c2 ic1 ic2 region cols cut rpl beg pos end org-table-clip] 5 (#$ . 53161) (list (if (org-region-active-p) (region-beginning) (point)) (if (org-region-active-p) (region-end) (point)) current-prefix-arg)])
#@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=\214~\210eb\210Sy*\210\324\f!\210\327 .\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 org-table-align org-table-automatic-realign c cols field N] 5 (#$ . 54347) 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 (#$ . 55419) nil])
#@266 Transpose orgmode table at point and eliminate hlines.
So a table like

| 1 | 2 | 4 | 5 |
|---+---+---+---|
| a | b | c | d |
| e | f | g | h |

will be transposed as

| 1 | a | e |
| 2 | b | f |
| 4 | c | g |
| 5 | d | h |

Note that horizontal lines disappeared.
(defalias 'org-table-transpose-table-at-point #[nil "\301\302\303\304\305\306\307\310 \"\"#\311 \312 |\210\313\314\315#c\210\316 )\207" [contents apply mapcar* list delq nil mapcar #[(x) "<\205\207" [x] 1] org-table-to-lisp org-table-begin org-table-end mapconcat #[(x) "\301\302\303\304#\305Q\207" [x "| " mapconcat identity " | " "  |\n"] 5] "" org-table-align] 8 (#$ . 56764) 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\206\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#\"\n-\214~\210eb\210-Sy*\210\330!\210\331 ,\207.\332/0/\333=\203\230\333\202\3150\333=\203\243\333\202\315\334/0\"\203\266\334/0\"A\202\315\3350\236A\2111<\203\312\336\3111\"\202\3141)*\204\325\337\311w\210,\203
\340 \315 23\341\313!\210\342 \203\362\341\313!\210\202\346\3302!\210\343\311w\210\327\311x\210\327\3443!\261\210\345 *\207\346\347!\203-
\350\312!3\351\352!\210\313\224b\210\353 \210\3443!\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 " " org-table-goto-column org-table-paste-rectangle table t assoc default delq "^
\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 N org-M-RET-may-split-line key option r col s] 7 (#$ . 57429) "P"])
(defvar org-field-marker nil)
#@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) "\306\232\203\301	\203\307\202\310!\207\203:\212\311\312x\210`)\212\313\312w\210`)\314\n\315#\210\316\304!\2058\f\2058\317 *\207\320 
\321=\203N\322\323 !\324\325 !P\202Y\326\324\325 !\327\324\323 !R\330 \331 \312,-./\2110b\210\332\333!\210\334\335!\203\202\336!\203\202\312\211\223\210\337 \210\340/\341\261\210\3211\342 \210)\343\307!\210\3122\3213d\211,b\210\344.!c\210\314,d\345#\210,b\210\346\34745\3505!4L*\210\351-45\3505!4L*\210\335045\3505!4L*\210\352\353!-\207" [arg org-table-follow-field-mode e b font-lock-mode org-table-use-standard-references (16) -1 1 "^|" nil "^|
\n" remove-text-properties (org-cwidth t invisible t display t intangible t) boundp font-lock-fontify-block point-marker t org-number-to-letters org-table-current-column int-to-string org-table-current-dline "@" "$" org-table-get-field current-window-configuration org-switch-to-buffer-other-window "*Org Table Edit Field*" local-variable-p org-field-marker markerp erase-buffer "#\n# Edit field " " and finish with C-c C-c\n#\n" org-mode auto-fill-mode org-trim (invisible t org-cwidth t display t intangible t) org-finish-function org-table-finish-edit-field make-local-variable org-window-configuration message "Edit and finish with C-c C-c" p cw field coord pos org-inhibit-startup truncate-lines word-wrap value var] 7 (#$ . 60004) "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 (#$ . 61642)])
#@123 Non-nil if Org-Table-Follow-Field mode is enabled.
Use the command `org-table-follow-field-mode' to change this variable.
(defvar org-table-follow-field-mode nil (#$ . 62432))
(make-variable-buffer-local 'org-table-follow-field-mode)
#@283 Minor mode to make the table field editor window follow the cursor.
When this mode is active, the field editor window will always show the
current field.  The mode exits automatically when the cursor leaves the
table (but see `org-table-exit-follow-field-mode-when-leaving-table').
(defalias 'org-table-follow-field-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\211\203\"\312\313\314\315\316$\210\202O\317\313\314\316#\210\320\321!\211\2053\322!\211\203<\323\f!\210\203Nrq\210
\324\211\223\210)\325!\210*\326\327\n\203Y\330\202Z\331\"\210\332\333!\203{\306 \203n\306 \232\203{\334\335\n\203x\336\202y\337\"\210)\340 \210\n\207" [#1=#:last-message arg org-table-follow-field-mode buf win org-field-marker current-message toggle prefix-numeric-value 0 org-add-hook post-command-hook org-table-follow-fields-with-editor append local remove-hook get-buffer "*Org Table Edit Field*" get-buffer-window delete-window nil kill-buffer run-hooks org-table-follow-field-mode-hook org-table-follow-field-mode-on-hook org-table-follow-field-mode-off-hook called-interactively-p any message "Org-Table-Follow-Field mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 62673) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\207" [org-table-follow-field-mode-map add-minor-mode org-table-follow-field-mode " TblFollow" boundp nil] 6)
(defalias 'org-table-follow-fields-with-editor #[nil "\203
\302 \204
\303\304!\207\305\306!\205!\307 \310\311!\210\312 \210\313	!)\207" [org-table-exit-follow-field-mode-when-leaving-table win org-at-table-p org-table-follow-field-mode -1 org-table-check-inside-data-field noerror selected-window org-table-edit-field nil org-fit-window-to-buffer select-window] 2])
#@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.\2370\331\306\332\3330\"\"1\325\3341\"2
\307U\203\263\3352!\202\3262\336_\337\f\336\245!\340\f\336\"\337\f\341\245!\340\f\341\"\211\342\343\n	$3\3443!\210\345\346!\203\361\347\350\351\342\3521G3#!\"\2103.
\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 called-interactively-p interactive 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 (#$ . 64454) 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])
#@191 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 preceded with "=" or ":=".
(defalias 'org-table-current-field-formula #[(&optional key noerror) "\306\307\212\203b\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 (#$ . 66924)])
#@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\2272\203\227\321\3302\"\203\2271\202\3232;\203\2422\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\204M
13\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 (#$ . 67690)])
#@53 Store the list of formulas below the current table.
(defalias 'org-table-store-formulas #[(alist) "\302\303\"\304\212\305 b\210\306\307!\203\310\224b\210\310\224\311\225|\210\202+\312 \210\313\314!\206)\315c\210\316\317\320\321#\322\261*\207" [alist case-fold-search sort org-table-formula-less-p t org-table-end looking-at "\\([ 	]*\n\\)*[ 	]*\\(#\\+tblfm:\\)\\(.*\n?\\)" 3 0 org-indent-line match-string 2 "#+TBLFM:" " " mapconcat #[(x) "\301@!\302\232\203
\303\202\304@\305AR\207" [x string-to-char 64 "" "$" "="] 4] "::" "\n"] 5 (#$ . 69274)])
(defalias 'org-table-formula-make-cmp-string #[(a) "\302\303\"\203+\304\305\306O!\307!\310\311\312\313	\314U\203 \315\202!\316\317\305\306O!#\")\302\320\"\205b\321\225\203C\310\322\317\323\321\"!\"\202D\324\325\225\203U\310\326\317\323\325\"!\"\202V\324\327\225\205a\330\323\327\"PQ\207" [a arrow string-match "\\`$[<>]" string-to-char 1 nil org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 9])
(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) "@\305\306\"\203.\307\310\311O!\312!\313\314\315\316	\317U\203#\320\202$\321\322\310\311O!#\")\305\323\"\205e\324\225\203F\313\325\322\326\324\"!\"\202G\327\330\225\203X\313\331\322\326\330\"!\"\202Y\327\332\225\205d\333\326\332\"PQ)\n@\305\306\"\203\224\307\310\311O!\312!\313\314\315\316	\317U\203\211\320\202\212\321\322\310\311O!#\")\305\323\"\205\313\324\225\203\254\313\325\322\326\324\"!\"\202\255\327\330\225\203\276\313\331\322\326\330\"!\"\202\277\327\332\225\205\312\333\326\332\"PQ)\211\205\331\205\331\f\231*\207" [a arrow b bs as string-match "\\`$[<>]" string-to-char 1 nil org-table-formula-handle-first/last-rc format "$%d" + 10000 60 -1000 0 string-to-number "^\\(@\\([0-9]+\\)\\)?\\(\\$?\\([0-9]+\\)\\)?\\(\\$?[a-zA-Z0-9]+\\)?" 2 "@%05d" match-string "" 4 "$%05d" 5 "@@"] 11 (#$ . 70496)])
#@72 Return an alist with the stored formulas directly after current table.
(defalias 'org-table-get-stored-formulas #[(&optional noerror) "\306\307\211\211\211\211\211\212\310 b\210\311\312!\203\217\313\314\307\315	\"*\316\"\n\211A@\211\203\217\317\320	\"\203)\314\225\203F\321\314	\"\202J\321\322	\"\323
!\324\235\203Y\325
P\202Z
\321\326	\"
\fBB
\235\203\210\203\200\327\330
\"\210\331 \210\332\314!\210\202)\333\330
\"\210\202)
B\202))\237.\207" [seen string strings eq-alist eq scol t nil org-table-end looking-at "\\([ 	]*\n\\)*[ 	]*#\\+tblfm: *\\(.*\\)" org-split-string 2 match-string-no-properties " *:: *" string-match "\\`\\(@[-+I<>0-9.$@]+\\|@?[0-9]+\\|\\$\\([a-zA-Z0-9]+\\|[<>]+\\)\\) *= *\\(.*[^ 	]\\)" match-string 1 string-to-char (60 62) "$" 3 message "Double definition `$%s=' in TBLFM line, please fix by hand" ding sit-for error case-fold-search num noerror] 7 (#$ . 71438) 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\311!)\205\316\312	\313P\n\2050	\314\232\204\"	\315\232\203,\316\317\320	!\n#\2020\316\321\n\"\322\211\211&'(\n\203q\323&\324 \307#\203q\325 )\326\216\327\330!*\204@\331\224Sf\332\232\203j\333\334\335\331!\"\210\202@\336\337!\210\202@\323'\324 \307#\205\314\325 )\340\216\327\330!*\204q\335\341!\342
!\343
*\"\211\203\253\336	AP\307\211#\210\344(!\210\202q+\203q\f+V\203q\336	\345\f,\\!P\307\211#\210\344(!\210\202q.)\207" [case-fold-search key remove a n s org-table-end t looking-at "[ 	]*#\\+tblfm:" "The formulas in #+TBLFM have been updated" "\\([0-9]+\\)" "$" "$LR" format "\\(@[0-9]+\\)?%s%d=.*?\\(::\\|$\\)" regexp-quote "@%d\\$[0-9]+=.*?\\(::\\|$\\)" nil re-search-forward point-at-eol match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-in-regexp "remote([^)]+?)" 0 46 error "Change makes TBLFM term %s invalid, use undo to recover" match-string replace-match "" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 string-to-number assoc message int-to-string re2 re msg save-match-data-internal replace limit delta] 6 (#$ . 72380)])
#@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-./01234567\310\21189\310\211:;\310\211<=\311>7b\210\312\3136\314#\203\206\315\316\317!\320\"5\31705\211A5@\2114\203\2060T0\321\3224\"\203]4\3230!B8B8\202]8\2378\324\325\3268\327#\330Q?7b\210\312\3316\314#\203\323\315\316\317!\320\"33\211A3@\2111\203\232\321\3321\"\203\253\316\3171\"\316\3331\"B9B9\202\2537b\210\312\3346\314#\203t
\316\317!/\315\316\333!\320\"3\212\335/\336\232\203\372\333\202\373\311!\210\310@\212@\203\n
@b\210n\203
\317\202
\311\337\317`\"\\*\317\340\341!\203*
\315\316\317!\320\"2)2\203\3273\211A3@\2111\203\3272\211A2@.\fT1;\203+
.;\203+
\321\3221\"\203+
1.B9B91
\fE:B:\202+
7b\210\310@\212@\203\205
@b\210n\203\215
\317\202\216
\311\337\317`\"\\*;`<;-\340\342!\203\316
\317\225\203\254
\343\202\255
\344B\317\225\203\275
-	B\202\302
-\nB\335\333!\210-T-\202\235
\343B\345\346\237\"=\n@\345\346\310\n\237B\"A\345\346\310	\237B\"BC\214~\210eb\210CSy*\210-\315\347 \350 {\351\"\2113GD\310\211EFD>\317GDHGHX\203P\352\353G\"-GEEBE\352\353G\"GS38BFBFGT\211G\202!*\354:E\":\3549F\"\2119.\207" [last-dline hlines dlines types col line org-table-begin org-table-end nil 0 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 "_" count-lines looking-at "^[ 	]*|[^|]*\\(|.*\\)" "[ 	]*|\\(-\\)?" hline dline apply vector 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-current-ncol org-table-column-name-regexp pos org-table-dlines org-table-hlines N nfields al al2 i #1=#:--cl-var--] 18 (#$ . 73840)])
#@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 (#$ . 76082)])
#@99 List of commands triggering the recalculation of a line.
Will be filled automatically during use.
(defvar org-recalc-commands nil (#$ . 76731))
(defvar org-recalc-marks '((" " . "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.")))
#@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`\"\\*0\323 \205q\325 \212\f\203b\fb\210n\203j\320\202k\321\322\320`\"\\*1\212\nb\210\326\327\330#)?2\331 3\3324\"@5\317\211670\203\251\333\334!\210\335\336 !4\3324\"@54\203\2715\204\271\307\3374\"\2100\203\31608\214~\210eb\2108Sy*\210\212\340\320!\210\3419!\204\336\307\342!\210)2\204\361\343\320!\210\344 \210\3433T!\210\345 6\212\340\320!\210\346\320\341\347!\203
\3505\206
\351\320!	\235\211:A@)\2117\350Q\202
\352\"\210)0\203
1\203
08\214~\210eb\2108Sy*\210\340\353!\210\317\212\f\203G
\fb\210n\203O
\320\202P
\321\322\320`\"\\*1U\204o
\3419!\2039
\346\320\3507\350Q\"\210\2029
08\214~\210eb\2108Sy*\2106\345 U\204\212
\354 \210
8\214~\210eb\2108Sy*\210\355\356!\205\250
\333\357\3327\"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'" 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 called-interactively-p interactive "%s" l1 l2 have-col col newchar forcenew epos new N org-table-dataline-regexp x] 6 (#$ . 77389) 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 (#$ . 79538) 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 org-tbl-calc-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 be 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\203OD\203OC\202V\321C	\322\232\"E\323 F\324G!H\315\211IJ\315\211KL\315\211MN\315\211OP\315\211QR\315\211ST\315\211UV\315\211:W\315X\325\326E\"\203F\327E\326\"\211Y@E\330\331Z\"AYA@PQ\325\332Q\"\203p
\333\334\320Q\"!U\335\334\336Q\"!KU\337U\203
\340K[\211\\;\203\365\330\\\341\"\\\336\\8[\\A@\\\\H>\203\n
\\H>A[\240\210\202
\\\210[\210H\210H*H\202d
\342\330U\343\"AKD[\211\\;\203A
\330\\\341\"\\\336\\8[\\A@\\\\H>\203V
\\H>A[\240\210\202_
\\\210[\210H\210H*H\344\345\317\211Q$Q\202\265\325\346Q\"\203\212
\317\211WI\315X\344\345\317\211Q$Q\325\347Q\"\203\245
\317W]X\317I\344\345\317\211Q$Q\325\350Q\"\203\271
\317I\344\345\317\211Q$Q\325\351Q\"\203\315
\317:\344\345\317\211Q$Q\325\352Q\"\203\341
\317J\344\345\317\211Q$Q\325\353Q\"\203:\334\354Q\"\315[\211\\;\203\330\\\341\"\\\336\\8[\\A@\\\\H>\203 \\H>A[\240\210\202)\\\210[\210H\210H*H\344\345\317\211Q$Q\202\341
\325\355Q\"\204E\315Q)^\204V_\203V\356E!E\357\320\360E#\206`\361T
\354V\203K\327\362\363 \364 \"\365\"W\203|\366\367\f\"I\317=\203\210\366\370\f\"
S\324E!\211LG\336V\205\237L\354\336O\371\232\211V\203\255:\203\255\372V\325\373L\"\203\342\344\374\375\376 `\377\216L\354\224\354\224TO\201q\232\203\324\201r \202\326\323 *\"\317\211L$L\202\255\201sL!L\325\201tL\"\203C\344\376 `\201u\216\201v\201w\334\320L\"\334\336L\"\"aW\203.a<\203%\366\201xa\"\2020\201ya!\2020a)JIV$*\317\211L$L\202\352\325bL\"\203\321\334\354L\"G\320V\203\321\376 `\201z\216\201{\334\354L\"\315F#*O\376 `\201|\216\201vW\203\227O<\203\216\366\201}O\"\202\231\201yO!\202\231OJIV$*N\376 `\201~\216\325\201L!N\"*\204\306\344N\317\211L$L\202C\312\201\200L\"\210\202C\325\201\201L\"\203\f\344\376 `\201\202\216\201v\201\203\f\335\334\320L\"!\335\334\336L\"!#JIV$*\317\211L$L\202\321LM\325\201\204L\"\203q\335\334\320L\"!\336\225\203+F\202,\354\\\211K\354U\203:F\202>K\320]S\f8\211R\204R\312\201\205\334\354L\"\"\210\344\376 `\201\206\216\201vR\315IV$*\317\211L$L\202V\203\253\315\201\207\201\210\217\211S\247\203\216\201\211S!\202\220SSW\203\244\201\212\335S!X\"\202\246SS\202\201\213\201\214!\204\273\312\201\215!\210\201\216c\201\217L#LW\203\334\325\201\220L\"\203\334L\202\355\201\214LHBI\205\354\201\221\"SW\203\201\212\325\201\220S\"\203\f\335\201yS!!\202\335S!X\"\202SSd\203\374efr\201\222\201\223!q\210p\201\224 \210fe\315\211gh\317\211i\317jk\201\225 \210\201\226\201\227!\210+\211lm\201\230\374\201\231TEML%!\210S<\203\214\201\230\374\201\232\201\233S@\201\234\"SA@#!\210\202\262\201\230\374\201\235SQ\206\235\201\236Q\203\255\374Q\335S!\"\202\257S$!\210\201\237l!\210+\201\240\201\223!P\201\241P!\210\201\242\201\243!\203\330
\203\374\315n\201\244\201\245!)\204\357\316 \210\312\201\246!\210\201\247P!\210\201\250\345!\210S<\203\n\315Q\201\251S\201\252\374oQ\203 \374Q\335S!\"\202\"S\"!\210B\203E
\354V\203E\201\253\201\254!\203E\201\255\201\256!\210\202b\354\211\202cB\203U\201\257 \210p\206`\205`\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 "" "T" "t" "N" "L" "E" "[DRFS]" 0 "\\S-" org-table-formula-substitute-names get-text-property :orig-formula "?" buffer-substring-no-properties point-at-bol point-at-eol " *| *" mapcar #[(x) "\301!\207" [x org-table-time-string-to-seconds] 2] #[(x) "\301\302!!\207" [x number-to-string string-to-number] 3] "'(" literal "[@$]#" format "%d" match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-automatic-realign case-fold-search down equation suppress-store formula n0 org-calc-default-modes org-tbl-calc-modes numbers keep-empty n form form0 formrpl formrg bw fmt x ev orig c lispp duration duration-output-format tmp org-table-local-parameters value var org-table-duration-custom-format suppress-const org-table-formula-use-constants save-match-data-internal rmtrng org-table-range-regexp org-ts-regexp3 org-table-formula-debug default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output inhibit-redisplay org-table-formula-field-format suppress-align "@" org-table-current-dline org-table-rewrite-old-row-references "\\<remote([ 	]*\\([-_a-zA-Z0-9]+\\)[ 	]*,[ 	]*\\([^\n)]+\\))" ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-make-reference org-table-get-remote-range #[(x) "\301!\207" [x org-table-time-string-to-seconds] 2] org-table-time-string-to-seconds ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-get-range ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) #[(x) "\301!\207" [x org-table-time-string-to-seconds] 2] ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) regexp-quote "Spreadsheet error: invalid reference \"%s\"" "\\$\\([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 org-table-time-seconds-to-string fboundp calc-eval "Calc does not seem to be installed, and is needed to evaluate the formula" replace-regexp-in-string "<\\1>" "^[0-9]+:[0-9]+\\(?::[0-9]+\\)?$" num get-buffer-create "*Substitution History*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "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" internal-temp-output-buffer-show get-buffer-window org-fit-window-to-buffer called-interactively-p any 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] 10 (#$ . 80404) "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])
#@436 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.

When CORNERS-ONLY is set, only return the corners of the range as
a list (line1 column1 line2 column2) where line1 and line2 are line numbers
in the buffer and column1 and column2 are table column numbers.
(defalias 'org-table-get-range #[(desc &optional tbeg col highlight corners-only) "\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-'*\203\n
*\315U\203

\n*)\203
)\315U\203
\n)/\204f

\2035
('U\203f
*)U\203f
(0\214~\210eb\2100Sy*\210\3341!\204S
\335\325!\210\202E
\336\337*!!2\203\340``\"\210\202'(W\203x
('(\f')*W\203\212
*)*\f)/\203\233
(*')F\202(0\214~\210eb\2100Sy*\210\3341!\204\271
\335\325!\210\202\253
\341*!\210`,'0\214~\210eb\2100Sy*\210\3341!\204\337
\335\315!\210\202\321
\341)!\210`+2\203\366
\340,\342\313w\210`\"\210\343\336\344\345\346,+\"\"\".\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 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 corners-only N org-table-dataline-regexp highlight] 9 (#$ . 89713)])
#@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\203b\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\305S\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 (#$ . 91837)])
#@34 FIXME: Needs more documentation.
(defalias 'org-table-find-row-type #[(table i type backwards relative n cline desc) "G\n\306V\203n\f\203\307\202\310\\\211\203g\306Y\203g	W\203gH
=\204g\203cH\311=\203c\312=\204	\313=\203R\313\314#\202d\f\203[\307\202\\\310Z\310\202g\312\204	\nS\211\202\306W\204z	Y\203\204\313\315#\202\205)\207" [table l n i backwards type 0 -1 1 hline t error "Row descriptor %s used in line %d crosses hline" "Row descriptor %s used in line %d leads outside table" relative org-table-relative-ref-may-cross-hline desc cline] 5 (#$ . 93124)])
(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 (#$ . 93947)])
#@508 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 \[universal-prefix] \[universal-prefix] 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\"\320!
?@AB\321C\212C\203DCb\210n\203L\322\202M\323\324\322`\"\\*D\325 E\321\211FG\321\211HI\321\211JK\321\211LM\321N\323O\321\211PQ\321\211RS\326\327\"\211A@\211P\203\261\330P@!\331X\203\247PKBK\202\210PLBL\202\210K\237KL\237L\332L!L\n\203
\333 \334 T\321\223I\335 \211Hb\210\336TI\337#\203\346UB\202
\336AI\337#\203
\336VI\337#\203
\336AI\337#\203
\323\224H\202
\340 H\333 \341 T\321\223IHb\210\n\203$
\342\343!\210\344HI\345#\210L\211AL@\211P\203\327
P@R\346RW\"QRSQ\203^
\347\350\351QA@!\352Q8#SSF\235\203l
\307\353S\"\210SFBFQ\204\220
\354\355R\"\203\220
R\321\356\357\217\360\361\352R\"!EQQ\203,
\n\204\243
QA@D\232\203,
\342\362R\"\210QA@X\214~\210eb\210XSy*\210\363\352Q8!\210\364QPAC\"MBM\365\366\337\"\210\202,
M\237MHb\210\336BI\337#\203b\354\367\370\322!\"\204\340
\n\203
\342\371OT\211O\"\210\321C\212C\203Cb\210n\203\322\202\323\324\322`\"\\*YKNN\211AN@\211J\203\340
YX\214~\210eb\210XSy*\210\363\360J@!\321\372#\210\373`\366\"\204#\374\321JA\375\376\377\201[&\210\202#M\211AM@\211P\203\243\342\362P@\"\210PA@X\214~\210eb\210XSy*\210\363\352P8!\210\374\321\201\\P8\375\376\377\201[&\210\202bDX\214~\210eb\210XSy*\210\363E!\210\344ed\201]#\210=\204\335Z\203\321\201^ \204\335\n\203\335\342\201_O\"\210\342\201`!\210DX\214~\210eb\210XSy*\210\363E!\210=\206Z\203	\201^ \206\n\205\342\201`!.\207" [this-command org-recalc-commands all eqlist eqlist1 debug-on-error 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] copy-sequence nil 1 0 count-lines org-table-current-column mapcar #[(x) "\303\304@\"\203%@\305@!\306\307OAB\310@\n\"\203%\311\312	@#\210\305@!\313\305A!!B\207" [x lhs1 eqlist1 string-match "\\`$[<>]" org-table-formula-handle-first/last-rc 1 nil assoc error "\"%s=\" formula tries to overwrite existing formula for column %s" org-table-formula-substitute-names] 4] string-to-char 57 org-table-expand-lhs-ranges 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 format "@%d$%d" org-table-line-to-dline 2 "Several field/range formulas try to set %s" 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 "Re-applying formula to field: %s" 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 inhibit-redisplay org-table-dataline-regexp line-re pos thisline thiscol seen-fields lhs1 beg end entry eqlnum eqlname eqlname1 eql cnt eq a name name1 org-table-calculate-mark-regexp org-table-recalculate-regexp org-table-hline-regexp org-table-named-field-locations N org-last-recalc-line org-table-may-need-update noanalysis 3 (org-untouchable t) org-table-align "Re-applying formulas to %d lines...done" "Re-applying formulas...done"] 8 (#$ . 94942) "P"])
#@155 Recalculate the table until it does not change anymore.
The maximum number of iterations is 10, but you can choose a different value
with the prefix ARG.
(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\2038T\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 (#$ . 98977) "P"])
#@47 Recalculate all tables in the current buffer.
(defalias 'org-table-recalculate-buffer-tables #[nil "\212\214~\210\300\301\302\"*\207" [org-table-map-tables #[nil "\300\301!\207" [org-table-recalculate t] 2] t] 3 (#$ . 99735) nil])
#@73 Iterate all tables in the buffer, to converge inter-table dependencies.
(defalias 'org-table-iterate-buffer-tables #[nil "\304\211\305\306 !\307\212\214~\210\310\311\215.\207" [imax i checksum c1 10 md5 buffer-string nil exit (byte-code "\304V\203-S\305\306\307\"\210	\310\311 !\211\232\203(\312\313Z\"\210\314\315\307\"\210\202\n\202\316\317\"\207" [i checksum c1 imax 0 org-table-map-tables #[nil "\300\301!\207" [org-table-recalculate t] 2] t md5 buffer-string message "Convergence after %d iterations" throw exit error "No convergence after %d iterations"] 4)] 3 (#$ . 99972) nil])
#@150 Expand list of formulas.
If some of the RHS in the formulas are ranges or a row reference, expand
them to individual field equations for each field.
(defalias 'org-table-expand-lhs-ranges #[(equations) "\306\211\211\211\211\211\211\211\211\211A@\211\203
@A\307\310\"\203=B\202\307\311\"\203OB\202\307\312\"\203\231\313X\203\225\314\315#
BB\316\317\211@@)G\320\211@@)%\210T\211\202`*\202\321 \313\306\322%\211@\fA@\323\f8\324\f8\325!\325\n\326\"!\n\"!\"X\203
	##X\203
\314\327!#
BB\316\317\211@@)G\320\211@@)%\210T\211\202\321*!T\211!\202\303*\202\237.	\207" [c2 c1 r2 r1 range rhs nil string-match "^@-?[-+0-9]+\\$-?[0-9]+$" "^[a-zA-Z][_a-zA-Z0-9]*$" "^@[0-9]+$" 1 format "%s$%d" put-text-property 0 :orig-eqn org-table-get-range corners 2 3 org-table-line-to-dline above "@%d$%d" lhs res e equations ic org-table-current-ncol #1=#:--cl-var-- x org-table-current-begin-pos ir #2=#:--cl-var-- #3=#:--cl-var--] 10 (#$ . 100584)])
#@520 Replace @<, @>, $<, $> with first/last row/column of the table.
So @< and $< will always be replaced with @1 and $1, respectively.
The advantage of these special markers are that structure editing of
the table will not change them, while @1 and $1 will be modified
when a line/row is swapped out of that privileged position.  So for
formulas that use a range of rows or columns, it may often be better
to anchor the formula with "I" row markers, or to offset from the
borders of the table using the @< @> $< $> makers.
(defalias 'org-table-formula-handle-first/last-rc #[(s) "\306\211\211\211\307\310\311
#\203v\312\225\203\312\225\202\n\313\314
\"\315\232\203-GS\202/\316\225\316\224Z\317\313\316
\"!\211\320U\203G\n\202L\321\n\322#\211\314W\204Y\fV\203b\323\324\313\307
\"
#\210\307\224\325\326\327\313\314
\"\f#\330\211
$\202\n-
\207" [start char len nmax n s nil 0 string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)" 3 match-string 1 "@" 2 string-to-char 60 - -1 error "Reference \"%s\" in expression \"%s\" points outside table" replace-match format "%s%d" t org-table-dlines org-table-current-ncol] 7 (#$ . 101660)])
#@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 (#$ . 102828)])
#@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 (#$ . 103646)])
(defvar org-table-fedit-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\304#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210\302\330\331#\210\302\332\333#\210\302\334\335#\210\302\336\335#\210\302\337\340#\210\302\341\340#\210\302\342\343#\210\302\344\345#\210)\207" [map 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] 4))
#@24 Org Edit Formulas Menu
(defvar org-table-fedit-menu nil (#$ . 105152))
(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\312!*\203\306\313!\210\314 \204\315\316!\210\317 \210\320\321\322\"\323\324\322!\325\"\326 \307\327 \330 \331\332\211\211\211@ABCD\333\334!\210\335 \210\336 \337 \210)\340\341EDFG\342G!FL*\210\343CFG\342G!FL*\210\344AFG\342G!FL*\210\345@FG\342G!FL*\210\346H!\210\347\350\351\310\211$\210\352I!\210\332C\212C\203\263Cb\210n\203\273\307\202\274\313\353\307`\"\\*BD\211AD@\211\203`
\354\355\f@\"\203\334\356\202\366\357\f@!\360\232\203\351\361\202\366\354\362\f@\"\203\365\356\202\366\363\211
\236\211\203
o\204
\364c\210\365	A\332\366J$c\210\367	
\"\f@\232\203;
\332C\212C\203*
Cb\210n\2032
\307\2023
\313\353\307`\"\\*B\357\f@!\370\235\203H
\371\202I
\372\f@\373\fA\364\260\374\313G\375$\210c\210\202\304K\310=\203j
\376 \210BL\214~\210eb\210LSy*\210\377\201M!.\207" [case-fold-search title type s entry titles beginning-of-line 1 t 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 point-marker current-window-configuration selected-window ((column . "# Column Formulas\n") (field . "# Field and Range Formulas\n") (named . "# Named Field Formulas\n")) nil org-switch-to-buffer-other-window "*Edit Formulas*" erase-buffer (not fundamental-mode) fundamental-mode font-lock-global-modes not make-local-variable org-pos org-window-configuration org-selected-window use-local-map org-add-hook post-command-hook org-table-fedit-post-command easy-menu-add count-lines string-match "\\`$[<>]" column string-to-char 64 field "^[0-9]" named "\n" org-add-props face remove (64 36) "" "$" " = " remove-text-properties (face nil) org-table-fedit-toggle-ref-type message sel-win wc startline pos eql major-mode value var org-table-fedit-map org-table-fedit-menu font-lock-comment-face org-table-use-standard-references N "Edit formulas, finish with `C-c C-c' or `C-c ' '.  See menu for more commands."] 12 (#$ . 106287) 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 (#$ . 108680)])
#@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 (#$ . 108903)])
#@138 Convert spreadsheet references from A7 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	#\203{\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\310\225\310\224Z\307V\203K\302\225\202\302\224\311\312\307	\"\313\232\203d\314\315\316\312\310	\"!\"\202s\314\317\320\312\307	\"!\316\312\310	\"!#\321\211	$\202	)\207" [start s 0 string-match "\\<\\([a-zA-Z]+\\)\\([0-9]+\\>\\|&\\)\\|\\(;[^
\n:]+\\|\\<remote([^,)]*)\\)" 3 46 2 1 replace-match match-string "&" format "$%d" org-letters-to-number "@%d$%d" string-to-number t] 8 (#$ . 109121)])
#@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 (#$ . 109864)])
#@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 (#$ . 110423)])
#@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 (#$ . 110696)])
#@174 Convert a time string into numerical duration in seconds.
S can be a string matching either -?HH:MM:SS or -?HH:MM.
If S is a string representing a number, keep this number.
(defalias 'org-table-time-string-to-seconds #[(s) "\306\232\203\207\307\211\211\211\211\310\311\"\203U\312\313\314\"GW\315\313\316\"!\315\313\317\"!\315\313\320\"!\f\203H\321
\322_\323_\n#[\202\231\321
\322_\323_\n#\202\231\310\"\204\225\310\324\"\203\225\312\313\314\"GW\315\313\316\"!\315\313\317\"!\f\203\212
\322_\323_\\[\202\231
\322_\323_\\\202\231\315!\325	!-\207" [s res sec min minus hour "" nil string-match "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\)" 0 match-string 1 string-to-number 2 3 4 + 3600 60 "\\(-?\\)\\([0-9]+\\):\\([0-9]+\\)" number-to-string org-ts-regexp-both] 5 (#$ . 110958)])
#@128 Convert a number of seconds to a time string.
If OUTPUT-FORMAT is non-nil, return a number of days, hours,
minutes or seconds.
(defalias 'org-table-time-seconds-to-string #[(secs &optional output-format) "\304!\n\305=\203\306\307\310	!\311\245\"\202H\n\312=\203&\306\313\310	!\314\245\"\202H\n\315=\2037\306\316\310	!\317\245\"\202H\n\320=\203D\306\321	\"\202H\322\323	\"\324W\203U\325P\202V*\207" [secs secs0 output-format res abs days format "%.3f" float 86400 hours "%.2f" 3600 minutes "%.1f" 60 seconds "%d" org-format-seconds "%.2h:%.2m:%.2s" 0 "-"] 4 (#$ . 111793)])
#@56 Convert all references in this buffer, using FUNCTION.
(defalias 'org-table-fedit-convert-buffer #[(function) "\304\212\203\nb\210n\203\305\202\306\307\305`\"\\*eb\210m\2048\n`\310 {!c\210`\310 |\210m\204\305u\210\202	\214~\210eb\210Sy+\207" [pos line function N nil 1 0 count-lines point-at-eol] 4 (#$ . 112389)])
#@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-local-variable 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 (#$ . 112726) 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 (#$ . 113164) 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 (#$ . 113332) 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 (#$ . 113506) 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 (#$ . 113683) 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])
#@66 Re-match the group N, and replace it with the shifted reference.
(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 (#$ . 114405)])
#@189 Shift a reference 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 (#$ . 114794)])
#@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 (#$ . 115900) 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#\203k\315\225\2030\316\315!\2023\316\317!\316\320!\321\f!\211\322\232\204\323\324\f\"\203S\325\326\314\211\f$\202B\327
%\"\203`\330\331
\"\210
\fB%B%\202\311\332(!\210\333&!\210'b\210\334 \204\204\330\335!\210\336%!\210'\311\211\223\210\337\340!\210)\203\236\341\342!\202\241\343\344!-\207" [org-table-use-standard-references org-table-buffer-is-an org-pos org-selected-window form var org-table-remove-rectangle-highlight org-table-fedit-convert-buffer org-table-convert-refs-to-rc nil re-search-forward "^\\(@[-+I<>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 org-at-table-p "Lost table position - cannot install formulas" 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." eql sel-win pos org-window-configuration arg] 6 (#$ . 116163) "P"])
#@57 Abort editing formulas, without installing the changes.
(defalias 'org-table-fedit-abort #[nil "\305 \210	\306\f!\210\307\n!\210b\210\310\211\223\210\311\312!*\207" [org-pos org-selected-window sel-win pos org-window-configuration org-table-remove-rectangle-highlight set-window-configuration select-window nil message "Formula editing aborted without installing changes"] 3 (#$ . 117475) 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!\203b\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
=\203keb\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\202wdb\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 "^." org-delete-backward-char] 4 (#$ . 117881) nil])
(defvar org-show-positions nil)
#@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\313\314!\203G\315\316!\316\317O\320\315\316!\316\317O\321R\322\202\214\313F!\204\\\313G!\204\\\313H!\203m\323 I\324\216\325\315\316!!*\322\202\214\313\326!\203w\327\202\214\313\330!\203\201\331\202\214\204\211\311\202\214\332\333!\211\205\230\206\230\315\316!\211\203\255\316\224\334 \232\204\255\335\316\224\316\225\336#\210\337\340\341\"\210\f\327=\203\276\342\311O@\f\322=\203\324\343!\344\232\204\320\345P\346!\204
\212\342\210\347\350\311\307#\210\351\342!\210\352\353!\203
\323 I\354\216\325\315\342!!*\335\342\224\342\225D#\210)\355E!\203/
\356E!\203/
\357\356E!!\203&
\360\357\356E!!!\210\202/
\361\357\356E!!!\210Eb\210\362 \210\n\203\257
\n\342\311O\363\364\n\"\203h
\365J\"\211A@K\214~\210eb\210KSy*\210\366\367
8!\210\202\242
\363\370\n\"\203\233
\371\315\342\n\"!\371\315\367\n\"!LMNMHK\214~\210eb\210KSy*\210\366L!\210*\202\242
\366\371!!\210E`\311\223\210\372\311\211D#\210\n\232\204\203\f\322=\203\307
\311\373\374\217\210\202\365@J\"\211\203\373

A@K\214~\210eb\210KSy*\210\366\367
8!\210\372``\"\210\375\376\367
8
A@#\210\202\365@O\"\211\203F\366\371
A!!\210\372``\"\210\377 b\210\201X\201Y@\201ZQ\201[ \307#\203=\342\224b\210\372 \210\375\201\\
A\"\210\202\332\201]!\210\202\f\331=\203g\366\371\342\311O!!\210\372``\"\210\375\201^\342\311O\"\210\202\365@P\"\211\203\241\377 b\210\201X\201_@\201`Q\311\307#\203\230\342\224b\210\372 \210\375\201a!\210\202\332\201b!\210\202@\204\255\332\333!\210\202\365@Q\"\211\203\305\375\201c@
A#\210\202\365@R\"\211\203\335\375\201d@
A#\210\202\201e\201f!\205\355\201f@!\211\203\375\201g@
\201h\201iS\"$\210\202\332\201j@\"\210Eb\210A\203bT\201k>\204bEABAUABA\201l\201WA\"\201l\201VA\"V\211Wb\210\201m\316!\210Vb\210\201nV!\204a\201m\317!\210*\360B!.\207" [local org-pos dest match what e highlight t selected-window nil org-table-get-specials org-at-regexp-p "^@[0-9]+[ 	=]" match-string 0 -1 "$1.." "$100" range match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) org-table-convert-refs-to-rc "\\$[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 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 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 N 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 re-search-forward "^[ 	]*| *! *.*?| *\\(" "\\) *|" 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] 12)] 2 (#$ . 118926) 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\206Kb\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 (#$ . 123247)])
#@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 (#$ . 123695) 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 (#$ . 123874) 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 (#$ . 124054)])
(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"])
(defvar org-table-rectangle-overlays nil)
#@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 make-overlay overlay-put secondary-selection] 4 (#$ . 124862)])
#@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!\2031BB	^b\210\306\212\203Cb\210n\203K\311\202L\312\313\311`\"\\*\314 	]b\210\306\212\203ib\210n\203q\311\202r\312\313\311`\"\\*\314 
V\203\210
\n\214~\210eb\210Sy*\210\315\311!\210\fX\203\332\316!\203\315\317
!\210\320\306x\210`\317!\210\320\306w\210`\321	#\210\315\322!\210T\211\202\245*b\210.\323\324\325\"\207" [beg end tmp c2 l2 c1 nil boundp org-show-positions 1 0 count-lines org-table-current-column 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 N line #1=#:--cl-var-- org-table-dataline-regexp face] 8 (#$ . 125120)])
#@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 delete-overlay nil] 3 (#$ . 126027)])
#@69 Collects the coordinate grid overlays, so that they can be removed.
(defvar org-table-coordinate-overlays nil (#$ . 126362))
(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 delete-overlay nil 0 org-table-begin org-at-table-p point-at-eol 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 (#$ . 126553) 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 "Tables Row/Column numbers display turned %s" "on" "off" org-at-table-p org-table-align mapc delete-overlay nil] 3 (#$ . 127526) 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 (#$ . 127946) nil])
#@27 Keymap for `orgtbl-mode'.
(defvar orgtbl-mode-map (make-keymap) (#$ . 128189))
#@39 Local variable used by `orgtbl-mode'.
(defvar org-old-auto-fill-inhibit-regexp nil (#$ . 128274))
#@40 Matches a line belonging to an orgtbl.
(defconst orgtbl-line-start-regexp "[ 	]*\\(|\\|#\\+\\(tblfm\\|orgtbl\\|tblname\\):\\)" (#$ . 128378))
#@70 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) (#$ . 128526))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put orgtbl-mode :included t :menu-tag "Org Table Mode"] 4)
#@91 Non-nil if Orgtbl mode is enabled.
Use the command `orgtbl-mode' to change this variable.
(defvar orgtbl-mode nil (#$ . 128876))
(make-variable-buffer-local 'orgtbl-mode)
#@69 The `org-mode' table editor as a minor mode for use in other modes.
(defalias 'orgtbl-mode #[(&optional arg) "\306 	\307=\203\n?\202\310	!\311V\312 \210\313\314!\203$\315\316!\210\202\304\n\203\233\317 \2032\320\317\321\"\210\302\236\211\203A\f\322\f\"B)\323\3245\3255!
L*\210\326\327\330\331\332$\210\3335\3255!
L*\210\334\203s6\335Q\202u65\3255!
L*\210\336\337!\210\340\341!\203\223\341\3317\"\210\342 \210\3438!\210\202\304\344 \210\345\346!\210\347\327\330\324#\210\340\350!\203\273\350\3317\"\210\342 \210\3518!\210\352\353!\210\354\355\n\203\316\356\202\317\357\"\210\360\361!\203\360\306 \203\343\306 \232\203\360\315\362\n\203\355\363\202\356\364\"\210)\352 \210\n\207" [#1=#:last-message arg orgtbl-mode minor-mode-map-alist c value current-message toggle prefix-numeric-value 0 org-load-modules-maybe derived-mode-p org-mode message "Orgtbl-mode is not useful in org-mode, command ignored" orgtbl-setup defalias #[nil "\300\207" [nil] 1] delq org-table-may-need-update t make-local-variable org-add-hook before-change-functions org-before-change-function nil local org-old-auto-fill-inhibit-regexp auto-fill-inhibit-regexp "\\|" add-to-invisibility-spec (org-cwidth) fboundp font-lock-add-keywords org-restart-font-lock easy-menu-add 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 run-hooks orgtbl-mode-hook orgtbl-mode-on-hook orgtbl-mode-off-hook called-interactively-p any "Orgtbl mode %sabled" "en" "dis" var orgtbl-line-start-regexp orgtbl-extra-font-lock-keywords orgtbl-mode-menu] 6 (#$ . 129053) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\211%\207" [orgtbl-mode-map add-minor-mode orgtbl-mode " OrgTbl" nil] 6)
#@62 Remove all properties related to narrow-column invisibility.
(defalias 'org-table-cleanup-narrow-column-properties #[nil "e\302d\303	$\211\203\304\211T\305#\210\202e\302d\306\307$\211\203.\304\211T\310#\210\202e\302d\311\306$\211\205E\304\211T\312#\210\2020)\207" [s org-narrow-column-arrow text-property-any display remove-text-properties (display t) org-cwidth 1 (org-cwidth t) invisible (invisible t)] 5 (#$ . 130894)])
#@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 (#$ . 131345)])
#@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 (#$ . 132174) nil])
#@23 Setup orgtbl keymaps.
(defalias 'orgtbl-setup #[nil "\306\307\310\211\211\211\f\211A@\211\2032
T\311@!A@\312	
\n#\313@\n#\210\202\f\313@\314\312\315\316\317\320$#\210\313@\320\312\315\321\320\322$#\210\313@\323\312\324\325\326\327$#\210\313@\327\312\324\330\327\331$#\210\313@\332\312\333\334\335\336\327%#\210\313@\337\312\333\340\341\342\343\344\327&#\210\313@\345\312\333\346\347\350\351\352\327&#\210\313@\353\312\354\355\353\356$#\210\313@\357\312\354\360\361\353$#\210\313@\362\363#\210\313@\364\365#\210A\203\315\366@\367\370\371\372\373\374&\210\313@\375\376#\210\377\310!\210\201B\201C@\201D\201E$\210.\201F\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-wrap-region) ("-" 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) ("\341" org-table-beginning-of-field) ("\345" org-table-end-of-field) ([(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)] [S-iso-lefttab] 107 [S-iso-lefttab] [backtab] [(shift tab)] [(tab)] [backtab] 108 [backtab] [S-iso-lefttab] [(shift tab)] [(tab)] "\215" org-table-wrap-region 105 [(meta return)] [(meta return)] 106 [(meta return)] "" orgtbl-ctrl-c-ctrl-c "|" 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 (lambda (#1=#:def-tmp-var) (defvar orgtbl-mode-menu #1# #2="OrgTbl menu")) orgtbl-mode-map orgtbl-optimized easy-menu-do-define orgtbl-mode-menu #2# ("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] 11 (#$ . 132354)])
#@147 If the cursor is inside a table, realign the table.
If 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`\307\211\211\211\211'\212\310\311!\210\312\313!\203\314\225\2020\312\315!\203)
\2020\312\316!\2050\317)\f\250\203\\\fb\210\320 \210(\203I\321\322!\210\202L\323 \210\321\324!\210\325\326!\205\331\327\330!\202\331\f\317=\203\320\212eb\210\331\332\307\306#\203\256\333\334\311!!\335\n\336\337\"\"\211\203f\307)\n\211A@\211)\203\247\340\341)\"\203\203\334\311)\"\334\342)\"B	B\202\203	*)\202f)\212\310\311!\210\343\307x\210\344 \205\314\322\306(+(,\321+!+)\202\331\307-\321\345\346!!).\207" [const-str cst consts consts-str action pos t 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 run-hooks orgtbl-after-send-table-hook re-search-forward "^[ 	]*#\\+CONSTANTS: \\(.*\\)" substring-no-properties match-string append org-split-string "[ 	]+" string-match "^\\([a-zA-Z0][_a-zA-Z0-9]*\\)=\\(.*\\)" 2 " 
\n	" org-at-table-p key-binding "" case-fold-search arg e org-table-formula-constants-local command current-prefix-arg orgtbl-mode] 8 (#$ . 137844) "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 (#$ . 139239) "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 (#$ . 139661) "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 (#$ . 139890) 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<\203O\322\"\211\203O
A\206S\323!!\206X\317\324!\210\205\256\317=\205\256	\325=\204x\311\211\202\256\326Y\203\206\311\211\202\256\315V\203\250\203\250\211A@)\204\250\211\211AA)\241\210T\211+\207" [org-table-auto-blank-field last-command N org-table-may-need-update orgtbl-mode a 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 yas/expand) org-table-blank-field 1 looking-at "[^|\n]*  +|" nil 0 org-delete-backward-char self-insert-command t key-binding assoc vector call-interactively orgtbl-self-insert-command 20 function-key-map last-input-event cmd org-self-insert-cluster-for-undo org-self-insert-command-undo-counter buffer-undo-list x] 5 (#$ . 140093) "p"])
#@63 Regular expression matching exponentials as produced by calc.
(defvar orgtbl-exp-regexp "^\\([-+]?[0-9][0-9.]*\\)[eE]\\([-+]?[0-9]+\\)$" (#$ . 141352))
(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) "<\203G\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])
#@89 Gather 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!\203k\314\315!\307\316\317!\203(\317\311\nG\307\n$\210\202?	\2037\320\311\nG\n$\210\202?\317\311\nG\307\n$\210\n*\321\314\322!!\323\225\205S\324\325\314\323!\326Q!\327\330
\331\f\257B\310\311!\210+\202*\207" [rtn restricted s org-rm-props params transform org-table-begin nil beginning-of-line 0 looking-at "[ 	]*#\\+ORGTBL[: 	][ 	]*SEND[ 	]+\\([^ 	
\n]+\\)[ 	]+\\([^ 	
\n]+\\)\\([ 	]+.*\\)?" match-string 1 fboundp set-text-properties remove-text-properties intern 2 3 read "(" ")" :name :transform :params name] 6 (#$ . 142456)])
#@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 (#$ . 143186)])
#@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 (#$ . 143682)])
#@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!\210\311\312!\203\313 \210\314 \315\316 \317 \"\320\211\2042\203.\321\322\323\"\210\2022\307\324!\210\n\323\211\203\353
@\325\f\326\".\325\f\327\"/\325\f\330\"0\3250\331\"1\3250\332\"2\3250\333\"3\3234\3341\206n\320\335	\336\"\233!56\203\337\202\200\34073\203\2145\202\221\341\3425\"5\341\3435\"87\337U\203\245\344\202\246\3459\3469:!27#:\3469;!27#;\347/!\203\323/80\"\202\330\307\350/\"\351.	\"\210.T
A\211\204:*\352\353\211\340V\203\371\354\202\372\355#\210\320V\205
+\207" [ntbl txt dests maybe dest --dolist-tail-- org-at-table-p error "Not at a table" called-interactively-p any 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 :no-escape org-table-clean-before-export org-split-string "[ 	]*\n[ 	]*" 2 1 mapcar #[(l) "\301\302\303#\207" [l replace-regexp-in-string "\\([&%#_^]\\)" "\\\\\\1{}"] 4] #[(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 no-escape beg lines org-table-clean-did-remove-column i0 table fun org-table-last-alignment org-table-last-column-widths] 6)] 2 (#$ . 144394) 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\203C\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 (#$ . 146232)])
#@43 Comment or uncomment the orgtbl at point.
(defalias 'orgtbl-toggle-comment #[nil "\306\307\310	!\nQ\307\nP\212\311\312!\210\313!\203\306\202)\313\f!\203&\314\202)\315\316!)\211\2033\2024\f\314\211\212\311\312!\210\313!\203O\311\317!\210\202A\311\320!\210`\313!\203d\311\320!\210\202V`)\321
\205r\322#.\207" [case-fold-search comment-start orgtbl-line-start-regexp re1 re2 commented t "^" regexp-quote beginning-of-line 1 looking-at nil error "Not at an org table" 0 2 comment-region (4) re beg end] 5 (#$ . 146577) 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$\202n\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 (#$ . 147141) nil])
#@56 Carries the current table through formatting routines.
(defvar *orgtbl-table* nil (#$ . 147577))
#@49 Formatting routines push the output lines here.
(defvar *orgtbl-rtn* nil (#$ . 147680))
#@33 Text used for horizontal lines.
(defvar *orgtbl-hline* nil (#$ . 147774))
#@34 Text used as a column separator.
(defvar *orgtbl-sep* nil (#$ . 147854))
#@32 Default format for each entry.
(defvar *orgtbl-default-fmt* nil (#$ . 147933))
#@24 Format for each entry.
(defvar *orgtbl-fmt* nil (#$ . 148018))
#@21 Format for numbers.
(defvar *orgtbl-efmt* nil (#$ . 148087))
#@43 Format for an entire line, overrides fmt.
(defvar *orgtbl-lfmt* nil (#$ . 148154))
#@36 Specializes lfmt for the last row.
(defvar *orgtbl-llfmt* nil (#$ . 148243))
#@22 Text starting a row.
(defvar *orgtbl-lstart* nil (#$ . 148326))
#@38 Specializes lstart for the last row.
(defvar *orgtbl-llstart* nil (#$ . 148396))
#@20 Text ending a row.
(defvar *orgtbl-lend* nil (#$ . 148483))
#@36 Specializes lend for the last row.
(defvar *orgtbl-llend* nil (#$ . 148549))
#@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 (#$ . 148632)])
(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 (#$ . 148888)])
(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 (#$ . 149200)])
(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 (#$ . 149421)])
#@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 (#$ . 150414)])
#@2871 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\"\306\312\"\306\313\"\n()*\306\314\"+\306\315\",\306\316\"-\306\317\"\206;-.\306\320\"/\306\321\"\206L/0\306\322\"1\306\323\"\206]12\306\324\"3\3254	\204\227\326\327\"\203\227\306\327\"5\3305!\203\2065 \202\2105)\2116\203\22664B4)	\204N
*@:\204\252*A@:\203N
\302*A>\203N
*@\302=\203\314\n\203\304\n4B4*\210*A*\306\331\"\206\325--\306\332\"\206\340..\306\333\"\206\353//\306\334\"\206\375\306\333\"\206\37500\306\335\"\206
11\306\336\"\206
\306\335\"\206
22\306\337\"\206%
++\306\340\"\2060
33\341\302!\210.\n\203F
\204F
\n4B4*\210*A*\341\325!\210	\204\201
\326\342\"\203\201
\306\342\"5\3305!\203p
5 \202r
5)\2117\203\200
74B4)\343
\203\212
\344\202\213
\345\f\203\227
\346\3254\"\202\231
4\237\347#.\207" [params splicep hline skipheadrule remove-nil-linesp remove-newlines plist-get :splice :hline :skipheadrule :remove-nil-lines :remove-newlines :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 #[(tend) "\301\302\303#\207" [tend replace-regexp-in-string "[\n
	\f]" "\\\\n"] 4] identity remq "\n" *orgtbl-hline* table *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 (#$ . 150790)])
#@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 (#$ . 155222)])
#@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 (#$ . 155434)])
#@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 (#$ . 155736)])
#@618 Convert the orgtbl-mode TABLE to HTML.
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 org-html-expand " | " " |"] 5] string-match "\n+\\'" replace-match "" t] 5 (#$ . 157624)])
#@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 (#$ . 158687)])
#@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) "\305\306\307\310\311\310\312\313\314\315\316\317\320\321\257\322	\"\323\324!r\nq\210\325\216\326	\"c\210eb\210\327\f\310\306#\2037\330 \210\202)\331\332 {-\207" [params2 params #1=#:temp-buffer table org-table-hline-regexp :remove-newlines t :tstart nil :tend :hline "|---" :sep " | " :lstart "| " :lend " |" org-combine-plists generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) orgtbl-to-generic re-search-forward org-table-align 1 buffer-size] 14 (#$ . 160458)])
#@54 Convert the orgtbl-mode TABLE into a table.el table.
(defalias 'orgtbl-to-table\.el #[(table params) "\303\304!rq\210\305\216\306	\n\"c\210\307 \210\310\311\312\310\313\314\315\316 {##+\207" [#1=#:temp-buffer table params generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) orgtbl-to-orgtbl org-table-align replace-regexp-in-string "-|" "-+" "|-" "+-" 1 buffer-size] 8 (#$ . 161347)])
#@211 Convert the orgtbl-mode TABLE into a table with unicode characters.
You need the ascii-art-to-unicode.el package for this.  You can download
it here: http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el.
(defalias 'orgtbl-to-unicode #[(table params) "\304\305!rq\210\306\216\307	\n\"c\210eb\210\310\311!\204!\312\311\313\314#\203'\315 \210\2029\316\313\317\320\"\"\2045\321B\322\323!\210\324 +\207" [#1=#:temp-buffer table params org-stored-links generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) orgtbl-to-table\.el featurep ascii-art-to-unicode require nil t aa2u delq mapcar #[(l) "\301\302@\"\207" [l string-match "aa2u"] 3] ("http://gnuvola.org/software/j/aa2u/ascii-art-to-unicode.el" "Link to ascii-art-to-unicode.el") error "Please download ascii-art-to-unicode.el (use C-c C-l to insert the link to it)" buffer-string] 5 (#$ . 161799)])
#@599 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 entry will be referenced.
FORM is a field or range descriptor like "@2$3" 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\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\"#$%&'()*+,-\312.!.\212\214~\210\212eb\210\313\314\315/!\316Q\311\310#\203[p\317\224\202\203\320/\321\"\211,\203m\322,!\204s\323\324/\"\210\325,!\326,!,\311\211\223\210)r\nq\210\212\214~\210	b\210\327u\210\313\330\311\310#\203\237\327\224\203\245\323\331/\"\210\332 \333 \210\334\335.!!.\3360.\"\203\331\337\317.\"G\327V\203\331\306 \340\216\341\337\317.\"\327#*\202\333..\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)) t nil org-table-convert-refs-to-rc re-search-forward "^[ 	]*#\\+tblname:[ 	]*" regexp-quote "[ 	]*$" 0 org-id-find marker markerp error "Can't find remote table \"%s\"" marker-buffer marker-position 1 "^\\(\\*+ \\)\\|[ 	]*|" "Cannot find a table at NAME or ID %s" point-at-bol org-table-get-specials org-table-formula-substitute-names org-table-formula-handle-first/last-rc 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-current-ncol 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 case-fold-search form name-or-id org-table-range-regexp] 20 (#$ . 162728)])
(provide 'org-table)