tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-table: Speed up large tables calculation 

* lisp/org-table.el (org-table-eval-formula): Do not check point is
  really within a table when context analysis is not requested.

Reported-by: Thierry Banel <tbanelwebmin@free.fr>
<http://permalink.gmane.org/gmane.emacs.orgmode/111276>
This commit is contained in:
Nicolas Goaziou 2017-01-09 00:18:26 +01:00
parent 7d4b3bbdb7
commit b0cb4fe59b
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/org-table.el
View File

@ -2667,17 +2667,25 @@ For details, see the Org mode manual.
This function can also be called from Lisp programs and offers This function can also be called from Lisp programs and offers
additional arguments: EQUATION can be the formula to apply. If this additional arguments: EQUATION can be the formula to apply. If this
argument is given, the user will not be prompted. SUPPRESS-ALIGN is argument is given, the user will not be prompted.
used to speed-up recursive calls by by-passing unnecessary aligns.
SUPPRESS-ALIGN is used to speed-up recursive calls by by-passing
unnecessary aligns.
SUPPRESS-CONST suppresses the interpretation of constants in the SUPPRESS-CONST suppresses the interpretation of constants in the
formula, assuming that this has been done already outside the function. formula, assuming that this has been done already outside the
SUPPRESS-STORE means the formula should not be stored, either because function.
it is already stored, or because it is a modified equation that should
not overwrite the stored one. SUPPRESS-ANALYSIS prevents any call to SUPPRESS-STORE means the formula should not be stored, either
`org-table-analyze'." because it is already stored, or because it is a modified
equation that should not overwrite the stored one.
SUPPRESS-ANALYSIS prevents analyzing the table and checking
location of point."
(interactive "P") (interactive "P")
(unless suppress-analysis
(org-table-check-inside-data-field) (org-table-check-inside-data-field)
(or suppress-analysis (org-table-analyze)) (org-table-analyze))
(if (equal arg '(16)) (if (equal arg '(16))
(let ((eq (org-table-current-field-formula))) (let ((eq (org-table-current-field-formula)))
(org-table-get-field nil eq) (org-table-get-field nil eq)