Allow "lambda" spelling for ucs-insert

* lisp/international/mule-cmds.el (ucs-names): Add a "LAMBDA"
completion variant for every "LAMDA" name (bug#30513).

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 02dacaf0a282de772e770a94dddd3971892d6eb0..e49d1fa91e0b558f18811c57e7a244f9f65973f3 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -3010,6 +3010,15 @@ on encoding."
                ;; higher code, so it gets pushed later!
                (if new-name (puthash new-name c names))
                (if old-name (puthash old-name c names))
+                ;; Unicode uses the spelling "lamda" in character
+                ;; names, instead of "lambda", due to "preferences
+                ;; expressed by the Greek National Body" (Bug#30513).
+                ;; Some characters have an old-name with the "lambda"
+                ;; spelling, but others don't.  Add the traditional
+                ;; spelling for more convenient completion.
+                (when (and (not old-name) new-name
+                           (string-match "LAMDA" new-name))
+                  (puthash (replace-match "LAMBDA" t t new-name) c names))
                (setq c (1+ c))))))
         ;; Special case for "BELL" which is apparently the only char which
         ;; doesn't have a new name and whose old-name is shadowed by a newer