From 494913d6debe4b2507d37a165a8be754ab64dbb4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Sat, 21 Jul 2012 21:11:49 -0700 Subject: [PATCH] Spelling fixes. --- etc/NEWS | 2 +- lisp/ses.el | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/etc/NEWS b/etc/NEWS index 2889367c605..0f903c790c2 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -354,7 +354,7 @@ channel keys found, if any. *** `dired-do-async-shell-command' executes each file sequentially if the command ends in `;' (when operating on multiple files). -Othwerwise, it executes the command on each file in parallel. +Otherwise, it executes the command on each file in parallel. ** FFAP diff --git a/lisp/ses.el b/lisp/ses.el index 14294103d51..8181c6132a9 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -3213,7 +3213,7 @@ highlighted range in the spreadsheet." (col (cdr rowcol)) (cell (ses-get-cell row col))) (put new-name 'ses-cell rowcol) - ;; replace name by new name in formula of cells refering to renamed cell + ;; Replace name by new name in formula of cells referring to renamed cell. (dolist (ref (ses-cell-references cell)) (let* ((x (ses-sym-rowcol ref)) (xcell (ses-get-cell (car x) (cdr x)))) @@ -3228,8 +3228,8 @@ highlighted range in the spreadsheet." (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-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)) -- 2.39.2