diff options
| author | Vincent Belaïche | 2024-12-23 19:29:53 +0100 |
|---|---|---|
| committer | Vincent Belaïche | 2025-06-21 21:13:11 +0200 |
| commit | 137b3b25740a42f57f3027cdc4bf0b25d8b7d14d (patch) | |
| tree | bc262ccbe4caf6a188ac58ed14b35c81751fc647 | |
| parent | 488cc269beeed2c8e611a3a7a3dde4349ff8d5c9 (diff) | |
| download | emacs-137b3b25740a42f57f3027cdc4bf0b25d8b7d14d.tar.gz emacs-137b3b25740a42f57f3027cdc4bf0b25d8b7d14d.zip | |
Fix ses-test.el indentation.
| -rw-r--r-- | test/lisp/ses-tests.el | 28 |
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" |