; Fix typos

1 files changed, 52 insertions, 18 deletions

diff --git a/admin/codespell/codespell.exclude b/admin/codespell/codespell.exclude
index 2503f4a9a16..416d79cf131 100644
--- a/admin/codespell/codespell.exclude
+++ b/admin/codespell/codespell.exclude
@@ -1,3 +1,54 @@
+  say "And this happens inbetween";
+	 @ture)
+	($sig,$na,@ture)
+($sig,$na,@ture)
+@ture)
+((squery 10 "SQUERY alis :help list")
+ (0.01 ":Alis@hub.uk NOTICE tester :See also: HELP EXAMPLES"))
+ (0.04 ":Alis@hub.uk NOTICE tester :[...]")
+ (0.01 ":Alis@hub.uk NOTICE tester :/SQUERY Alis LIST mask [-options]")
+ (0.08 ":Alis@hub.uk NOTICE tester :Searches for a channel")
+        (erc-scenarios-common-say "/SQUERY alis help list")
+  (should (equal '((regexp . "(string-match-p \"^[fo]+\" \"foobar\")\n    => 0"))
+       (or "comm" "comma" "comman" "command" "commands"
+      (when (and (not (or skipp erc-timestamp-format))
+      (unless skipp
+           (skipp (or (and erc-stamp--skip-when-invisible invisible)
+;; if you type "foo", but typing just "fo" doesn't show the preview.
+ (Emacs main thre), pid 32619 (org.gnu.emacs)
+F DEBUG   : pid: 32619, tid: 32644, name: Emacs main thre  >>> org.gnu.emacs <<<
+	bnez	$t2, .filld		# start filling longs
+	j	.filld			# fill either doubleword or byte
+.filld:
+
+ (0.01 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:08:40] alice: My sons would never so dishonour me.")
+           interger intger lits bool boolen constant filename
+                with typess = (sort (mapcar #'comp-supertypes
+                for types in typess
+;; FIXME: normalise `seq', both the construct and implicit sequences,
+;; `intersection', we may end up normalising subtrees multiple times
+;; One way to avoid this is to aggressively normalise the entire tree
+;; Such normalisation could normalise synonyms, eliminate `minimal-match'
+                  ;; Normalise the constructor to `or' and the args recursively.
+  "Intersection of the normalised FORMS, as an interval set."
+FORM must be normalised (from `rx--normalise-char-pattern')."
+  "Optimise `or' arguments.  Return a new rx form.
+Each element of ARGS should have been normalised using
+    (search-forward "retur")             ; leaves point before the "n"
+with typess = (sort (mapcar #'comp-supertypes
+               (font-spec :registry "iso10646-1" :otf '(khmr nil (pres)))))
+(0.01 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :[06:08:40] alice: My sons would never so dishonour me.")
+ (0.05 ":bob!~u@q2weir96jk3r2.irc PRIVMSG #chan :alice: Pawn me to this your honour, she is his."))
+        (funcall expect 1 "Entirely honour"))
+ (0 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #chan :You have paid the heavens your function, and the prisoner the very debt of your calling. I have laboured for the poor gentleman to the extremest shore of my modesty; but my brother justice have I found so severe, that he hath forced me to tell him he is indeed Justice.")
+ (0.00 ":irc.example.net 501 tester x :is not a recognised user mode.")
+ (0.00 ":irc.example.net 501 dummy` x :is not a recognised user mode.")
+ (0.1 ":bob!~u@rz2v467q4rwhy.irc PRIVMSG #utf-8 :alice: Entirely honour; I would not be delay'd."))
+           integer integer list bool boolean constant filename
+           "def" "defi" "defin" "define"
+           "doc" "docu" "docum" "docume" "documen" "document"
+	  case Aadd : overflow = ckd_add (&a, accum, next); break;
+   And this the second, again with the same distinction therefrom.
 Bonus: Return a cons cell: (COMPILED . UPTODATE).
 Bonus: Return a cons cell: (COMPILED . UPTODATE)."
 (defun semantic-grammar-create-package (&optional force uptodate)
@@ -57,7 +108,6 @@ order but are now listed consecutively en bloc.
 2003-06-11  Daniel Néri  <done@mayonnaise.net>
 2001-07-26 10:00:00  Steven E. Harris  <seh@speakeasy.org>
 2001-01-15  Jack Twilley  <jmt@tbe.net>
-
 	matching LAMDA as a word.  Noted by Stefan Monnier.
 	completion variant for every "LAMDA" name (bug#30513).
 	                    "foto"
@@ -195,7 +245,7 @@ mode setting.  With the Inverse flag [@code{alog}], this command is
 @r{    a b@:    I B     @:             @:     2  @:alog@:(a,b)  b^a}
 @r{    a b@:    I f I   @:             @:     2  @:alog@:(a,b)  b^a}
 	Change comment about the iif hook to reflect the actual reason.
-     "I + E (ln), L (exp), B (alog: B^X); f E (lnp1), f L (expm1)"
+     "\\`I' + \\`E' (ln), \\`L' (exp), \\`B' (alog: B^X); \\`f E' (lnp1), \\`f L' (expm1)"
   (let (numer denom)
     (setq numer (car (math-read-expr-list)))
     (if (and (Math-num-integerp numer)
@@ -1177,9 +1227,6 @@ In CLOS, the argument list is (CLASS OBJECT SLOT-NAME), but
     const char *cm_right;	/* right (nd) */
       (should (equal (ert-test-result-messages result) "a\nb\nc\nd\n")))))
       (insert "a\nb\nc\nd\n")
-      (insert "a\nb\nc\nd\n")
-    (insert "a\nb\nc\nd\n")
-      (insert "a\nb\nc\nd\n")
     (insert "a\nb\nc\nd\n")
     (should (string= (buffer-string) "Abc\nd efg\n(h ijk)."))))
 	       (nd (read-directory-name "Create directory: "
@@ -1192,7 +1239,6 @@ DESCRIPTION:In this meeting\\, we will cover topics from product and enginee
       ;; RFC5546 refers to uninvited attendees as "party crashers".
 That includes both spelling (e.g., "behavior", not "behaviour") and
 	* doc/lispref/control.texi (Signalling Errors)
-	* doc/lispref/control.texi (Signalling Errors)
 Re "behavior" vs "behaviour", etc.
 + [[https://protesilaos.com/codelog/2020-07-08-modus-themes-nuanced-colours/][Modus themes: major review of "nuanced" colours]] (2020-07-08)
 + [[https://protesilaos.com/codelog/2020-09-14-modus-themes-review-blues/][Modus themes: review of blue colours]] (2020-09-14)
@@ -1256,7 +1302,6 @@ Put dialogue in buffer."
   "Given start brace BRA, and end brace KET, expand one line into many lines."
 		   (regexp-quote ket)
 			      (int-to-string (car vec)) ket sig-tail "\n"))
-  "Given start brace BRA, and end brace KET, expand one line into many lines."
 	    m | mo | mot | moti | motif )	val=motif ;;
     i | in | ino | inot | inoti | inotif | inotify )	val=inotify ;;
 2001-04-23  Kahlil Hodgson  <kahlil@discus.anu.edu.au>
@@ -1270,14 +1315,11 @@ Put dialogue in buffer."
 	Rename from whitespace-skipping-for-quotes-not-ouside.
 	(whitespace-skipping-for-quotes-not-ouside)
 Thread-Modell: posix
-Thread-Modell: posix
 (ert-deftest indent-sexp-cant-go ()
 (ert-deftest thunk-let-bound-vars-cant-be-set-test ()
 	       (mml-secure-cust-fpr-lookup context 'encrypt "sub@example.org")))
        (let ((p-e-fprs (mml-secure-cust-fpr-lookup
 	     (p-s-fprs (mml-secure-cust-fpr-lookup
-       (let ((p-e-fprs (mml-secure-cust-fpr-lookup
-	     (p-s-fprs (mml-secure-cust-fpr-lookup
        (let ((s-e-fprs (mml-secure-cust-fpr-lookup
 	     (s-s-fprs (mml-secure-cust-fpr-lookup
 (ert-deftest doesnt-time-out ()
@@ -1308,7 +1350,6 @@ doc/emacs/docstyle.texi:14: fied ==> field
 	* follow.el (follow-inactive-menu): Rename from follow-deactive-menu.
 	* emacs-lisp/cconv.el (cconv-analyse-form): Warn use of ((λ ...) ...).
 	(feedmail-sendmail-f-doesnt-sell-me-out)
-	(feedmail-sendmail-f-doesnt-sell-me-out)
 	Respect feedmail-sendmail-f-doesnt-sell-me-out.
 	* terminal.el (te-get-char, te-tic-sentinel):
 from server-external-socket-initialised, since it should be
@@ -1401,7 +1442,6 @@ Paul Raines (raines at slac.stanford.edu),
 				     (car secnd))) ; fetch_date
 			 secnd (cdr secnd))
 				     (car secnd))) ; Keep_flag
-			 secnd (cdr secnd))
 				     (car secnd))) ; NOV_entry_position
 @c LocalWords: DesBrisay Dcc devel dir dired docstring filll forw
 Older versions of the themes provided options ~grayscale~ (or ~greyscale~)
@@ -1450,14 +1490,12 @@ DEFUN ("cond", Fcond, Scond, 0, UNEVALLED, 0,
 2006-10-12  Magnus Henoch  <mange@freemail.hu>
 2006-10-11  Magnus Henoch  <mange@freemail.hu>
 2006-10-09  Magnus Henoch  <mange@freemail.hu>
-2008-10-16  Magnus Henoch  <mange@freemail.hu>
 2007-12-31  Magnus Henoch  <mange@freemail.hu>
 2007-12-05  Magnus Henoch  <mange@freemail.hu>
 	(ENUMABLE): Remove; no longer needed.
 	* lisp.h (ENUMABLE) [!_AIX]: Don't define to 0 merely because we're
 	* lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): New macros.
 	* lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): Delete macros.
-	* lisp.h (ENUMABLE, DEFINE_GDB_SYMBOL_ENUM): New macros.
 2023-06-29  Andrew G Cohen  <cohen@andy.bu.edu>
 2023-05-07  Andrew G Cohen  <cohen@andy.bu.edu>
 	   C-x b fo
@@ -1467,10 +1505,8 @@ DEFUN ("cond", Fcond, Scond, 0, UNEVALLED, 0,
 2022-03-22  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-03-20  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-03-17  Andrew G Cohen  <cohen@andy.bu.edu>
-2022-03-17  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-03-04  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-02-18  Andrew G Cohen  <cohen@andy.bu.edu>
-2022-02-18  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-02-11  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-02-08  Andrew G Cohen  <cohen@andy.bu.edu>
 2022-02-03  Andrew G Cohen  <cohen@andy.bu.edu>
@@ -1490,7 +1526,6 @@ extern struct servent *hes_getservbyname (/* char *, char * */);
       servent = hes_getservbyname (service, "tcp");
       if (servent)
       servent = getservbyname (service, "tcp");
-      if (servent)
 	  struct servent *srv = getservbyname (service, protocol);
 2003-04-10  Sebastian Tennant  <seb@albert.vcisp.net>  (tiny change)
 	Reported by Sebastian Tennant <sebyte@smolny.plus.com>.
@@ -1515,7 +1550,6 @@ extern struct servent *hes_getservbyname (/* char *, char * */);
 					    (substring strin pos end-pos))))))
 (defun dun-listify-string2 (strin)
     (while (setq end-pos (string-search " " (substring strin pos)))
-					    (substring strin pos end-pos))))))
 "any" "append" "as" "asc" "ascic" "async" "at_begin" "at_end" "audit"
 	   "attribute" "(d)eclaration or (s)pecification?" t) ?s)
 		 "quantity" "(f)ree, (b)ranch, or (s)ource quantity?" t)))