From: Stefan Kangas <stefankangas@gmail.com>
Date: Tue, 11 Aug 2020 06:47:40 +0000 (+0200)
Subject: ; * lisp/leim/quail/latin-ltx.el: Fix regexp in last commit.
X-Git-Tag: emacs-28.0.90~6705
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d0aad213f941efc0fa0ec032e37dc9c2b08c9fb;p=emacs.git

; * lisp/leim/quail/latin-ltx.el: Fix regexp in last commit.
---

diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el
index 6e25fc72557..6a2508ba31d 100644
--- a/lisp/leim/quail/latin-ltx.el
+++ b/lisp/leim/quail/latin-ltx.el
@@ -244,7 +244,7 @@ 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 "\\<\\(?:PHI\\|GREEK SMALL LETTER EPSILON\\)\\>" name)
       (concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
                             (match-string 2 name)))))
   "\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'")