master 689f421: Allow "lambda" spelling for ucs-insert

[Lars Ingebrigtsen]

branch: master
commit 689f4212520bfe96cc8b060c4514abe7f97d0d64
Author: Noam Postavsky <npostavs@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Allow "lambda" spelling for ucs-insert
    
    * lisp/international/mule-cmds.el (ucs-names): Add a "LAMBDA"
    completion variant for every "LAMDA" name (bug#30513).
---
 lisp/international/mule-cmds.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 02dacaf..e49d1fa 100644
--- 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