diff options
| -rw-r--r-- | lisp/org/org-table.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index ad07a390a19..b1f143f283d 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el | |||
| @@ -1722,12 +1722,13 @@ When NAMED is non-nil, look for a named equation." | |||
| 1722 | (ref (format "@%d$%d" (org-table-current-dline) | 1722 | (ref (format "@%d$%d" (org-table-current-dline) |
| 1723 | (org-table-current-column))) | 1723 | (org-table-current-column))) |
| 1724 | (refass (assoc ref stored-list)) | 1724 | (refass (assoc ref stored-list)) |
| 1725 | (nameass (assoc name stored-list)) | ||
| 1725 | (scol (if named | 1726 | (scol (if named |
| 1726 | (if (and name (not (string-match "^LR[0-9]+$" name))) | 1727 | (if (and name (not (string-match "^LR[0-9]+$" name))) |
| 1727 | name | 1728 | name |
| 1728 | ref) | 1729 | ref) |
| 1729 | (int-to-string (org-table-current-column)))) | 1730 | (int-to-string (org-table-current-column)))) |
| 1730 | (dummy (and (or name refass) (not named) | 1731 | (dummy (and (or nameass refass) (not named) |
| 1731 | (not (y-or-n-p "Replace field formula with column formula? " )) | 1732 | (not (y-or-n-p "Replace field formula with column formula? " )) |
| 1732 | (error "Abort"))) | 1733 | (error "Abort"))) |
| 1733 | (name (or name ref)) | 1734 | (name (or name ref)) |