diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2023-12-10 13:22:04 +0100 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2023-12-10 13:22:04 +0100 |
commit | 06a12b0cccbda419752f3388346be7d302ebcbeb (patch) | |
tree | 69c3a4c23638553993a7580cae4a4d597fd8e258 /lisp/emacs-lisp/bytecomp.el | |
parent | 1d5028ad0414cad458aac1102d3612e4956068c5 (diff) | |
download | emacs-06a12b0cccbda419752f3388346be7d302ebcbeb.tar.gz emacs-06a12b0cccbda419752f3388346be7d302ebcbeb.tar.bz2 emacs-06a12b0cccbda419752f3388346be7d302ebcbeb.zip |
; Fix typos
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 64fd4f6b3f3..950ae77803c 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3566,7 +3566,7 @@ lambda-expression." (cond ((and sef (or (eq sef 'error-free) byte-compile-delete-errors)) - ;; This transform is normally done in the Lisp optimiser, + ;; This transform is normally done in the Lisp optimizer, ;; so maybe we don't need to bother about it here? (setq form (cons 'progn (cdr form))) (setq handler #'byte-compile-progn)) @@ -3603,7 +3603,7 @@ lambda-expression." (let ((important-return-value-fns '( ;; These functions are side-effect-free except for the - ;; behaviour of functions passed as argument. + ;; behavior of functions passed as argument. mapcar mapcan mapconcat assoc plist-get plist-member @@ -4148,7 +4148,7 @@ If it is nil, then the handler is \"byte-compile-SYMBOL.\"" (byte-compile-two-args (if (macroexp-const-p (nth 1 form)) ;; First argument is constant: flip it so that the constant - ;; is last, which may allow more lapcode optimisations. + ;; is last, which may allow more lapcode optimizations. (let* ((op (car form)) (flipped-op (cdr (assq op '((< . >) (<= . >=) (> . <) (>= . <=) (= . =)))))) @@ -4312,7 +4312,7 @@ This function is never called when `lexical-binding' is nil." (arg2 (nth 2 form))) (when (and (memq (car form) '(+ *)) (macroexp-const-p arg1)) - ;; Put constant argument last for better LAP optimisation. + ;; Put constant argument last for better LAP optimization. (cl-rotatef arg1 arg2)) (byte-compile-form arg1) (byte-compile-form arg2) @@ -5326,7 +5326,7 @@ FORM is used to provide location, `bytecomp--cus-function' and "Warn about common mistakes in the `defcustom' type TYPE." (let ((invalid-types '( - ;; Lisp type predicates, often confused with customisation types: + ;; Lisp type predicates, often confused with customization types: functionp numberp integerp fixnump natnump floatp booleanp characterp listp stringp consp vectorp symbolp keywordp hash-table-p facep |