; Fix typos: prefer American spelling

17 files changed, 32 insertions, 32 deletions

diff --git a/lisp/ChangeLog.17 b/lisp/ChangeLog.17
index 6333d1dadd2..cebafe18aa0 100644
--- a/lisp/ChangeLog.17
+++ b/lisp/ChangeLog.17
@@ -825,7 +825,7 @@
 
 2015-03-10  Paul Eggert  <eggert@cs.ucla.edu>
 
-        Prefer "initialize" to "initialise"
+        Prefer "initialize"
         * progmodes/js.el (js-indent-first-init):
         Rename from js-indent-first-initialiser, to avoid worrying about
         American vs British spelling.  All uses changed.
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index 00c81337439..a8ebe81e7d7 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -5165,7 +5165,7 @@
         * sql.el (sql-interbase): New function.
         (sql-interbase-program): New option.
         (sql-interbase-options): New option.
-        And some typos fixed: "customise" to "customize".
+        And some typos fixed: "customize".
 
 2001-03-06  Dave Love  <fx@gnu.org>
 
diff --git a/lisp/elec-pair.el b/lisp/elec-pair.el
index bbed955a393..f68b2f73c0a 100644
--- a/lisp/elec-pair.el
+++ b/lisp/elec-pair.el
@@ -575,7 +575,7 @@ The decision is taken by order of preference:
          (save-excursion (electric-pair--insert pair))))))))
 
 (defun electric-pair-open-newline-between-pairs-psif ()
-  "Honour `electric-pair-open-newline-between-pairs'.
+  "Honor `electric-pair-open-newline-between-pairs'.
 Member of `post-self-insert-hook' if `electric-pair-mode' is on."
   (when (and (if (functionp electric-pair-open-newline-between-pairs)
                  (funcall electric-pair-open-newline-between-pairs)
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 5f83a217061..7159c22dfae 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -289,7 +289,7 @@ Earlier variables shadow later ones with the same name.")
        (if (eq fn localfn)
            ;; From the same file => same mode.
            (macroexp--unfold-lambda `(,fn ,@(cdr form)))
-         ;; Since we are called from inside the optimiser, we need to make
+         ;; Since we are called from inside the optimizer, we need to make
          ;; sure not to propagate lexvar values.
          (let ((byte-optimize--lexvars nil)
                ;; Silence all compilation warnings: the useful ones should
@@ -322,7 +322,7 @@ Same format as `byte-optimize--lexvars', with shared structure and contents.")
 This indicates the loop discovery phase.")
 
 (defvar byte-optimize--dynamic-vars nil
-  "List of variables declared as dynamic during optimisation.")
+  "List of variables declared as dynamic during optimization.")
 
 (defvar byte-optimize--aliased-vars nil
   "List of variables which may be aliased by other lexical variables.
@@ -429,7 +429,7 @@ for speeding up processing.")
       (`(cond . ,clauses)
        ;; FIXME: The condition in the first clause is always executed, and
        ;; clause bodies are mutually exclusive -- use this for improved
-       ;; optimisation (see comment about `if' below).
+       ;; optimization (see comment about `if' below).
        (cons fn
              (mapcar (lambda (clause)
                        (if (consp clause)
@@ -477,9 +477,9 @@ for speeding up processing.")
        ;; FIXME: We have to traverse the expressions in left-to-right
        ;; order (because that is the order of evaluation and variable
        ;; mutations must be found prior to their use), but doing so we miss
-       ;; some optimisation opportunities:
+       ;; some optimization opportunities:
        ;; consider (and A B) in a for-effect context, where B => nil.
-       ;; Then A could be optimised in a for-effect context too.
+       ;; Then A could be optimized in a for-effect context too.
        (let ((tail exps)
              (args nil))
          (while tail
@@ -493,19 +493,19 @@ for speeding up processing.")
        ;; FIXME: If the loop condition is statically nil after substitution
        ;; of surrounding variables then we can eliminate the whole loop,
        ;; even if those variables are mutated inside the loop.
-       ;; We currently don't perform this important optimisation.
+       ;; We currently don't perform this important optimization.
        (let* ((byte-optimize--vars-outside-loop byte-optimize--lexvars)
               (condition-body
                (if byte-optimize--inhibit-outside-loop-constprop
                    ;; We are already inside the discovery phase of an outer
                    ;; loop so there is no need for traversing this loop twice.
                    (cons exp exps)
-                 ;; Discovery phase: run optimisation without substitution
+                 ;; Discovery phase: run optimization without substitution
                  ;; of variables bound outside this loop.
                  (let ((byte-optimize--inhibit-outside-loop-constprop t))
                    (cons (byte-optimize-form exp nil)
                          (byte-optimize-body exps t)))))
-              ;; Optimise again, this time with constprop enabled (unless
+              ;; Optimize again, this time with constprop enabled (unless
               ;; we are in discovery of an outer loop),
               ;; as mutated variables have been marked as non-substitutable.
               (condition (byte-optimize-form (car condition-body) nil))
@@ -559,7 +559,7 @@ for speeding up processing.")
       ;; Needed as long as we run byte-optimize-form after cconv.
       (`(internal-make-closure . ,_)
        ;; Look up free vars and mark them to be kept, so that they
-       ;; won't be optimised away.
+       ;; won't be optimized away.
        (dolist (var (caddr form))
          (let ((lexvar (assq var byte-optimize--lexvars)))
            (when lexvar
@@ -643,7 +643,7 @@ for speeding up processing.")
 
 (defun byte-optimize-one-form (form &optional for-effect)
   "The source-level pass of the optimizer."
-  ;; Make optimiser aware of lexical arguments.
+  ;; Make optimizer aware of lexical arguments.
   (let ((byte-optimize--lexvars
          (mapcar (lambda (v) (list (car v) t))
                  byte-compile--lexical-environment)))
@@ -655,7 +655,7 @@ for speeding up processing.")
         ;; First, optimize all sub-forms of this one.
         (setq form (byte-optimize-form-code-walker form for-effect))
 
-        ;; If a form-specific optimiser is available, run it and start over
+        ;; If a form-specific optimizer is available, run it and start over
         ;; until a fixpoint has been reached.
         (and (consp form)
              (symbolp (car form))
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 5300b0594d2..82db264ce8a 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -794,7 +794,7 @@ function passes responsibility to the functions in
 Other third-party values of `eldoc-documentation-strategy' should
 not use `eldoc--make-callback'.  They must find some alternate
 way to produce callbacks to feed to
-`eldoc-documentation-functions' and should endeavour to display
+`eldoc-documentation-functions' and should endeavor to display
 the docstrings eventually produced, using
 `eldoc-display-functions'."
   (let* (;; How many callbacks have been created by the strategy
diff --git a/lisp/faces.el b/lisp/faces.el
index e93d8c7af85..59287ffbbd1 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1847,7 +1847,7 @@ This value was determined experimentally.")
   "Whether RGB is more readable against white than black.
 RGB is a 3-element list (R G B), each component in the range [0,1].
 This predicate can be used both for determining a suitable (black or white)
-contrast colour with RGB as background and as foreground."
+contrast color with RGB as background and as foreground."
   (unless (<= 0 (apply #'min rgb) (apply #'max rgb) 1)
     (error "RGB components %S not in [0,1]" rgb))
   ;; Compute the relative luminance after gamma-correcting (assuming sRGB),
diff --git a/lisp/gnus/ChangeLog.3 b/lisp/gnus/ChangeLog.3
index c75f5354ca8..f3324b29190 100644
--- a/lisp/gnus/ChangeLog.3
+++ b/lisp/gnus/ChangeLog.3
@@ -7385,7 +7385,7 @@
 2011-01-02  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * gnus-sum.el (gnus-select-newsgroup): Don't propagate marks to
-        backends after sanitising on entry, because this never makes sense:
+        backends after sanitizing on entry, because this never makes sense:
         If the articles have gone missing, then the data no longer exists on
         the backend, and if they haven't, then Gnus is wrong, and shouldn't
         overwrite anything anyway.
diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 96172574709..6442cdb60f7 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -369,7 +369,7 @@ require user confirmation."
 (defun icomplete-fido-exit (force)
   "Attempt to exit minibuffer immediately with current input.
 Unless FORCE is non-nil (interactively with a prefix argument),
-honour a non-nil REQUIRE-MATCH argument to `completing-read' by
+honor a non-nil REQUIRE-MATCH argument to `completing-read' by
 trying to complete as much as possible and disallowing the exit
 if that doesn't produce a completion match."
   (interactive "P")
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index e8b0fbc18c4..cb75d91c566 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -820,7 +820,7 @@ size, and full-buffer size."
             (let* ((props (copy-sequence (text-properties-at (point))))
                    (face (plist-get props 'face)))
               ;; We don't want to use the faces on the indentation, because
-              ;; that's ugly, but we do want to use the background colour.
+              ;; that's ugly, but we do want to use the background color.
               (when face
                 (setq props (plist-put props 'face (shr-face-background face))))
               (add-text-properties gap-start (point) props))))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index b8855591f80..b224435b3d6 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -612,7 +612,7 @@ This regexp must match both `tramp-initial-end-of-output' and
   "Regexp matching password-like prompts.
 The regexp should match at end of buffer.
 
-This variable is, by default, initialised from
+This variable is, by default, initialized from
 `password-word-equivalents' when Tramp is loaded, and it is
 usually more convenient to add new passphrases to that variable
 instead of altering this variable.
diff --git a/lisp/org/ChangeLog.1 b/lisp/org/ChangeLog.1
index 7e08d1a3c9a..836e1430dfe 100644
--- a/lisp/org/ChangeLog.1
+++ b/lisp/org/ChangeLog.1
@@ -4001,7 +4001,7 @@
         buffer.
         (org-agenda-ignore-drawer-properties): New option.
         (org-agenda-prepare-buffers):
-        Honour `org-agenda-ignore-drawer-properties'.
+        Honor `org-agenda-ignore-drawer-properties'.
 
         * org-clock.el (org-clock-goto): Recenter to thrd line
 
@@ -4134,7 +4134,7 @@
         (orgstruct-heading-prefix-regexp, orgstruct-setup-hook):
         New options.
         (orgstruct-initialized): New variable.
-        (org-get-local-variables): Honour state property.
+        (org-get-local-variables): Honor state property.
         (org-run-like-in-org-mode): Use `let' instead of `progv'.  Do not
         override variables with non-default values.
         (org-forward-heading-same-level): Do not skip to headlines on
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el
index 0a2d5ed796b..cbf6709792f 100644
--- a/lisp/progmodes/bug-reference.el
+++ b/lisp/progmodes/bug-reference.el
@@ -142,7 +142,7 @@ to the highlighted and clickable region."
                  t)))
         ;; All groups 2..10 are within bounds.
         (cons m-b1 m-e1)
-      ;; The regexp doesn't fulfil the contract of
+      ;; The regexp doesn't fulfill the contract of
       ;; bug-reference-bug-regexp, so fall back to the old behavior.
       (unless (member bug-reference-bug-regexp
                       bug-reference--nonconforming-regexps)
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 83d7bc8641c..1e9f3e1f9bb 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -1664,9 +1664,9 @@ the file they refer to is visited and `flymake-mode' is turned on
 in the resulting buffer.
 
 Flymake backends that somehow gain sporadic information about
-diagnostics in neighbouring files may freely modify this variable
+diagnostics in neighboring files may freely modify this variable
 by adding or removing entries to for those files.  If the
-information about those neighbouring files is acquired repeatedly
+information about those neighboring files is acquired repeatedly
 and reliably, it may be more sensible to report them as
 \"foreign\" diagnostics instead.
 
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index a1385b0dea8..823d9297403 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2809,7 +2809,7 @@ END-CHAR is the ending delimiter; will stop at end-of-buffer otherwise."
               pieces)
         (forward-char))
        (t
-        (warn "Unrecognised escape char: %c" (following-char))))
+        (warn "Unrecognized escape char: %c" (following-char))))
       (setq start (point)))
     (push (buffer-substring start (1- (point))) pieces)
     (let ((s (apply #'concat (nreverse pieces))))
diff --git a/lisp/ses.el b/lisp/ses.el
index 542fb3d7c87..c2c1efe0f93 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -3782,7 +3782,7 @@ function is redefined."
          (default (and cur-printer (ses--locprn-def cur-printer)))
          create-printer)
     (cond
-     ;; cancelled operation => do nothing
+     ;; canceled operation => do nothing
      ((eq definition t))
      ;; no change => do nothing
      ((and cur-printer (equal definition default)))
diff --git a/lisp/so-long.el b/lisp/so-long.el
index 17af532249c..8611081c0f4 100644
--- a/lisp/so-long.el
+++ b/lisp/so-long.el
@@ -38,7 +38,7 @@
 ;; compacted into the smallest file size possible, which often entails removing
 ;; newlines should they not be strictly necessary).  This can result in lines
 ;; which are many thousands of characters long, and most programming modes
-;; simply aren't optimised (remotely) for this scenario, so performance can
+;; simply aren't optimized (remotely) for this scenario, so performance can
 ;; suffer significantly.
 ;;
 ;; When so-long detects such a file, it calls the command `so-long', which
@@ -412,7 +412,7 @@
 ;;
 ;; 1.1.2 - Use `so-long-mode-line-active' face on `mode-name' in `so-long-mode'.
 ;; 1.1.1 - Identical to 1.1, but fixing an incorrect GNU ELPA release.
-;; 1.1   - Utilise `buffer-line-statistics' in Emacs 28+, with the new
+;; 1.1   - Utilize `buffer-line-statistics' in Emacs 28+, with the new
 ;;         `so-long-predicate' function `so-long-statistics-excessive-p'.
 ;;       - Increase `so-long-threshold' from 250 to 10,000.
 ;;       - Increase `so-long-max-lines' from 5 to 500.
@@ -449,7 +449,7 @@
 ;;       - Added sgml-mode and nxml-mode to `so-long-target-modes'.
 ;; 0.7.4 - Refactored the handling of `whitespace-mode'.
 ;; 0.7.3 - Added customization group `so-long' with user options.
-;;       - Added `so-long-original-values' to generalise the storage and
+;;       - Added `so-long-original-values' to generalize the storage and
 ;;         restoration of values from the original mode upon `so-long-revert'.
 ;;       - Added `so-long-revert-hook'.
 ;; 0.7.2 - Remember the original major mode even with M-x `so-long-mode'.
@@ -642,7 +642,7 @@ Note that `so-long-statistics-excessive-p' requires Emacs 28.1 or later."
 (defun so-long--action-type ()
   "Generate a :type for `so-long-action' based on `so-long-action-alist'."
   ;; :type seemingly cannot be a form to be evaluated on demand, so we
-  ;; endeavour to keep it up-to-date with `so-long-action-alist' by
+  ;; endeavor to keep it up-to-date with `so-long-action-alist' by
   ;; calling this from `so-long--action-alist-setter'.
   `(radio ,@(mapcar (lambda (x) (list 'const :tag (cadr x) (car x)))
                     (assq-delete-all nil so-long-action-alist))
diff --git a/lisp/windmove.el b/lisp/windmove.el
index 6c239dcd1ba..5c7bc91192a 100644
--- a/lisp/windmove.el
+++ b/lisp/windmove.el
@@ -787,7 +787,7 @@ Default value of MODIFIERS is `shift-super'."
                       (const :tag "Hyper" hyper)
                       (const :tag "Super" super)
                       (const :tag "Alt" alt))))
-  "Customisation type for windmove modifiers.")
+  "Customization type for windmove modifiers.")
 
 (defcustom windmove-default-keybindings nil
   "Default keybindings for regular windmove commands.