From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 10 Aug 2020 22:42:31 +0000 (+0200)
Subject: Fix \epsilon and \varepsilon in TeX input method
X-Git-Tag: emacs-28.0.90~6706
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9c702b5ad6cd4a115eec3a4875510070f26a2420;p=emacs.git

Fix \epsilon and \varepsilon in TeX input method

* lisp/leim/quail/latin-ltx.el: Add correct \epsilon and \varepsilon
characters to TeX input method.  (Bug#26060)
---

diff --git a/lisp/leim/quail/latin-ltx.el b/lisp/leim/quail/latin-ltx.el
index 78ffca9e2fa..6e25fc72557 100644
--- a/lisp/leim/quail/latin-ltx.el
+++ b/lisp/leim/quail/latin-ltx.el
@@ -242,12 +242,14 @@ system, including many technical ones.  Examples:
  ((lambda (name char)
     ;; "GREEK SMALL LETTER PHI" (which is \phi) and "GREEK PHI SYMBOL"
     ;; (which is \varphi) are reversed in `ucs-names', so we define
-    ;; them manually.
-    (unless (string-match-p "\\<PHI\\>" name)
+    ;; 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)
       (concat "\\" (funcall (if (match-end 1) #' capitalize #'downcase)
                             (match-string 2 name)))))
   "\\`GREEK \\(?:SMALL\\|CAPITA\\(L\\)\\) LETTER \\([^- ]+\\)\\'")
 
+ ("\\epsilon" ?ϵ)
  ("\\phi" ?ϕ)
  ("\\Box" ?□)
  ("\\Bumpeq" ?≎)
@@ -641,6 +643,7 @@ system, including many technical ones.  Examples:
       (concat "\\var" (downcase (match-string 1 name)))))
   "\\`GREEK \\([^- ]+\\) SYMBOL\\'")
 
+ ("\\varepsilon" ?ε)
  ("\\varphi" ?φ)
  ("\\varprime" ?′)
  ("\\varpropto" ?∝)