From: Mattias Engdegård <mattiase@acm.org>
Date: Sun, 14 Jan 2024 13:10:17 +0000 (+0100)
Subject: Fix recent ses-tests mistakes (bug#5852)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a83e60eccbc16613fc3da85f46a3fb032c098a82;p=emacs.git

Fix recent ses-tests mistakes (bug#5852)

* test/lisp/ses-tests.el
(ses-set-formula-write-cells-with-changed-references):
Quote constant list.  Remove unused variable.
---

diff --git a/test/lisp/ses-tests.el b/test/lisp/ses-tests.el
index be6784be7a0..a916aed9eb3 100644
--- a/test/lisp/ses-tests.el
+++ b/test/lisp/ses-tests.el
@@ -246,7 +246,7 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
 When setting a formula has some cell with changed references, this
 cell has to be rewritten to data area."
   (let ((ses-initial-size '(4 . 3))
-        ses-after-entry-functions beg)
+        (ses-after-entry-functions nil))
     (with-temp-buffer
       (ses-mode)
       (dolist (c '((0 1 1); B1
@@ -257,7 +257,7 @@ cell has to be rewritten to data area."
         (apply 'ses-calculate-cell (list (car c) (cadr c) nil)))
       (ses-cell-set-formula 2 1 '(+ B2 A3)); B3
       (ses-command-hook)
-      (ses-cell-set-formula 3 1 (+ B3 A4)); B4
+      (ses-cell-set-formula 3 1 '(+ B3 A4)); B4
       (ses-command-hook)
       (should (equal (ses-cell-references 1 1) '(B3)))
       (ses-mode)