Mercurial > emacs

changeset 100651:9b59cfa10769

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author Carsten Dominik <dominik@science.uva.nl>
date Mon, 22 Dec 2008 22:14:50 +0000
parents fc49fe690b33
children abcae147ec08
files lisp/org/org-table.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/org/org-table.el	Mon Dec 22 22:14:10 2008 +0000
+++ b/lisp/org/org-table.el	Mon Dec 22 22:14:50 2008 +0000
@@ -1722,12 +1722,13 @@
 	 (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))