2008-12-22 Carsten Dominik <dominik@science.uva.nl>

	* org-table.el (org-table-get-formula): Only ask to overwrite
	field formula if there really is one.

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index ad07a390a19a88214614add5615c62b4286ea953..b1f143f283d5a2b9beab94416f25f71f2a22e9f7 100644 (file)
--- 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."
         (ref (format "@%d$%d" (org-table-current-dline)
                      (org-table-current-column)))
         (refass (assoc ref stored-list))
+        (nameass (assoc name stored-list))
         (scol (if named
                   (if (and name (not (string-match "^LR[0-9]+$" name)))
                       name
                     ref)
                 (int-to-string (org-table-current-column))))
-        (dummy (and (or name refass) (not named)
+        (dummy (and (or nameass refass) (not named)
                     (not (y-or-n-p "Replace field formula with column formula? " ))
                     (error "Abort")))
         (name (or name ref))