mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

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

Browse Source 
* org-table.el (org-table-get-formula): Only ask to overwrite
	field formula if there really is one.
This commit is contained in:
Carsten Dominik 2008-12-22 22:14:50 +00:00
parent 830334b1a4
commit cff4f506ea
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org/org-table.el
View File

@ -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))