diff options
author | Noam Postavsky <npostavs@gmail.com> | 2020-09-04 06:43:13 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-04 06:43:13 +0200 |
commit | 689f4212520bfe96cc8b060c4514abe7f97d0d64 (patch) | |
tree | 6f2fb34c940a385157d3edd84fc61d4ebdb70ba5 | |
parent | 66d01012ba61a364fe92cdc1728bfa135a90626a (diff) | |
download | emacs-689f4212520bfe96cc8b060c4514abe7f97d0d64.tar.gz |
Allow "lambda" spelling for ucs-insert
* lisp/international/mule-cmds.el (ucs-names): Add a "LAMBDA"
completion variant for every "LAMDA" name (bug#30513).
-rw-r--r-- | lisp/international/mule-cmds.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 02dacaf0a28..e49d1fa91e0 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 |