* ses.el (ses-rename-cell): Set new name also in reference list of cells of which...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 969f36c84571a73ef11b028daea257e3207dae21..f5f0de2d4c70f6eace755ee1788465079906e411 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-20  Vincent Belaïche  <vincentb1@users.sourceforge.net>
+
+       * ses.el (ses-rename-cell): Set new name also in reference list of
+       cells of which the renamed cell depends.
+
 2012-07-20  Masatake YAMATO  <yamato@redhat.com>
 
        * term/x-win.el (x-menu-bar-open): Use `frame-parameter'

diff --git a/lisp/ses.el b/lisp/ses.el
index 201d9cbf10b6026de8d7f32090bc694128bb6caa..14294103d51cf3b261e3c649fcea39d1c916d864 100644 (file)
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -3209,17 +3209,28 @@ highlighted range in the spreadsheet."
                                   new-name)))
        (error "Already a bound cell name")))
   (let* ((rowcol (ses-sym-rowcol ses--curcell))
-        (cell (ses-get-cell (car rowcol) (cdr rowcol))))
+        (row (car rowcol))
+        (col (cdr rowcol))
+        (cell (ses-get-cell  row  col)))
     (put new-name 'ses-cell rowcol)
-    (dolist (reference (ses-cell-references (car rowcol) (cdr rowcol)))
-      (let* ((rowcol (ses-sym-rowcol reference))
-            (cell  (ses-get-cell (car rowcol) (cdr rowcol))))
+    ;; replace name by new name in formula of cells refering to renamed cell
+    (dolist (ref (ses-cell-references cell))
+      (let* ((x (ses-sym-rowcol ref))
+            (xcell  (ses-get-cell (car x) (cdr x))))
        (ses-cell-set-formula (car rowcol)
                              (cdr rowcol)
                              (ses-replace-name-in-formula
-                              (ses-cell-formula cell)
+                              (ses-cell-formula xcell)
                               ses--curcell
                               new-name))))
+    ;; replace name by new name in reference list of cells to which renamed cell refers to
+    (dolist (ref (ses-formula-references (ses-cell-formula cell)))
+      (let* ((x (ses-sym-rowcol ref))
+            (xrow (car x))
+            (xcol (cdr x)))
+       (ses-set-cell xrow xcol 'references 
+             (cons new-name (delq ses--curcell 
+                                 (ses-cell-references xrow xcol))))))
     (push new-name ses--renamed-cell-symb-list)
     (set new-name (symbol-value ses--curcell))
     (aset cell 0 new-name)