3 files changed, 74 insertions, 5 deletions

diff --git a/admin/codespell/codespell.dictionary b/admin/codespell/codespell.dictionary
index 59065fbf8e2..df6085feac8 100644
--- a/admin/codespell/codespell.dictionary
+++ b/admin/codespell/codespell.dictionary
@@ -1,6 +1,5 @@
 alis->alist, alias, alas, axis, alms,
 boostrap-clean->bootstrap-clean
-brunches->branches
 defalis->defalias
 defalises->defaliases
 ecmacs->emacs
@@ -8,10 +7,6 @@ ehsell->eshell
 emcs->emacs
 file-writeable-p->file-writable-p
 finis->finish
-firs->first
-hep->help
 least-favourite->least-favorite
-lien->line
-liens->lines
 mecas->emacs
 sehell->eshell, shell,
diff --git a/admin/codespell/codespell.exclude b/admin/codespell/codespell.exclude
index 1f036478965..f01302b7931 100644
--- a/admin/codespell/codespell.exclude
+++ b/admin/codespell/codespell.exclude
@@ -1611,3 +1611,76 @@ Optional DETECTIN is an autoload cons from `ede-detect-directory-for-project'
   '("\\(?:Entering\\|Leavin\\(g\\)\\) directory [`']\\(.+\\)'$" (2 . 1))
     "dropping" "fillin" "from" "granularity" "hppp" "inwindow"
     (".G1" . ".G2")                     ; grap
+  (let ((tagret nil)
+                (setq tagret (cons ans tagret))
+              (setq tagret (append ans tagret)))
+    tagret))
+            (setq tagret ans)
+          (setq tagret (car ans)))
+    (cons objret tagret)))
+            (prevend (track-changes--state-end state))
+              (setq end prevend)
+            (when (< endb prevend)
+              (let ((new-end (+ end (- prevend endb))))
+                (cl-assert (= prevend (+ beg lenbefore)))
+            (cl-assert (<= beg prevbeg prevend endb))
+                         (- endb prevend)))
+                                                 (- endb prevend)))))
+ ;; etc... whereas "real" declmods are valid for all types, buildin
+              outin = ina | inb | \\=`constant;
+              out = outin;
+        comin comstart)
+        (setq comin (point))
+                                (buffer-substring comstart comin))))
+              (comment-string-strip (buffer-substring comstart comin) nil t))
+                     (buffer-substring (point) comin))
+                  (buffer-substring (line-beginning-position) comin))))
+;; designate them are: eqn (e), grap (g), pic (p), tbl (t), vgrind
+        FLUSHO and PENDIN.
+      fo: { [x: any]: any } = {
+                           "\\<\\(?:\\(?:fals\\|tru\\)e\\)\\>")
+    (search-forward "tru")
+    (search-forward "Tru")
+    ("  fo.ba@example.com" 6 email "fo.ba@example.com")
+               "t" "tr" "tru" "truE" "truee"
+               "f" "fa" "fal" "fals" "falsE" "falsee"))
+    int eventState, notIn;
+    notIn = (down ? eventState & ~lastButtonState
+    if ((notIn & (MotionEvent.BUTTON_PRIMARY
+    if ((notIn & MotionEvent.BUTTON_PRIMARY) != 0)
+    if ((notIn & MotionEvent.BUTTON_SECONDARY) != 0)
+    if ((notIn & MotionEvent.BUTTON_TERTIARY) != 0)
+    if ((notIn & MotionEvent.BUTTON_BACK) != 0)
+    if ((notIn & MotionEvent.BUTTON_FORWARD) != 0)
+    if ((notIn & MotionEvent.BUTTON_STYLUS_PRIMARY) != 0)
+    if ((notIn & MotionEvent.BUTTON_STYLUS_SECONDARY) != 0)
+argument \\='general-category, is Decimal_Numbers (Nd).  It returns
+  (let (compos comin)
+                          (setq comin (point))))))
+            (setq comin (point))))
+          (let* ((comstart (buffer-substring compos comin))
+                         (te (float-time
+                         (dt (- (if tend (min te tend) te)
+2022-04-20  Jean Abou Samra  <jean@abou-samra.fr>  (tiny change)
+(string< "abc" "abd")
+(string< "abd" "abc")
+;;        ("a") ("ab") ("abc") ("abd") ("abf") ("zab") ("acb")
+;; `«(my-face)U:abd»'.
+;; `«(my-fibonacci-property):(1 1 2 3 5 8):abd»'.
+   :eval (string-collate-lessp "abc" "abd"))
+   :eval (string-lessp "abc" "abd")
+   :eval (string-greaterp "abd" "abc")
+   :eval (string-collate-lessp "abc" "abd")))
+  `(("abc" < "abd")
+    (abc < "abd")
+    (abc < abd)
+    ("abc" < ,(string-to-multibyte "abd"))
+    (,(string-to-multibyte "abc") < "abd")
+    (,(string-to-multibyte "abc") < ,(string-to-multibyte "abd"))
+                   ("" . "a") ("a" . "b") ("A" . "a") ("abc" . "abd")
+2004-05-05  Stephen Eglen  <stephen@anc.ed.ac.uk>
+;; location: http://www.anc.ed.ac.uk/~stephen/emacs/
+  :link '(url-link "https://www.anc.ed.ac.uk/~stephen/emacs/")
+              ((or (string-equal tag "anc") (string-equal tag "ancestor"))
+     ("ro" :default "Continuare de pe pagina precedentă")
+     ("ro" :default "Continuare pe pagina următoare")
diff --git a/admin/codespell/codespell.ignore b/admin/codespell/codespell.ignore
index 4f6135ca39a..02bd6d05838 100644
--- a/admin/codespell/codespell.ignore
+++ b/admin/codespell/codespell.ignore
@@ -1,4 +1,5 @@
 acknowledgements
+advices
 afile
 ake
 analogue