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

org-table: Fix #ERROR in table formula with "@>"

Browse source 
* lisp/org-table.el (org-table-eval-formula): Expand first and last
  references into proper fields coordinates before replacing ranges.

Reported-by: Pablo S. Casas <pabloscasas@gmail.com>
<http://permalink.gmane.org/gmane.emacs.orgmode/105895>
This commit is contained in:
Nicolas Goaziou 2016-03-25 22:17:08 +01:00
parent 780445c0aa
commit 0b077de733
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/org-table.el
View file

@ -2738,9 +2738,10 @@ not overwrite the stored one."
(setq fmt (replace-match "" t t fmt))) (setq fmt (replace-match "" t t fmt)))
(unless (string-match "\\S-" fmt) (unless (string-match "\\S-" fmt)
(setq fmt nil)))) (setq fmt nil))))
(if (and (not suppress-const) org-table-formula-use-constants) (when (and (not suppress-const) org-table-formula-use-constants)
(setq formula (org-table-formula-substitute-names formula))) (setq formula (org-table-formula-substitute-names formula)))
(setq orig (or (get-text-property 1 :orig-formula formula) "?")) (setq orig (or (get-text-property 1 :orig-formula formula) "?"))
(setq formula (org-table-formula-handle-first/last-rc formula))
(while (> ndown 0) (while (> ndown 0)
(setq fields (org-split-string (setq fields (org-split-string
(org-trim (org-trim