summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/bytecomp-tests.el
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2023-12-10 13:22:04 +0100
committerStefan Kangas <stefankangas@gmail.com>2023-12-10 13:22:04 +0100
commit06a12b0cccbda419752f3388346be7d302ebcbeb (patch)
tree69c3a4c23638553993a7580cae4a4d597fd8e258 /test/lisp/emacs-lisp/bytecomp-tests.el
parent1d5028ad0414cad458aac1102d3612e4956068c5 (diff)
; Fix typos
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')
-rw-r--r--test/lisp/emacs-lisp/bytecomp-tests.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index 27056c99a50..8fbe48bbb9a 100644
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -717,7 +717,7 @@ inner loops respectively."
(set (make-local-variable 'bytecomp-tests--xx) 2)
bytecomp-tests--xx)
- ;; Check for-effect optimisation of `condition-case' body form.
+ ;; Check for-effect optimization of `condition-case' body form.
;; With `condition-case' in for-effect context:
(let ((x (bytecomp-test-identity ?A))
(r nil))
@@ -797,7 +797,7 @@ inner loops respectively."
(let ((x 0))
(list (= (setq x 1))
x))
- ;; Aristotelian identity optimisation
+ ;; Aristotelian identity optimization
(let ((x (bytecomp-test-identity 1)))
(list (eq x x) (eql x x) (equal x x)))
)
@@ -2120,7 +2120,7 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
))
(ert-deftest bytecomp--byte-op-error-backtrace ()
- "Check that signalling byte ops show up in the backtrace."
+ "Check that signaling byte ops show up in the backtrace."
(dolist (case bytecomp-tests--byte-op-error-cases)
(ert-info ((prin1-to-string case) :prefix "case: ")
(let* ((call (nth 0 case))
@@ -2151,7 +2151,7 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
call))))))))))
(ert-deftest bytecomp--eq-symbols-with-pos-enabled ()
- ;; Verify that we don't optimise away a binding of
+ ;; Verify that we don't optimize away a binding of
;; `symbols-with-pos-enabled' around an application of `eq' (bug#65017).
(let* ((sym-with-pos1 (read-positioning-symbols "sym"))
(sym-with-pos2 (read-positioning-symbols " sym")) ; <- space!