;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315&\210\302\316\304\317\312\303%\210\320\321\322\323\324DD\325\306\326\327\330\312\303&	\210\320\331\322\323\332DD\333\306\334\327\330\312\303&	\210\320\335\322\323\336DD\337\327\340\306\341\312\303&	\210\342\343\344\345\306\346\312\303&\210\320\347\322\323\350DD\351\306\352\327\353\312\303&	\210\320\354\322\323\355DD\356\306\357\327\360\312\303&	\210\320\361\322\323\362DD\363\306\364\327\360\312\303&	\210\320\365\322\323\366DD\367\306\370\327\360\312\303&	\210\320\371\322\323\372DD\373\306\374\327\375\312\303&	\210\320\376\322\323\377DD\201@\306\201A\327\353\312\303&	\210\320\201B\322\323\201CDD\201D\306\201E\327\375\312\303&	\210\320\201F\322\323\201GDD\201H\306\201I\327\201J\312\303&	\210\320\201K\322\323\201LDD\201M\306\201N\327\201J\312\303&	\210\320\201O\322\323\201PDD\201Q\306\201R\327\353\312\303&	\210\320\201S\322\323\201TDD\201U\306\201V\327\353\312\303&	\210\320\201W\322\323\201XDD\201Y\306\201Z\327\201J\312\303&	\210\320\201[\322\323\201\\DD\201]\306\201^\327\201_\312\316&	\210\320\201`\322\323\201aDD\201b\306\201c\327\375\312\303&	\210\320\201d\322\323\201eDD\201f\306\201g\327\375\312\303&	\210\320\201h\322\323\201iDD\201j\327\201_\312\316&\210\201k\201h\201l\201m#\210\320\201n\322\323\201oDD\201p\327\201_\312\316&\210\320\201q\322\323\201rDD\201s\327\201_\312\316&\207" [require regexp-opt custom-declare-group table nil "Text based table manipulation utilities." :tag "Table" :prefix "table-" :group text :version "22.1" table-hooks "Hooks for table manipulation utilities." custom-declare-variable table-time-before-update funcall function #[0 "\300\207" [0.2] 1 #1=""] "Time in seconds before updating the cell contents after typing.\nUpdating the cell contents on the screen takes place only after this\nspecified amount of time has passed after the last modification to the\ncell contents.  When the contents of a table cell changes repetitively\nand frequently the updating the cell contents on the screen is\ndeferred until at least this specified amount of quiet time passes.  A\nsmaller number wastes more computation resource by unnecessarily\nfrequent screen update.  A large number presents noticeable and\nannoying delay before the typed result start appearing on the screen." "Time Before Cell Update" :type number table-time-before-reformat #[0 "\300\207" [0.2] 1 #1#] "Time in seconds before reformatting the table.\nThis many seconds must pass in addition to `table-time-before-update'\nbefore the table is updated with newly widened width or heightened\nheight." "Time Before Cell Reformat" table-command-prefix #[0 "\300\207" [[(control c) (control c)]] 1 #1#] "Key sequence to be used as prefix for table command key bindings." (vector (repeat :inline t sexp)) "Table Command Prefix" custom-declare-face table-cell ((((min-colors 88) (class color)) :foreground "gray90" :background "blue1") (((class color)) :foreground "gray90" :background "blue") (t :weight bold)) "Face used for table cell contents." "Cell Face" table-cell-horizontal-chars #[0 "\300\207" ["-="] 1 #1#] "Characters that may be used for table cell's horizontal border line." "Cell Horizontal Boundary Characters" string table-cell-vertical-char #[0 "\300\207" [124] 1 #1#] "Character that forms table cell's vertical border line." "Cell Vertical Boundary Character" character table-cell-intersection-char #[0 "\300\207" [43] 1 #1#] "Character that forms table cell's corner." "Cell Intersection Character" table-word-continuation-char #[0 "\300\207" [92] 1 #1#] "Character that indicates word continuation into the next line.\nThis character has a special meaning only in the fixed width mode,\nthat is when `table-fixed-width-mode' is non-nil .  In the fixed width\nmode this character indicates that the location is continuing into the\nnext line.  Be careful about the choice of this character.  It is\ntreated substantially different manner than ordinary characters.  Try\nselect a character that is unlikely to appear in your document." "Cell Word Continuation Character" table-detect-cell-alignment #[0 "\300\207" [t] 1 #1#] "Detect cell contents alignment automatically.\nWhen non-nil cell alignment is automatically determined by the\nappearance of the current cell contents when recognizing tables as a\nwhole.  This applies to `table-recognize', `table-recognize-region'\nand `table-recognize-table' but not to `table-recognize-cell'." "Detect Cell Alignment" boolean table-dest-buffer-name #[0 "\300\207" ["table"] 1 #1#] "Default buffer name (without a suffix) for source generation." "Source Buffer Name" table-html-delegate-spacing-to-user-agent #[0 "\300\207" [nil] 1 #1#] "Non-nil delegates cell contents spacing entirely to user agent.\nOtherwise, when nil, it preserves the original spacing and line breaks." "HTML delegate spacing" table-html-th-rows #[0 "\300\207" [0] 1 #1#] "Number of top rows to become header cells automatically in HTML generation." "HTML Header Rows" integer table-html-th-columns #[0 "\300\207" [0] 1 #1#] "Number of left columns to become header cells automatically in HTML generation." "HTML Header Columns" table-html-table-attribute #[0 "\300\207" ["border=\"1\""] 1 #1#] "Table attribute that applies to the table in HTML generation." "HTML table attribute" table-html-cell-attribute #[0 "\300\207" [#1#] 1 #1#] "Cell attribute that applies to all cells in HTML generation.\nDo not specify \"align\" and \"valign\" because they are determined by\nthe cell contents dynamically." "HTML cell attribute" table-cals-thead-rows #[0 "\300\207" [1] 1 #1#] "Number of top rows to become header rows in CALS table." "CALS Header Rows" table-cell-map-hook #[0 "\300\207" [nil] 1 #1#] "Normal hooks run when finishing construction of `table-cell-map'.\nUser can modify `table-cell-map' by adding custom functions here." "Cell Keymap Hooks" hook table-disable-incompatibility-warning #[0 "\300\207" [nil] 1 #1#] "Disable compatibility warning notice.\nWhen nil user is reminded of known incompatible issues." "Disable Incompatibility Warning" table-abort-recognition-when-input-pending #[0 "\300\207" [t] 1 #1#] "Abort current recognition process when input pending.\nAbort current recognition process when we are not sure that no input\nis available.  When non-nil lengthy recognition process is aborted\nsimply by any key input." "Abort Recognition When Input Pending" table-load-hook #[0 "\300\207" [nil] 1 #1#] "List of functions to be called after the table is first loaded." make-obsolete-variable "use `with-eval-after-load' instead." "28.1" table-point-entered-cell-hook #[0 "\300\207" [nil] 1 #1#] "List of functions to be called after point entered a table cell." table-point-left-cell-hook #[0 "\300\207" [nil] 1 #1#] "List of functions to be called after point left a table cell."] 12)
#@26 Yank handler for tables.
(defvar table-yank-handler '(nil nil t nil) (#$ . 6975))
(setplist 'table-disable-incompatibility-warning nil)
#@69 Regexp for beginning of a line that starts OR separates paragraphs.
(defconst table-paragraph-start "[ 	\n\f]" (#$ . 7117))
#@25 Cell cache buffer name.
(defconst table-cache-buffer-name " *table cell cache*" (#$ . 7247))
#@63 Zero based coordinate of the cached cell's left upper corner.
(defvar table-cell-info-lu-coordinate nil (#$ . 7346))
#@65 Zero based coordinate of the cached cell's right bottom corner.
(defvar table-cell-info-rb-coordinate nil (#$ . 7469))
#@45 Number of characters per cached cell width.
(defvar table-cell-info-width nil (#$ . 7594))
#@41 Number of lines per cached cell height.
(defvar table-cell-info-height nil (#$ . 7691))
#@47 Justification information of the cached cell.
(defvar table-cell-info-justify nil (#$ . 7785))
#@52 Vertical alignment information of the cached cell.
(defvar table-cell-info-valign nil (#$ . 7886))
#@27 Counter for undo control.
(defvar table-cell-self-insert-command-count 0 (#$ . 7991))
#@33 Keymap for table cell contents.
(defvar table-cell-map nil (#$ . 8083))
#@72 Alist of copy of global maps that are substituted in `table-cell-map'.
(defvar table-cell-global-map-alist nil (#$ . 8161))
#@42 Menu map created via `easy-menu-define'.
(defvar table-global-menu-map nil (#$ . 8291))
#@42 Menu map created via `easy-menu-define'.
(defvar table-cell-menu-map nil (#$ . 8385))
#@38 Buffer that contains the table cell.
(defvar table-cell-buffer nil (#$ . 8477))
#@52 Cache point coordinate based from the cell origin.
(defvar table-cell-cache-point-coordinate nil (#$ . 8563))
#@51 Cache mark coordinate based from the cell origin.
(defvar table-cell-cache-mark-coordinate nil (#$ . 8679))
#@36 Timer id for deferred cell update.
(defvar table-update-timer nil (#$ . 8793))
#@36 Timer id for deferred cell update.
(defvar table-widen-timer nil (#$ . 8878))
#@36 Timer id for deferred cell update.
(defvar table-heighten-timer nil (#$ . 8962))
#@157 Non-nil inhibits implicit cell and cache updates.
It inhibits `table-with-cache-buffer' to update data in both directions,
cell to cache and cache to cell.
(defvar table-inhibit-update nil (#$ . 9050))
#@173 Non-nil inhibits auto fill paragraph when `table-with-cache-buffer' exits.
This is always set to nil at the entry to `table-with-cache-buffer' before
executing body forms.
(defvar table-inhibit-auto-fill-paragraph nil (#$ . 9259))
#@26 For mode line indicator.
(defvar table-mode-indicator nil (#$ . 9496))
(byte-code "\302\300!\210	\236\204\303	B\302\207" [table-mode-indicator minor-mode-alist make-variable-buffer-local (table-mode-indicator (table-fixed-width-mode " Fixed-Table" " Table"))] 2)
#@29 Supported source languages.
(defconst table-source-languages '(html latex cals wiki mediawiki) (#$ . 9769))
#@73 General storage for temporary information used while generating source.
(defvar table-source-info-plist nil (#$ . 9883))
(defvar table-cell-span-direction-history '("right"))
(defvar table-cell-split-orientation-history '("horizontally"))
(defvar table-cell-split-contents-to-history '("split"))
(defvar table-insert-row-column-history '("row"))
(defvar table-justify-history '("center"))
(defvar table-columns-history '("3"))
(defvar table-rows-history '("3"))
(defvar table-cell-width-history '("5"))
(defvar table-cell-height-history '("1"))
(defvar table-source-caption-history '("Table"))
(defvar table-sequence-string-history '("0"))
(defvar table-sequence-count-history '("0"))
(defvar table-sequence-increment-history '("1"))
(defvar table-sequence-interval-history '("1"))
(defvar table-sequence-justify-history '("left"))
(defvar table-source-language-history '("html"))
(defvar table-col-delim-regexp-history '(""))
(defvar table-row-delim-regexp-history '(""))
(defvar table-capture-justify-history '("left"))
(defvar table-capture-min-cell-width-history '("5"))
(defvar table-capture-columns-history '(""))
(defvar table-target-history '("cell"))
#@35 Bindings for table cell commands.
(defconst table-cell-bindings '(([(control 105)] . table-forward-cell) ([(control 73)] . table-backward-cell) ([tab] . table-forward-cell) ([(shift backtab)] . table-backward-cell) ([(shift iso-lefttab)] . table-backward-cell) ([(shift tab)] . table-backward-cell) ([backtab] . table-backward-cell) ([return] . *table--cell-newline) ([(control 109)] . *table--cell-newline) ([(control 106)] . *table--cell-newline-and-indent) ([mouse-3] . *table--present-cell-popup-menu) ([(control 62)] . table-widen-cell) ([(control 60)] . table-narrow-cell) ([(control 125)] . table-heighten-cell) ([(control 123)] . table-shorten-cell) ([(control 45)] . table-split-cell-vertically) ([(control 124)] . table-split-cell-horizontally) ([(control 42)] . table-span-cell) ([(control 43)] . table-insert-row-column) ([(control 33)] . table-fixed-width-mode) ([(control 35)] . table-query-dimension) ([(control 94)] . table-generate-source) ([(control 58)] . table-justify)) (#$ . 11049))
#@69 List of the form (ORIGINAL-COMMAND . TABLE-VERSION-OF-THE-COMMAND).
(defvar table-command-remap-alist '((self-insert-command . *table--cell-self-insert-command) (completion-separator-self-insert-autofilling . *table--cell-self-insert-command) (completion-separator-self-insert-command . *table--cell-self-insert-command) (delete-char . *table--cell-delete-char) (delete-forward-char . *table--cell-delete-char) (delete-backward-char . *table--cell-delete-backward-char) (backward-delete-char . *table--cell-delete-backward-char) (backward-delete-char-untabify . *table--cell-delete-backward-char) (newline . *table--cell-newline) (newline-and-indent . *table--cell-newline-and-indent) (open-line . *table--cell-open-line) (quoted-insert . *table--cell-quoted-insert) (describe-mode . *table--cell-describe-mode) (describe-bindings . *table--cell-describe-bindings) (dabbrev-expand . *table--cell-dabbrev-expand) (dabbrev-completion . *table--cell-dabbrev-completion)) (#$ . 12060))
#@51 List of commands that override original commands.
(defvar table-command-list (mapcar 'cdr table-command-remap-alist) (#$ . 13048))
(defconst table-global-menu '("Table" ("Insert" ["a Table..." table-insert :active (and (not buffer-read-only) (not (table--probe-cell))) :help "Insert a text based table at point"] ["Row" table-insert-row :active (table--row-column-insertion-point-p) :help "Insert row(s) of cells in table"] ["Column" table-insert-column :active (table--row-column-insertion-point-p 'column) :help "Insert column(s) of cells in table"]) "----" ("Recognize" ["in Buffer" table-recognize :active t :help "Recognize all tables in the current buffer"] ["in Region" table-recognize-region :active (and mark-active (not (eq (mark t) (point)))) :help "Recognize all tables in the current region"] ["a Table" table-recognize-table :active (table--probe-cell) :help "Recognize a table at point"] ["a Cell" table-recognize-cell :active (let ((cell (table--probe-cell))) (and cell (null (table--at-cell-p (car cell))))) :help "Recognize a cell at point"]) ("Unrecognize" ["in Buffer" table-unrecognize :active t :help "Unrecognize all tables in the current buffer"] ["in Region" table-unrecognize-region :active (and mark-active (not (eq (mark t) (point)))) :help "Unrecognize all tables in the current region"] ["a Table" table-unrecognize-table :active (table--probe-cell) :help "Unrecognize the current table"] ["a Cell" table-unrecognize-cell :active (let ((cell (table--probe-cell))) (and cell (table--at-cell-p (car cell)))) :help "Unrecognize the current cell"]) "----" ["Capture Region" table-capture :active (and (not buffer-read-only) mark-active (not (eq (mark t) (point))) (not (table--probe-cell))) :help "Capture text in the current region as a table"] ["Release" table-release :active (table--editable-cell-p) :help "Release the current table as plain text"]))
(defconst table-cell-menu '("Table" ("Insert" ["Row" table-insert-row :active (table--row-column-insertion-point-p) :help "Insert row(s) of cells in table"] ["Column" table-insert-column :active (table--row-column-insertion-point-p 'column) :help "Insert column(s) of cells in table"]) ("Delete" ["Row" table-delete-row :active (table--editable-cell-p) :help "Delete row(s) of cells in table"] ["Column" table-delete-column :active (table--editable-cell-p) :help "Delete column(s) of cells in table"]) "----" ("Split a Cell" ["Horizontally" table-split-cell-horizontally :active (table--cell-can-split-horizontally-p) :help "Split the current cell horizontally at point"] ["Vertically" table-split-cell-vertically :active (table--cell-can-split-vertically-p) :help "Split the current cell vertical at point"]) ("Span a Cell to" ["Right" (table-span-cell 'right) :active (table--cell-can-span-p 'right) :help "Span the current cell into the right cell"] ["Left" (table-span-cell 'left) :active (table--cell-can-span-p 'left) :help "Span the current cell into the left cell"] ["Above" (table-span-cell 'above) :active (table--cell-can-span-p 'above) :help "Span the current cell into the cell above"] ["Below" (table-span-cell 'below) :active (table--cell-can-span-p 'below) :help "Span the current cell into the cell below"]) "----" ("Shrink Cells" ["Horizontally" table-narrow-cell :active (table--editable-cell-p) :help "Shrink the current cell horizontally"] ["Vertically" table-shorten-cell :active (table--editable-cell-p) :help "Shrink the current cell vertically"]) ("Expand Cells" ["Horizontally" table-widen-cell :active (table--editable-cell-p) :help "Expand the current cell horizontally"] ["Vertically" table-heighten-cell :active (table--editable-cell-p) :help "Expand the current cell vertically"]) "----" ("Justify" ("a Cell" ["Left" (table-justify-cell 'left) :active (table--editable-cell-p) :help "Left justify the contents of the current cell"] ["Center" (table-justify-cell 'center) :active (table--editable-cell-p) :help "Center justify the contents of the current cell"] ["Right" (table-justify-cell 'right) :active (table--editable-cell-p) :help "Right justify the contents of the current cell"] "----" ["Top" (table-justify-cell 'top) :active (table--editable-cell-p) :help "Top align the contents of the current cell"] ["Middle" (table-justify-cell 'middle) :active (table--editable-cell-p) :help "Middle align the contents of the current cell"] ["Bottom" (table-justify-cell 'bottom) :active (table--editable-cell-p) :help "Bottom align the contents of the current cell"] ["None" (table-justify-cell 'none) :active (table--editable-cell-p) :help "Remove vertical alignment from the current cell"]) ("a Row" ["Left" (table-justify-row 'left) :active (table--editable-cell-p) :help "Left justify the contents of all cells in the current row"] ["Center" (table-justify-row 'center) :active (table--editable-cell-p) :help "Center justify the contents of all cells in the current row"] ["Right" (table-justify-row 'right) :active (table--editable-cell-p) :help "Right justify the contents of all cells in the current row"] "----" ["Top" (table-justify-row 'top) :active (table--editable-cell-p) :help "Top align the contents of all cells in the current row"] ["Middle" (table-justify-row 'middle) :active (table--editable-cell-p) :help "Middle align the contents of all cells in the current row"] ["Bottom" (table-justify-row 'bottom) :active (table--editable-cell-p) :help "Bottom align the contents of all cells in the current row"] ["None" (table-justify-cell 'none) :active (table--editable-cell-p) :help "Remove vertical alignment from all cells in the current row"]) ("a Column" ["Left" (table-justify-column 'left) :active (table--editable-cell-p) :help "Left justify the contents of all cells in the current column"] ["Center" (table-justify-column 'center) :active (table--editable-cell-p) :help "Center justify the contents of all cells in the current column"] ["Right" (table-justify-column 'right) :active (table--editable-cell-p) :help "Right justify the contents of all cells in the current column"] "----" ["Top" (table-justify-column 'top) :active (table--editable-cell-p) :help "Top align the contents of all cells in the current column"] ["Middle" (table-justify-column 'middle) :active (table--editable-cell-p) :help "Middle align the contents of all cells in the current column"] ["Bottom" (table-justify-column 'bottom) :active (table--editable-cell-p) :help "Bottom align the contents of all cells in the current column"] ["None" (table-justify-cell 'none) :active (table--editable-cell-p) :help "Remove vertical alignment from all cells in the current column"]) ("a Paragraph" ["Left" (table-justify-cell 'left t) :active (table--editable-cell-p) :help "Left justify the current paragraph"] ["Center" (table-justify-cell 'center t) :active (table--editable-cell-p) :help "Center justify the current paragraph"] ["Right" (table-justify-cell 'right t) :active (table--editable-cell-p) :help "Right justify the current paragraph"])) "----" ["Query Dimension" table-query-dimension :active (table--probe-cell) :help "Get the dimension of the current cell and the current table"] ["Generate Source" table-generate-source :active (table--probe-cell) :help "Generate source of the current table in the specified language"] ["Insert Sequence" table-insert-sequence :active (table--editable-cell-p) :help "Travel cells forward while inserting a specified sequence string in each cell"] ("Unrecognize" ["a Table" table-unrecognize-table :active (table--probe-cell) :help "Unrecognize the current table"] ["a Cell" table-unrecognize-cell :active (let ((cell (table--probe-cell))) (and cell (table--at-cell-p (car cell)))) :help "Unrecognize the current cell"]) ["Release" table-release :active (table--editable-cell-p) :help "Release the current table as plain text"] ("Configure Width to" ["Auto Expand Mode" (table-fixed-width-mode -1) :active t :style radio :selected (not table-fixed-width-mode) :help "A mode that allows automatic horizontal cell expansion"] ["Fixed Width Mode" (table-fixed-width-mode 1) :active t :style radio :selected table-fixed-width-mode :help "A mode that does not allow automatic horizontal cell expansion"]) ("Navigate" ["Forward Cell" table-forward-cell :active (table--probe-cell) :help "Move point forward by cell(s)"] ["Backward Cell" table-backward-cell :active (table--probe-cell) :help "Move point backward by cell(s)"])))
#@20 Table global menu.
(defvar table-global-menu-map nil (#$ . 21429))
(byte-code "\302\301\303\304$\210\305\306 \307\310#\210\305\306 \311	#\207" [table-global-menu table-global-menu-map easy-menu-do-define nil "Table global menu." easy-menu-add-item current-global-map ("menu-bar" "tools") "--" ("menu-bar" "tools")] 5)
#@966 Execute the forms in BODY with table cache buffer as the current buffer.
This macro simplifies the rest of the work greatly by condensing the
common idiom used in many of the cell manipulation functions.  It does
not return any meaningful value.

Save the current buffer and set the cache buffer as the current
buffer.  Move the point to the cache buffer coordinate
`table-cell-cache-point-coordinate'.  After BODY forms are executed,
the paragraph is filled as long as `table-inhibit-auto-fill-paragraph'
remains nil.  BODY can set it to t when it does not want to fill the
paragraph.  If necessary the cell width and height are extended as the
consequence of cell content modification by the BODY.  Then the
current buffer is restored to the original one.  The last cache point
coordinate is stored in `table-cell-cache-point-coordinate'.  The
original buffer's point is moved to the location that corresponds to
the last cache point coordinate.

(fn &rest BODY)
(defalias 'table-with-cache-buffer '(macro . #[128 "\300\301!\300\302!\303D\304\305\306\307\310\311\312\313\f\314\315\316\317BB\320\321\322BB\323\324\325\326F\327BBBB\316\330\331BBE\332\316\333BB\257\"BBBBBB\320\334\335BB\336\337BBE\320\334\340BB\341	\342BBE\343BBBBBB\207" [make-symbol "height-expansion-var-symbol" "width-expansion-var-symbol" let (unless table-inhibit-update (table-recognize-cell)) with-current-buffer (get-buffer-create table-cache-buffer-name) (set-mark (table--goto-coordinate table-cell-cache-mark-coordinate)) (table--goto-coordinate table-cell-cache-point-coordinate) (table--untabify-line) (setq table-inhibit-auto-fill-paragraph nil) append (unless table-inhibit-auto-fill-paragraph (if (and table-cell-info-justify (not (eq table-cell-info-justify 'left))) (table--fill-region (point-min) (point-max)) (table--fill-region (save-excursion (forward-paragraph -1) (point)) (save-excursion (forward-paragraph 1) (point))))) (setq table-cell-cache-point-coordinate (table--get-coordinate)) setq ((table--measure-max-width)) if <= (table-cell-info-width) nil table--fill-region (point-min) (point-max) ((setq table-cell-cache-point-coordinate (table--get-coordinate))) - (table-cell-info-width) (if (looking-at "\\s *\\'") nil (goto-char (point-min)) (if (re-search-forward "\\(\\s *\\)\\'" nil t) (goto-char (match-beginning 1)))) ((- (cdr (table--get-coordinate)) (1- table-cell-info-height))) > (0) table-widen-cell ('no-copy 'no-update) (0) table-heighten-cell ('no-copy 'no-update) ((with-current-buffer (get-buffer-create table-cache-buffer-name) (table--goto-coordinate table-cell-cache-point-coordinate) (setq table-cell-cache-point-coordinate (table--valign))) (table--goto-coordinate (table--transcoord-cache-to-table table-cell-cache-point-coordinate)) (unless table-inhibit-update (table--update-cell)))] 24 (#$ . 21755)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\307\310\311\"\207" [put table-with-cache-buffer edebug-form-spec (body) function-put lisp-indent-function 0 font-lock-add-keywords emacs-lisp-mode ("\\<table-with-cache-buffer\\>")] 4)
#@58 Register source generation information.

(fn PROP VALUE)
(defalias 'table-put-source-info '(macro . #[514 "\300\301F\207" [put 'table-source-info-plist] 6 (#$ . 24845)]))
#@52 Retrieve source generation information.

(fn PROP)
(defalias 'table-get-source-info '(macro . #[257 "\300\301E\207" [get 'table-source-info-plist] 4 (#$ . 25024)]))
(byte-code "\301\211\2034\211@\302\303\304\"!\303\305\"\306\307\310\311\312\313	!\314\"\315\316&\"\210BB\266
A\266\202\202
\210\317\211\203i\211@\302\303\304\"!\303\305\"\306\307\310\320\312\313	!\321\"\315\316&\"\210BB\266
A\266\202\2026\210\322\211\203\236\211@\302\303\304\"!\303\305\"\306\307\310\323\312\313	!\324\"\315\316&\"\210BB\266
A\266\202\202k\210\325\211\203\323\211@\302\303\304\"!\303\305\"\306\307\310\326\312\313	!\327\"\315\316&\"\210BB\266
A\266\202\202\240\207" [table-command-remap-alist (move-beginning-of-line beginning-of-line move-end-of-line end-of-line beginning-of-buffer end-of-buffer forward-word backward-word forward-sentence backward-sentence forward-paragraph backward-paragraph) intern format "*table--cell-%s" "Table remapped function for `%s'." defalias make-byte-code 128 "\306\307\310 \210\311\312!\210\307\211\n\204\311 \210r\313!q\210\314\315\f!!\210\315
!\210\316 \210\307 \317\300!\210\306 \320 \321 \262
\211!X\204H\322ed#\210\320 \211!Z\262
\323\324!\204ceb\210\325\326\307\306#\203c\327\224b\210\320 A\"SZ\262)\211\330V\203y\331
\332\333#\210
\330V\203\205\334\332\333#\210r\313!q\210\315
!\210\335 )\315\336
!!\210\n?\205\240\337 \266\202*\207" vconcat vector [deactivate-mark table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate t nil table--finish-delayed-tasks table-recognize-cell force get-buffer-create set-mark table--goto-coordinate table--untabify-line call-interactively table--get-coordinate table--measure-max-width table--fill-region looking-at #1="\\s *\\'" re-search-forward #2="\\(\\s *\\)\\'" 1 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-inhibit-auto-fill-paragraph table-cell-info-width table-cell-info-height] 7 nil (kill-region kill-ring-save delete-region copy-region-as-kill kill-line kill-word backward-kill-word kill-sentence backward-kill-sentence kill-paragraph backward-kill-paragraph kill-sexp backward-kill-sexp) "\306 \210\307\310!\210\311\211	\204\307 \210r\312\n!q\210\313\314!!\210\314\f!\210\315 \210\311\316ed\"\210\317ed\"\210\320\300!\210
\204\\%\203K%\321=\204K\322ed\"\210\202\\\322\212\323\324!\210`)\212\323\325!\210`)\"\210\326 \327 \262
\211&X\204s\322ed#\210\326 \211&Z\262
\330\331!\204\216eb\210\332\333\311\334#\203\216\325\224b\210\326 A'SZ\262)\211\335V\203\244\336
\337\340#\210
\335V\203\260\341\337\340#\210r\312\n!q\210\314\f!\210\342 )\314\343\f!!\210	\204\313\344 \210\266\306 \207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table--finish-delayed-tasks table-recognize-cell force nil get-buffer-create set-mark table--goto-coordinate table--untabify-line table--remove-cell-properties table--remove-eol-spaces call-interactively left table--fill-region forward-paragraph -1 1 table--get-coordinate table--measure-max-width looking-at #1# re-search-forward #2# t 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-justify table-cell-info-width table-cell-info-height] (yank clipboard-yank yank-clipboard-selection insert) "\306 \210\307\310!\210\311\211	\204\307 \210r\312\n!q\210\313\314!!\210\314\f!\210\315 \210\311\316\300!\210\317ed\"\210\320ed\"\210\321\322 \323 \262
\211!X\204L\320ed#\210\322 \211!Z\262
\324\325!\204geb\210\326\327\311\321#\203g\330\224b\210\322 A\"SZ\262)\211\331V\203}\332
\333\334#\210
\331V\203\211\335\333\334#\210r\312\n!q\210\314\f!\210\336 )\314\337\f!!\210	\204\244\340 \210\266\306 \207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table--finish-delayed-tasks table-recognize-cell force nil get-buffer-create set-mark table--goto-coordinate table--untabify-line call-interactively table--untabify table--fill-region t table--get-coordinate table--measure-max-width looking-at #1# re-search-forward #2# 1 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-width table-cell-info-height] (center-line center-region center-paragraph fill-paragraph) "\306 \210\307\310!\210\311\211	\204\307 \210r\312\n!q\210\313\314!!\210\314\f!\210\315 \210\311 !\316\300!\210)\317\320 \321 \262
\211 X\204G\322ed#\210\320 \211 Z\262
\323\324!\204beb\210\325\326\311\317#\203b\327\224b\210\320 A\"SZ\262)\211\330V\203x\331
\332\333#\210
\330V\203\204\334\332\333#\210r\312\n!q\210\314\f!\210\335 )\314\336\f!!\210	\204\237\337 \210\266\306 \207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table--finish-delayed-tasks table-recognize-cell force nil get-buffer-create set-mark table--goto-coordinate table--untabify-line call-interactively t table--get-coordinate table--measure-max-width table--fill-region looking-at #1# re-search-forward #2# 1 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-width fill-column table-cell-info-height]] 13)
#@5042 Insert an editable text table.
Insert a table of specified number of COLUMNS and ROWS.  Optional
parameter CELL-WIDTH and CELL-HEIGHT can specify the size of each
cell.  The cell size is uniform across the table if the specified size
is a number.  They can be a list of numbers to specify different size
for each cell.  When called interactively, the list of number is
entered by simply listing all the numbers with space characters
delimiting them.

Examples:

\[table-insert] inserts a table at the current point location.

Suppose we have the following situation where `-!-' indicates the
location of point.

    -!-

Type \[table-insert] and hit ENTER key.  As it asks table
specification, provide 3 for number of columns, 1 for number of rows,
5 for cell width and 1 for cell height.  Now you shall see the next
table and the point is automatically moved to the beginning of the
first cell.

    +-----+-----+-----+
    |-!-  |     |     |
    +-----+-----+-----+

Inside a table cell, there are special key bindings. \<table-cell-map>

M-9 \[table-widen-cell] (or \[universal-argument] 9 \[table-widen-cell]) widens the first cell by 9 character
width, which results as

    +--------------+-----+-----+
    |-!-           |     |     |
    +--------------+-----+-----+

Type TAB \[table-widen-cell] then type TAB M-2 M-7 \[table-widen-cell] (or \[universal-argument] 2 7 \[table-widen-cell]).  Typing
TAB moves the point forward by a cell. The result now looks like this:

    +--------------+------+--------------------------------+
    |              |      |-!-                             |
    +--------------+------+--------------------------------+

If you knew each width of the columns prior to the table creation,
what you could have done better was to have had given the complete
width information to `table-insert'.

Cell width(s): 14 6 32

instead of

Cell width(s): 5

This would have eliminated the previously mentioned width adjustment
work all together.

If the point is in the last cell type S-TAB S-TAB to move it to the
first cell.  Now type \[table-heighten-cell] which heighten the row by a line.

    +--------------+------+--------------------------------+
    |-!-           |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+

Type \[table-insert-row-column] and tell it to insert a row.

    +--------------+------+--------------------------------+
    |-!-           |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+

Move the point under the table as shown below.

    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    -!-

Type \[table-insert-row] instead of \[table-insert-row-column].  \[table-insert-row-column] does not work
when the point is outside of the table.  This insertion at
outside of the table effectively appends a row at the end.

    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    |-!-           |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+

Text editing inside the table cell produces reasonably expected
results.

    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+
    |              |      |Text editing inside the table   |
    |              |      |cell produces reasonably        |
    |              |      |expected results.-!-            |
    +--------------+------+--------------------------------+
    |              |      |                                |
    |              |      |                                |
    +--------------+------+--------------------------------+

Inside a table cell has a special keymap.

\{table-cell-map}

(fn COLUMNS ROWS &optional CELL-WIDTH CELL-HEIGHT)
(defalias 'table-insert #[1026 "\305 \210
\204@\262\211\204	@\262
;\203\306!\262;\203'\306!\262
;\2031\307!\262\211;\203;\307
!\262

\247\203D
C\262\211\247\203M\211C\262
\310B\311B\312B\313BF\211\203\235\211@\211A\314
\204l\211\"\210
<\203u
\202w
C\211\203\224\211@\211\250\203\210\211\315W\203\215\"\210
A\266\202\202w\266
A\266\202\202Z\210\316 \316 \317\211\211\211\211\211\320\321\322\"r\211q\210\323\324\"\216\nc\210\n\262\325\262
W\203\341\326@\327!\"\n\261\210A\203\332A\262T\262\202\277ed{\262\330 \210\fc\210\n\262\325\262
W\203
`\326@\331\"c\210\fc\210\332
`S\"\266A\203
A\262T\262\202\363ed{\262*\210\212\333 \210\334\335!\2038
\211\336P\262

\336P\262)\325\262\262W\203\247
\325V\204`
\337!\210\211AT\241\210\340`!\210\211c\210\325\262@W\203\204
\337!\210\211AT\241\210\340`!\210
c\210T\262\202c
\337!\210\211AT\241\210\340`!\210\211c\210A\203\240
A\262T\262\202@
\337\341	\342\"!\210\343\344!\207" [table-cell-width-history table-cell-height-history table-cell-intersection-char table-cell-horizontal-chars table-cell-vertical-char table--make-cell-map string-to-number table--string-to-number-list columns rows cell-width cell-height #[514 "\300\301@<\203
\302\202\303#\207" [error "%s must be a positive integer%s" " or a list of positive integers" ""] 6 "\n\n(fn ARG VALUE)"] 1 table--get-coordinate nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] 0 make-string string-to-char erase-buffer 32 table--put-cell-line-property beginning-of-line looking-at "\\s *$" "\n" table--goto-coordinate table--untabify-line table--offset-coordinate (1 . 1) table-recognize-cell force] 17 (#$ . 30629) (byte-code "\300 \210\301 \203\f\302\303!\210\304\305\306\"\207" [barf-if-buffer-read-only table--probe-cell error "Can't insert a table inside a table" mapcar table--read-from-minibuffer (("Number of columns" . table-columns-history) ("Number of rows" . table-rows-history) ("Cell width(s)" . table-cell-width-history) ("Cell height(s)" . table-cell-height-history))] 3)])
#@281 Insert N table row(s).
When point is in a table the newly inserted row(s) are placed above
the current row.  When point is outside of the table it must be below
the table within the table width range, then the newly created row(s)
are appended at the bottom of the table.

(fn N)
(defalias 'table-insert-row #[257 "\211\303W\203	\304\262
\305 \306\307\310\311\312#!\211?\205\313 \211\262\314!A\311\211A\305\315\311\310\"A!AT\316!\316!\317\303G#\210\320\303G#\210\211\262
\310\321\f	T_#\210\203k
@\203dA\202f\n\262@A\262@A\262\205\203@A@AW
\205\216
@A@AX\322\203\231@@\202\235@@S@AB!\322\203\255A@\202\261A@TB!?\205\277\323\"\211\303V\2038
\203\317\324\202\322\325	!\326	A@\n@@Z\327\n!\"\203\351\324\202\354\325	!QB\262\211\303V\2030
\203
\324\202
\n\203\f
\f\202
\330\nA@@@Z!\203\"
\324\202$

QB\262\211S\262
\202\363\210\211S\262
\202\301\210\311\262	\203[
\322\203M
@@\202R
@@S
TB!\210\202c
\331\"\210b\210\332
!\266	\202R?\205s
	\262\203\301
@A\262\303\211W\203\274
\211\nT_S\322\333@\334B\"!\210\335\304!\210	c\210\322\333A@@AB\303B\"!\210\335\304!\210	c\210
T\266\202\202\201
\266\202u
\322	\203\322
\n@@@TB\202\326
\n@@!\204\337
\322!\210\336\337!\207" [table-cell-vertical-char table-cell-intersection-char table-cell-horizontal-chars 0 1 table--get-coordinate table--cell-list-to-coord-list table--horizontal-cell-list t nil top table--find-row-column table--min-coord-list table--vertical-cell-list string table--put-cell-keymap-property table--put-cell-rear-nonsticky table--create-growing-space-below table--goto-coordinate extract-rectangle "" char-to-string make-string string-to-char table--cell-blank-str delete-rectangle table--insert-rectangle table--offset-coordinate -1 delete-char table-recognize-cell force] 26 (#$ . 37837) "*p"])
#@303 Insert N table column(s).
When point is in a table the newly inserted column(s) are placed left
of the current column.  When point is outside of the table it must be
right side of the table within the table height range, then the newly
created column(s) are appended at the right of the table.

(fn N)
(defalias 'table-insert-column #[257 "\211\303W\203	\304\262
\305 \306\307\310\311\312#!\211?\205\313\314!\211\262\315!@\316\317\320!\"\321	!P\"\316\322!\323\n!\324\303G#\210\325\303G#\210\211\262
P\"T_\311\211A\305\326\311\310\"A!@\327\"\210\203L
@\203rA\202t\n\262@A\262@A\262\205\215@@@@X
\205\230
@@@@W
\203\242T\202\245@@\203\257@A\202\263@ASBT\203\301AA\202\305AATB\311\330!\303\211\303W\203\351\331\332\"\203\334\333`!\210
\211AT\241\210\211T\262
\202\313\266\334\331!\331!\"\262
\335\331!\331!\"\210\211\310
\203>
\211\203
\204

@P\240\210\2024

A\204,
\204,

@P\240\210\2024

@P\240\210\311\262

A\262\202
\266\331!\210\336
!\266	\202c?\205T
	\262\203\242
@A\262\303\211W\203\235
\211T\nT_S\331\337@\340B\"!\210\341\304!\210	c\210\331\337@@AAB\304B\"!\210\341\304!\210	c\210
T\266\202\202a
\266\202V
\331	\203\263

T@@AB\202\267
\n@@!\204\300
\331!\210\342\343!\207" [table-cell-horizontal-chars table-cell-intersection-char table-cell-vertical-char 0 1 table--get-coordinate table--cell-list-to-coord-list table--vertical-cell-list t nil left table--find-row-column column table--min-coord-list table--multiply-string make-string string-to-char char-to-string table--cell-blank-str string table--put-cell-keymap-property table--put-cell-rear-nonsticky table--horizontal-cell-list table--horizontally-shift-above-and-below table--copy-coordinate table--goto-coordinate no-extension table--untabify-line extract-rectangle delete-rectangle table--insert-rectangle table--offset-coordinate -1 delete-char table-recognize-cell force] 25 (#$ . 39729) "*p"])
#@98 Insert row(s) or column(s).
See `table-insert-row' and `table-insert-column'.

(fn ROW-COLUMN N)
(defalias 'table-insert-row-column #[514 "
\300\267\202\301
!\207\302
!\207\303\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (row 6 column 10)) table-insert-row table-insert-column nil] 4 (#$ . 41712) (byte-code "\303!\211\304W\203\f\305\262
\306\307	@
\310\311\312\305V\203%\313\314	\"\202&\315\305V\2031\316\2022\317	\305V\203=\316\202>\317%\320\321\307\321\301&\227)\266\202!
D\207" [current-prefix-arg table-insert-row-column-history completion-ignore-case prefix-numeric-value 0 1 intern t completing-read format-prompt "Insert %s row%s/column%s" format "%d" "a" "s" "" (("row") ("column")) nil] 12)])
#@324 Recognize all tables within the current buffer and activate them.
Scans the entire buffer and recognizes valid table cells.  If the
optional numeric prefix argument ARG is negative the tables in the
buffer become inactive, meaning the tables become plain text and loses
all the table specific features.

(fn &optional ARG)
(defalias 'table-recognize #[256 "\305
!\262
\306\307ed\310#\210\211\311Y\205l\212eb\210\312\313	\n$\211
\211Q\312\314	\n$\315d\306#\203f\316 \2038\f\204f\317\320\321\322\311\224_deZ\"\"\210\311\224\323\315d\306#\203W\311\224\262
\202[db\262
\307#\266\202'\317\324!\266\203))\207" [inhibit-read-only table-cell-horizontal-chars table-cell-vertical-char table-cell-intersection-char table-abort-recognition-when-input-pending prefix-numeric-value t table-recognize-region -1 0 format "[%s%c%c]" "^[^%s%c%c]*$" re-search-forward input-pending-p message "Recognizing tables...(%d%%)" floor 100.0 nil "Recognizing tables...done"] 10 (#$ . 42490) "P"])
(defalias 'table-unrecognize #[0 "\300\301!\207" [table-recognize -1] 2 nil nil])
#@286 Recognize all tables within region.
BEG and END specify the region to work on.  If the optional numeric
prefix argument ARG is negative the tables in the region become
inactive, meaning the tables become plain text and lose all the table
specific features.

(fn BEG END &optional ARG)
(defalias 'table-recognize-region #[770 "\306
!\262
\307\310 
\311W\203\312\"\210\202\242\212b\210\313\314	\n$\313\315	\n$\307\316\216\317\320#\210`W\203\236\321 \203D\f\204\236\322\323!\203P\324u\210\2024\322!\203l\325
\307#\203f\311\224b\210\2024b\210\2024\326`!\203~\327`\330\331	$b\210\2024\332\333\334\"\211\203\216
\203\216\335
!\210\210\325\307#\2044b\210\2024*\266)\336
!)\207" [inhibit-read-only table-cell-horizontal-chars table-cell-vertical-char table-cell-intersection-char table-abort-recognition-when-input-pending table-detect-cell-alignment prefix-numeric-value t buffer-modified-p 0 table--remove-cell-properties format "[%s%c%c]" "[^%s%c%c]" #[0 "\300\207" [nil] 1] remove-text-properties (table-cell nil) input-pending-p looking-at "\n" 1 re-search-forward table--at-cell-p next-single-property-change table-cell nil table-recognize-cell force no-copy table--detect-cell-alignment restore-buffer-modified-p] 12 (#$ . 43567) "r\nP"])
#@16 

(fn BEG END)
(defalias 'table-unrecognize-region #[514 "\300\301#\207" [table-recognize-region -1] 6 (#$ . 44853) "r"])
#@213 Recognize a table at point.
If the optional numeric prefix argument ARG is negative the table
becomes inactive, meaning the table becomes plain text and loses all
the table specific features.

(fn &optional ARG)
(defalias 'table-recognize-table #[256 "\302
!\262
\211\303W\304 \305\211\2056\212\306\307\310#\210\304 \211\203%	\203%\311
!\210\211\205-\211\232?\262
\2055\202))\207" [inhibit-read-only table-detect-cell-alignment prefix-numeric-value 0 table--probe-cell t table-forward-cell 1 nil table--detect-cell-alignment] 7 (#$ . 44984) "P"])
(defalias 'table-unrecognize-table #[0 "\300\301!\207" [table-recognize-table -1] 2 nil nil])
#@415 Recognize a table cell that contains current point.
Probe the cell dimension and prepare the cell information.  The
optional two arguments FORCE and NO-COPY are for internal use only and
must not be specified.  When the optional numeric prefix argument ARG
is negative the cell becomes inactive, meaning that the cell becomes
plain text and loses all the table specific features.

(fn &optional FORCE NO-COPY ARG)
(defalias 'table-recognize-cell #[768 "\306 \210\204	>?\205\275\307\310\311!!\312\n!\313 \314\315\316\"\216\203\270\317@!\317A!\f\232\2044\320 \210
\211\211@\f@Z
A\fAZT\321! \322!!\266\323!\324W\203\214\317@!\212\211\324V\203\206\325\326!\326@\\TAB!\"\210\211S\262

\211AT\241\210\202b)\266\202\220\327!\210\204\270\330 \"\330\317\331\332 !!!#p$\333@A\"rq\210\334 \210\335
!\210)\210))\266\203\207" [real-last-command table-command-list table-cache-buffer-name inhibit-read-only table-cell-info-lu-coordinate table-cell-info-rb-coordinate table--make-cell-map table--probe-cell called-interactively-p interactive get-buffer-create buffer-modified-p t make-closure #[0 "\301\300!\207" [V0 restore-buffer-modified-p] 2] table--get-coordinate table--finish-delayed-tasks table--get-cell-justify-property table--get-cell-valign-property prefix-numeric-value 0 table--remove-cell-properties table--goto-coordinate table--put-cell-property table--transcoord-table-to-cache marker-position mark-marker extract-rectangle erase-buffer table--insert-rectangle table-cell-info-width table-cell-info-height table-cell-info-justify table-cell-info-valign table-cell-cache-point-coordinate table-cell-cache-mark-coordinate table-cell-buffer] 13 (#$ . 45642) "i\ni\np"])
(defalias 'table-unrecognize-cell #[0 "\300\301\211\302#\207" [table-recognize-cell nil -1] 4 nil nil])
#@389 Heighten the current cell by N lines by expanding the cell vertically.
Heightening is done by adding blank lines at the bottom of the current
cell.  Other cells aligned horizontally with the current one are also
heightened in order to keep the rectangular table structure.  The
optional argument NO-COPY is internal use only and must not be
specified.

(fn N &optional NO-COPY NO-UPDATE)
(defalias 'table-heighten-cell #[769 "\301W\203	\302\262\303\304\305!!\306
\211A\307\310\306\305\"A!AT\311!\311!\305\307 \312\301G#\210\313\f\n#\210\203\357@\203GA\202I	\262	@A\262	@A\262	\205fAAAAW
\205q
AAAAX\314\203|@@\202\200@@SAATB!\314\203\221A@\202\225A@T\fB!\315\"\211\301V\203\333\203\255\316\202\271\n\203\267\f\202\271\317	A@\n@@Z!\203\315\316\202\317
QB\262\211S\262
\202\237\210\306\262\n\320\"\210b\210\321
!\266	\2024\314
!\210\322\323\f\"\210	?\205

\324 \207" [table-cell-vertical-char 0 1 table--cell-list-to-coord-list table--horizontal-cell-list t nil table--get-coordinate table--vertical-cell-list string table--put-cell-keymap-property table--create-growing-space-below table--goto-coordinate extract-rectangle "" table--cell-blank-str delete-rectangle table--insert-rectangle table-recognize-cell force table--update-cell-heightened] 25 (#$ . 47471) "*p"])
#@444 Shorten the current cell by N lines by shrinking the cell vertically.
Shortening is done by removing blank lines from the bottom of the cell
and possibly from the top of the cell as well.  Therefore, the cell
must have some bottom/top blank lines to be shorten effectively.  This
is applicable to all the cells aligned horizontally with the current
one because they are also shortened in order to keep the rectangular
table structure.

(fn N)
(defalias 'table-shorten-cell #[257 "\211\306W\203	\307\262
\310 \210\311\312\313\311!!\314
\211A\314\315\316\314\311\"A!AT\315 \317\320 !\321\322!\210\203v
@A\262\323
@!\210\324\325!\210\314\211\204H\324 \210r\326	!q\210\327\323\n!!\210\323!\210\330 \210\314\3312\331\306\323\306
SB!\210\332\333!\203\245\211T\211\262\203\245\211
V\203\205\334\331\314\"\202\206\311\203\245\335y\306U\204i\211\306U\203\232\306\202\234\211S\262
\334\331\314\"\204i\323\306\211B!\210\332\333!\203\322\211T\211\262\203\322\211
Y\203\307\334\331\314\"\202\310\311\203\322\307y\306U\204\253\211\211\262\262
0\210\f\204
9\203\3629\336=\204\362\337ed\"\210\202
\337\212\340\335!\210`)\212\340\307!\210`)\"\210\315 \341 \262
\211:X\204
\337ed#\210\315 \211:Z\262
\332\342!\2045
eb\210\343\344\314\311#\2035
\307\224b\210\315 A
SZ\262)\211\306V\203J
\345
\346\347#\210
\306V\203V
\350\346\347#\210r\326	!q\210\323!\210\351 )\323\352!!\210\204q
\353 \210\266\202+\262\203t@A\262\323
@!\210\324\325!\210\314\211\204\227
\324 \210r\326	!q\210\327\323\n!!\210\323!\210\330 \210\314\306\323\306
SB!\210\332\333!\203\320
\211
W\203\320
\211T\211\262\203\320
\335y\306U\204\264
\211\262
B\262\f\204
9\203\360
9\336=\204\360
\337ed\"\210\202
\337\212\340\335!\210`)\212\340\307!\210`)\"\210\315 \341 \262
\211:X\204\337ed#\210\315 \211:Z\262
\332\342!\2043eb\210\343\344\314\311#\2033\307\224b\210\315 A
SZ\262)\211\306V\203H\345
\346\347#\210
\306V\203T\350\346\347#\210r\326	!q\210\323!\210\351 )\323\352!!\210\204o\353 \210\266\202z
\237\262\262\203
@\203\216A\202\220\262@A\262@A\262@A\262\205\265AAAAW\205\300AAAAX\323@@@AB!\323A@B!\354\"AA@AZT\355	A@\n@@Z\356\"
ZS\233\233\241\210V\203\357\306@\"	Z\233\262\360\306\307@$\266\361\362\"\"\262\363\"\210b\210\364!\210\204p\323\n@@S@AB!\323@@B!\354\"ZS
\233\233\241\210\361
\362\365\"\"\262
\363\"\210b\210\364
!\266\204\260\323\nA@@AB!\323A@TB!\354\"ZS
\233\233\241\210\361
\362\365\"\"\262
\363\"\210b\210\364
!\266	\f\232\203\fA\n@AZ\211\nZW\203\326
@A\241\266
\202|\211\nZZZW\203\371
@A\fZZ\\\241\266
\202|
@AZS\\\241\266\266\202|\323\306ZTB!\210\366	!\210\323!\210\324\325!\210\367 \210\321\370!)\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-height 0 1 table--finish-delayed-tasks t table--cell-list-to-coord-list table--horizontal-cell-list nil table--get-coordinate table--vertical-cell-list table--cell-to-coord table--probe-cell message "Shortening..." table--goto-coordinate table-recognize-cell force get-buffer-create set-mark table--untabify-line end-count looking-at "\\s *$" throw -1 left table--fill-region forward-paragraph table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell extract-rectangle make-string 32 text-properties-at set-text-properties append make-list delete-rectangle table--insert-rectangle " " table--remove-blank-lines table--update-cell-heightened "" table-cell-info-justify table-cell-info-width] 28 (#$ . 48826) "*p"])
#@201 Widen the current cell by N columns and expand the cell horizontally.
Some other cells in the same table are widen as well to keep the
table's rectangle structure.

(fn N &optional NO-COPY NO-UPDATE)
(defalias 'table-widen-cell #[769 "\302W\203	\303\262\304\305 !\306
\211A\212\307\310!\"\210
\203\355@\203*A\202+\262@A\262@A\262\311A@\203KA@A@X\203R@AS\202U@AB!\311A@T\203kA@A@W\203rAAT\202uAAB!\312S\"\313\314	\211$\315 \306\203\245\316@\"\203\231@\302\303O\202\232

B\262
A\262\202\205\211\237\262
\317!\302G

W\203\316\311\320\"\203\301\321`!\210\211AT\241\210
T\262\202\260\266b\210\302\211W\203\350\212\322!\210)\211T\262
\202\324\266\n\202)\323\324\"\210?\205\373\325 \207" [table-cell-horizontal-chars table-cell-intersection-char 0 1 table--cell-list-to-coord-list table--vertical-cell-list nil table--horizontally-shift-above-and-below reverse table--goto-coordinate extract-rectangle format "[%s%c]\\%c" table--cell-blank-str string-match table--get-coordinate no-extension table--untabify-line table--insert-rectangle table-recognize-cell force table--update-cell-widened] 22 (#$ . 52680) "*p"])
#@177 Narrow the current cell by N columns and shrink the cell horizontally.
Some other cells in the same table are narrowed as well to keep the
table's rectangle structure.

(fn N)
(defalias 'table-narrow-cell #[257 "\211\306W\203	\307\262
\310 \210\311\312 !\313\314 !\315 \316\317\320!\210\262
\211\203\346\211@
A\262\321\316
\322@!\210\323\324!\210\316\211\204>\323 \210r\325	!q\210\326\322\n!!\210\322!\210\327 \210\316\330ed

Z#\210
\331 Z\211\262\nW\203l\262\n\332 \210\321\315 \331 \262
\211
X\204\207\330ed#\210\315 \211
Z\262
\333\334!\204\241eb\210\335\336\316\321#\203\241\307\224b\210\315 A-SZ\262)\211\306V\203\267\337
\340\341#\210
\306V\203\303\342\340\341#\210r\325	!q\210\322!\210\343 )\322\344!!\210\204\336\345 \210\266)\266\202\307W\204\244\262
\211\203$\211@
A\262\321\211\232\316
\203\n
\322!\210\202
\322@!\210\323\324!\210-\262
\316\211\204 
\323 \210r\325	!q\210\326\322\n!!\210\322!\210\327 \210\316@.@Z
ZY\205Q
\212n\204M
\346u\210\333\347!)\330ed
Z#\210\211\204h
\203q
\333\347!\203q
\344 \262	\266\202\204

\203\202
.@
ZS\\\240\210\266\321\315 \331 \262
\211
X\204\234
\330ed#\210\315 \211
Z\262
\333\334!\204\266
eb\210\335\336\316\321#\203\266
\307\224b\210\315 A-SZ\262)\211\306V\203\314
\337
\340\341#\210
\306V\203\330
\342\340\341#\210r\325	!q\210\322!\210\343 )\322\344!!\210\204\363
\345 \210\266\345\350!\210
\203\315 \262\202-
V\203A.AV\203\211A-Z\\\241\210)\266\202\357\322!\210\311\312 !\262\351[\352!\"\210\316\211A
\203\242@\203JA\202L\262@A\262@A\262\353\322A@
Z\203pA@A@X\203w@AS\202z@AB!\322A@\203\220A@A@W\203\227AAT\202\232AAB!\"\266\202;\266\322!\210\323\324!\210\317\354!\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width 0 1 table--finish-delayed-tasks table--cell-list-to-coord-list table--vertical-cell-list table--cell-to-coord table--probe-cell table--get-coordinate nil message "Narrowing..." t table--goto-coordinate table-recognize-cell force get-buffer-create set-mark table--untabify-line table--fill-region table--measure-max-width erase-buffer looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell -1 ".*\\S " now table--horizontally-shift-above-and-below reverse delete-rectangle "" table-cell-info-height table-cell-info-lu-coordinate] 17 (#$ . 53870) "*p"])
#@1826 Move point forward to the beginning of the next cell.
With argument ARG, do it ARG times;
a negative argument ARG = -N means move backward N cells.

Do not specify NO-RECOGNIZE and UNRECOGNIZE.  They are for
internal use only.

Sample Cell Traveling Order (In Irregular Table Cases)

You can actually try how it works in this buffer.  Press
\[table-recognize] and go to cells in the following tables and press
\[table-forward-cell] or TAB key.

+-----+--+  +--+-----+  +--+--+--+  +--+--+--+  +---------+  +--+---+--+
|0    |1 |  |0 |1    |  |0 |1 |2 |  |0 |1 |2 |  |0        |  |0 |1  |2 |
+--+--+  |  |  +--+--+  +--+  |  |  |  |  +--+  +----+----+  +--+-+-+--+
|2 |3 |  |  |  |2 |3 |  |3 +--+  |  |  +--+3 |  |1   |2   |  |3   |4   |
|  +--+--+  +--+--+  |  +--+4 |  |  |  |4 +--+  +--+-+-+--+  +----+----+
|  |4    |  |4    |  |  |5 |  |  |  |  |  |5 |  |3 |4  |5 |  |5        |
+--+-----+  +-----+--+  +--+--+--+  +--+--+--+  +--+---+--+  +---------+

+--+--+--+  +--+--+--+  +--+--+--+  +--+--+--+
|0 |1 |2 |  |0 |1 |2 |  |0 |1 |2 |  |0 |1 |2 |
|  |  |  |  |  +--+  |  |  |  |  |  +--+  +--+
+--+  +--+  +--+3 +--+  |  +--+  |  |3 +--+4 |
|3 |  |4 |  |4 +--+5 |  |  |3 |  |  +--+5 +--+
|  |  |  |  |  |6 |  |  |  |  |  |  |6 |  |7 |
+--+--+--+  +--+--+--+  +--+--+--+  +--+--+--+

+--+--+--+  +--+--+--+  +--+--+--+--+  +--+-----+--+  +--+--+--+--+
|0 |1 |2 |  |0 |1 |2 |	|0 |1 |2 |3 |  |0 |1    |2 |  |0 |1 |2 |3 |
|  +--+  |  |  +--+  |	|  +--+--+  |  |  |     |  |  |  +--+--+  |
|  |3 +--+  +--+3 |  |	+--+4    +--+  +--+     +--+  +--+4    +--+
+--+  |4 |  |4 |  +--+	|5 +--+--+6 |  |3 +--+--+4 |  |5 |     |6 |
|5 +--+  |  |  +--+5 |	|  |7 |8 |  |  |  |5 |6 |  |  |  |     |  |
|  |6 |  |  |  |6 |  |	+--+--+--+--+  +--+--+--+--+  +--+-----+--+
+--+--+--+  +--+--+--+

(fn &optional ARG NO-RECOGNIZE UNRECOGNIZE)
(defalias 'table-forward-cell #[768 "\204\300\262\301 \210\302U\204\372
\303\304!\211\305\211\306\302V\203'\307A!@T\202-\307@!@S\307@!AB\310\"\211\262\203R\303 \211\262\203R\307@!A\307@!AU\203\203^@b\266\202\350
\262\306\302V\203r\307@!@S\202x\307A!@T\307@!AB\310\"\203\223\303 \211\262\203\223\211\262\204a\302V\203\236
\202\265\306\307A!@\307@!ASB!\203\264\303 \206\265
\262\203^
\305\306\307	\302V\203\312@\202\314A!@	\302V\203\340\311\307A!A\\\202\347\307@!ASB\310\"\203
\303 \211\262\203

\203
\302V\203
\307
@!A\307@!AW\202
\307
@!A\307@!AV\203
\211\262\210\306\302V\2031
\307A!@T\2027
\307@!@S\302V\203G
\307@!A\202N
\307@!ASB\310\"\211\262\203\267\303 \262\202\267\211\203j
\211@b\266\202\350
\306\302V\203z
\307@!@\202
\307A!@\302V\203\217
\307@!AS\202\226
\311\307A!A\\B\310\"\203\253
\303 \211\262\203\253
\211\262\204j
\302W\203\343

\262\306\307@!@S\307A!AB\310\"\203\343
\303 \211\262\203\343
\307@!A\307@!AV\203\265
\262\202\265

@b\266\302V\203\363
S\202\365
T\262\202\n
?\205\312\313\305\205\314#\207" [1 table--finish-delayed-tasks 0 table--probe-cell abort-on-error nil table--goto-coordinate table--get-coordinate no-extension 2 table-recognize-cell force -1] 13 (#$ . 56485) "p"])
#@167 Move backward to the beginning of the previous cell.
With argument ARG, do it ARG times;
a negative argument ARG = -N means move forward N cells.

(fn &optional ARG)
(defalias 'table-backward-cell #[256 "\211\204\300\262
\301
[!\207" [1 table-forward-cell] 3 (#$ . 59642) "p"])
#@126 Span current cell into adjacent cell in DIRECTION.
DIRECTION is one of symbols; right, left, above or below.

(fn DIRECTION)
(defalias 'table-span-cell #[257 "\211\306>\204
\307\310\311!\"\210\312\313!\210\314
!\204\307\315\311!\"\210\212\316
\317\267\2029@	ASB\202@	@SATB\202@	@S	ASB\320\")\212\316\321\267\202^	@ATB\202e@T	ASB\202e@TATB\320\")\212
b\210\322>\203\376i\323\324\"G\325Zb\205\226\326y\327U\205\226\330!U\205\226\331\332\333\n!!!b\205\264\326u\210\334y\327U\205\264\330!U\205\264\331\332\333\n!!!\211\203\276\333!\202\302\f\327\334OC\262\327V\203\331\335\334!B\262S\262\202\305
\203\343\333!\202\347\f\327\334OB\262\336\"\210b\210\337!\266\202=


|\210`eV\203
\212\326u\210\331\340\f\341
\323\"\262
!!)\203
\202 
\n\335Z\325Z!\331\340\f\341
\323\"\262
!!\2039
\202:
\n\261\210)\312\313!\210\342>\205\323\211
\204Q
\312 \210r\3436!q\210\344\3167!!\210\3168!\210\345 \210\3239\346ed\"\210\3479\202\232
:\203\211
:\350=\204\211
\346ed\"\210\202\232
\346\212\351\326!\210`)\212\351\334!\210`)\"\210\352 8\353 \262
\211;X\204\263
\346ed#\210\352 8\211;Z\262
\331\354!\204\316
eb\210\355\356\323\347#\203\316
\334\224b\210\352 A<SZ\262)\211\327V\203\344
\357
\360\361#\210
\327V\203\360
\362\360\361#\210r\3436!q\210\3168!\210\363 8)\316\3648!!\210
?\205\365 \266\202\207" [table-cell-info-rb-coordinate table-cell-info-lu-coordinate table-cell-vertical-char table-cell-intersection-char table-cell-horizontal-chars table-inhibit-update (right left above below) error "Invalid direction %s, must be right, left, above or below" symbol-name table-recognize-cell force table--cell-can-span-p "Can't span %s" table--goto-coordinate #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 38 below 47)) no-extension #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 75 above 84)) (left right) nil extract-rectangle 2 -1 0 move-to-column looking-at regexp-quote char-to-string 1 table--cell-blank-str delete-rectangle table--insert-rectangle regexp-opt-charset append (right left) get-buffer-create set-mark table--untabify-line table--fill-region t left forward-paragraph table--get-coordinate table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify table-cell-info-width table-cell-info-height] 11 (#$ . 59929) (byte-code "\302 \210\303\304\303\305\306\307\"\"\211\204\310\311!\210\211\262
@C
\235\203#@\202&\211@@\312\313\314\315\316\"\303\312\303\300&\227!)\266\203C\207" [table-cell-span-direction-history completion-ignore-case barf-if-buffer-read-only nil delete mapcar #[257 "\300
!\205\n\301
!C\207" [table--cell-can-span-p symbol-name] 3 "\n\n(fn D)"] (right left above below) error "Can't span this cell" t intern completing-read format-prompt "Span into"] 12)])
#@98 Split current cell vertically.
Creates a cell above and a cell below the current point location.
(defalias 'table-split-cell-vertically #[0 "\306\307!\210\310 A\311 \204\312\313!\210\310 i\314@SB!\314	@TB!
T
S{A	AU\2038\314!\210\315\316\317\320#\210b\210|\210\n\321\322\f!\"\n\261\210\314!\210\316y\210\323!\210\310 \262\306\307!\210\324\325\"\204	
\326\211
\204m\306 \210r\327(!q\210\330\314)!!\210\314*!\210\331 \210\326+eb\210\332\261\210eb\210\333+\310 *\334 \262
\211X\204\254\335ed#\210\310 *\211Z\262
\336\337!\204\306eb\210\340\341\326\333#\203\306\316\224b\210\310 A,SZ\262)\211\342V\203\334\343
\317\320#\210
\342V\203\350\315\317\320#\210r\327(!q\210\314*!\210\344 *)\314\345*!!\210
\204
\346 \210\266\346\347!\210\314!\210\323!\210\306\307!\207" [table-cell-info-lu-coordinate table-cell-info-rb-coordinate table-cell-intersection-char table-cell-info-width table-cell-horizontal-chars table-inhibit-update table-recognize-cell force table--get-coordinate table--cell-can-split-vertically-p error "Can't split here" table--goto-coordinate table-heighten-cell 1 no-copy no-update make-string string-to-char move-to-column string-match "^\\s *$" nil get-buffer-create set-mark table--untabify-line 10 t table--measure-max-width table--fill-region looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell table--valign table--transcoord-cache-to-table table--update-cell now table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-height] 12 (#$ . 63076) "*"])
#@116 Split current cell horizontally.
Creates a cell on the left and a cell on the right of the current
point location.
(defalias 'table-split-cell-horizontally #[0 "\306\307!\210\310 \211@\311\211\211\211\211\211\211\211	@@SU\312 \204 \313\314!\210\315\311\211	\204+\306 \210r\316\n!q\210\317\320!!\210\320\f!\210\321 \210\311\310 \262	\212eb\210\322\323\311\315#?\262)ed{\262\n\315\310 \324 \262
\2119X\204o\325ed#\210\310 \2119Z\262
\326\327!\204\212eb\210\322\330\311\315#\203\212\331\224b\210\310 A:SZ\262)\211\332V\203\240\333
\334\335#\210
\332V\203\254\336\334\335#\210r\316\n!q\210\320\f!\210\337 )\320\340\f!!\210	\204\307\341 \210\266)\203\323\342\202\376\315;,@\343\344\345<!>\203\353\346<\347\"\202\372\350\351\352\"\353\311\315\311\354&\227!)\262
\262\355=\204\232
\311\211	\204
\306 \210r\316\n!q\210\317\320!!\210\320\f!\210\321 \210\311\356 \210\315\310 \324 \262
\2119X\204@
\325ed#\210\310 \2119Z\262
\326\327!\204[
eb\210\322\330\311\315#\203[
\331\224b\210\310 A:SZ\262)\211\332V\203q
\333
\334\335#\210
\332V\203}
\336\334\335#\210r\316\n!q\210\320\f!\210\337 )\320\340\f!!\210	\204\230
\341 \210\266\341\357!\210\320\n=ASB!\262\320\nTATB!\262\360>!C\262:\211\332V
S\262\203\322
\360?!B\262\202\275
\210\360>!B\262\355=\203\347
\361\"\262\362\"\210b\210\363!\210\320!\210\203\331u\210\211\203\333\331!\210\202\342=\204\331u\210\306\307!\210\311\211	\204!\306 \210r\316\n!q\210\317\320!!\210\320\f!\210\321 \210\311\355=\203x\310 A\211\262\211AA\203Q\211A\262
\202D\211\311\241\210\364\365\"\211@\205b\366
!\262
\204seb\210\363!\210\320!\210\266\202\233\356 \210	c\210\320	!\210\325ed\"\210\326\327!\203\233\367\370\311\315#\203\233\331\224b\210\315\310 \324 \262
\2119X\204\264\325ed#\210\310 \2119Z\262
\326\327!\204\317eb\210\322\330\311\315#\203\317\331\224b\210\310 A:SZ\262)\211\332V\203\345\333
\334\335#\210
\332V\203\361\336\334\335#\210r\316\n!q\210\320\f!\210\337 )\320\340\f!!\210	\204\f\341 \210\266\341\357!\210\306\307!\207" [table-cell-info-rb-coordinate table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-recognize-cell force table--get-coordinate nil table--cell-can-split-horizontally-p error "Can't split here" t get-buffer-create set-mark table--goto-coordinate table--untabify-line re-search-forward "\\S " table--measure-max-width table--fill-region looking-at "\\s *\\'" "\\(\\s *\\)\\'" 1 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell left intern click event-modifiers x-popup-menu ("Existing cell contents to:" ("Title" ("Split" . "split") ("Left" . "left") ("Right" . "right"))) completing-read format-prompt "Existing cell contents to" (("split") ("left") ("right")) table-cell-split-contents-to-history split erase-buffer now char-to-string extract-rectangle delete-rectangle table--insert-rectangle mapcar #[257 "\211\300\230\207" [" "] 3 "\n\n(fn S)"] table--uniform-list-p re-search-backward "\\S \\(\\s *\\)\\=" table-cell-info-width table-cell-info-height completion-ignore-case last-input-event table-cell-info-lu-coordinate table-cell-intersection-char table-cell-vertical-char] 21 (#$ . 64703) "*"])
#@113 Split current cell in ORIENTATION.
ORIENTATION is a symbol either horizontally or vertically.

(fn ORIENTATION)
(defalias 'table-split-cell #[257 "\211\300>\204
\301\302\303!\"\210\211\304=\203\305 \207\306 \207" [(horizontally vertically) error "Invalid orientation %s, must be horizontally or vertically" symbol-name horizontally table-split-cell-horizontally table-split-cell-vertically] 5 (#$ . 68073) (byte-code "\302 \210\303\304	@\305\306\307\310\"\311\303\304\303\301&\227!)\266\202C\207" [completion-ignore-case table-cell-split-orientation-history barf-if-buffer-read-only nil t intern completing-read format-prompt "Split orientation" (("horizontally") ("vertically"))] 11)])
#@214 Justify contents of a cell, a row of cells or a column of cells.
WHAT is a symbol `cell', `row' or `column'.  JUSTIFY is a symbol
`left', `center', `right', `top', `middle', `bottom' or `none'.

(fn WHAT JUSTIFY)
(defalias 'table-justify #[514 "\300\301\302!P!
!\207" [intern "table-justify-" symbol-name] 6 (#$ . 68776) (byte-code "\302 \210\303\304	@\305\306\307\310\"\311\303\304\303\301&\227!)\266\202\312 D\207" [completion-ignore-case table-target-history barf-if-buffer-read-only nil t intern completing-read format-prompt "Justify what" (("cell") ("row") ("column")) table--query-justification] 11)])
#@319 Justify cell contents.
JUSTIFY is a symbol `left', `center' or `right' for horizontal, or `top',
`middle', `bottom' or `none' for vertical.  When optional PARAGRAPH is
non-nil the justify operation is limited to the current paragraph,
otherwise the entire cell contents is justified.

(fn JUSTIFY &optional PARAGRAPH)
(defalias 'table-justify-cell #[513 "\300 \210\301\302!\210\303\"\207" [table--finish-delayed-tasks table-recognize-cell force table--justify-cell-contents] 5 (#$ . 69398) (byte-code "\300 C\207" [table--query-justification] 1)])
#@156 Justify cells of a row.
JUSTIFY is a symbol `left', `center' or `right' for horizontal,
or `top', `middle', `bottom' or `none' for vertical.

(fn JUSTIFY)
(defalias 'table-justify-row #[257 "\300\301\211\302#\303 \210\212\211\205#\211@
A\262\211@b\210\304\305!\210\306!\266\202	)\207" [table--horizontal-cell-list nil top table--finish-delayed-tasks table-recognize-cell force table--justify-cell-contents] 5 (#$ . 69955) (byte-code "\300 C\207" [table--query-justification] 1)])
#@159 Justify cells of a column.
JUSTIFY is a symbol `left', `center' or `right' for horizontal,
or `top', `middle', `bottom' or `none' for vertical.

(fn JUSTIFY)
(defalias 'table-justify-column #[257 "\300\301\211\302#\303 \210\212\211\205#\211@
A\262\211@b\210\304\305!\210\306!\266\202	)\207" [table--vertical-cell-list nil left table--finish-delayed-tasks table-recognize-cell force table--justify-cell-contents] 5 (#$ . 70447) (byte-code "\300 C\207" [table--query-justification] 1)])
#@113 Non-nil if Table-Fixed-Width mode is enabled.
Use the command `table-fixed-width-mode' to change this variable.
(defvar table-fixed-width-mode nil (#$ . 70944))
(make-variable-buffer-local 'table-fixed-width-mode)
#@1025 Cell width is fixed when this is non-nil.
Normally it should be nil for allowing automatic cell width expansion
that widens a cell when it is necessary.  When non-nil, typing in a
cell does not automatically expand the cell width.  A word that is too
long to fit in a cell is chopped into multiple lines.  The chopped
location is indicated by `table-word-continuation-char'.  This
variable's value can be toggled by \[table-fixed-width-mode] at
run-time.

This is a minor mode.  If called interactively, toggle the
`Table-Fixed-Width mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `table-fixed-width-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

(fn &optional ARG)
(defalias 'table-fixed-width-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\311 \210\312 \210\313\314\203A\315\202B\316\"\210\317\320!\203d\302 \203V\211\302 \232\203d\321\322\203`\323\202a\324\325#\210\210\326 \210\207" [table-fixed-width-mode local-minor-modes current-message toggle 1 nil t boundp delq table--finish-delayed-tasks table--update-cell-face run-hooks table-fixed-width-mode-hook table-fixed-width-mode-on-hook table-fixed-width-mode-off-hook called-interactively-p any message "Table-Fixed-Width mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 71166) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar table-fixed-width-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [table-fixed-width-mode-map table-fixed-width-mode-hook variable-documentation put "Hook run after entering or leaving `table-fixed-width-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode table-fixed-width-mode boundp] 6)
#@705 Return the dimension of the current cell and the current table.
The result is a list (cw ch tw th c r cells) where cw is the cell
width, ch is the cell height, tw is the table width, th is the table
height, c is the number of columns, r is the number of rows and cells
is the total number of cells.  The cell dimension excludes the cell
frame while the table dimension includes the table frame.  The columns
and the rows are counted by the number of cell boundaries.  Therefore
the number tends to be larger than it appears for the tables with
non-uniform cell structure (heavily spanned and split).  When optional
WHERE is provided the cell and table at that location is reported.

(fn &optional WHERE)
(defalias 'table-query-dimension #[256 "\212\211\203\211b\210\300 \301\211\211\211\211\302\205\343@\262A\262\303@!@C\262\303@!AC\262\304\305!\203;\306\307!\210\310\311\312\"\210\211T\262
\300 \211\262\203\214\232\204\214@W\203^@\262AV\203iA\262\303@!\211@>\204{\211@B\262\211A>\204\210\211AB\262\210\202;\303@!\303A!\303!\303!@@ZAAZT\313@@Z\\\314AAZ\\\nG\nG\304\305!\203\327\306\315&\210\257\266\212\266\207)\207" [table--probe-cell nil 0 table--get-coordinate called-interactively-p interactive message "Computing cell dimension..." table-forward-cell 1 t 2 3 "Cell: (%dw, %dh), Table: (%dw, %dh), Dim: (%dc, %dr), Total Cells: %d"] 27 (#$ . 73508) nil])
#@1146 Generate source of the current table in the specified language.
LANGUAGE is a symbol that specifies the language to describe the
structure of the table.  It must be either `html', `latex', `cals',
`wiki', or `mediawiki'.
The function inserts the resulting source text into DEST-BUFFER, and
returns the buffer object.  When DEST-BUFFER is omitted or nil, the
function uses the default buffer specified in `table-dest-buffer-name'.
In this case, the function erases the default buffer prior to the
source generation.
When DEST-BUFFER is non-nil, it should be either a destination
buffer or a name of the destination buffer.  In that case, the
function inserts the generated result at point in the destination
buffer, and leaves the previous contents of the buffer untouched.

References used for this implementation:

HTML:
        URL `https://www.w3.org'

LaTeX:
        URL `https://www.maths.tcd.ie/~dwilkins/LaTeXPrimer/Tables.html'

CALS (DocBook DTD):
        URL `https://www.oasis-open.org/html/a502.htm'
        URL `https://www.oreilly.com/catalog/docbook/chapter/book/table.html#AEN114751'

(fn LANGUAGE &optional DEST-BUFFER CAPTION)
(defalias 'table-generate-source #[769 "\301\302!Q\303\304!\204\305 \204\306\307!\210\310!\204$\311\206!
!\262\312!
\230\2034rq\210\313 \210)\212\305 \314\211\211\211\211\315\314\262\262\316@!@C\262\316@!AC\262\315\262
\317\303\304!\203{\320\321H\"\210
T\211\262
G=\203w\315\262T\262\322\323\324\"\210\305 \211\262	\203\321	\232\204\321@@W\203\236\262AAV\203\254\262\316@!\211@>\204\300\211@B\262\211A>\204\315\211AB\262\210\202\\\210\325\326\"\262\325\326\"\262\320\327!\210\330\331\314\"\210@b\210\332
\f%\210\333=\203
\334
&\210\202
\335
%\210\336
$\266	\303\304!\203u
\337 r\340\341\"\216\342\324\"\210eb\210\312!\230\203R
\343!\203R
\344 \210\320\345!\210\346=\203`
\347\202h
\350\302!\351P!\352
!\203r
\353
!\210\210*\210)\207" [table-dest-buffer-name "." symbol-name called-interactively-p interactive table--probe-cell error "Table not found here" bufferp get-buffer-create buffer-name erase-buffer nil 0 table--get-coordinate [45 92 124 47] message "Analyzing table...%c" table-forward-cell 1 t sort < "Generating source..." setplist table-source-info-plist table--generate-source-prologue latex table--generate-source-scan-lines table--generate-source-scan-rows table--generate-source-epilogue internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] pop-to-buffer buffer-file-name save-buffer "Generating source...done" cals sgml-mode intern "-mode" fboundp call-interactively] 19 (#$ . 74965) (byte-code "\304 \204	\305\306!\210\307\310	@\311\312\313\"\n\307\310\307\301&\227\314
!\315\316\317Q\"\320\321!E)\207" [completion-ignore-case table-source-language-history table-source-languages table-dest-buffer-name table--probe-cell error "Table not found here" nil t completing-read format-prompt "Language" intern read-buffer "Destination buffer: " "." table--read-from-minibuffer ("Table Caption" . table-source-caption-history)] 10)])
#@108 Generate and insert source prologue into DEST-BUFFER.

(fn DEST-BUFFER LANGUAGE CAPTION COL-LIST ROW-LIST)
(defalias 'table--generate-source-prologue #[1285 "rq\210\303\267\202\223\304\305\"\304\306	\";\203%\307\230\204%\304\310\"\202&\307\261\202\224\304\311\"\312\313\314\315G\316\"\"\317\320\261\202\224\304\321\"\322\261\210;\203Y\307\230\204Y\323\324\261\210\304\325G\"c\210\326\327\330\331 #\210\326\327\332\n\333U\203t\334\202u\335#\210\336\327\330N\337\"\210\304\340\327\332N\"c\202\224\304\341\"c\210\342c\202\224\337)\207" [emacs-version table-html-table-attribute table-cals-thead-rows #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 10 latex 43 cals 64 mediawiki 136)) format "<!-- This HTML table template is generated by emacs %s -->\n" "<table %s>\n" "" "  <caption>%s</caption>\n" "%% This LaTeX table template is generated by emacs %s\n" "\\begin{tabular}{|" apply concat make-list "l|" "}\n" "\\hline\n" "<!-- This CALS table template is generated by emacs %s -->\n" "<table frame=\"all\">\n" "  <title>" "</title>\n" "  <tgroup cols=\"%d\" align=\"left\" colsep=\"1\" rowsep=\"1\">\n" put table-source-info-plist colspec-marker point-marker row-type 0 "tbody" "thead" set-marker-insertion-type nil "    <%s valign=\"top\">\n" "<!-- This HTML table template is generated by Emacs %s -->\n" "{|\n"] 12 (#$ . 78155)])
#@100 Generate and insert source epilogue into DEST-BUFFER.

(fn DEST-BUFFER LANGUAGE COL-LIST ROW-LIST)
(defalias 'table--generate-source-epilogue #[1028 "rq\210\300\267\202L\301c\202M\302c\202M\303\304\305N\306\"\210\212\304\305Nb\210\307\304\310N\311\"\211\203;\211@\312\313\211#c\210
A\266\202\202'\210)\312\314\304\315N\"c\202M\316c\202M\317)\207" [#s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 10 latex 15 cals 20 mediawiki 71)) "</table>\n" "\\end{tabular}\n" set-marker-insertion-type table-source-info-plist colspec-marker t sort colnum-list < format "    <colspec colnum=\"%d\" colname=\"c%d\"/>\n" "    </%s>\n  </tgroup>\n</table>\n" row-type "|}\n" nil] 10 (#$ . 79571)])
#@108 Generate and insert source rows into DEST-BUFFER.

(fn DEST-BUFFER LANGUAGE ORIGIN-CELL COL-LIST ROW-LIST)
(defalias 'table--generate-source-scan-rows #[1285 "\301\302\303\304#\210\211\205\203rq\210\305\267\202&\306c\210\2027\307c\210\2027\310c\210\2027\311=\2037\302\303N\304V\2037\312c\210)\313$\210rq\210\314\267\202r\315c\210\202r\316c\210\302\303NU\203r\317\320\302\321N\"c\210\317\322\301\302\321\323#\"c\210\202r\324c\210)\301\302\303\302\303NT#\210\211A\262
\202\207" [table-cals-thead-rows put table-source-info-plist current-row 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 20 cals 26 wiki 32)) "  <tr>\n" "      <row>\n" "|" mediawiki "|-\n" table--generate-source-cells-in-a-row #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 73 cals 79 wiki 111)) "  </tr>\n" "      </row>\n" format "    </%s>\n" row-type "    <%s valign=\"top\">\n" "tbody" "|\n"] 11 (#$ . 80312)])
#@97 Generate and insert source cells into DEST-BUFFER.

(fn DEST-BUFFER LANGUAGE COL-LIST ROW-LIST)
(defalias 'table--generate-source-cells-in-a-row #[1028 "\303\304\305\306#\210
\205\266
\307 \310
@!\310A!\311!\312!\306\211@\n@W\203/\313\262\n\266\202	\203O@\n@V\203O	A\262\n\303\304\305\304\305NT#\210\202/	A\262\n\303\304\314\304\305NT#\210	\203\201@T\n@V\203\201
T\262	A\262\n\303\304\314\304\314NT#\210\202]A\262\203\236A\315\\@V\203\236\211T\262
A\262\202\205rq\210\n\316\267\202t
\317\320\303\304\321\304\322NX\204\277\304\305N	X\203\303\323\202\304\324#\"c\210\n\203\327\n\325\230\204\327\326\n\261\210
\306V\203\343\317\327\"c\210\211\306V\203\357\317\330\"c\210\317\331\203\375\332!\202\376\333\"c\210\317\334\203
\332!\202
\335\"c\210\336c\210\202t
\337c\210
\306V\2039
\304\305N\304\305N\\S\340\341D\"\210\317\342#c\266\211\306V\203F
\317\343S\"c\210\203Y
\344>\204Y
\345\332!\346\261\210\203k
\347>\204k
\350\332!\346\261\210\336c\210\202t
\351c\210)\352\f\f\n#\210rq\210\n\353\267\202\244
\317\354\304\321N\"c\210\202\244
\355c\210\202\244
\351c\210\202\244
\356c\210)\357\306\360\"\210\303\304\305\304\314N#\266	\202\207" [table-html-th-rows table-html-th-columns table-html-cell-attribute put table-source-info-plist current-column 1 table--probe-cell table--get-coordinate table--get-cell-justify-property table--get-cell-valign-property nil next-column 2 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 170 cals 280 wiki 369 mediawiki 369)) format "    <%s" cell-type current-row "th" "td" "" " " " colspan=\"%d\"" " rowspan=\"%d\"" " align=\"%s\"" symbol-name "left" " valign=\"%s\"" "top" ">\n" "        <entry" mapc #[257 "\211\300\301N>?\205\302\300\301\300\301NB#\207" [table-source-info-plist colnum-list put] 7 "\n\n(fn COL)"] " namest=\"c%d\" nameend=\"c%d\"" " morerows=\"%d\"" (left none) " align=\"" "\"" (top none) " valign=\"" "|" table--generate-source-cell-contents #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 394 cals 405 wiki 411 mediawiki 417)) "    </%s>\n" "        </entry>\n" 10 table-forward-cell t] 19 (#$ . 81313)])
#@102 Generate and insert source cell contents of a CELL into DEST-BUFFER.

(fn DEST-BUFFER LANGUAGE CELL)
(defalias 'table--generate-source-cell-contents #[771 "\301
@A\"\302\303\304\"r\211q\210\305\306\"\216\307!\210\310ed\"\210eb\210\311\267\202x\203=\312ed\"\210\313\314\315\304#\203x\316\317!\210\202x\320\321\315\304#\203L\316\322!\210\202=eb\210\313\323\315\304#\203xm\204x\324c\210\325u\210\202O\202x\312ed\"\210\313\314\315\304#\203x\316\317!\210ed{\262*\210rq\210`
c\210\326>\205\244\327
`\330\267\202\237\331\202\240\332\202\240\315#\210\332c\262
)\207" [table-html-delegate-spacing-to-user-agent extract-rectangle generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] table--insert-rectangle table--remove-cell-properties #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 37 cals 103)) table--remove-eol-spaces re-search-forward "\\s +\\'" nil replace-match "" search-forward " " "&nbsp;" "$" "<br />" 1 (html cals) indent-rigidly #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 151 cals 155)) 6 10] 10 (#$ . 83555)])
#@66 Test if character C is one of the horizontal characters.

(fn C)
(defalias 'table--cell-horizontal-char-p #[257 "\211\301
\302\"\262
>\207" [table-cell-horizontal-chars append nil] 6 (#$ . 84752)])
#@138 Scan the table line by line.
Currently this method is for LaTeX only.

(fn DEST-BUFFER LANGUAGE ORIGIN-CELL TAIL-CELL COL-LIST ROW-LIST)
(defalias 'table--generate-source-scan-lines #[1542 "\301@!\301A!
@
@ACA
\242
X\203%

\242T>\302\303\304#\n\"\305C\305C\305\203\253\306@!\203K\307!\203Krq\210\310c\210)\266\202

\311\240\210
\2428\211\262\203\221\242\203x\306
!\204xrq\210\312\313\242T\242#c\210)\305\240\210\242\204\210\306
!\203\210\242\240\210
\211\242T\240\210\202O\242\203\246rq\210\312\313\242T\242#c\210)\266\202
\314C\315C\303\316\f		&\f\240\210\314\240\210\2428\211\262\203\372=\203\353\211\242\2428S\"\210\202\361\211\242T\240\210\211\242T\240\210\202\312\211\242\f\"\266rq\210`Sf\317=\203
\320\202
\321\322\261\210)\266
\211\242T\240\210\202rq\210\310c)\207" [table-cell-vertical-char table--get-coordinate mapcar make-closure #[257 "\301\203\f\302
\300\242B!f\207\302
\300\242B!\206`Sf\207" [V0 V1 table--goto-coordinate] 4 "\n\n(fn X)"] nil table--cell-horizontal-char-p table--uniform-list-p "\\hline\n" 0 format "\\cline{%d-%d}\n" 1 t #[514 "\307\310\302\242B!\310\302\242B!\"\311\312\313\"r\211q\210\314\315\"\216
c\210eb\210\316\317\320\313#\203T\321\224\203:\212\321\224b\210\322c\210)\202!\323\224\203H\324\325\313\211#\210\202!\324\326\327\330!\326Q!\210\202!ed{\262*\210r\300q\210\306\242\204u`Sf\331=\203p\332\202q\333\334\261\210\305\242\321V\203\221\335\336\305\242\306\242\203\211\337\202\212\332$c\210\202\224\211c\210)\306\320\240\210\305\321\240\210\303\304\242\3018\240\207" [V0 V1 V2 V3 V4 V5 V6 table--buffer-substring-and-trim table--goto-coordinate generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "\\([#$~_^%{}&]\\)\\|\\(\\\\\\)\\|\\([<>|]\\)" nil 1 "\\" 2 replace-match "$\\backslash$" "$" match-string 3 32 #1="" " " "& " format "\\multicolumn{%d}{%sl|}{%s}" "|"] 8 "\n\n(fn FROM TO)"] 32 #1# " " "\\\\\n"] 28 (#$ . 84958)])
#@1569 Travel cells forward while inserting a specified sequence string in each cell.
STR is the base string from which the sequence starts.  When STR is an
empty string then each cell content is erased.  When STR ends with
numerical characters (they may optionally be surrounded by a pair of
parentheses) they are incremented as a decimal number.  Otherwise the
last character in STR is incremented in ASCII code order.  N is the
number of sequence elements to insert.  When N is negative the cell
traveling direction is backward.  When N is zero it travels forward
entire table.  INCREMENT is the increment between adjacent sequence
elements and can be a negative number for effectively decrementing.
INTERVAL is the number of cells to travel between sequence element
insertion which is normally 1.  When zero or less is given for
INTERVAL it is interpreted as number of cells per row so that sequence
is placed straight down vertically as long as the table's cell
structure is uniform.  JUSTIFY is a symbol `left', `center' or
`right' that specifies justification of the inserted string.

Example:

  (progn
    (table-insert 16 3 5 1)
    (table-forward-cell 15)
    (table-insert-sequence "D0" -16 1 1 \='center)
    (table-forward-cell 16)
    (table-insert-sequence "A[0]" -16 1 1 \='center)
    (table-forward-cell 1)
    (table-insert-sequence "-" 16 0 1 \='center))

  (progn
    (table-insert 16 8 5 1)
    (table-insert-sequence "@" 0 1 2 \='right)
    (table-forward-cell 1)
    (table-insert-sequence "64" 0 1 2 \='left))

(fn STR N INCREMENT INTERVAL JUSTIFY)
(defalias 'table-insert-sequence #[1285 "\306\307!\204\310 \204\311\312!\210\313\314\"\210\306\307!\203\315\316!\210\317\320\224O\321\320\"\322\323\324!\325=\2037\326\2028\327G#\321\330	\"\331 \332
8	\317W\203P\333\202Q\320\317\327\230\203i\334\262\327\230\203o\334\262\202o\335!\262\317W\203{[\262\f\317U\204\211V\203\214\262\f	\317W\203\230	[\262\n	\317U\203\244\3368\262\n\212\211\317V\204\256
	\262
\334\211\204\270\337 \210r\340	!q\210\341\342\n!!\210\342!\210\343 \210\334eb\210	\204\340\204\340\344 \210\202

	c\210\203\361\322\n\"c\210c\210\345e`
$\210\n9\346\347 \350 \262
\211
X\204
\345ed#\210\347 \211
Z\262
\351\352!\2043
eb\210\353\354\334\346#\2033
\320\224b\210\347 A:SZ\262)\211\317V\203I
\355
\356\357#\210
\317V\203U
\360\356\357#\210r\340	!q\210\342!\210\361 )\342\362!!\210\204p
\363 \210\266\363\364!\210\203\205
\\\262\202\251
\203\251
\327\230\203\251
GS\317O\365\324\334O!\\!P\262	\210S\262\f\366\346\"\210\211S\262
S\262\317V\203\310
\317V\204\245)\337\367!\210\306\307!\205\326
\315\370!\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width called-interactively-p interactive table--probe-cell error "Table not found here" string-match "\\([0-9]*\\)\\([]})>]*\\)\\'" message "Sequencing..." 0 1 match-string format "%%%s%dd" string-to-char 48 "0" "" 2 table-query-dimension 6 -1 nil string-to-number 4 table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line erase-buffer table--fill-region t table--get-coordinate table--measure-max-width looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell now char-to-string table-forward-cell force "Sequencing...done" table-cell-info-justify table-cell-info-height] 20 (#$ . 87024) (byte-code "\303 \210\304 \204\f\305\306!\210\307\310@\311\211\300%\312\313\314!!\312\313\315!!\312\313\316!!\317\n@\320\321\322\323\"\324\311\317\311\302&\227!)\262
\257\207" [table-sequence-string-history completion-ignore-case table-sequence-justify-history barf-if-buffer-read-only table--probe-cell error "Table not found here" read-from-minibuffer "Sequence base string: " nil string-to-number table--read-from-minibuffer ("How many elements (0: maximum, negative: backward traveling)" . table-sequence-count-history) ("Increment element by" . table-sequence-increment-history) ("Cell interval (0: vertical, 1:horizontal)" . table-sequence-interval-history) t intern completing-read format-prompt "Justify" (("left") ("center") ("right"))] 14)])
#@205 Delete N row(s) of cells.
Delete N rows of cells from current row.  The current row is the row
contains the current cell where point is located.  Each row must
consists from cells of same height.

(fn N)
(defalias 'table-delete-row #[257 "\303 \303\304\305\306\"A!\305\211\211\307V\203[S\262\310 \204\311\312!\210\313\314!\315\316\317\"!\2034\315\316\320\"!\2048\311\321!\210\204C\303
@@!\262\303\322!@A!\262\323@\324A\\B!\266\202\f\325\323@SATB!\323@TATB!\"\262
\326\323@SASB!\323@TATB!\"\210\323@SASB!\210\327\330\331\324AAZ\\\332\324@\n@Z\\\333\"\"\"!\210\323\307AAAZZB!\210\334\324AAZ\\!\210@ASB@@ZT\211\307V\203+
\323!\210\212\323@ASB\335\"\203\364\336\337\340!!!\206
\323@ATB\335\"\205
\336\337\340!!!)\203
\341\342!\210	c\210\202
\341\342!\210\343\n!c\210\211S\262

\211@T\240\210\202\323\266\323@AB!\207" [table-cell-vertical-char table-cell-intersection-char table-cell-horizontal-chars table--get-coordinate table--vertical-cell-list nil first-only 0 table--probe-cell error "Table not found" table--horizontal-cell-list left-to-right table--uniform-list-p mapcar #[257 "\300
@!A\207" [table--get-coordinate] 3 "\n\n(fn CELL)"] #[257 "\300
A!A\207" [table--get-coordinate] 3 "\n\n(fn CELL)"] "Cells in this row are not in uniform height" last table--goto-coordinate 2 extract-rectangle delete-rectangle table--insert-rectangle append make-list make-string 32 table--remove-blank-lines no-extension looking-at regexp-quote char-to-string delete-char 1 string-to-char] 15 (#$ . 91403) "*p"])
#@222 Delete N column(s) of cells.
Delete N columns of cells from current column.  The current column is
the column contains the current cell where point is located.  Each
column must consists from cells of same width.

(fn N)
(defalias 'table-delete-column #[257 "\303 \304\211\305V\203QS\262\306 \204\307\310!\210\311\312!\313\314\315\"!\203,\313\314\316\"!\2040\307\317!\210\204;\303
@@!\262\303\320!@A!\262\321@TAB!\266\202\322\321@ASB!\321@TATB!\"\210
@SAB
AAZT\211\305V\203\317\321!\210\212\321@SAB\323\"\203\226\324\325\326
\304\"\262
!!\206\255\321@TAB\323\"\205\255\324\325\326
\304\"\262
!!)\203\273\327\330!\210	c\210\202\302\327\330!\210\nc\210\211S\262

\211AT\241\210\202q\266\321@AB!\207" [table-cell-horizontal-chars table-cell-intersection-char table-cell-vertical-char table--get-coordinate nil 0 table--probe-cell error "Table not found" table--vertical-cell-list top-to-bottom table--uniform-list-p mapcar #[257 "\300
@!@\207" [table--get-coordinate] 3 "\n\n(fn CELL)"] #[257 "\300
A!@\207" [table--get-coordinate] 3 "\n\n(fn CELL)"] "Cells in this column are not in uniform width" last table--goto-coordinate delete-rectangle no-extension looking-at regexp-opt-charset append delete-char 1] 12 (#$ . 92976) "*p"])
#@5089 Convert plain text into a table by capturing the text in the region.
Create a table with the text in region as cell contents.  BEG and END
specify the region.  The text in the region is replaced with a table.
The removed text is inserted in the table.  When optional
COL-DELIM-REGEXP and ROW-DELIM-REGEXP are provided the region contents
is parsed and separated into individual cell contents by using the
delimiter regular expressions.  This parsing determines the number of
columns and rows of the table automatically.  If COL-DELIM-REGEXP and
ROW-DELIM-REGEXP are omitted the result table has only one cell and
the entire region contents is placed in that cell.  Optional JUSTIFY
is one of `left', `center' or `right', which specifies the cell
justification.  Optional MIN-CELL-WIDTH specifies the minimum cell
width.  Optional COLUMNS specify the number of columns when
ROW-DELIM-REGEXP is not specified.


Example 1:

1, 2, 3, 4
5, 6, 7, 8
, 9, 10

Running `table-capture' on above 3 line region with COL-DELIM-REGEXP
"," and ROW-DELIM-REGEXP "\n" creates the following table.  In
this example the cells are centered and minimum cell width is
specified as 5.

+-----+-----+-----+-----+
|  1  |  2  |  3  |  4  |
+-----+-----+-----+-----+
|  5  |  6  |  7  |  8  |
+-----+-----+-----+-----+
|     |  9  | 10  |     |
+-----+-----+-----+-----+

Note:

In case the function is called interactively user must use \[quoted-insert] `quoted-insert'
in order to enter "\n" successfully.  COL-DELIM-REGEXP at the end
of each row is optional.


Example 2:

This example shows how a table can be used for text layout editing.
Let `table-capture' capture the following region starting from
-!- and ending at -*-, that contains three paragraphs and two item
name headers.  This time specify empty string for both
COL-DELIM-REGEXP and ROW-DELIM-REGEXP.

-!-`table-capture' is a powerful command however mastering its power
requires some practice.  Here is a list of items what it can do.

Parse Cell Items      By using column delimiter regular
		      expression and raw delimiter regular
		      expression, it parses the specified text
		      area and extracts cell items from
		      non-table text and then forms a table out
		      of them.

Capture Text Area     When no delimiters are specified it
		      creates a single cell table.  The text in
		      the specified region is placed in that
		      cell.-*-

Now the entire content is captured in a cell which is itself a table
like this.

+-----------------------------------------------------------------+
|`table-capture' is a powerful command however mastering its power|
|requires some practice.  Here is a list of items what it can do. |
|                                                                 |
|Parse Cell Items      By using column delimiter regular          |
|                      expression and raw delimiter regular       |
|                      expression, it parses the specified text   |
|                      area and extracts cell items from          |
|                      non-table text and then forms a table out  |
|                      of them.                                   |
|                                                                 |
|Capture Text Area     When no delimiters are specified it        |
|                      creates a single cell table.  The text in  |
|                      the specified region is placed in that     |
|                      cell.                                      |
+-----------------------------------------------------------------+

By splitting the cell appropriately we now have a table consisting of
paragraphs occupying its own cell.  Each cell can now be edited
independently.

+-----------------------------------------------------------------+
|`table-capture' is a powerful command however mastering its power|
|requires some practice.  Here is a list of items what it can do. |
+---------------------+-------------------------------------------+
|Parse Cell Items     |By using column delimiter regular          |
|                     |expression and raw delimiter regular       |
|                     |expression, it parses the specified text   |
|                     |area and extracts cell items from          |
|                     |non-table text and then forms a table out  |
|                     |of them.                                   |
+---------------------+-------------------------------------------+
|Capture Text Area    |When no delimiters are specified it        |
|                     |creates a single cell table.  The text in  |
|                     |the specified region is placed in that     |
|                     |cell.                                      |
+---------------------+-------------------------------------------+

By applying `table-release', which does the opposite process, the
contents become once again plain text.  `table-release' works as
companion command to `table-capture' this way.

(fn BEG END &optional COL-DELIM-REGEXP ROW-DELIM-REGEXP JUSTIFY MIN-CELL-WIDTH COLUMNS)
(defalias 'table-capture #[1794 "V\203\262\262\306\230\203\307\262\306\230\203\"\307\262\211\203/\211\310W\203/\307\262

\2046\311\262{\312\211\307\211\211\n\203V	\203V\313\314\f\f$\202`\n\205`\313\315\f\"\307
\2039
\316\317\320\"r\211q\210\321\322\"\216c\210db\210i\312U\204\202\323c\210eb\210\324\325!\203\217\312\225b\210`\307\262\312\262\326\307\320#\203
\327\310!\203\341\327\310!\306\230\204\341T\262\330\310\224{C\"\262\310\225\262
\330C\"\262\307\262T\262	V\203\333\262	\312\262\202\226\327\331!\203
\327\331!\306\230\204
\330\331\224{C\"\262\331\225\262
T\262	V\203\226\262	\202\226\324\332!\203%
\330\327\312!C\"\262T\262	\2036
T\262\330C\"\262\210*\210\203U
\211\203U
\262\211@G	\\S	\245\262\202h
\312U\203^
\310\262\312U\203h
\310\262|\210b\210i\312U\204{
\323c\210\324\333!\204\206
\212\323c\210)\211\204S\307\211\316\317\320\"r\211q\210\321\334\"\216\nc\210\335ed\"\210\336ed\"\210\337 \262\340d!T\262ed{\262*\210\341		$\210\307\211\204\312
\342 \210r\343	!q\210\344\345\n!!\210\345!\210\346 \210\307c\210\320\347 \337 \262
\211
X\204\373
\350ed#\210\347 \211
Z\262
\324\351!\204eb\210\326\352\307\320#\203\310\224b\210\347 A6SZ\262)\211\312V\203+\353
\354\355#\210
\312V\2037\356\354\355#\210r\343	!q\210\345!\210\357 )\345\360!!\210?\205R\361 \207\341\f\310$\210\312\262\307\262W\205VT\262\312\262\204}\211@\262\211A\262
W\203cT\262@\203O\307\211\204\226\342 \210r\343	!q\210\344\345\n!!\210\345!\210\346 \210\307@c\210A\262\f7\f\204\3407\203\3177\362=\204\317\350ed\"\210\202\340\350\212\363\364!\210`)\212\363\310!\210`)\"\210\347 \337 \262
\211
X\204\366\350ed#\210\347 \211
Z\262
\324\351!\204eb\210\326\352\307\320#\203\310\224b\210\347 A6SZ\262)\211\312V\203&\353
\354\355#\210
\312V\2032\356\354\355#\210r\343	!q\210\345!\210\357 )\345\360!!\210\204M\361 \210\266\365\310!\210\202}\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width "" nil 1 "5" 0 format "\\(\\(%s\\)?\\s *\\(%s\\)\\s *\\)\\|\\(\\(%s\\)\\s *\\)" "\\(\\)\\(\\)\\(\\)\\(\\(%s\\)\\s *\\)" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] 10 looking-at "\\s +" re-search-forward match-string append 4 ".+$" "\\s *$" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] table--remove-eol-spaces table--untabify table--measure-max-width table--current-line table-insert table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line table--get-coordinate table--fill-region "\\s *\\'" "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell left forward-paragraph -1 table-forward-cell table-cell-info-height table-cell-info-justify] 23 (#$ . 94256) (byte-code "\304\211\305 \210\306 \203\307\310!\210\311 `\312\313@\304\211\300%\211\262\312\314	@\304\211\301%\211\262\315@\316\230\203<\316\230\203<\317\202M\320\321\322\323\"\324\304\315\304\303&\227!)\262
\316\230\203a\316\230\203a\325\202d\326\327!\316\230?\205x\316\230\205x\330\326\331!!\257\207" [table-col-delim-regexp-history table-row-delim-regexp-history completion-ignore-case table-capture-justify-history nil barf-if-buffer-read-only table--probe-cell error "Can't insert a table inside a table" mark read-from-minibuffer "Column delimiter regexp: " "Row delimiter regexp: " t "" left intern completing-read format-prompt "Justify" (("left") ("center") ("right")) "1" table--read-from-minibuffer ("Minimum cell width" . table-capture-min-cell-width-history) string-to-number ("Number of columns" . table-capture-columns-history)] 16)])
#@259 Convert a table into plain text by removing the frame from a table.
Remove the frame from a table and deactivate the table.  This command
converts a table into plain text without frames.  It is a companion to
`table-capture' which does the opposite process.
(defalias 'table-release #[0 "\300 \301\211\205z\302 \303
\304\"\210\305\306\"\216\307\310\301\311#\210\300 \203'\211@W\203+\211@\262\2036\211AV\203:\211A\262\211\205B\211\232?\262
\204\312!\312!\313\314\315\"!\316 \210
\211AT\241\210\317
\313@AB!\"\210\320\313\321ASB!\313!\301\304$\266\203)\262
\207" [table--probe-cell nil point-marker set-marker-insertion-type t make-closure #[0 "\300b\207" [V0] 1] table-forward-cell 1 unrecognize table--get-coordinate table--goto-coordinate table--offset-coordinate (-1 . -1) table--spacify-frame delete-rectangle table--remove-eol-spaces 0] 12 (#$ . 103287) nil])
#@54 Make the table cell keymap if it does not exist yet.
(defalias 'table--make-cell-map #[0 "\305 \210\204\204\306 \307	!\203L\n\211\203K\211@\310
@!\307
!\203C\211\311H<\203C\211\311H@\312=\203C\211\311\311HA@I\210\313\314	\"A#\210\210
A\266\202\202\210\n\211\203b\211@\313@A#\210
A\266\202\202M\210\211\203|\211@\313\315\316@\"A#\210
A\266\202\202d\210\211\300
M\266\317\320!\210\321\322\323\f$\210\324\325!\207" [table-cell-map table-command-prefix table-cell-bindings table-command-remap-alist table-cell-menu table--update-cell-face make-sparse-keymap vectorp copy-sequence 0 control define-key vconcat vector remap (lambda (#1=#:def-tmp-var) (defvar table-cell-menu-map #1# #2="Table cell menu")) nil easy-menu-do-define table-cell-menu-map #2# run-hooks table-cell-map-hook] 9 (#$ . 104181)])
(add-hook 'after-init-hook 'table--make-cell-map t)
#@46 Table cell version of `self-insert-command'.
(defalias '*table--cell-self-insert-command #[0 "	\306=\204(\n=\204\307\202(	@\204(\f\310Y\203\"\307\202(	A\fT\311

\"\207" [last-command-event buffer-undo-list last-command this-command table-cell-self-insert-command-count overwrite-mode t 0 19 table--cell-insert-char] 4 (#$ . 105063) "*"])
#@55 Table cell version of `delete-backward-char'.

(fn N)
(defalias '*table--cell-delete-backward-char #[257 "\300
[!\207" [*table--cell-delete-char] 3 (#$ . 105420) "*p"])
#@57 Table cell version of `newline'.

(fn &optional INDENT)
(defalias '*table--cell-newline #[256 "\306\211\204	\307 \210r\310	!q\210\311\312\n!!\210\312!\210\313 \210\306i\314c\210\203)\211j\210`\212\315\316!\210\317\320!\2038\321y\210`)U\204@\322\210\f\204h
\203W
\323=\204W\324ed\"\210\202h\324\212\315\316!\210`)\212\315\321!\210`)\"\210\325 \326 \262
\211\"X\204\324ed#\210\325 \211\"Z\262
\317\327!\204\232eb\210\330\331\306\322#\203\232\321\224b\210\325 A#SZ\262)\211\332V\203\260\333
\334\335#\210
\332V\203\274\336\334\335#\210r\310	!q\210\312!\210\337 )\312\340!!\210?\205\327\341 \207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line 10 forward-paragraph -1 looking-at "\\s *$" 1 t left table--fill-region table--get-coordinate table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-width table-cell-info-height] 7 (#$ . 105595) "*"])
#@44 Table cell version of `open-line'.

(fn N)
(defalias '*table--cell-open-line #[257 "\306\211\204	\307 \210r\310	!q\210\311\312\n!!\210\312!\210\313 \210\306\212\314\315\"c\210\316``\"\210\317)\f\204T
\203C
\320=\204C\316ed\"\210\202T\316\212\321\322!\210`)\212\321\323!\210`)\"\210\324 \325 \262
\211\"X\204k\316ed#\210\324 \211\"Z\262
\326\327!\204\206eb\210\330\331\306\317#\203\206\323\224b\210\324 A#SZ\262)\211\332V\203\234\333
\334\335#\210
\332V\203\250\336\334\335#\210r\310	!q\210\312!\210\337 )\312\340!!\210?\205\303\341 \207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line make-string 10 table--fill-region t left forward-paragraph -1 1 table--get-coordinate table--measure-max-width looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-width table-cell-info-height] 7 (#$ . 106849) "*p"])
#@45 Table cell version of `newline-and-indent'.
(defalias '*table--cell-newline-and-indent #[0 "\300\301!\207" [*table--cell-newline t] 2 (#$ . 108048) nil])
#@46 Table cell version of `delete-char'.

(fn N)
(defalias '*table--cell-delete-char #[257 "\306\211	\204\n\307 \210r\310\n!q\210\311\312!!\210\312\f!\210\313 \210\306\203l\314W\203l\314U\204g\315 \211@\314U\203U\211A\314U\204_\312-SASB!\210l\204Q\316\317!\210\210\202`\316\320!\210\321c\210\320u\210\210T\262\202)\322\202\353\315 \323`\\!\306
eW\204\345
dV\204\345\324ed\"\210`{\262
\316!\210.\203\251\325\326\"\203\251`Sf/\232\203\251\316\327!\210n\204\316A\315 AU\204\316`\212\330 \210\331\332\322#\210`
U)\262
\203\316\333\334!\210\335\336!\203\345o\204\343\212\320u\210\335\337!)\203\345\322
\306\211\223\266
\204
0\203
0\340=\204
\341ed\"\210\202
\341\212\342\320!\210`)\212\342\317!\210`)\"\210\315 \343 \262
\211-X\204+
\341ed#\210\315 \211-Z\262
\335\344!\204F
eb\210\331\345\306\322#\203F
\317\224b\210\315 A1SZ\262)\211\314V\203\\
\346
\347\350#\210
\314V\203h
\351\347\350#\210r\310\n!q\210\312\f!\210\352 )\312\353\f!!\210	?\205\203
\354 \207" [overwrite-mode table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line 0 table--get-coordinate delete-char 1 -1 32 t copy-marker table--remove-eol-spaces string-match "^\n" -2 beginning-of-line re-search-forward "\\s +" replace-match "" looking-at "\\s *$" "\\s " left table--fill-region forward-paragraph table--measure-max-width "\\s *\\'" "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-info-width table-fixed-width-mode table-word-continuation-char table-cell-info-justify table-cell-info-height] 12 (#$ . 108208) "*p"])
#@50 Table cell version of `quoted-insert'.

(fn ARG)
(defalias '*table--cell-quoted-insert #[257 "\300 
\301V\205\302
\303\"\210
S\262\202\207" [read-quoted-char 0 table--cell-insert-char nil] 5 (#$ . 110039) "*p"])
#@40 Table cell version of `describe-mode'.
(defalias '*table--cell-describe-mode #[0 "\306 \204	\307\310!\207r\311\312!q\210p\313 \210
\314\211\315\211\315\316 \210\317\320!\210+\211\321\322!\210\321\323\314\211p$!\210\321\324!\210\325 \326!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only table--point-in-cell-p call-interactively describe-mode get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Table mode: (in " format-mode-line " mode)\n\nTable is not a mode technically.  You can regard it as a pseudo mode\nwhich exists locally within a buffer.  It overrides some standard\nediting behaviors.  Editing operations in a table produces confined\neffects to the current cell.  It may grow the cell horizontally and/or\nvertically depending on the newly entered or deleted contents of the\ncell, and also depending on the current mode of cell.\n\nIn the normal mode the table preserves word continuity.  Which means\nthat a word never gets folded into multiple lines.  For this purpose\ntable will occasionally grow the cell width.  On the other hand, when\nin a fixed width mode all cell width are fixed.  When a word can not\nfit in the cell width the word is folded into the next line.  The\nfolded location is marked by a continuation character which is\nspecified in the variable `table-word-continuation-char'.\n" help-print-return-message internal-temp-output-buffer-show standard-output mode-name] 9 (#$ . 110262) nil])
#@44 Table cell version of `describe-bindings'.
(defalias '*table--cell-describe-bindings #[0 "\306 \204	\307\310!\207r\311\312!q\210p\313 \210
\314\211\315\211\315\316 \210\317\320!\210+\211\321\322!\210\323\324\"\210\325 \326!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only table--point-in-cell-p call-interactively describe-bindings get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "Table Bindings:\nkey             binding\n---             -------\n\n" mapc #[257 "\300\301\302\303@!A#!\207" [princ format "%-16s%s\n" key-description] 6 "\n\n(fn BINDING)"] help-print-return-message internal-temp-output-buffer-show standard-output table-cell-bindings] 6 (#$ . 111843) nil])
#@51 Table cell version of `dabbrev-expand'.

(fn ARG)
(defalias '*table--cell-dabbrev-expand #[257 "\306\307!\307	!\310R\311\211\204\312 \210r\313\f!q\210\314\315
!!\210\315$!\210\316 \210\311%\317!\210%\204X&\203G&\320=\204G\321ed\"\210\202X\321\212\322\323!\210`)\212\322\324!\210`)\"\210\325 $\326 \262
\211'X\204q\321ed#\210\325 $\211'Z\262
\327\330!\204\214eb\210\331\332\311\333#\203\214\324\224b\210\325 A(SZ\262)\211\334V\203\242\335
\336\337#\210
\334V\203\256\340\336\337#\210r\313\f!q\210\315$!\210\341 $)\315\342$!!\210?\205\314\343 \266\202)\207" [table-cell-vertical-char table-cell-intersection-char dabbrev-abbrev-char-regexp table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate "[^" char-to-string " \n]" nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line dabbrev-expand left table--fill-region forward-paragraph -1 1 table--get-coordinate table--measure-max-width looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" t 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify table-cell-info-width table-cell-info-height] 7 (#$ . 112677) "*P"])
#@65 Table cell version of `dabbrev-completion'.

(fn &optional ARG)
(defalias '*table--cell-dabbrev-completion #[256 "\306\307!\210\310\311!\311	!\312R\313\211\204\314 \210r\315\f!q\210\316\317
!!\210\317&!\210\320 \210\313'\321!\210'\204\\(\203K(\322=\204K\323ed\"\210\202\\\323\212\324\325!\210`)\212\324\326!\210`)\"\210\327 &\330 \262
\211)X\204u\323ed#\210\327 &\211)Z\262
\331\332!\204\220eb\210\333\334\313\335#\203\220\326\224b\210\327 A*SZ\262)\211\336V\203\246\337
\340\341#\210
\336V\203\262\342\340\341#\210r\315\f!q\210\317&!\210\343 &)\317\344&!!\210?\205\320\345 \266\202)\207" [table-cell-vertical-char table-cell-intersection-char dabbrev-abbrev-char-regexp table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate error "`dabbrev-completion' is incompatible with table" "[^" char-to-string " \n]" nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line dabbrev-completion left table--fill-region forward-paragraph -1 1 table--get-coordinate table--measure-max-width looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" t 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify table-cell-info-width table-cell-info-height] 7 (#$ . 114007) "*P"])
#@49 Present and handle cell popup menu.

(fn EVENT)
(defalias '*table--present-cell-popup-menu #[257 "\301\302!\211@\262
!\210\303\302!!b\210\304
\"
\203*\305\306@\"8\262

A\262\202\2119\2058\307
!\2058\310
!\207" [table-cell-menu-map select-window event-start posn-point x-popup-menu 3 assoc fboundp call-interactively] 7 (#$ . 115430) "e"])
#@248 Update the table cell contents.
When the optional parameter NOW is nil it only sets up the update
timer.  If it is non-nil the function copies the contents of the cell
cache buffer into the designated cell in the table buffer.

(fn &optional NOW)
(defalias 'table--update-cell #[256 "\203\n\306!\210\307\211\203\"\310\301!\203	\204\"\310\302!\203+\n\203+\311\307\312\313$\211\207r\fq\210\314
!\315 \316\317 !B\232\307q\210\320\321!\210\322\323\324SB!\"\262
\fq\210\325\324!\324!\"\210\324!\210\326
!\210\317 \327
!\210\330
 \"\210\331
!\"\266\324\203\216\332\"!\202\217!\266)#\205\247$\333=?\205\247\307$B\211$\207" [table-update-timer quail-converting quail-translating table-time-before-update table-cell-buffer table-cache-buffer-name cancel-timer nil boundp run-with-idle-timer table--update-cell now get-buffer-create table--get-coordinate table--cell-to-coord table--probe-cell make-local-variable table-fixed-width-mode extract-rectangle 1 table--goto-coordinate delete-rectangle table--insert-rectangle table--put-cell-property table--put-cell-justify-property table--put-cell-valign-property table--transcoord-cache-to-table t table-cell-info-lu-coordinate table-cell-info-rb-coordinate table-cell-info-width table-cell-info-height table-cell-info-justify table-cell-info-valign table-cell-cache-point-coordinate overwrite-mode buffer-undo-list] 11 (#$ . 115788)])
#@95 Update the contents of the cells that are affected by widening operation.

(fn &optional NOW)
(defalias 'table--update-cell-widened #[256 "\203\n\306!\210\307\211\204\310	\n\\\307\311\312$\211\207r\203\"\313\312!\210\fq\210\314 \315\316 !\317
!\210\320\321 !\211\203C
\211@
A\262\211\232\211\203K\317!\210\202P\317@!\210\322\323!\210\324*\307\211*\204a\322 \210r\325+!q\210\326\317,!!\210\317-!\210\327 \210\307.\205\212\212n\204\206\330u\210\331\332!)\333ed\"\210\211\203\227\334 \262\210.\204\302/\203\261/\335=\204\261\333ed\"\210\202\302\333\212\336\330!\210`)\212\336\337!\210`)\"\210\314 -\340 \262
\2110X\204\333\333ed#\210\314 -\2110Z\262
\331\341!\204\366eb\210\342\343\307\324#\203\366\337\224b\210\314 A1SZ\262)\211\344V\203\f
\345
\346\347#\210
\344V\203
\350\346\347#\210r\325+!q\210\317-!\210\351 -)\317\334-!!\210*\2048
\313 \210\266)\313\312!\266\2023\317!\210\322\323!\266\203)\207" [table-widen-timer table-time-before-update table-time-before-reformat table-update-timer table-cell-buffer table-cell-info-lu-coordinate cancel-timer nil run-with-idle-timer table--update-cell-widened now table--update-cell table--get-coordinate table--cell-to-coord table--probe-cell table--goto-coordinate table--cell-list-to-coord-list table--vertical-cell-list table-recognize-cell froce t get-buffer-create set-mark table--untabify-line -1 looking-at ".*\\S " table--fill-region table--transcoord-cache-to-table left forward-paragraph 1 table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell no-copy no-update table-heighten-cell table--valign table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify table-cell-info-width table-cell-info-height] 12 (#$ . 117215)])
#@98 Update the contents of the cells that are affected by heightening operation.

(fn &optional NOW)
(defalias 'table--update-cell-heightened #[256 "\203\n\306!\210\307\211\204\310	\n\\\307\311\312$\211\207r\203\"\313\312!\210\f\203*\314\312!\210
q\210\315 \316\317 !\320+!\210\321\322 !\211\203J
\211@
A\262\211\232\211\203T\320!\210\202Y\320@!\210\323\324!\210\325,\307\211,\204j\323 \210r\326-!q\210\327\320.!!\210\320/!\210\330 \210\3070\205\223\212n\204\217\331u\210\332\333!)\334 \210\211\203\236\335 \262\2100\204\3111\203\2701\336=\204\270\337ed\"\210\202\311\337\212\340\331!\210`)\212\340\341!\210`)\"\210\315 /\342 \262
\2112X\204\342\337ed#\210\315 /\2112Z\262
\332\343!\204\375eb\210\344\345\307\325#\203\375\341\224b\210\315 A3SZ\262)\211\346V\203
\347
\350\351#\210
\346V\203
\352\350\351#\210r\326-!q\210\320/!\210\334 /)\320\335/!!\210,\204?
\313 \210\266)\313\312!\266\202<\320!\210\323\324!\266\203)\207" [table-heighten-timer table-time-before-update table-time-before-reformat table-update-timer table-widen-timer table-cell-buffer cancel-timer nil run-with-idle-timer table--update-cell-heightened now table--update-cell table--update-cell-widened table--get-coordinate table--cell-to-coord table--probe-cell table--goto-coordinate table--cell-list-to-coord-list table--horizontal-cell-list table-recognize-cell froce t get-buffer-create set-mark table--untabify-line -1 looking-at ".*\\S " table--valign table--transcoord-cache-to-table left table--fill-region forward-paragraph 1 table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell no-copy no-update table-heighten-cell table-cell-info-lu-coordinate table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-justify table-cell-info-width table-cell-info-height] 12 (#$ . 119096)])
#@82 Move point to top left corner of the current table and return the char position.
(defalias 'table-goto-top-left-corner #[0 "\300\301\302\303\211\"@!@S\301\304\303\211\"@!ASB!\207" [table--goto-coordinate table--get-coordinate table--horizontal-cell-list t table--vertical-cell-list] 6 (#$ . 121053)])
#@79 Move point to top right corner of the current table and return char position.
(defalias 'table-goto-top-right-corner #[0 "\300\301\302\303\304\"A!@\301\305\304\211\"@!ASB!\207" [table--goto-coordinate table--get-coordinate table--horizontal-cell-list nil t table--vertical-cell-list] 6 (#$ . 121360)])
#@81 Move point to bottom left corner of the current table and return char position.
(defalias 'table-goto-bottom-left-corner #[0 "\300\301\302\303\211\"@!@S\301\304\305\303\"A!ATB!\207" [table--goto-coordinate table--get-coordinate table--horizontal-cell-list t table--vertical-cell-list nil] 6 (#$ . 121668)])
#@82 Move point to bottom right corner of the current table and return char position.
(defalias 'table-goto-bottom-right-corner #[0 "\300\301\302\303\304\"A!@\301\305\303\304\"A!ATB!\207" [table--goto-coordinate table--get-coordinate table--horizontal-cell-list nil t table--vertical-cell-list] 6 (#$ . 121981)])
#@73 Return FUNCTION, or a table version of it if applicable.

(fn FUNCTION)
(defalias 'table-function #[257 "\300\301\302\"!\211\203\303 \203\207
\207" [intern-soft format "*table--cell-%s" table--point-in-cell-p] 5 (#$ . 122295)])
#@155 A wrapper to `read-from-minibuffer'.
PROMPT-HISTORY is a cons cell which car is the prompt string and the
cdr is the history symbol.

(fn PROMPT-HISTORY)
(defalias 'table--read-from-minibuffer #[257 "\211AJ@\300\301@\"\302\303\211A&\266\211AJ@\207" [read-from-minibuffer format-prompt "" nil] 9 (#$ . 122535)])
#@89 Extract buffer substring and remove blanks from front and the rear of it.

(fn BEG END)
(defalias 'table--buffer-substring-and-trim #[514 "\212\214
b
}\210\300\301!\203\302\225\262\300\303\304#\203\302\224\262
\305\302Z{#*\207" [re-search-forward "\\s *" 0 "\\s *\\'" t table--remove-cell-properties] 7 (#$ . 122860)])
#@166 Vertically align the cache cell contents.
Current buffer must be the cache buffer at the entry to this function.
Returns the coordinate of the final point location.
(defalias 'table--valign #[0 "\203\n\303=\203
\304 \207\305 eb\210\306\307\310\311#\205\312 \211\306\307\310\311#\203,\312 \262
\202\211\262

\205;\211\205;\211ZT\211\203zeb\210\313\314!\203L\315\316!\210\317\267\202g\320	Z\321\245\322\"c\210\202g\320	Z\322\"c\210\323\n	SB!\210\306\324\310\311#\203z\315\316!\210\266\211b\210\211\310\211\223\210\304 \211A	W\204\226\211	S\241\210\323
!\210\207" [table-cell-info-valign table-cell-info-height table-cell-info-width none table--get-coordinate point-marker re-search-forward "^.*\\S " nil t table--current-line looking-at "\\s *\n" replace-match "" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (middle 82 bottom 95)) make-string 2 10 table--goto-coordinate "\\s +\\'"] 8 (#$ . 123196)])
(defalias 'table--query-justification #[0 "\302 \210\303	@\304\305\306\307\"\310\311\303\311\301&\227!)\207" [completion-ignore-case table-justify-history barf-if-buffer-read-only t intern completing-read format-prompt "Justify" (("left") ("center") ("right") ("top") ("middle") ("bottom") ("none")) nil] 10])
#@60 Spacify table frame.
Replace frame characters with spaces.
(defalias 'table--spacify-frame #[0 "\303\303
\304\"\262
	\nD\"\304f	=\2038\212i\305y\306U\203+i\306U\203+\307
!\203+\310 \210\210)\311\305!\210\312\313!\210\202}\314\304f!\203Q\311\305!\210\312\313!\210\314\304f!\204?\202}\304f\n=\203}i\311\305!\210\312\313!\210\305y\306U\205xi\306U\205x\307
!\205x\304f\n=\262
\204X\304f
>\205\207\202\f\207" [table-cell-horizontal-chars table-cell-intersection-char table-cell-vertical-char append nil 1 0 move-to-column table--spacify-frame delete-char insert-before-markers 32 table--cell-horizontal-char-p] 5 (#$ . 124479)])
#@120 Delete N blank lines from the current line.
For adjusting below area of the table when the table is shortened.

(fn N)
(defalias 'table--remove-blank-lines #[257 "\300\301!\210\302
\301V\205O
S\262\303\304!\203!\301\224\301\225|\210\301\262\202\303\305!\2034\211\2034\306\224\306\225|\210\202\303\307!\203F\301\224\301\225|\210\306y\210\202\310\262
\306y\210\202\207" [move-to-column 0 t looking-at "\\s *\\'" "\\([ 	]*\n[ 	]*\\)\n" 1 "[ 	]*$" nil] 4 (#$ . 125126)])
#@80 Return nil when LIST contains non equal elements.  Otherwise return t.

(fn L)
(defalias 'table--uniform-list-p #[257 "\211\204\300\207\3012&\211A\203$\211@
A@\232\204\302\301\303\"\210\211A\262
\202\n\3000\207" [t end throw nil] 4 (#$ . 125614)])
#@158 Detect CELL contents alignment.
Guess CELL contents alignment both horizontally and vertically by
looking at the appearance of the CELL contents.

(fn CELL)
(defalias 'table--detect-cell-alignment #[257 "\301
@A\"\302\211\211\211\211\303\211\211\304\305\306\"r\211q\210\307\310\"\216\311\n!\210eb\210\312\313\303\306#\203a\306\262\314\225\314\224Z\315\225\315\224Z\316Z!V\203H
V\203R
\262\211V\203\\\211\262\266\202&\203u\314X\203u\302V\203u\317\202\213\203\212\302U\203\212\302V\203\212\320\202\213\321\262eb\210\312\322\303\306#\203\251\302\224\302\225U\204\251\323\302\224\302\225\"S\262\312\324\303\306#\203\302\302\224\302\225U\204\302\323\302\224\302\225\"S\262\302V\203\337\302V\203\337\316Z!\314X\203\337\325\202\361\302V\203\360\302U\203\360\326\202\361\303\262*\210\327\n\"\210\330\n\")\207" [left-margin extract-rectangle 0 nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] table--insert-rectangle re-search-forward "^\\( *\\).*[^ \n]\\( *\\)$" 1 2 abs center right left "\\s *\\S " count-lines "\\s *\\'" middle bottom table--put-cell-justify-property table--put-cell-valign-property] 16 (#$ . 125876)])
#@44 Return a list of numbers in STR.

(fn STR)
(defalias 'table--string-to-number-list #[257 "\300\301\302\303#\203\300\225\262\304\305\300\"!
B\262
\202\211\237\207" [0 nil string-match "[-0-9.]+" string-to-number match-string] 7 (#$ . 127133)])
#@273 Justify the current cell contents.
JUSTIFY is a symbol `left', `center' or `right' for horizontal, or `top',
`middle', `bottom' or `none' for vertical.  When PARAGRAPH is non-nil the
justify operation is limited to the current paragraph.

(fn JUSTIFY &optional PARAGRAPH)
(defalias 'table--justify-cell-contents #[513 "\306\211\204	\307 \210r\310	!q\210\311\312\n!!\210\312!\210\313 \210\306e\314 
\306\315
)*\204I
>\203E\316=?\205@+\202I,\212\203j\317-\320 \210n\204]\321\322!\210`\306\223\210\320\323!\210`\262)
>\203w\324 \210\202\211\325\326#\210.-\327,#\210))\330\306\211\223\210*\266\f\204\275,\203\254,\331=\204\254\332ed\"\210\202\275\332\212\320\323!\210`)\212\320\322!\210`)\"\210\333 \334 \262
\211
X\204\323\332ed#\210\333 \211
Z\262
\335\336!\204\355eb\210\337\340\306\330#\203\355\322\224b\210\333 A/SZ\262)\211\341V\203
\342
\343\344#\210
\341V\203
\345\343\344#\210r\310	!q\210\312!\210\324 )\312\346!!\210\204*
\347 \210\266\347\350!\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line point-max-marker (top middle bottom none) none "\n" forward-paragraph newline 1 -1 table--valign table--remove-eol-spaces bol fill-region t left table--fill-region table--get-coordinate table--measure-max-width looking-at "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" 0 table-widen-cell no-copy no-update table-heighten-cell table--transcoord-cache-to-table table--update-cell now adaptive-fill-mode fill-column table-cell-info-valign table-cell-info-justify paragraph-start table-paragraph-start table-cell-info-height] 13 (#$ . 127391)])
#@590 Horizontally shift outside contents right above and right below of the table.
This function moves the surrounding text outside of the table so that
they match the horizontal growth/shrink of the table.  It also
untabify the shift affected area including the right side of the table
so that tab related uneven shifting is avoided.  COLUMNS-TO-EXTEND
specifies the number of columns the table grows, or shrinks if
negative.  TOP-TO-BOTTOM-COORD-LIST is the vertical cell coordinate
list.  This list can be any vertical list within the table.

(fn COLUMNS-TO-EXTEND TOP-TO-BOTTOM-COORD-LIST)
(defalias 'table--horizontally-shift-above-and-below #[514 "\212\300\211\301@@!\210\302\300\303\304#\305
A!@\305@!AB\211
@T\240\210\211
A\306Z\241\210\211@
ATB\262\301
\307\"\203`\310\311!\204`\312W\203L\313 \210\314!\210\202W\313`!\210\315\316\"c\210\211
AS\241\210\202.\266\301\317!@@!\210\305\302\300\303\320#A!\211
@T\240\210\211
A\306\\\241\210\211@
ASB\262\301
\307\"\203\267\310\311!\204\267\312W\203\244\313 \210\314!\210\202\256\313`!\210\315\316\"c\210\211
AT\241\210\202\207\210
A
AX\205\320\313\301\307\"!\210
\211AT\241\210\202\270\266\202)\207" [nil table--goto-coordinate table--horizontal-cell-list first-only top table--get-coordinate 2 no-extension looking-at "\\s *$" 0 table--untabify-line delete-char make-string 32 last bottom] 9 (#$ . 129225)])
#@554 Create growing space below the table.
This function creates growing space below the table slightly
intelligent fashion.  Following is the cases it handles for each
growing line:
  1. When the first line below the table is a complete blank line it
inserts a blank line.
  2. When the line starts with a prefix that matches the prefix of the
bottom line of the table it inserts a line consisting of prefix alone.
  3. Otherwise it deletes the rectangular contents where table will
grow into.

(fn LINES-TO-EXTEND LEFT-TO-RIGHT-COORD-LIST BOTTOM-BORDER-Y)
(defalias 'table--create-growing-space-below #[771 "\212\300\301\300B!\205!\302\303\212\301@@@SB!)\304#\205!\300\224\300\225{
W\205v
\\T\301\300B!\210\305\306!\203>\307c\266\202o
\203U\305\310!\306P!\203U
\307\261\266\202o\311\301@@@SB!\301\312!@A@TB!\"\266
T\262\202!\266\202)\207" [0 table--goto-coordinate re-search-forward ".*\\S " t looking-at "\\s *$" 10 regexp-quote delete-rectangle last] 11 (#$ . 130616)])
#@262 Untabify current line.
Unlike `save-excursion' this guarantees preserving the cursor location
even when the point is on a tab character which is to be removed.
Optional FROM narrows the subject operation from this point to the end
of line.

(fn &optional FROM)
(defalias 'table--untabify-line #[256 "\300 \301\206\302 \210`\303\210`\"\210\304
!\207" [table--get-coordinate table--untabify beginning-of-line nil table--goto-coordinate] 5 (#$ . 131619)])
#@40 Wrapper to raw untabify.

(fn BEG END)
(defalias 'table--untabify #[514 "\300\"\207" [untabify] 5 (#$ . 132082)])
#@56 Multiply string and return it.

(fn STRING MULTIPLIER)
(defalias 'table--multiply-string #[514 "\300
\301V\203\211P\262

S\262\202
\207" ["" 0] 5 (#$ . 132204)])
#@66 Return the location of LINE forward at COLUMN.

(fn LINE COLUMN)
(defalias 'table--line-column-position #[514 "\212
y\210\300
!\210`)\207" [move-to-column] 4 (#$ . 132377)])
#@96 Return non-nil if it makes sense to insert a row or a column at point.

(fn &optional COLUMNP)
(defalias 'table--row-column-insertion-point-p #[256 "?\205G\301`\302\"\206Gi
\2037\303\304\305!\306\307\"\302\310$\206E\303\304 `\302\310$\206E\303\304\311!\306\312\"\302\310$\202E\303\306\313\"\306\313\311\\\"\302\310$\262
\207" [buffer-read-only get-text-property table-cell text-property-any line-beginning-position 0 table--line-column-position -1 t 2 1 -2] 8 (#$ . 132557)])
#@99 Search table and return a cell coordinate list of row or column.

(fn &optional COLUMNP NO-ERROR)
(defalias 'table--find-row-column #[512 "\303 \3042\316\3052\300\303 \203\211
@S\240\210\202\211
AS\241\210\203(\211@\202*\211A\306Y\205\275\307
\310\311#\210\312\313\314	\n$!\204k\203M\211
@S\240\210\202S\211
AS\241\210\203\\\211@\202^\211A\306W\203/\315\305\316\"\210\202/\317 \203\213\315\304\320\203\200\321\322\316\323#\202\205\324\322\316\325#!\"\210\202\f\307\326\203\227\327\202\230\330\"\310\311#\210\317 \203\f\315\304\320\203\262\321\322\316\323#\202\267\324\322\316\325#!\"\210\202\f\262
0\210\307
!\210
?\205\315\305\331!0\207" [table-cell-horizontal-chars table-cell-vertical-char table-cell-intersection-char table--get-coordinate end error 0 table--goto-coordinate no-extension no-tab-expansion looking-at format "[%s%c%c]" throw nil table--probe-cell table--cell-list-to-coord-list table--vertical-cell-list t left table--horizontal-cell-list top table--offset-coordinate (0 . 1) (1 . 0) "Table not found"] 11 (#$ . 133050)])
#@497 Return minimum cell dimension of COORD-LIST.
COORD-LIST is a list of coordinate pairs (lu-coord . rb-coord), where
each pair in the list represents a cell.  lu-coord is the left upper
coordinate of a cell and rb-coord is the right bottom coordinate of a
cell.  A coordinate is a pair of x and y axis coordinate values.  The
return value is a cons cell (min-w . min-h), where min-w and min-h are
respectively the minimum width and the minimum height of all the cells
in the list.

(fn COORD-LIST)
(defalias 'table--min-coord-list #[257 "\211\205;\300\211\2036@A\262\211A@
@@Z
AA@AZT
W\203(
\262\211W\2031\211\262\266\202

B\266\202\207" [134217727] 8 (#$ . 134137)])
#@60 Test if a cell can split at current location horizontally.
(defalias 'table--cell-can-split-horizontally-p #[0 "?\205\303 @\304\305!\210\211	@V\205\211\n@SX\262
\207" [buffer-read-only table-cell-info-lu-coordinate table-cell-info-rb-coordinate table--get-coordinate table-recognize-cell force] 3 (#$ . 134825)])
#@58 Test if a cell can split at current location vertically.
(defalias 'table--cell-can-split-vertically-p #[0 "?\205\303 A\304\305!\210\211	AV\205\211\nAX\262
\207" [buffer-read-only table-cell-info-lu-coordinate table-cell-info-rb-coordinate table--get-coordinate table-recognize-cell force] 3 (#$ . 135149)])
#@65 Test if the current cell can span to DIRECTION.

(fn DIRECTION)
(defalias 'table--cell-can-span-p #[257 "\303\304!\210?\205\267\305 \205\267\212\306
\307\267\202\"	@T\202$\n@S\202$\n@\310\267\2028\nA\311Z\202:	A\311\\\202:\nAB\312\"\205B\305 )\212\306\313\267\202W	@T\202Y\n@S\202Y	@\314\267\202m\nA\311Z\202o	A\311\\\202o	AB\312\"\205w\305 )
\205\265

\232\205\265\315=\204\216\316=\203\242\317@!A\nAU\205\265\317A!A	AU\207\317@!@\n@U\205\265\317A!@	@U\266\202\207" [buffer-read-only table-cell-info-rb-coordinate table-cell-info-lu-coordinate table-recognize-cell force table--probe-cell table--goto-coordinate #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 22 left 28)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 42 below 49)) 2 no-extension #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (right 75 left 81)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (above 95 below 102)) right left table--get-coordinate] 6 (#$ . 135468)])
#@65 Insert CHAR inside a table cell.

(fn CHAR &optional OVERWRITE)
(defalias 'table--cell-insert-char #[513 "\205	\205\n\205?\306\307\310\311!!!\312\211\f\204\313 \210r\314
!q\210\315\3161!!\210\3162!\210\317 \210\3123\203`@\320Y\203`@4X\203`A\320Y\203`A5X\203`\212`\316!|\210)\203\247\307 \3113\211@4Y\203\227\211A5SY\203\204\321\261\266\202C
\322y\210c\210l\204\223\323\322!\210\210\202C
c\210l\204\243\323\322!\210\210\202C
\324=\204\267\203C
c\210\202C
\325\326!\204\3566\203\350`\327V\203\350\212\330u\210\325\331\332\3337!!\334Q!)\203\350\212\335\336\312\211\211\322%\210)\202
c\210\202
\307 \211@4W\203
\337
@T\311\"\266\202
\340\322y\341\"c\210n\204
\341c\210\210\3113\212`n\203A
\342 \210\342\343!\210\211`U\204>
\211b\210\312y\210`\262
\342 \210\342\343!\210\211`U\203A
\341c\210\210)3\204m
8\203\\
8\344=\204\\
\345ed\"\210\202m
\345\212\342\343!\210`)\212\342\322!\210`)\"\210\307 2\346 \262
\2114X\204\206
\345ed#\210\307 2\2114Z\262
\325\347!\204\241
eb\210\350\351\312\311#\203\241
\322\224b\210\307 A5SZ\262)\211\320V\203\267
\352
\353\354#\210
\320V\203\303
\355\353\354#\210r\314
!q\210\3162!\210\356 2)\316\3572!!\210\f?\205\341
\360 \207" [delete-selection-mode transient-mark-mode mark-active buffer-read-only table-inhibit-update table-cache-buffer-name table--transcoord-table-to-cache table--get-coordinate mark t nil table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line 0 "\n" 1 delete-char 32 looking-at "\\s *$" 2 -2 "\\(" regexp-quote char-to-string "\\)\n" replace-match " " move-to-column make-string 10 forward-paragraph -1 left table--fill-region table--measure-max-width "\\s *\\'" re-search-forward "\\(\\s *\\)\\'" table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width table-cell-info-height table-fixed-width-mode table-word-continuation-char table-cell-info-justify] 12 (#$ . 136609)])
#@39 Finish all outstanding delayed tasks.
(defalias 'table--finish-delayed-tasks #[0 "\203\303\304!\210	\203\305\304!\210\n\205\306\304!\207" [table-update-timer table-widen-timer table-heighten-timer table--update-cell now table--update-cell-widened table--update-cell-heightened] 2 (#$ . 138740)])
#@39 Debug logging macro.

(fn &rest BODY)
(defalias 'table--log '(macro . #[128 "\300\301\302\303\304BBF\207" [with-current-buffer (get-buffer-create "log") (goto-char (point-min)) let ((standard-output (current-buffer)))] 7 (#$ . 139049)]))
#@256 Return maximum width of current buffer.
Normally the current buffer is expected to be already the cache
buffer.  The width excludes following spaces at the end of each line.
Unless UNLIMITED is non-nil minimum return value is 1.

(fn &optional UNLIMITED)
(defalias 'table--measure-max-width #[256 "\212\300eb\210\301\302!\210\300\224b\210i
V\203i\262
\303y\210m\203
\203%\211\202(\304
]\262
)\207" [0 re-search-forward "\\s *$" nil 1] 4 (#$ . 139295)])
#@67 Create a cell coordinate pair from cell location pair.

(fn CELL)
(defalias 'table--cell-to-coord #[257 "\211\205
\300
@!\300A!B\207" [table--get-coordinate] 4 (#$ . 139760)])
#@428 Create and return a coordinate list that corresponds to CELL-LIST.
CELL-LIST is a list of location pairs (lu . rb), where each pair
represents a cell in the list.  lu is the left upper location and rb
is the right bottom location of a cell.  The return value is a list of
coordinate pairs (lu-coord . rb-coord), where lu-coord is the left
upper coordinate and rb-coord is the right bottom coordinate of a
cell.

(fn CELL-LIST)
(defalias 'table--cell-list-to-coord-list #[257 "\300
\203
@A\262\301
!B\266\202\202
\211\237\207" [nil table--cell-to-coord] 5 (#$ . 139945)])
#@128 For testing `table--vertical-cell-list' and `table--horizontal-cell-list'.

(fn &optional HORIZONTAL REVERSE FIRST-ONLY PIVOT)
(defalias 'table--test-cell-list #[1024 "\306 \203\307#\202\310#\311
\203\336\203#
\312\262\202)
@A\262\313\314\315\246T\262\"
@b\210\312\211\204@\316 \210r\317	!q\210\320\321\n!!\210\321!\210\322 \210\312\323\324\312\325#\203f\326\312\211#\210\202U\325\306 \327 \262
\211
X\204~\330ed#\210\306 \211
Z\262
\331\332!\204\230eb\210\323\333\312\325#\203\230\334\224b\210\306 A%SZ\262)\211\311V\203\256\335
\336\337#\210
\311V\203\272\340\336\337#\210r\317	!q\210\321!\210\341 )\321\342!!\210\204\325\343 \210\266\344 \266\202\321!\207" [table-inhibit-update table-cache-buffer-name table-cell-cache-mark-coordinate table-cell-cache-point-coordinate table-inhibit-auto-fill-paragraph table-cell-info-width table--get-coordinate table--horizontal-cell-list table--vertical-cell-list 0 nil format "%1d" 10 table-recognize-cell get-buffer-create set-mark table--goto-coordinate table--untabify-line re-search-forward "." t replace-match table--measure-max-width table--fill-region looking-at "\\s *\\'" "\\(\\s *\\)\\'" 1 table-widen-cell no-copy no-update table-heighten-cell table--valign table--transcoord-cache-to-table table--update-cell table--finish-delayed-tasks table-cell-info-height] 15 (#$ . 140529)])
#@995 Return a vertical cell list from the table.
The return value represents a list of cells including the current cell
that align vertically.  Each element of the list is a cons cell (lu
. rb) where lu is the cell's left upper location and rb is the cell's
right bottom location.  The cell order in the list is from bottom to
top of the table.  If optional argument TOP-TO-BOTTOM is non-nil the
order is reversed as from top to bottom of the table.  If optional
argument FIRST-ONLY is non-nil the return value is not a list of cells
but a single cons cell that is the first cell of the list, if the list
had been created.  If optional argument PIVOT is a symbol `left' the
vertical cell search is aligned with the left edge of the current
cell, otherwise aligned with the right edge of the current cell.  The
arguments INTERNAL-DIR, INTERNAL-LIST and INTERNAL-PX are internal use
only and must not be specified.

(fn &optional TOP-TO-BOTTOM FIRST-ONLY PIVOT INTERNAL-DIR INTERNAL-LIST INTERNAL-PX)
(defalias 'table--vertical-cell-list #[1536 "\212\300 \301
@!\301A!\206\302=\203
\202\211@A\303ZA\303\\\2043\n\2033?\262\f\203d\304=\204C\204d\305
\203N\202OB\306\307#\203d\310\f\f\311\304\311&\262\n\203t\206\266\266\206\202\270\203B\202\201\262\203\264\312=\204\223\204\264\305
\203\236\202\237B\306\307#\203\264\310\f\311\211\312\f&\262\266\206)\207" [table--probe-cell table--get-coordinate left 2 up table--goto-coordinate no-extension no-tab-expansion table--vertical-cell-list nil down] 19 (#$ . 141920)])
#@1001 Return a horizontal cell list from the table.
The return value represents a list of cells including the current cell
that align horizontally.  Each element of the list is a cons cells (lu
. rb) where lu is the cell's left upper location and rb is the cell's
right bottom location.  The cell order in the list is from right to
left of the table.  If optional argument LEFT-TO-RIGHT is non-nil the
order is reversed as from left to right of the table.  If optional
argument FIRST-ONLY is non-nil the return value is not a list of cells
but a single cons cell that is the first cell of the list, if the
list had been created.  If optional argument PIVOT is a symbol `top'
the horizontal cell search is aligned with the top edge of the current
cell, otherwise aligned with the bottom edge of the current cell.  The
arguments INTERNAL-DIR, INTERNAL-LIST and INTERNAL-PY are internal use
only and must not be specified.

(fn &optional LEFT-TO-RIGHT FIRST-ONLY PIVOT INTERNAL-DIR INTERNAL-LIST INTERNAL-PY)
(defalias 'table--horizontal-cell-list #[1536 "\212\300 \301
@!\301A!\206\302=\203
A\202\211AT@S@T\2043\n\2033?\262\f\203d\303=\204C\204d\304\f\203M
\202NB\305\306#\203d\307\f\f\310\303\310&\262\n\203t\206\266\266\206\202\270\203B\202\201\262\203\264\311=\204\223\204\264\304\f\203\235\202\236
B\305\306#\203\264\307\f\310\211\311\f&\262\266\206)\207" [table--probe-cell table--get-coordinate top left table--goto-coordinate no-extension no-tab-expansion table--horizontal-cell-list nil right] 19 (#$ . 143514)])
#@169 Return t when point is in a valid table cell in the current buffer.
When optional LOCATION is provided the test is performed at that location.

(fn &optional LOCATION)
(defalias 'table--point-in-cell-p #[256 "\300
\206`!\205\211\203\212\211b\210\301 )\202\301 \205\302\207" [table--at-cell-p table--probe-cell t] 3 (#$ . 145112)])
#@95 Return t when location BEG and END are in a valid table cell in current buffer.

(fn BEG END)
(defalias 'table--region-in-cell-p #[514 "\300^!\205\212
b\210\301 \211\205\211b\210\301 \232\262
)\207" [table--at-cell-p table--probe-cell] 5 (#$ . 145459)])
#@215 Return non-nil if POSITION has table-cell property in OBJECT.
OBJECT is optional and defaults to the current buffer.
If POSITION is at the end of OBJECT, the value is nil.

(fn POSITION &optional OBJECT AT-COLUMN)
(defalias 'table--at-cell-p #[769 "\211\203
;\203\300\"\262\301\302#\207" [table--str-index-at-column get-text-property table-cell] 7 (#$ . 145727)])
#@248 Probe left up corner pattern of a cell.
If it finds a valid corner returns a position otherwise returns nil.
The position is the location before the first cell character.
Focus only on the corner pattern.  Further cell validity check is required.
(defalias 'table--probe-cell-left-up #[0 "\212\303\304!!\303\304	!!\305\306	#\305\307\n	#\310 \3112\242\3122\236\313\314#\204,\315\311\316\"\210\212i\3172\232\320y\321U\204>\315\311\316\"\210\322
!\210\323!\203b\211iU\203b\320y\321U\204[\315\311\316\"\210\322
!\210\202B\211iU\204o\315\311\316\"\202\231\323P!\203\210\324y\210\322
!\210\324u\210\315\311`\"\202\231\323!\203\225\315\317\316\"\202\231\315\312\316\"0\210\202.\210\202\266\205)\207" [table-cell-vertical-char table-cell-intersection-char table-cell-horizontal-chars regexp-quote char-to-string format "[%c%c]" "[%s%c]" line-beginning-position end retry-horizontal search-backward-regexp t throw nil retry-vertical -1 0 move-to-column looking-at 1] 9 (#$ . 146107)])
#@251 Probe right bottom corner pattern of a cell.
If it finds a valid corner returns a position otherwise returns nil.
The position is the location after the last cell character.
Focus only on the corner pattern.  Further cell validity check is required.
(defalias 'table--probe-cell-right-bottom #[0 "\212\303\304!!\303\304	!!\305\306	#\305\307\n	#\310 \3112\312\3122\306\313\314#\204,\315\311\316\"\210\212\317u\210i\3202\302\321!\203[\211iU\203[\322y\323U\203Oi\323U\204T\315\311\316\"\210\324
!\210\2025\211iU\204h\315\311\316\"\202\301\212\317u\210\321P!)\203\232\212\317y\323U\203\217\324
!\203\217\321!\203\217\315\311`\"\210)\322u\210\315\312\316\"\202\301\321!\203\275\322y\323U\203\255i\323U\204\262\315\311\316\"\210\324
!\210\315\320\316\"\202\301\315\312\316\"0\210\2021\210\202\266\205)\207" [table-cell-vertical-char table-cell-intersection-char table-cell-horizontal-chars regexp-quote char-to-string format "[%c%c]" "[%s%c]" line-end-position end retry-horizontal search-forward-regexp t throw nil -1 retry-vertical looking-at 1 0 move-to-column] 9 (#$ . 147117)])
#@33 

(fn &optional ABORT-ON-ERROR)
(defalias 'table--editable-cell-p #[256 "?\205	\301`\302\"\207" [buffer-read-only get-text-property table-cell] 4 (#$ . 148234)])
#@540 Probe a table cell around the point.
Searches for the left upper corner and the right bottom corner of a table
cell which contains the current point location.

The result is a cons cell (left-upper . right-bottom) where
the left-upper is the position before the cell's left upper corner character,
the right-bottom is the position after the cell's right bottom corner character.

When it fails to find either one of the cell corners it returns nil or
signals error if the optional ABORT-ON-ERROR is non-nil.

(fn &optional ABORT-ON-ERROR)
(defalias 'table--probe-cell #[256 "\303\211\304\305	\n$\3061\307 \211\262\205\310 \211\2620\202!\210\202q\203qW\203q\311!\311!\312\212\313@SASB!)\212\313@TASB!){\"\205h\312\212\313@SATB!)\212\313@TATB!){\"\266\202\203qB\207\205x\314\315!\207" [table-cell-horizontal-chars table-cell-vertical-char table-cell-intersection-char nil format "^[%s%c%c]+$" (error) table--probe-cell-left-up table--probe-cell-right-bottom table--get-coordinate string-match table--goto-coordinate error "Table cell not found"] 12 (#$ . 148405)])
#@144 Insert text of RECTANGLE with upper left corner at point.
Same as `insert-rectangle' except that mark operation is eliminated.

(fn RECTANGLE)
(defalias 'table--insert-rectangle #[257 "\211i\300\205(\211\204\301y\210n\204\302c\210\303\300\"\210\304\262
@c\210A\262\202\207" [t 1 10 move-to-column nil] 7 (#$ . 149507)])
#@271 Put standard text properties to the CELL.
The CELL is a cons cell (left-upper . right-bottom) where the
left-upper is the position before the cell's left upper corner
character, the right-bottom is the position after the cell's right
bottom corner character.

(fn CELL)
(defalias 'table--put-cell-property #[257 "\302
@!\302A!\212
A
AX\203+\303\304\"\303@AB!\305\"\266
\211AT\241\210\202	\306\"\210\307	\")\207" [table-cell-info-justify table-cell-info-valign table--get-coordinate table--goto-coordinate no-extension table--put-cell-line-property table--put-cell-justify-property table--put-cell-valign-property] 8 (#$ . 149846)])
#@325 Put standard text properties to a line of a cell.
BEG is the beginning of the line that is the location between left
cell border character and the first content character.  END is the end
of the line that is the location between the last content character
and the right cell border character.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-line-property #[770 "\300#\210\301\211T#\210\302\211T#\210\303\211T#\207" [table--put-cell-content-property table--put-cell-keymap-property table--put-cell-indicator-property table--put-cell-rear-nonsticky] 7 (#$ . 150497)])
#@66 Put cell content text properties.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-content-property #[770 "\300#\210\301#\210\302#\210\303#\207" [table--put-cell-keymap-property table--put-cell-indicator-property table--put-cell-face-property table--put-cell-point-entered/left-property] 7 (#$ . 151088)])
#@108 Put cell property which indicates that the location is within a table cell.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-indicator-property #[770 "\301\302\303%\210\301\304%\207" [table-yank-handler put-text-property table-cell t yank-handler] 9 (#$ . 151422)])
#@56 Put cell face property.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-face-property #[770 "\300\301\302%\207" [put-text-property font-lock-face table-cell] 9 (#$ . 151710)])
#@58 Put cell keymap property.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-keymap-property #[770 "\300\301\302%\207" [put-text-property keymap table-cell-map] 9 (#$ . 151905)])
#@61 Put rear-nonsticky property.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-rear-nonsticky #[770 "\300\301\302%\207" [put-text-property rear-nonsticky t] 9 (#$ . 152100)])
#@65 Put point-entered/left property.

(fn BEG END &optional OBJECT)
(defalias 'table--put-cell-point-entered/left-property #[770 "\300\301\302%\207" [put-text-property cursor-sensor-functions (table--point-entered/left-cell-function)] 9 (#$ . 152292)])
#@179 Remove all cell properties.
If OBJECT is non-nil cell properties are removed from the OBJECT
instead of the current buffer and returns the OBJECT.

(fn BEG END &optional OBJECT)
(defalias 'table--remove-cell-properties #[770 "W\203/\300\301$\302\301#\203*\303\301\304\305\304\306\304\307\304\310\304\311\304\312\304\257$\210\262\202\207" [next-single-property-change table-cell get-text-property remove-text-properties nil table-justify table-valign font-lock-face rear-nonsticky cursor-sensor-functions keymap] 21 (#$ . 152551)])
#@49 Update cell face according to the current mode.
(defalias 'table--update-cell-face #[0 "\301\302\"\207" [table-fixed-width-mode set-face-inverse-video table-cell] 3 (#$ . 153104)])
(table--update-cell-face)
#@42 Get CELL's PROPERTY.

(fn CELL PROPERTY)
(defalias 'table--get-property #[514 "\300@\"\206\300AS\"\207" [get-text-property] 5 (#$ . 153318)])
#@41 Get CELL's justify property.

(fn CELL)
(defalias 'table--get-cell-justify-property #[257 "\300
\301\"\207" [table--get-property table-justify] 4 (#$ . 153472)])
#@52 Get CELL's vertical alignment property.

(fn CELL)
(defalias 'table--get-cell-valign-property #[257 "\300
\301\"\207" [table--get-property table-valign] 4 (#$ . 153640)])
#@58 Put CELL's PROPERTY the VALUE.

(fn CELL PROPERTY VALUE)
(defalias 'table--put-property #[771 "@A\300\211T$\210\300
S$\207" [put-text-property] 10 (#$ . 153817)])
#@49 Put CELL's JUSTIFY property.

(fn CELL JUSTIFY)
(defalias 'table--put-cell-justify-property #[514 "\300\301#\207" [table--put-property table-justify] 6 (#$ . 153998)])
#@59 Put CELL's vertical alignment property.

(fn CELL VALIGN)
(defalias 'table--put-cell-valign-property #[514 "\300\301#\207" [table--put-property table-valign] 6 (#$ . 154174)])
#@73 Point has entered a cell.
Refresh the menu bar.

(fn WINDOW OLDPOS DIR)
(defalias 'table--point-entered/left-cell-function #[771 "\302\303 \210\211\304\267\202\305\306\307!\202\302\310 \210\306\311!\202\305)\207" [inhibit-point-motion-hooks table-mode-indicator t force-mode-line-update #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left 11 entered 19)) nil run-hooks table-point-left-cell-hook table--warn-incompatibility table-point-entered-cell-hook] 5 (#$ . 154358)])
#@211 If called from interactive operation warn the know incompatibilities.
This feature is disabled when `table-disable-incompatibility-warning'
is non-nil.  The warning is done only once per session for each item.
(defalias 'table--warn-incompatibility #[0 "\205\302\303!??\205\"	\205\"\300\304N?\205\"\305\300\304\306#\210\307\310\311\312#\207" [table-disable-incompatibility-warning flyspell-mode called-interactively-p interactive flyspell put t display-warning table "\n*** Warning ***\n\nFlyspell minor mode is known to be incompatible with this table\npackage.  The flyspell version 1.5d at URL `http://kaolin.unice.fr/~serrano'\nworks better than the previous versions however not fully compatible.\n\n" :warning] 4 (#$ . 154886)])
#@63 Return blank table cell string of length N.

(fn &optional N)
(defalias 'table--cell-blank-str #[256 "\300
\206\301\302\"\303\304G#\210\207" [make-string 1 32 table--put-cell-content-property 0] 6 (#$ . 155633)])
#@294 Remove spaces at the end of each line in the BEG END region of current buffer.
When optional BOL is non-nil spaces at the beginning of line are
removed.  When optional FORCE is non-nil removal operation is enforced
even when point is within the removal area.

(fn BEG END &optional BOL FORCE)
(defalias 'table--remove-eol-spaces #[1026 "V\203\f\262\262\300 \301!\212b\210\203!\302\303\304#\202&\302\305\304#\203P\204G\306\224X\203G
\306\225X\203G\204G
\306\225|\210\202\306\224\306\225|\210\202)
\307\211\223\210\211\307\211\223\207" [point-marker copy-marker re-search-forward "^\\( +\\)" t "\\( +\\)$" 1 nil] 10 (#$ . 155857)])
#@130 Fill paragraphs in table cell cache.
Current buffer must already be set to the cache buffer.

(fn BEG END &optional COL JUSTIFY)
(defalias 'table--fill-region #[1026 "
\206\306\211\211\307!\307!\310 \206!
\262\2034\311=\2044\312
\313\"\210\314ed\"\210\203F\315\"\210\202T\316\n\306\313%\210)\211b\210\306\211\223\210
\306\211\223\210\211\306\211\223,\207" [table-cell-info-width adaptive-fill-mode enable-kinsoku fill-prefix fill-column table-cell-info-justify nil copy-marker point-marker left set-marker-insertion-type t table--remove-eol-spaces table--fill-region-strictly fill-region table-fixed-width-mode table-paragraph-start paragraph-start] 17 (#$ . 156520)])
#@210 Fill region strictly so that no line exceeds `fill-column'.
When a word exceeds fill-column the word is chopped into pieces.  The
chopped location is indicated with table-word-continuation-char.

(fn BEG END)
(defalias 'table--fill-region-strictly #[514 "\304!\203\f\304
!\204\305\306!\210\307W\203\307
b\210\310\311\312	\"\313\314	!!\315Q\316#\2036\317\224\317\225|\210\202\n\320\321\211\316%\210)
b\210\322\316\"\211X\203g\323\324!\203g\325\224\325\225|\210\317y\325U\205|`W\202|\326u\210\327`Sf\330=\203w\330\202x	\331\"\210\316\262
\205\204\202D\207" [fill-column table-word-continuation-char table-paragraph-start paragraph-start markerp error "markerp" 2 re-search-forward format "[^%c ]\\(" regexp-quote char-to-string "\\s +\\)" t 1 fill-region nil move-to-column looking-at " *$" 0 -1 insert-before-markers 32 "\n"] 8 (#$ . 157236)])
#@565 Move point to the given COORDINATE and return the location.
When optional NO-EXTENSION is non-nil and the specified coordinate is
not reachable returns nil otherwise the blanks are added if necessary
to achieve the goal coordinate and returns the goal point.  It
intentionally does not preserve the original point in case it fails
achieving the goal.  When optional NO-TAB-EXPANSION is non-nil and the
goad happens to be in a tab character the tab is not expanded but the
goal ends at the beginning of tab.

(fn COORDINATE &optional NO-EXTENSION NO-TAB-EXPANSION)
(defalias 'table--goto-coordinate #[769 "?\206@\300W\206A\300W?\205\207eb\210@Ay\3012\205i\300U\204:\2036\302!\210\303\301\304\"\210\202:\211T\262
\211\300U\204D\305
!\210\203~\302!U\204\203\302!V\203v\203k\302!V\203\203
S\262\202\\\303\301\302\306\"\"\210\202\203\303\301\304\"\210\202\203\302\306\"\210`0\266\202\207" [0 exit move-to-column throw nil newline t] 10 (#$ . 158112)])
#@49 Copy coordinate in a new cons cell.

(fn COORD)
(defalias 'table--copy-coordinate #[257 "\211@
AB\207" [] 3 (#$ . 159101)])
#@213 Return the coordinate of point in current buffer.
When optional WHERE is given it returns the coordinate of that
location instead of point in the current buffer.  It does not move the
point

(fn &optional WHERE)
(defalias 'table--get-coordinate #[256 "\212\211\203\211b\210i\300 )B\207" [table--current-line] 3 (#$ . 159232)])
#@100 Return zero based line count of current line or if non-nil LOCATION line.

(fn &optional LOCATION)
(defalias 'table--current-line #[256 "\212\211\203\211b\210\300 \210\301e`\")\207" [beginning-of-line count-lines] 4 (#$ . 159568)])
#@189 Transpose COORDINATE from table coordinate system to cache coordinate system.
When COORDINATE is omitted or nil the point in current buffer is
assumed in place.

(fn &optional COORDINATE)
(defalias 'table--transcoord-table-to-cache #[256 "\301
\206\302 \303#\207" [table-cell-info-lu-coordinate table--offset-coordinate table--get-coordinate negative] 5 (#$ . 159809)])
#@189 Transpose COORDINATE from cache coordinate system to table coordinate system.
When COORDINATE is omitted or nil the point in current buffer is
assumed in place.

(fn &optional COORDINATE)
(defalias 'table--transcoord-cache-to-table #[256 "\301
\206\302 \"\207" [table-cell-info-lu-coordinate table--offset-coordinate table--get-coordinate] 4 (#$ . 160189)])
#@152 Return the offset COORDINATE by OFFSET.
When optional NEGATIVE is non-nil offsetting direction is negative.

(fn COORDINATE OFFSET &optional NEGATIVE)
(defalias 'table--offset-coordinate #[770 "\211\203\f@@Z\202@@\\
\203AAZ\202\"AA\\B\207" [] 6 (#$ . 160557)])
#@121 Return the character in STR at COLUMN location.
When COLUMN is out of range it returns null character.

(fn STR COLUMN)
(defalias 'table--char-in-str-at-column #[514 "\300\"\211\203\f
H\207\301\207" [table--str-index-at-column 0] 5 (#$ . 160839)])
#@149 Return the character index in STR that corresponds to COLUMN location.
It returns COLUMN unless STR contains some wide characters.

(fn STR COLUMN)
(defalias 'table--str-index-at-column #[514 "\300\211GW\203!

W\203!\301H!\\\262
T\262\202

W\205(
\207" [0 char-width] 9 (#$ . 161098)])
#@131 When non-nil, use of menu by table package is disabled.
It must be set before loading this package `table.el' for the first
time.
(defvar table-disable-menu nil (#$ . 161405))
(make-obsolete-variable 'table-disable-menu "no longer used." "28.1")
#@65 Generic wrapper for setting up a timer.

(fn SECONDS FUNC ARGS)
(defalias 'table--set-timer #[771 "\300\301$\207" [run-with-idle-timer nil] 8 (#$ . 161657)])
(make-obsolete 'table--set-timer 'run-with-idle-timer "28.1")
#@52 Generic wrapper for getting the real last command.
(defalias 'table--get-last-command #[0 "\207" [real-last-command] 1 (#$ . 161886)])
(byte-code "\300\301\302\303#\210\304\305!\210\306\307!\207" [make-obsolete table--get-last-command real-last-command "28.1" run-hooks table-load-hook provide table] 4)