diff options
| author | Stefan Monnier | 2023-06-22 13:11:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-06-22 13:11:03 -0400 |
| commit | 6c1c14b33347ddcfde8068c4830c6d673d3a740b (patch) | |
| tree | e5a6dc9803a8308fe474c21b9df19c64a1e3e589 | |
| parent | 4c01b0deee13808605b05a89e927e67eaf67edbd (diff) | |
| download | emacs-6c1c14b33347ddcfde8068c4830c6d673d3a740b.tar.gz emacs-6c1c14b33347ddcfde8068c4830c6d673d3a740b.zip | |
latin-ltx.el: Add \Phi; fix bug#64212
* lisp/leim/quail/latin-ltx.el (greek letters): Fix regexp which was
meant to avoid lowercase phi only.
| -rw-r--r-- | lisp/leim/quail/latin-ltx.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el index 21a01c85737..9be3d722504 100644 --- a/lisp/leim/quail/latin-ltx.el +++ b/lisp/leim/quail/latin-ltx.el | |||
| @@ -244,7 +244,8 @@ system, including many technical ones. Examples: | |||
| 244 | ;; (which is \varphi) are reversed in `ucs-names', so we define | 244 | ;; (which is \varphi) are reversed in `ucs-names', so we define |
| 245 | ;; them manually. Also ignore "GREEK SMALL LETTER EPSILON" and | 245 | ;; them manually. Also ignore "GREEK SMALL LETTER EPSILON" and |
| 246 | ;; add the correct value for \epsilon manually. | 246 | ;; add the correct value for \epsilon manually. |
| 247 | (unless (string-match-p "\\<\\(?:PHI\\|GREEK SMALL LETTER EPSILON\\)\\>" name) | 247 | (unless (string-match-p "\\<GREEK SMALL LETTER \\(?:EPSILON\\|PHI\\)\\>" |
| 248 | name) | ||
| 248 | (concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase) | 249 | (concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase) |
| 249 | (match-string 2 name))))) | 250 | (match-string 2 name))))) |
| 250 | "\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'") | 251 | "\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'") |