[Emacs-diffs] emacs/lisp/org org-table.el

[Carsten Dominik]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Carsten Dominik <cdominik>      08/12/22 22:14:50

Modified files:
        lisp/org       : org-table.el 

Log message:
        2008-12-22  Carsten Dominik  <address@hidden>
        
                * org-table.el (org-table-get-formula): Only ask to overwrite
                field formula if there really is one.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/org/org-table.el?cvsroot=emacs&r1=1.18&r2=1.19

Patches:
Index: org-table.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/org/org-table.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- org-table.el        20 Dec 2008 14:32:08 -0000      1.18
+++ org-table.el        22 Dec 2008 22:14:50 -0000      1.19
@@ -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))