diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-07-13 13:00:31 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-07-13 13:04:22 +0200 |
| commit | ba0871bef1e7d321f1124a6ad20e9be158a976dd (patch) | |
| tree | f8e0ff481dbc96e0a2cbcd188d21728bced77849 /test | |
| parent | e3e7f31faa69d173c000ddf9f3c77e9cf34efee0 (diff) | |
| download | emacs-ba0871bef1e7d321f1124a6ad20e9be158a976dd.tar.gz | |
; Fix typos: prefer American spelling
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog.1 | 2 | ||||
| -rw-r--r-- | test/lisp/calc/calc-tests.el | 2 | ||||
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 8 | ||||
| -rw-r--r-- | test/lisp/so-long-tests/spelling-tests.el | 2 |
4 files changed, 7 insertions, 7 deletions
diff --git a/test/ChangeLog.1 b/test/ChangeLog.1 index fe7e6626cbf..328609038a7 100644 --- a/test/ChangeLog.1 +++ b/test/ChangeLog.1 @@ -65,7 +65,7 @@ 2015-03-10 Paul Eggert <eggert@cs.ucla.edu> - Prefer "initialize" to "initialise" + Prefer "initialize" * indent/js-indent-init-t.js: Rename from indent/js-indent-first-initialiser-t.js. * indent/js-indent-init-dynamic.js: Rename from diff --git a/test/lisp/calc/calc-tests.el b/test/lisp/calc/calc-tests.el index 5f9e02f774d..abedbb9712a 100644 --- a/test/lisp/calc/calc-tests.el +++ b/test/lisp/calc/calc-tests.el @@ -445,7 +445,7 @@ An existing calc stack is reused, otherwise a new one is created." (t ; n<k<0 0)))) ((natnump k) - ;; Generalisation for any n, integral k≥0: use falling product + ;; Generalization for any n, integral k≥0: use falling product (/ (apply '* (number-sequence n (- n (1- k)) -1)) (calc-tests--fac k))) (t (error "Case not covered")))) diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 8a09c545914..a97473e7de4 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -38,7 +38,7 @@ bytecomp-test-var) (defun bytecomp-test-identity (x) - "Identity, but hidden from some optimisations." + "Identity, but hidden from some optimizations." x) (defmacro bytecomp-test-loop (outer1 outer2 inner1 inner2) @@ -556,7 +556,7 @@ inner loops respectively." ((not x) 3))) '("a" "b" "c" "d" nil)) - ;; `let' and `let*' optimisations with body being constant or variable + ;; `let' and `let*' optimizations with body being constant or variable (let* (a (b (progn (setq a (cons 1 a)) 2)) (c (1+ b)) @@ -582,7 +582,7 @@ inner loops respectively." (let* (x y) 'a) - ;; Check empty-list optimisations. + ;; Check empty-list optimizations. (mapcar (lambda (x) (member x nil)) '("a" 2 nil)) (mapcar (lambda (x) (memql x nil)) '(a 2 nil)) (mapcar (lambda (x) (memq x nil)) '(a nil)) @@ -597,7 +597,7 @@ inner loops respectively." (list (mapcar (lambda (x) (assoc (setq n (1+ n)) nil)) '(a "nil")) n)) - ;; Exercise variable-aliasing optimisations. + ;; Exercise variable-aliasing optimizations. (let ((a (list 1))) (let ((b a)) (let ((a (list 2))) diff --git a/test/lisp/so-long-tests/spelling-tests.el b/test/lisp/so-long-tests/spelling-tests.el index eb1014dd8a7..14136cd4607 100644 --- a/test/lisp/so-long-tests/spelling-tests.el +++ b/test/lisp/so-long-tests/spelling-tests.el @@ -57,7 +57,7 @@ (unwind-protect (cl-letf (((symbol-function 'ispell-command-loop) (lambda (_miss _guess word _start _end) - (message "Unrecognised word: %s." word) + (message "Unrecognized word: %s." word) (throw 'mistake t)))) (catch 'mistake (find-library "so-long") |