[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 6c1c14b3334: latin-ltx.el: Add \Phi; fix bug#64212
From: |
Stefan Monnier |
Subject: |
master 6c1c14b3334: latin-ltx.el: Add \Phi; fix bug#64212 |
Date: |
Thu, 22 Jun 2023 13:11:14 -0400 (EDT) |
branch: master
commit 6c1c14b33347ddcfde8068c4830c6d673d3a740b
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
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.
---
lisp/leim/quail/latin-ltx.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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:
;; (which is \varphi) are reversed in `ucs-names', so we define
;; them manually. Also ignore "GREEK SMALL LETTER EPSILON" and
;; add the correct value for \epsilon manually.
- (unless (string-match-p "\\<\\(?:PHI\\|GREEK SMALL LETTER EPSILON\\)\\>"
name)
+ (unless (string-match-p "\\<GREEK SMALL LETTER \\(?:EPSILON\\|PHI\\)\\>"
+ name)
(concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
(match-string 2 name)))))
"\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 6c1c14b3334: latin-ltx.el: Add \Phi; fix bug#64212,
Stefan Monnier <=