diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2020-08-11 08:47:40 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2020-08-11 08:49:47 +0200 |
| commit | 0d0aad213f941efc0fa0ec032e37dc9c2b08c9fb (patch) | |
| tree | 6d3f65b67a7068cbc430ab8b1774639e48d783f5 /lisp/leim | |
| parent | 9c702b5ad6cd4a115eec3a4875510070f26a2420 (diff) | |
| download | emacs-0d0aad213f941efc0fa0ec032e37dc9c2b08c9fb.tar.gz | |
; * lisp/leim/quail/latin-ltx.el: Fix regexp in last commit.
Diffstat (limited to 'lisp/leim')
| -rw-r--r-- | lisp/leim/quail/latin-ltx.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 \\([^- ]+\\)\\'") |