aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorVincent Belaïche2024-12-23 19:29:53 +0100
committerVincent Belaïche2025-06-21 21:13:11 +0200
commit137b3b25740a42f57f3027cdc4bf0b25d8b7d14d (patch)
treebc262ccbe4caf6a188ac58ed14b35c81751fc647
parent488cc269beeed2c8e611a3a7a3dde4349ff8d5c9 (diff)
downloademacs-137b3b25740a42f57f3027cdc4bf0b25d8b7d14d.tar.gz
emacs-137b3b25740a42f57f3027cdc4bf0b25d8b7d14d.zip
Fix ses-test.el indentation.
-rw-r--r--test/lisp/ses-tests.el28
1 files changed, 14 insertions, 14 deletions
diff --git a/test/lisp/ses-tests.el b/test/lisp/ses-tests.el
index e34350ebf2a..bc26949d40b 100644
--- a/test/lisp/ses-tests.el
+++ b/test/lisp/ses-tests.el
@@ -202,23 +202,23 @@ to `ses--bar' and inserting a row, makes A2 value empty, and `ses--bar' equal to
202 202
203(ert-deftest ses-jump-B2-lowcase () 203(ert-deftest ses-jump-B2-lowcase ()
204 "Test jumping to cell B2 by use of lowercase cell name string" 204 "Test jumping to cell B2 by use of lowercase cell name string"
205 (let ((ses-initial-size '(3 . 3)) 205 (let ((ses-initial-size '(3 . 3))
206 ses-after-entry-functions) 206 ses-after-entry-functions)
207 (with-temp-buffer 207 (with-temp-buffer
208 (ses-mode) 208 (ses-mode)
209 (funcall-interactively 'ses-jump "b2") 209 (funcall-interactively 'ses-jump "b2")
210 (ses-command-hook) 210 (ses-command-hook)
211 (should (eq (ses--cell-at-pos (point)) 'B2))))) 211 (should (eq (ses--cell-at-pos (point)) 'B2)))))
212 212
213(ert-deftest ses-jump-B2-lowcase-keys () 213(ert-deftest ses-jump-B2-lowcase-keys ()
214 "Test jumping to cell B2 by use of lowercase cell name string with simulating keys" 214 "Test jumping to cell B2 by use of lowercase cell name string with simulating keys"
215 (let ((ses-initial-size '(3 . 3)) 215 (let ((ses-initial-size '(3 . 3))
216 ses-after-entry-functions) 216 ses-after-entry-functions)
217 (with-temp-buffer 217 (with-temp-buffer
218 (ses-mode) 218 (ses-mode)
219 (ert-simulate-keys [ ?b ?2 return] (ses-jump)) 219 (ert-simulate-keys [ ?b ?2 return] (ses-jump))
220 (ses-command-hook) 220 (ses-command-hook)
221 (should (eq (ses--cell-at-pos (point)) 'B2))))) 221 (should (eq (ses--cell-at-pos (point)) 'B2)))))
222 222
223(ert-deftest ses-jump-B2-symbol () 223(ert-deftest ses-jump-B2-symbol ()
224 "Test jumping to cell B2 by use of cell name symbol" 224 "Test jumping to cell B2 by use of cell name symbol"