mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Fix typos

Browse source
This commit is contained in:
Stefan Kangas 2023-12-10 13:22:04 +01:00
parent 1d5028ad04
commit 06a12b0ccc
77 changed files with 148 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -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!